*COMDECK DCDWA22
      *********************************************************** 
      *                                                         * 
      *                  AREA ENTRY                             * 
      *                                                         * 
      *********************************************************** 
      *     AREA ENTRY - RESPONSIBILITY CAT 
           02  RESP-A-CAT  REDEFINES CAT-DETAIL.
               03  RESP-A-LINETYPE      PICTURE X.
               03  RESP-A-STATUS        PICTURE X.
               03  RESP-A-FUNC          PICTURE X.
               03  RESP-A-DEPT          PICTURE X(32).
               03  RESP-A-PERSON        PICTURE X(32).
               03  RESP-A-PHONE         PICTURE X(10).
               03  RESP-A-TITLE         PICTURE X(15).
               03  RESP-A-MAIL          PICTURE X(5). 
               03  RESP-A-DATE          PICTURE X(6). 
      *     AREA ENTRY - NAMES CAT
           02  NAME-AREA-CAT  REDEFINES CAT-DETAIL. 
               03  NAME-A-LINETYPE      PICTURE X.
               03  NAME-A-DMS           PICTURE X(32).
      *     AREA ENTRY - ATTRIBUTES-CAT 
           02  ATTR-AREA-CAT  REDEFINES CAT-DETAIL. 
               03  ATTR-A-LINETYPE      PICTURE X.
               03  ATTR-A-CL            PICTURE X(6). 
               03  ATTR-A-CP            PICTURE X(6). 
               03  ATTR-A-C1            PICTURE X.
               03  ATTR-A-EMK           PICTURE X.
               03  ATTR-A-FO            PICTURE XX. 
               03  ATTR-A-HL            PICTURE X(6). 
               03  ATTR-A-HMB           PICTURE X(6). 
               03  ATTR-A-KL            PICTURE X(4). 
               03  ATTR-A-KP            PICTURE X.
               03  ATTR-A-KT            PICTURE X.
               03  ATTR-A-LL            PICTURE X.
               03  ATTR-A-LP            PICTURE X(6). 
               03  ATTR-A-BT             PICTURE XXX. 
               03  ATTR-A-MBL           PICTURE X(6). 
               03  ATTR-A-MNR           PICTURE X(6). 
               03  ATTR-A-MRL           PICTURE X(6). 
               03  ATTR-A-ORG           PICTURE XXX.
               03  ATTR-A-RB            PICTURE X(4). 
               03  ATTR-A-RKP           PICTURE X(6). 
               03  ATTR-A-RKW           PICTURE X(6). 
               03  ATTR-A-RMK           PICTURE X(10).
               03  ATTR-A-RT            PICTURE X.
               03  ATTR-A-SEQ           PICTURE X.
               03  ATTR-A-TL            PICTURE X(6). 
      *     AREA ENTRY - ALIAS CAT
           02  ALY-A-CAT  REDEFINES CAT-DETAIL. 
               03  ALY-A-LINETYPE       PICTURE X.
               03  ALY-A-DMS            PICTURE X(32).
      *     AREA ENTRY - STRUCTURE CAT
           02  STC-A-CAT  REDEFINES  CAT-DETAIL.
               03  STC-A-LINETYPE       PICTURE X.
               03  STC-A-RNAME          PICTURE X(32).
               03  STC-A-ALIAS-NO       PICTURE X(4). 
               03  STC-A-RC-VALUE       PICTURE X(30).
               03  STC-A-INCLUDE        PICTURE X.
               03  STC-A-VAL-TYPE         PICTURE X.
      *    AREA ENTRY - AREAKEY CAT 
           02  AREAKEY-CAT  REDEFINES CAT-DETAIL. 
               03  AK-A-LINETYPE         PICTURE X. 
               03  AK-A-KEYNAME          PICTURE X(32). 
               03  AK-A-KEY-ALIAS        PICTURE X(4).
               03  AK-A-KEY-QUAL         PICTURE X(32). 
               03  AK-A-KEY-TYPE         PICTURE X. 
               03  AK-A-KEY-DUPES        PICTURE X. 
               03  AK-A-KEY-USING        PICTURE X. 
      *    AREA ENTRY - AREAKEY CAT - CONCATENATED KEYS 
           02  AK-CONKEY  REDEFINES CAT-DETAIL. 
               03  AK-A-CON-LINETYPE     PICTURE X. 
               03  AK-A-CON-NAME         PICTURE X(30). 
               03  AK-A-CON-TYPE         PICTURE X. 
               03  AK-A-CON-DUPES        PICTURE X. 
               03  AK-A-CON-USING        PICTURE X. 
      *    AREA ENTRY - AREAKEY CAT - CONCATENATED KEY COMPONENTS 
           02  AK-CON-COMPONENT  REDEFINES CAT-DETAIL.
               03  AK-A-COMP-LINETYPE    PICTURE X. 
               03  AK-A-CON-ID           PICTURE X(32). 
               03  AK-A-CON-ALIAS        PICTURE X(4).
               03  AK-A-CON-QUAL         PICTURE X(32). 
      *    AREA ENTRY - MDINFO CAT
           02  MDINFO-A-CAT  REDEFINES CAT-DETAIL.
               03  MD-A-LINETYPE         PICTURE X. 
               03  MD-A-INDX-FILE        PICTURE X(32). 
               03  MD-A-UN               PICTURE X(7).
               03  MD-A-PW               PICTURE X(7).
               03  MD-A-FAMILY           PICTURE X(7).
               03  MD-A-PACK             PICTURE X(7).
               03  MD-A-SET              PICTURE X(7).
               03  MD-A-VSN              PICTURE X(6).
               03  MD-A-DT               PICTURE XXX. 
               03  MD-A-LOG              PICTURE X(8).
               03  MD-A-PFN              PICTURE X(7).
      *    AREA ENTRY - ACCESS CAT
           02  ACCESS-CAT  REDEFINES CAT-DETAIL.
               03  ACC-A-LINETYPE        PICTURE X. 
               03  ACC-A-MODE            PICTURE XXX. 
      *    AREA ENTRY - ACCESS CAT - LOCKS
           02  ACCESS-LOCK REDEFINES CAT-DETAIL.
               03  ACC-A-LOCK-LINETYPE   PICTURE X. 
               03  ACC-A-LOCK            PICTURE X(32). 
               03  ACC-A-TYPE            PICTURE X. 
      *    AREA ENTRY  - PROCESS CAT
           02  PROCESS-A-CAT  REDEFINES CAT-DETAIL. 
               03  PROC-A-LINETYPE       PICTURE X. 
               03  PROC-A-DBPROC         PICTURE X(32). 
               03  PROC-A-TYPE           PICTURE XX.
               03  PROC-A-TIME           PICTURE X(5).
               03  PROC-A-OPTION         PICTURE X(7).
      *    AREA ENTRY - PROCESS CAT - RECORD CODE INFO
           02  PROCESS-RC-CAT  REDEFINES CAT-DETAIL.
               03  PROC-A-RC-LINETYPE    PICTURE X. 
               03  PROC-A-RC-DATA        PICTURE X(32). 
               03  PROC-A-RC-ALIAS       PICTURE X(4).
               03  PROC-A-RC-QUAL        PICTURE X(32). 
