*COMDECK  DCDWA13 
00001 ************************************************************      08/08/78
00002 *                                                                 DCDWA13 
00003 *        C A T E G O R Y   W O R K   A R E A S                       LV002
00004 *                                                                 DCDWA13 
00005 ************************************************************      DCDWA13 
00006 *                                                                 DCDWA13 
00007 *                                                                 DCDWA13 
00008 ************************************************************      DCDWA13 
00009 *                                                                 DCDWA13 
00010 *     TOTAL/RECORD ENTRY                                          DCDWA13 
00011 *                                                                 DCDWA13 
00012 ************************************************************      DCDWA13 
00013 *       TOTAL/RECORD ENTRY - NAME CAT                             DCDWA13 
00014      02  NAME-TOT-CAT REDEFINES CAT-DETAIL.                       DCDWA13 
               03 NAME-LINE-TYPE           PICTURE X. 
00015          03  NAME-TOT-DATA-NAME      PICTURE X(32).               DCDWA13 
               03  NAME-SR-DATA-NAME REDEFINES NAME-TOT-DATA-NAME 
               PICTURE X(32). 
00016          03  NAME-TOT-IDENTIFIER     PICTURE X(31).               DCDWA13 
               03  NAME-SR-IDENTIFIER REDEFINES NAME-TOT-IDENTIFIER 
                   PICTURE X(31). 
00017          03  NAME-TOT-SYMBOL         PICTURE X(8).                DCDWA13 
00018          03  NAME-TOT-DBMS           PICTURE X(8).                DCDWA13 
               03  NAME-TOT-DMS            PICTURE X(32). 
      *     SEG/RECORD ENTRY - ALIAS CAT
           02  ALY-SR-CAT  REDEFINES CAT-DETAIL.
               03  ALY-SR-LINE-TYPE     PICTURE X.
               03  ALY-SR-NAME          PICTURE X(30).
00020 *       TOTAL/RECORD ENTRY ATTR CAT                               DCDWA13 
00021      02  ATTR-TOT-CAT REDEFINES CAT-DETAIL.                       DCDWA13 
               03  ATTR-LINE-TYPE          PICTURE X. 
00022          03  ATTR-TOT-MAXLEN         PICTURE X(4).                DCDWA13 
00023          03  ATTR-TOT-MINLEN         PICTURE X(4).                DCDWA13 
00024          03  ATTR-TOT-STORAGE        PICTURE X.                   DCDWA13 
00026 *       TOTAL/RECORD ENTRY - STRUCTURE CATEGORY                   DCDWA13 
00027      02  STC-TOT-CAT  REDEFINES  CAT-DETAIL.                      DCDWA13 
               03  STC-TOT-LINTYPE         PICTURE X. 
00028          03  STC-TOT-CNAME           PICTURE X(32).               DCDWA13 
               03  STC-SR-CNAME REDEFINES STC-TOT-CNAME 
                   PICTURE X(32). 
00029          03  STC-TOT-ALY-NO          PICTURE X(4).                DCDWA13 
00030          03  STC-TOT-FILL-LEN        PICTURE X(4).                DCDWA13 
               03  STC-SR-FILL-LEN REDEFINES STC-TOT-FILL-LEN 
                   PICTURE X(4).
00031          03  STC-TOT-REDEFINES       PICTURE X(32).               DCDWA13 
               03  STC-TOT-REDEF-ALIAS     PICTURE X(4).
               03  STC-TOT-USAGE           PICTURE X(7).
00036          03  STC-TOT-KEY             PICTURE X.                   DCDWA13 
00037          03  STC-TOT-DBD-INC         PICTURE X.                   DCDWA13 
00038          03  STC-TOT-PT-GENSEQ       PICTURE XX.                     CL**2
00040 *       TOTAL/RECORD ENTRY - STRUCTURE CATEGORY - SECOND LINE        CL**2
00041      02  STC-TOT-CAT-2  REDEFINES CAT-DETAIL.                        CL**2
               03  STC-TOT-LINETYPEB       PICTURE X. 
00042          03  STC-TOT-TKEY            PICTURE X.                   DCDWA13 
00043          03  STC-TOT-LINKPATH        PICTURE X(6).                DCDWA13 
00044          03  STC-TOT-VARLEN          PICTURE X(5).                DCDWA13 
               03  STC-TOT-LKFIELD     PIC X(32). 
               03  STC-TOT-LKALIAS     PIC X(4).
00047 *       TOTAL/RECORD ENTRY - STRUCTURE CATEGORY - THIRD LINE         CL**2
00048      02  STC-TOT-CAT-3  REDEFINES  CAT-DETAIL.                       CL**2
               03  STC-TOT-LINETYPEC       PICTURE X. 
