*COMDECK  CONWORK 
      * 
      *     CONWORK = CONTROL FILE WORK AREA
      * 
      ******************************************************************
      *    STORE ENTRY NAME TABLE - CTL-RECORD-3                       *
      ******************************************************************
       01  ENT-TABLE. 
           03  ENT-TBL     OCCURS 17 TIMES. 
               05  ENT-NAME            PICTURE X(15). 
               05  ENT-ID              PICTURE XX.
      ******************************************************************
      *    STORE CATEGORY CONTROL TABLE - CTL-RECORD-4                 *
      ******************************************************************
       01  CATEGORY-TABLE.
           03  CAT-TABLE  OCCURS  31  TIMES.
               05  CAT-NAME            PICTURE X(15). 
               05  CAT-ID              PICTURE XXX. 
               05  CAT-IN-ENT          PICTURE X(85). 
      ******************************************************************
      *    STORE ONE CATEGORY FROM THE CATEGORY CONTROL TABLE  -       *
      *    CTL-RECORD-5                                                *
      ******************************************************************
       01  FIELD-TABLE. 
           03  FLD-TABLE. 
               05  FLD-ENTRY           PICTURE XX.
               05  FLD-CATEGORY        PICTURE XXX. 
               05  FLD-FIELD           OCCURS 30 TIMES. 
                   07  FLD-NAME        PICTURE X(8).
                   07  FLD-ID          PICTURE XX.
                   07  FLD-START       PICTURE 999. 
                   07  FLD-LENGTH      PICTURE 999. 
                   07  FLD-FORMAT      PICTURE X. 
                   07  FLD-REV         PICTURE X. 
                   07  FLD-STANDARD    PICTURE X. 
      ******************************************************************
      *    WORK AREA FOR CATEGORY LOCATIONS                            *
      ******************************************************************
       01  CON-WORK-FIELDS. 
           03  CAT-LOC. 
              05  CAT-LOCATION   OCCURS   17 TIMES. 
                  07  CAT-ENT-TYPE     PICTURE XX.
                  07  CAT-ENT-LENGTH   PICTURE S999 . 
           03  FLD                     PICTURE 99      COMP.
           03  CAT                     PICTURE 99      COMP.
           03  ENT                     PICTURE 99      COMP.
