Here you can see a description generated in a 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).