*COMDECK  DCDWA20 
00001 ***********************************************************       06/08/78
00002 *                                                                 DCDWA20 
00003 *          C A T E G O R Y  W O R K  A R E A S                       LV001
00004 *                                                                    CL**2
00005 ***********************************************************          CL**2
00006 *                                                                    CL**2
00007 *                                                                    CL**2
00008 ***********************************************************          CL**2
00009 *                                                                    CL**2
00010 *                                                                    CL**2
00011 *       FILE ENTRY                                                   CL**2
00012 *                                                                    CL**2
00013 ***********************************************************          CL**2
00014 *       FILE ENTRY - RESPONSIBILITY CATEGORY                         CL**2
00015      02  RESP-CAT REDEFINES CAT-DETAIL.                              CL**2
               03  RESP-LINETYPE         PICTURE X. 
00016          03  RESP-STATUS           PICTURE X.                        CL**2
00017          03  RESP-FUNC             PICTURE X.                        CL**2
00018          03  RESP-DEPT             PICTURE X(32).                    CL**2
00019          03  RESP-PERSON           PICTURE X(32).                    CL**2
00020          03  RESP-PHONE            PICTURE X(10).                    CL**2
00021          03  RESP-TITLE            PICTURE X(15).                    CL**2
00022          03  RESP-MAIL             PICTURE X(5).                     CL**2
00023          03  RESP-DATE             PICTURE X(6).                     CL**2
00024 *     FILE ENTRY - NAME CATEGORY                                     CL**2
00025      02  NAME-FILE-CAT REDEFINES RESP-CAT.                           CL**2
               03  NAME-LINETYPE         PICTURE X. 
00026          03  NAME-FILE-FD          PICTURE X(32).                    CL**2
00027          03  NAME-FILE-DS          PICTURE X(44).                    CL**2
00028          03  NAME-FILE-MEMBER      PICTURE X(8).                     CL**2
00029          03  NAME-FILE-DD          PICTURE X(8).                     CL**2
               03  NAME-FILE-DMS        PICTURE X(7). 
00032 *    FILE ENTRY -ATTRIBUTE CATEGORY                                  CL**2
00033      02  ATTR-FILE-CAT REDEFINES CAT-DETAIL.                         CL**2
               03  ATTR-FILE-LINETYPE   PICTURE X.
00034          03  ATTR-FILE-RECSIZE     PICTURE X(5).                     CL**2
00035          03  ATTR-FILE-BLKSIZE     PICTURE X(5).                     CL**2
00036          03  ATTR-FILE-RECFM       PICTURE X(6).                     CL**2
00037          03  ATTR-FILE-DSORG       PICTURE X(3).                     CL**2
00038          03  ATTR-FILE-LABEL       PICTURE X(3).                     CL**2
00039          03  ATTR-FILE-DEN         PICTURE X.                        CL**2
00040          03  ATTR-FILE-BUFF        PICTURE X(5).                     CL**2
00041          03  ATTR-FILE-ADDR        PICTURE X.                        CL**2
00042          03  ATTR-FILE-RMOD        PICTURE X(32).                    CL**2
00043          03  ATTR-FILE-KEYLEN      PICTURE X(3).                     CL**2
00044          03  ATTR-FILE-RKP         PICTURE X(3).                     CL**2
00045          03  ATTR-FILE-CYLOFL      PICTURE X(2).                     CL**2
00046          03  ATTR-FILE-OPT         PICTURE X(3).                     CL**2
00047          03  ATTR-FILE-LIMCT       PICTURE X(2).                     CL**2
00048 *       FILE ENTRY - UNIT CATEGORY                                   CL**2
00049      02  UNIT-CAT REDEFINES CAT-DETAIL.                              CL**2
               03  UNIT-FILE-LINETYPE   PICTURE X.
00050          03  UNIT-UNIT             PICTURE X(7).                     CL**2
00051          03  UNIT-VOLSER           PICTURE X(6).                     CL**2
00052          03  UNIT-SPACE            PICTURE X(3).                     CL**2
00053          03  UNIT-TYPE             PICTURE X.                        CL**2
00054          03  UNIT-IDX-UNIT         PICTURE X(7).                     CL**2
00055          03  UNIT-IDX-VOLSER       PICTURE X(6).                     CL**2
00056          03  UNIT-IDX-SPACE        PICTURE X(3).                     CL**2
00057          03  UNIT-IDX-TYPE         PICTURE X.                        CL**2
00058          03  UNIT-OVF-UNIT         PICTURE X(7).                     CL**2
00059          03  UNIT-OVF-VOLSER       PICTURE X(6).                     CL**2
00060          03  UNIT-OVF-SPACE        PICTURE X(3).                     CL**2
00061          03  UNIT-OVF-TYPE         PICTURE X.                        CL**2
00062 *      FILE ENTRY - STRUCTURE CATEGORY                               CL**2
00063      02  STC-FILE-CAT REDEFINES CAT-DETAIL.                          CL**2
               03  STC-FILE-LINETYPE     PICTURE X. 
00064          03  STC-FILE-CNAME        PICTURE X(32).                    CL**2
00065          03  STC-FILE-TYPE         PICTURE X(8).                     CL**2
00066          03  STC-FILE-FREQ         PICTURE X(7).                     CL**2
00067          03  STC-FILE-SEGNO        PICTURE X(2).                     CL**2
00068          03  STC-FILE-LEVNO        PICTURE X(2).                     CL**2
      *    FILE ENTRY - MDINFO CAT
           02  MDINFO-FILE-CAT  REDEFINES CAT-DETAIL. 
               03  MD-FILE-LINE-TYPE     PICTURE X. 
               03  MD-FILE-TYPE          PICTURE X. 
               03  MD-FILE-UN            PICTURE X(7).
               03  MD-FILE-PW            PICTURE X(7).
               03  MD-FILE-UNIT-LIMIT    PICTURE XX.
               03  MD-FILE-UPD-LIMIT     PICTURE XX.
               03  MD-FILE-FAMILY        PICTURE X(7).
               03  MD-FILE-PACK          PICTURE X(7).
               03  MD-FILE-SET           PICTURE X(7).
