*COMDECK  DCDWA40 
00001 ************************************************************      06/22/77
00002 *                                                                 DCDWA40 
00003 *        C A T E G O R Y   W O R K   A R E A S                       LV001
00004 *                                                                 DCDWA40 
00005 ************************************************************      DCDWA40 
00006 *                                                                 DCDWA40:  
00007 *                                                                 DCDWA40 
00008 ************************************************************      DCDWA40 
00009 *                                                                 DCDWA40 
00010 *     REPORT ENTRY                                                DCDWA40 
00011 *                                                                 DCDWA40 
00012 ************************************************************      DCDWA40 
00013 *     REPORT ENTRY - RESPONSIBILITY CAT                           DCDWA40 
00014      02  RESP-R-CAT REDEFINES CAT-DETAIL.                         DCDWA40 
               03  RESP-R-LINETYPE          PICTURE X.
00015          03  RESP-R-STATUS            PICTURE X.                  DCDWA40 
00016          03  RESP-R-FUNC              PICTURE X.                  DCDWA40 
00017          03  RESP-R-DEPT              PICTURE X(32).              DCDWA40 
00018          03  RESP-R-PERSON            PICTURE X(32).                 CL**2
00019          03  RESP-R-PHONE             PICTURE X(10).              DCDWA40 
00020          03  RESP-R-TITLE             PICTURE X(15).              DCDWA40 
00021          03  RESP-R-MAIL              PICTURE X(5).               DCDWA40 
00022          03  RESP-R-DATE              PICTURE X(6).               DCDWA40 
00023 *     REPORT ENTRY - NAME CAT DIFFRES                             DCDWA40 
00024      02  NAME-R-CAT REDEFINES CAT-DETAIL.                         DCDWA40 
               03  NAME-R-LINETYPE          PICTURE X.
00025          03  NAME-R-REPORT            PICTURE X(32).                 CL**2
00026          03  NAME-R-REPORT-NO         PICTURE X(10).              DCDWA40 
00027          03  NAME-R-FORM              PICTURE X(32).                 CL**2
00028 *     REPORT ENTRY - ATTRIBUTE CAT                                DCDWA40 
00029      02  ATTR-R-CAT REDEFINES CAT-DETAIL.                         DCDWA40 
               03  ATTR-R-LINETYPE          PICTURE X.
00030          03  ATTR-R-MEDIUM            PICTURE X.                  DCDWA40 
00031          03  ATTR-R-PARTS             PICTURE XX.                 DCDWA40 
00032 *     REPORT ENTRY - FLOW CAT                                     DCDWA40 
00033      02  FLOW-R-CAT REDEFINES CAT-DETAIL.                         DCDWA40 
               03  FLOW-R-LINETYPE          PICTURE X.
00034          03  FLOW-R-DEPT              PICTURE X(32).              DCDWA40 
00035          03  FLOW-R-PERSON            PICTURE X(32).                 CL**2
00036          03  FLOW-R-PHONE             PICTURE X(10).              DCDWA40 
00037          03  FLOW-R-COPIES            PICTURE XX.                 DCDWA40 
00038          03  FLOW-R-MODE.                                         DCDWA40 
00039              04  FLOW-R-MODE1         PICTURE X.                  DCDWA40 
00040              04  FLOW-R-MODE2         PICTURE X.                  DCDWA40 
00041              04  FLOW-R-MODE3         PICTURE X.                  DCDWA40 
00042              04  FLOW-R-MODE4         PICTURE X.                  DCDWA40 
00043              04  FLOW-R-MODE5         PICTURE X.                  DCDWA40 
00044          03  FLOW-R-DIST-DAY          PICTURE X(10).                 CL**2
00045          03  FLOW-R-RETAIN-TIME       PICTURE XXX.                DCDWA40 
00046          03  FLOW-R-RETAIN-UNIT       PICTURE X.                  DCDWA40 
00047 *     REPORT ENTRY - RELATION CAT                                 DCDWA40 
00048      02  REL-R-CAT REDEFINES CAT-DETAIL.                          DCDWA40 
               03  REL-R-LINETYPE           PICTURE X.
00049          03  REL-R-CNAME              PICTURE X(32).              DCDWA40 
00050          03  REL-R-PUSE               PICTURE X.                  DCDWA40 
00051          03  REL-R-TYPE.                                          DCDWA40 
00052              04  REL-R-TYPE1          PICTURE X(8).                  CL**2
00053          03  REL-R-PIC                PICTURE X(25).              DCDWA40 
00054          03  REL-R-START              PICTURE XXX.                DCDWA40 
00055          03  REL-R-END                PICTURE XXX.                DCDWA40 
