Vous pouvez voir ici une description générée dans la WORKING STORAGE SECTION d'un programme.
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 'POSTES'. 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).