00049      03  STC-TOT-COMPNAME     PICTURE X(32).                         CL**2
00050      03  STC-TOT-RCCODE       PICTURE XX.                            CL**2
               03  STC-TOT-CPALIAS     PIC X(4).
00053      02  STC-MK4-CAT  REDEFINES  CAT-DETAIL.                         CL**2
               03  STC-MK4-LINETYPE         PICTURE X.
00054          03  STC-TOT-FLOATMK4    PICTURE X.                          CL**2
00055          03  STC-TOT-FILLMK4     PICTURE X.                          CL**2
00056          03  STC-TOT-TRAILMK4    PICTURE X.                          CL**2
00057          03  STC-TOT-EDLENMK4    PICTURE XX.                         CL**2
00058          03  STC-TOT-PLACEMK4    PICTURE X.                          CL**2
00059          03  STC-TOT-COUNTMK4    PICTURE XX.                         CL**2
00060          03  STC-TOT-LINECOL      PICTURE X.                         CL**2
00061          03  STC-TOT-TEXTCOL      PICTURE X(16).                     CL**2
      *    RECORD ENTRY - STRUCTURE CAT - OCCURS
           02  STC-SR-OCCURS  REDEFINES CAT-DETAIL. 
               03  STC-OCCUR-LINETYPE      PICTURE X. 
               03  STC-SR-FROM             PICTURE XXXX.
               03  STC-SR-TO               PICTURE X(32). 
               03 STC-SR-TO-RED REDEFINES STC-SR-TO.
                   05  STC-SR-TO-NUM       PICTURE X(4).
                   05  FILLER              PICTURE X(28). 
               03  STC-SR-TO-ALIAS         PICTURE X(4).
               03  STC-SR-DEPEND           PICTURE X(32). 
               03  STC-SR-DEP-ALIAS        PICTURE X(4).
               03  STC-SR-DEP-QUAL-COUNT   PICTURE 9. 
               03  STC-SR-DEP-QUAL1        PICTURE X(32). 
               03  STC-SR-DEP-QUAL2        PICTURE X(32). 
      *    RECORD ENTRY - STRUCTURE CAT - OCCUR INDEX 
           02  STC-SR-INDEX   REDEFINES CAT-DETAIL. 
               03  STC-SR-INDX-LINETYPE    PICTURE X. 
               03  STC-SR-INDEX-NAME       PICTURE X(32). 
      *    RECORD ENTRY - STRUCTURE CAT - OCCUR KEY 
           02  STC-SR-KEY  REDEFINES CAT-DETAIL.
               03  STC-SR-KEY-LINETYPE     PICTURE X. 
               03  STC-SR-OCC-KEY          PICTURE X(32). 
               03  STC-SR-OCC-KALIAS       PICTURE X(4).
               03  STC-SR-OCC-KORDER       PICTURE X. 
      *    RECORD ENTRY - STRUCTURE CAT - RENAME
           02  STC-SR-RENAME  REDEFINES CAT-DETAIL. 
               03  STC-SR-RN-LINETYPE      PICTURE X. 
               03  STC-SR-R-NAME           PICTURE X(32). 
               03  STC-SR-RN-ALIAS         PICTURE X(4).
               03  STC-SR-RN-QUAL-COUNT    PICTURE 9. 
               03  STC-SR-R-QUAL1          PICTURE X(32). 
               03  STC-SR-R-QUAL2          PICTURE X(32). 
               03  STC-SR-R-QUAL3          PICTURE X(32). 
      *    RECORD ENTRY - STRUCTURE CAT - RENAME QUALIFIERS 
      *    RECORD ENTRY - STRUCTURE CAT - THRU
           02  STC-SR-THRU  REDEFINES CAT-DETAIL. 
               03  STC-SR-THRU-LINETYPE    PICTURE X. 
               03  STC-SR-THRU-NAME        PICTURE X(32). 
               03  STC-SR-T-ALIAS          PICTURE X(4).
               03  STC-SR-T-QUAL-COUNT     PICTURE 9. 
               03  STC-SR-T-QUAL1          PICTURE X(32). 
               03  STC-SR-T-QUAL2          PICTURE X(32). 
               03  STC-SR-T-QUAL3          PICTURE X(32). 
      *    RECORD ENTRY - PROCESS CAT 
           02  PROCESS-SR-CAT REDEFINES CAT-DETAIL. 
               03  PROCESS-SR-LINETYPE     PICTURE X. 
               03  PROCESS-SR-DBPROC       PICTURE X(32). 
               03  PROCESS-SR-TYPE         PICTURE XX.
               03  PROCESS-SR-TIME         PICTURE X(5).
               03  PROCESS-SR-OPTION       PICTURE X(9).
