Here you can see a description generated in the FILE SECTION of a program.
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-GROUP OCCURS 009 DEPENDING ON TR00-NBLIV. 12 TR30-QULI PICTURE S9(5)V99 COMPUTATIONAL-3. 12 TR30-DALI PICTURE X(6).