Reference Modification

Format: field (starting_position:length)
Example: FIELD-X (2:5) refers to the 5 characters of FIELD-X starting in position 2.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.   PHONE-NUMBERS.
       AUTHOR.       BILL ROGERS.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 RAW-PHONE-NUMBER          PIC 9(10)    VALUE 7085345000.
       01 PRETTY-PHONE-NUMBER.
          02                        PIC X        VALUE '('.
          02 AREA-CODE              PIC X(3).
          02                        PIC X(2)     VALUE ') '.
          02 PHONE-EXCHANGE         PIC X(3).
          02                        PIC X        VALUE '-'.
          02 PHONE-DIGITS           PIC X(4).
       PROCEDURE DIVISION.
       MAIN-LINE.
           MOVE RAW-PHONE-NUMBER (1:3) TO AREA-CODE.
           MOVE RAW-PHONE-NUMBER (4:3) TO PHONE-EXCHANGE.
           MOVE RAW-PHONE-NUMBER (7:4) TO PHONE-DIGITS.
           DISPLAY PRETTY-PHONE-NUMBER.
           STOP RUN.

Cobol Home