*COMDECK WRKFHDR
      * 
      *    BASIC HEADER INFORMATION 
      * 
      *    WORK-FILE IS SORTED USING THE COBOL6 COLLATING SEQUENCE
      *    ON FIELDS OUT-ENTRY-TYPE THROUGH OUT-STCR. 
      *    EXCEPT AS NOTED, ONE RECORD OF WORK-FILE YIELDS ONE
      *    CATEGORY LINE. 
       01  OUT-REC. 
           03  OUT-ENTRY-TYPE              PICTURE XX.
           03  OUT-EALIASOF-FLAG           PICTURE X. 
      *        =BLANK, THIS ENTITY IS NEITHER VERSION OF NOR EALIASOF 
      *                ANOTHER ENTITY.
      *        =E,     THIS ENTITY IS EITHER VERSION OF OR EALIASOF 
      *                ENTITY WHOSE CATNAME IS OUT-EALIASOF-NAME. 
      *        THIS GUARANTEES THAT AN EALIASED ENTITY IS ADDED 
      *        BEFORE IT IS REFERENCED. 
           03  OUT-99-GROUP                PICTURE 99.
      *        FOR GROUP ENTITY, 99 MINUS LEVEL NUMBER.  THIS GUARANTEES
      *        THAT A GROUP ENTITY IS ADDED BEFORE IT IS REFERENCED 
      *        IN THE STRUCTURE CATEGORY OF ANOTHER GROUP.
           03  OUT-CATNAME                 PICTURE X(32). 
           03  OUT-CATEGORY-TYPE           PICTURE XXX. 
           03  OUT-REC-TYPE REDEFINES OUT-CATEGORY-TYPE PIC XXX.
           03  OUT-STCR                    PICTURE S9(7). 
      *        SEQUENTIAL COUNT OF RECORDS WRITTEN TO WRKFILE.
           03  OUT-LANG-CODE               PICTURE X. 
           03  OUT-COB-TOT-FIELDS.
               04  OUT-SEGNAME             PICTURE X(32). 
               04  OUT-RENAME              PICTURE X(32). 
               04  OUT-RENAME-LINE         PICTURE X(4).
               04  OUT-ALIAS               PICTURE X. 
               04  OUT-PREFIX              PICTURE X(9).
               04  OUT-REC-CODE            PICTURE X. 
           03  OUT-CDCS-FIELDS REDEFINES OUT-COB-TOT-FIELDS.
               04  OUT-CDCS-NAME           PICTURE X(30). 
               04  OUT-FIELD-TYPE          PICTURE XX.
      * 
      *    NOTE THAT OUT-FIELD-TYPE IS NOT PART OF THE SORT KEY.
      *    RECORDS WITH THE SAME VALUES FOR OUT-ENTRY-TYPE THROUGH
      *    OUT-CATEGORY-TYPE WILL BE SORTED INTO THE SAME ORDER AS THEY 
      *    WERE WRITTEN BY VIRTUE OF OUT-STCR.
      * 
               04  OUT-EALIASOF-NAME       PICTURE X(32). 
               04  FILLER                  PICTURE X(15). 
           03  OUT-FILLER                  PICTURE X(469).
