Rational Programming Patterns

Description dans la WORKING STORAGE SECTION

Vous pouvez voir ici une description générée dans la WORKING STORAGE SECTION d'un programme.

Figure 1. Exemple d'une description dans la 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  '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).

Conditions d'utilisation | Commentaires en retour

Ce centre de documentation utilise la technologie Eclipse. (http://www.eclipse.org)