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