Description dans la FILE SECTION

Vous pouvez voir ici une description générée dans une FILE SECTION.

Figure 1. Exemple d'une description dans la FILE SECTION
01                 TR00.
   05              TR00-00.
     10            TR00-KEYCD.
       11          TR00-COCARA PICTURE  X.
       11          TR00-ORDNUM PICTURE  9(5).
       11          TR00-SUPPLI PICTURE  X(3).
   05              TR00-SUITE.
     15       FILLER         PICTURE  X(00157).
01                 TR05.
     10       FILLER         PICTURE  X(00009).
     10            TR05-CLINUM PICTURE  9(8).
     10            TR05-DATE   PICTURE  X(6).
     10            TR05-RELEA  PICTURE  X(3).
     10            TR05-CLIREF PICTURE  X(30).
     10            TR05-STREET PICTURE  X(40).
     10            TR05-ZIPCO  PICTURE  X(5).
     10            TR05-TOWN   PICTURE  X(20).
     10            TR05-CORRES PICTURE  X(25).
     10            TR05-DISCOU PICTURE  S9(4)V99.
     10            TR05-MATE   PICTURE  X(8).
     10            TR05-LANGU  PICTURE  X.
     10            TR05-FILLER PICTURE  X(5).
01                 TR10.
     10       FILLER         PICTURE  X(00009).
     10            TR10-QTMAC  PICTURE  99.
     10            TR10-QTMAL  PICTURE  99.
     10            TR10-INFOR  PICTURE  X(35).
     10            TR10-RFI    PICTURE  X(100).
     10       FILLER         PICTURE  X(00018).
01                 TR20.
     10       FILLER         PICTURE  X(00009).
     10            TR20-EDIT   PICTURE  X.
     10       FILLER         PICTURE  X(00156).
01                 TR30.
     10       FILLER         PICTURE  X(00009).
     10            TR30-ORDNUM PICTURE  9(5).
     10            TR30-LV00.
       11          TR30-NOCL.
         12        TR30-NOCL11 PICTURE  X.
         12        TR30-NOCL12 PICTURE  XX.
         12        TR30-NOCL2  PICTURE  XX.
       11          TR30-NBLIV  PICTURE  9.
       11          TR30-QTLI   PICTURE  S9(5)V99
                   COMPUTATIONAL-3.
       11          TR30-GROUPE
                   OCCURS       009
                   DEPENDING  ON        TR00-NBLIV.
         12        TR30-QULI   PICTURE  S9(5)V99
                   COMPUTATIONAL-3.
         12        TR30-DALI   PICTURE  X(6).

Vos commentaires