Ch 3_3. DATA DIVISION / VALUE Clause


Purpose of VALUE clauses

Examples

...
WORKING-STORAGE SECTION.                           01 REC-CNT PIC 99.
01 REC-CNT1   PIC  99 VALUE 0.                     ...
01 REC-CNT2   PIC  99 VALUE ZERO.                  PROCEDURE DIVISION.
01 REC-CNT3   PIC  99 VALUE ZEROS.                     ...
01 REC-CNT4   PIC  99 VALUE ZEROES.                    MOVE 0 TO REC-CNT.
...

More Examples

WORKING-STORAGE SECTION.
01 WORK-AREAS.
   03 WS-FLAG            PIC  X    VALUE  'M'.
   03 TAX-MONTH          PIC  X(3) VALUE  'APR'.
   03 BLANKS             PIC  X(3) VALUE  SPACES.
   03 TAX-TOTAL          PIC  9(5) VALUE  SPACES.  <---- Wrong! 

Examples for Headings with very long Literals

000100*A---B--+----2----+----3----+----4----+----5----+----6----+----7--
       WORKING-STORAGE SECTION.
       01  HEADING       PIC  X(73)       VALUE            'MONTHLY TRAN
      -    'SACTIONS FOR ...............................................
      -    '.'.

How to handle Decimal Point

   03 TAX-RATE           PIC      V99  VALUE  .06.
   03 TAX-RATE2          PIC      V99  VALUE  0.06.
   03 UNIT-PRICE         PIC   999V99  VALUE  150.20.