Reports

       IDENTIFICATION DIVISION.
       PROGRAM-ID. Ztst1.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUM1.
           02 NUM1H PIC X(5) VALUE "0000/".
           02 NUM1T PIC 9(4) VALUE 2013.
       01 NUM2.
           02 NUM1H PIC 9(3) VALUE 000.
           02 NUM1T PIC 9(5) VALUE 12345.
       01 NUM3.
           02 FILLER PIC 9(5) VALUE 12345.
           02 NUM3T PIC X(2) VALUE SPACES.
       01 E-NUM1 PIC *(2)9 VALUE 0.
       PROCEDURE DIVISION.
           DISPLAY-VALUES.
           DISPLAY-ZEROES.

           DISPLAY "tstE-NUM1 is  "E-NUM1.

      * old: MOVE E-NUM1 TO NUM3.
           MOVE E-NUM1 TO NUM3T.

           DISPLAY "1) "NUM1.

           DISPLAY "2) "NUM2.

           DISPLAY "3) "NUM3.

           STOP RUN.
79532892
