Description in the WORKING-STORAGE SECTION

Here you can see a description generated in a WORKING-STORAGE SECTION.

Figure 1. Sample contents of a description in the WORKING-STORAGE SECTION
WORKING-STORAGE SECTION.
01               G-AT20.
     04          G-AT20-PARAM.
       10        G-AT20-LOZTR  PICTURE S9(4) COMPUTATIONAL
                       VALUE  +025.
       10        G-AT20-ADRCLE PICTURE S9(4) COMPUTATIONAL
                       VALUE  +001.
       10        G-AT20-LOCLE  PICTURE S9(4) COMPUTATIONAL
                       VALUE  +005.
       10        G-AT20-NUAPP  PICTURE 99
                       VALUE  ZERO.
       10        G-AT20-NUTAB  PICTURE X(6)
                       VALUE  'ITEMS'.
       10        G-AT20-TABFO  PICTURE XX   VALUE SPACE.
       10        G-AT20-TABCR  PICTURE XX   VALUE SPACE.
       10        G-AT20-DAHTA  PICTURE X(6) VALUE SPACE.
       10        G-AT20-NUSSC  PICTURE X  VALUE '1'.
       10        G-AT20-NUSSY  PICTURE X  VALUE SPACE.
       10        G-AT20-TRANID PICTURE X(4)  VALUE SPACE.
       10        G-AT20-FILSYS PICTURE X(30) VALUE SPACE.
      04           AT20.
       10          AT20-ZIPCO.
        15         AT20-CODEPA PICTURE XX
                        VALUE  SPACE.
        15         AT20-COCOM  PICTURE X(3)
                        VALUE  SPACE.
       10          AT20-TOWN   PICTURE X(20)
                        VALUE  SPACE.
01                 CD00.
       10          CD00-KEYCD.
        15         CD00-COCARA PICTURE X.
        15         CD00-ORDNUM PICTURE 9(5).
        15         CD00-SUPPLI PICTURE X(3).
       10          CD00-SUITE.
        15         FILLER      PICTURE X(00157).
01                 CD05     REDEFINES  CD00.
       10          FILLER      PICTURE X(00009).
       10          CD05-CLINUM PICTURE 9(8).
       10          CD05-DATE   PICTURE X(6).
       10          CD05-RELEA  PICTURE X(3).
       10          CD05-CLIREF PICTURE X(30).
       10          CD05-STREET PICTURE X(40).
       10          CD05-ZIPCO  PICTURE X(5).
       10          CD05-TOWN   PICTURE X(20).
       10          CD05-CORRES PICTURE X(25).
       10          CD05-DISCOU PICTURE S9(4)V99.
       10          CD05-MATE   PICTURE X(8).
       10          CD05-LANGU  PICTURE X.
       10          CD05-FILLER PICTURE X(5).
01                 CD10     REDEFINES  CD00.
       10          FILLER      PICTURE X(00009).
       10          CD10-QTMAC  PICTURE 99.
       10          CD10-QTMAL  PICTURE 99.
       10          CD10-INFOR  PICTURE X(35).
       10          CD10-RFI    PICTURE X(100).
       10          FILLER      PICTURE X(00018).
01                 CD20     REDEFINES  CD00.
       10          FILLER      PICTURE X(00009).
       10          CD20-EDIT   PICTURE X.
       10          FILLER      PICTURE X(00156).
01                 FO10.
       10          FO10-CLEFO.
        15         FO10-SUPPLI PICTURE X(3).
        15         FO10-MATE   PICTURE X(8).
        15         FO10-RELEA  PICTURE X(3).
        15         FO10-LANGU  PICTURE X.
        15         FO10-FILLER PICTURE X(5).
       10          FO10-QTMAS  PICTURE 9(4).
       10          FO10-QTMAM  PICTURE 9(4).
       10          FO10-LIBFO  PICTURE X(20).
       10          FO10-FILLER PICTURE XX.
01                 ME00.
       10          ME00-CLEME.
        15         ME00-COPERS PICTURE X(5).
        15         ME00-NUMORD PICTURE XX.
       10          ME00-MESSA  PICTURE X(75).

Feedback