*COMDECK  DCDWA10 
00001 ************************************************************      07/12/78
00002 *                                                                 DCDWA10 
00003 *        C A T E G O R Y   W O R K   A R E A S                       LV001
00004 *                                                                 DCDWA10 
00005 ************************************************************      DCDWA10 
00006 *                                                                 DCDWA10 
00007 *                                                                 DCDWA10 
00008 ************************************************************      DCDWA10 
00009 *                                                                 DCDWA10 
00010 *     GROUP ENTRY                                                 DCDWA10 
00011 *                                                                 DCDWA10 
00012 ************************************************************      DCDWA10 
00013 *     GROUP ENTRY - NAME CAT                                      DCDWA10 
00014      02  NAME-GRP-CAT REDEFINES CAT-DETAIL.                       DCDWA10 
               03  NAME-LINE-TYPE          PICTURE X. 
00015          03  NAME-GRP-DATA-NAME      PICTURE X(32).               DCDWA10 
00016          03  NAME-GRP-IDENTIFIER     PICTURE X(31).               DCDWA10 
00017          03  NAME-GRP-SYMBOL         PICTURE X(8).                DCDWA10 
00018          03  NAME-GRP-DBMS           PICTURE X(8).                DCDWA10 
               03  NAME-GRP-DMS            PICTURE X(32). 
00020 * GROUP ENTRY  - ATTRIBUTES CAT                                   DCDWA10 
00021      02  ATTR-GRP-CAT REDEFINES CAT-DETAIL.                       DCDWA10 
               03  ATTR-LINE-TYPE      PICTURE X. 
               03  ATTR-GRP-LENGTH     PICTURE X(10). 
               03  ATTR-GRP-FORMAT     PICTURE XXX. 
00024          03  ATTR-GRP-PIC        PICTURE X(25).                   DCDWA10 
00025          03  ATTR-GRP-JUST       PICTURE X.                          CL**2
00026          03  ATTR-GRP-SYNC       PICTURE X.                          CL**2
00027 *     GROUP ENTRY - STRUCTURE CAT                                 DCDWA10 
00028      02  STC-CAT  REDEFINES CAT-DETAIL.                           DCDWA10 
               03  STC-GRP-LINE-TYPE  PICTURE X.
00029          03  STC-GRP-CNAME       PICTURE X(32).                      CL**2
00030          03  STC-ALY-NO          PICTURE X(4).                    DCDWA10 
00031          03  STC-FILL-LEN        PICTURE X(4).                    DCDWA10 
00032          03  STC-REDEFINES       PICTURE X(32).                   DCDWA10 
               03  STC-REDEF-ALIAS     PICTURE X(4).
               03  STC-USAGE           PICTURE X(7).
               03  STC-GRP-KEY         PICTURE X. 
00038          03  STC-DBD-INC         PICTURE X.                       DCDWA10 
00039          03  STC-PT-GENSEQ       PICTURE XXX.                     DCDWA10 
      *     GROUP ENTRY - STRUCTURE CAT - OCCURS CLAUSE 
           02  STC-GRP-OCCURS  REDEFINES CAT-DETAIL.
               03  STC-OCCUR-LINE-TYPE  PICTURE X.
               03  STC-OCC-FROM         PICTURE XXXX. 
               03  STC-OCC-TO               PICTURE X(32).
               03  STC-TO-RED REDEFINES STC-OCC-TO. 
                   05  STC-OCC-TO-NUM  PICTURE X(4).
                   05  FILLER          PICTURE X(28). 
               03  STC-OCC-TO-ALIAS         PICTURE X(4). 
               03  STC-OCC-DEPEND           PICTURE X(32).
               03  STC-OCC-DEP-ALIAS        PICTURE X(4). 
               03  STC-OCC-DEP-QUAL-COUNT   PICTURE 9.
               03  STC-OCC-DEP-QUAL1        PICTURE X(32).
               03  STC-OCC-DEP-QUAL2        PICTURE X(32).
      *    GROUP ENTRY - STRUCTURE CAT OCCURS INDEX 
           02  STC-GRP-INDEX  REDEFINES CAT-DETAIL. 
               03  STC-INDX-LINE-TYPE    PICTURE X. 
               03  STC-INDEX              PICTURE X(32).
      *    GROUP ENTRY - STRUCTURE CAT - KEY OF OCCURS
           02  STC-KEY-INFO  REDEFINES CAT-DETAIL.
               03  STC-KEY-LINE-TYPE     PICTURE X. 
               03  STC-OCC-KEY           PICTURE X(32). 
               03  STC-OCC-KEY-ALIAS     PICTURE X(4).
               03  STC-OCC-KEYORDER      PICTURE X. 
      *    GROUP ENTRY - STRUCTURE CAT - RENAME 
           02  STC-RENAME  REDEFINES CAT-DETAIL.
               03  STC-RE-LINE-TYPE      PICTURE X. 
               03  STC-R-NAME            PICTURE X(32). 
               03  STC-RNAME-ALIAS       PICTURE X(4).
               03  STC-R-QUAL-COUNT      PICTURE 9. 
               03  STC-R-QUAL1           PICTURE X(32). 
               03  STC-R-QUAL2           PICTURE X(32). 
               03  STC-R-QUAL3           PICTURE X(32). 
      *    GROUP ENTRY - STRUCTURE CAT - RENAME THRU
           02  STC-THRU  REDEFINES CAT-DETAIL.
               03  STC-THRU-LINE-TYPE    PICTURE X. 
               03  STC-THRU-NAME         PICTURE X(32). 
               03  STC-THRU-ALIAS        PICTURE X(4).
               03  STC-T-QUAL-COUNT      PICTURE 9. 
               03  STC-T-QUAL1           PICTURE X(32). 
               03  STC-T-QUAL2           PICTURE X(32). 
               03  STC-T-QUAL3           PICTURE X(32). 
