*COMDECK  DCDWA60 
00001 ************************************************************      06/15/77
00002 *                                                                 DCDWA60 
00003 *        C A T E G O R Y   W O R K   A R E A S                       LV001
00004 *                                                                 DCDWA60 
00005 ************************************************************      DCDWA60 
00006 *                                                                 DCDWA60 
00007 *                                                                 DCDWA60 
00008 ************************************************************      DCDWA60 
00009 *                                                                 DCDWA60 
00010 *     SYSTEM ENTRY                                                DCDWA60 
00011 *                                                                 DCDWA60 
00012 ************************************************************      DCDWA60 
00013 *     SYSTEM ENTRY - RESPONSIBILITY CAT                           DCDWA60 
00014      02  RESP-SYS-CAT REDEFINES CAT-DETAIL.                       DCDWA60 
               03  RESP-SYS-LINETYPE         PICTURE X. 
00015          03  RESP-SYS-STATUS            PICTURE X.                DCDWA60 
00016          03  RESP-SYS-FUNC              PICTURE X.                DCDWA60 
00017          03  RESP-SYS-DEPT              PICTURE X(32).            DCDWA60 
00018          03  RESP-SYS-PERSON            PICTURE X(32).               CL**2
00019          03  RESP-SYS-PHONE             PICTURE X(10).            DCDWA60 
00020          03  RESP-SYS-TITLE             PICTURE X(15).            DCDWA60 
00021          03  RESP-SYS-MAIL              PICTURE X(5).             DCDWA60 
00022          03  RESP-SYS-DATE              PICTURE X(6).             DCDWA60 
00023 *     SYSTEM ENTRY - NAME CAT                                     DCDWA60 
00024      02  NAME-SYS-CAT REDEFINES CAT-DETAIL.                       DCDWA60 
               03  NAME-SYS-LINETYPE         PICTURE X. 
00025          03  NAME-SYS-NAME           PICTURE X(32).                  CL**2
00026          03  NAME-SYS-ID             PICTURE X(10).               DCDWA60 
00027 *     SYSTEM ENTRY - RELATIONS CAT                                DCDWA60 
00028      02  REL-SYS-CAT REDEFINES CAT-DETAIL.                        DCDWA60 
               03  REL-SYS-LINETYPE          PICTURE X. 
00029          03  REL-SYS-CNAME           PICTURE X(32).               DCDWA60 
00030          03  REL-SYS-PUSE            PICTURE X.                   DCDWA60 
00031          03  REL-SYS-JOB             PICTURE X(8).                DCDWA60 
00032          03  REL-SYS-NAMEJOB          PICTURE X(32).                 CL**2
