Moving Alphanumeric Fields

       IDENTIFICATION DIVISION.
       PROGRAM-ID.  TRUNCATE-TEST.
       AUTHOR.      BILL ROGERS.

      * This program illustrates Table 5.2 from the text book.

       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 SENDING-FIELD   PIC X(5) VALUE 'ABCDE'.
       01 FOUR-BYTE-FIELD PIC X(4) VALUE 'XXXX'.
       01 FIVE-BYTE-FIELD PIC X(5) VALUE 'XXXXX'.
       01 SIX-BYTE-FIELD  PIC X(6) VALUE 'XXXXXX'.

       PROCEDURE DIVISION.
       MAINLINE.
           DISPLAY 'THE INITIAL VALUES ARE: '.
           PERFORM DISPLAY-THE-FIELDS.

           MOVE SENDING-FIELD TO FOUR-BYTE-FIELD.
           MOVE SENDING-FIELD TO FIVE-BYTE-FIELD.
           MOVE SENDING-FIELD TO SIX-BYTE-FIELD.

           DISPLAY 'AFTER THE MOVES: '.
           PERFORM DISPLAY-THE-FIELDS.
           STOP RUN.

       DISPLAY-THE-FIELDS.
           DISPLAY '4: [' FOUR-BYTE-FIELD ']'.
           DISPLAY '5: [' FIVE-BYTE-FIELD ']'.
           DISPLAY '6: [' SIX-BYTE-FIELD ']'.

Program output:

THE INITIAL VALUES ARE:
4: [XXXX]
5: [XXXXX]
6: [XXXXXX]
AFTER THE MOVES:
4: [ABCD]
5: [ABCDE]
6: [ABCDE ]

Cobol Home