*COMDECK,CVTWKFD
       FD  WORK-FILE
           LABEL RECORDS ARE OMITTED. 
*CALL WRKFHDR 
      * 
      *    A SET OF THREE NUMBERS, FOR EXAMPLE, (05,1,1), REPRESENTS
      *    (OUT-ENTRY-TYPE, OUT-REC-TYPE, OUT-REC-CODE) 
      * 
      * 
      *    BASIC HEADER RECORD FOR ELEMENTS - GROUPS - RECORDS
      *    (05,0, ), (10,0, ), OR (15,0, )
      * 
       01  OUT-BASIC-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-BASIC. 
               05  OUT-LENGTH              PICTURE X(4).
               05  OUT-COBOL-REC. 
                   07  OUT-USE             PICTURE X. 
                   07  OUT-PIC             PICTURE X(25). 
                   07  OUT-VAL             PICTURE X(25). 
                   07  OUT-JUST            PICTURE X. 
                   07  OUT-SYNC            PICTURE X. 
      * 
      *    TOTAL RECORD STRUCTURE---A & B & C LINETYPES 
      * 
       01  OUT-RECORD-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-REC-STRUCTURE. 
               05  OUT-ELEGRP-STC          PICTURE X(32). 
               05  OUT-CTRL                PICTURE X. 
               05  OUT-LINKPATH            PICTURE X(6).
               05  OUT-RECORD-CODE         PICTURE XX.
               05  OUT-COMPNAME            PICTURE X(32). 
      * 
      *    BASIC STRUCTURE RECORD FOR GROUPS - RECORDS
      *    (10,1,1) OR (15,1,1) 
      * 
       01  OUT-STC-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-STCNAME                 PICTURE X(32). 
           03  OUT-STC-ALIAS-NO            PICTURE X(4).
           03  FILLER-LENGTH               PICTURE X(4).
           03  OUT-REDEF                   PICTURE X(32). 
           03  OUT-RDALIAS                 PICTURE X(4).
      * 
      *    STRUCTURE RECORD FOR GROUP OR RECORD, OCCURS INFORMATION 
      *    (10,1,2) OR (15,1,2) 
      * 
       01  OUT-STC-OCCUR-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-STC-GRP2.
               05  OUT-OCCF                PICTURE X(4).
               05  OUT-OCCT                PICTURE X(4).
               05  OUT-DEPEND              PICTURE X(32). 
      * 
      *    STRUCTURE RECORD FOR GROUP OR RECORD, INDEX INFORMATION
      *    (10,1,3) OR (15,1,3) 
      * 
       01  OUT-STC-INDEX-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-INDEX                   PICTURE X(32). 
      * 
      *    STRUCTURE RECORD FOR GROUP OR RECORD, KEY INFORMATION
      *    (10,1,4) OR (15,1,4) 
      * 
       01  OUT-STC-KEY-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-STC-GRP4.
               05  OUT-KORDER              PICTURE X. 
               05  OUT-KNAME               PICTURE X(32). 
               05  OUT-KALIAS              PICTURE X(4).
      * 
      *    STRUCTURE RECORD FOR RECORD, RENAMES INFORMATION 
      *    (15,1,5) 
      * 
       01  OUT-STC-RENAMES-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-STC-GRP5.
               05  OUT-RENAMES             PICTURE X(32). 
               05  OUT-RNALIAS             PICTURE X(4).
      * 
      *    STRUCTURE RECORD FOR RECORD, RENAMES THRU INFORMATION
      *    (15,1,6) 
      * 
       01  OUT-STC-THRU-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-STC-GRP6.
               05  OUT-THRU                PICTURE X(32). 
               05  OUT-THALIAS             PICTURE X(4).
      * 
      * 
      *     FILE HEADER RECORD
      * 
       01  OUT-FIL-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-ATTR.
               05  OUT-RECSIZE             PICTURE X(5).
               05  OUT-BLKSIZE             PICTURE X(5).
               05  OUT-FORMAT              PICTURE X(6).
               05  OUT-LABELS              PICTURE XXX. 
      * 
      *     FILE STRUCTURE RECORD 
      * 
       01  OUT-FILSTC-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-FIL-STCNAME             PICTURE X(32). 
      * 
      *    DATASET HEADER RECORD + IOAREA FIELD 
      * 
       01  OUT-DATASET-REC. 
           03  FILLER                      PICTURE X(127).
           03  SET-IOAREA                  PICTURE XXXX.
           03  SET-NAME                    PICTURE XXXX.
      * 
      *    DATASET STRUCTURE RECORD + RECORD NAME 
      * 
       01  OUT-DATASET-STC-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-RECORD-ID               PICTURE X(32). 
      * 
      *    DATABASE HEADER RECORD + DATABASE NAME & IOAREAS 
      * 
       01  OUT-DATABASE-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-DATABASE-ID             PICTURE X(8).
           03  OUT-DATABASE-IO             OCCURS 16 TIMES. 
               05  OUT-DB-IOA              PICTURE X(4).
               05  OUT-DB-OCC              PICTURE XX.
      * 
      *    DATABASE STRUCTURE RECORD + DATASET NAME & TYPE (N/V)
      * 
       01  OUT-DATABASE-STC-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-DATASET-STCNAME         PICTURE X(32). 
           03  OUT-DATE-TYPE               PICTURE X. 
      * 
      *    DATASET ENVIRONMENT CATEGORY RECORD
      * 
       01  OUT-DATASET-ENV-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-ENV-REC. 
               05  OUT-DEVICE              PICTURE X(7).
               05  OUT-TOT-REC             PICTURE X(7).
               05  OUT-TOTAL-TRACKS        PICTURE X(5).
               05  OUT-RECORD-LENGTH       PICTURE X(5).
               05  OUT-BLOCKS              PICTURE X(5).
               05  OUT-DISK-EXTENTS        PICTURE XX.
               05  OUT-OLD-FILE            PICTURE X. 
               05  OUT-CYLINDER            PICTURE XX.
      * 
      *     MODULE HEADER RECORD
      * 
       01  OUT-MOD-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-MODULE-ID               PICTURE X(10). 
      * 
      *     MODULE STRUCTURE RECORD - STRUCTURE CONSISTS OF FILES ONLY
       01  OUT-MODSTC-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-MOD-STCNAME             PICTURE X(32). 
      * 
      *     COMMENT RECORD FORMATTED IF "INCLUDE NOTES" OPTION IS USED
      * 
       01  OUT-COMMENT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-COMMENT. 
               05  FILLER                  PICTURE X(6).
               05  OUT-AST                 PICTURE X. 
               05  OUT-BODY                PICTURE X(65). 
       01  OUT-88-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-VAL-88                  PICTURE X(65). 
