*COMDECK  DCDWA50 
00001 ************************************************************      08/24/77
00002 *                                                                 DCDWA50:  
00003 *        C A T E G O R Y   W O R K   A R E A S                       LV001
00004 *                                                                 DCDWA50 
00005 ************************************************************      DCDWA50 
00006 *                                                                 DCDWA50 
00007 *                                                                 DCDWA50 
00008 ************************************************************      DCDWA50 
00009 *                                                                 DCDWA50 
00010 *     PROGRAM ENTRY                                               DCDWA50 
00011 *                                                                 DCDWA50 
00012 ************************************************************      DCDWA50 
00013 *     PROGRAM ENTRY - RESPONSIBILITY CAT                          DCDWA50 
00014      02  RESP-PRG-CAT REDEFINES CAT-DETAIL.                       DCDWA50 
               03  RESP-PRG-LINETYPE         PICTURE X. 
00015          03  RESP-PRG-STATUS            PICTURE X.                DCDWA50 
00016          03  RESP-PRG-FUNC              PICTURE X.                DCDWA50 
00017          03  RESP-PRG-DEPT              PICTURE X(32).            DCDWA50 
00018          03 RESP-PRG-PERSON            PICTURE X(32).                CL**2
00019          03  RESP-PRG-PHONE             PICTURE X(10).            DCDWA50 
00020          03  RESP-PRG-TITLE             PICTURE X(15).            DCDWA50 
00021          03  RESP-PRG-MAIL              PICTURE X(5).             DCDWA50 
00022          03  RESP-PRG-DATE              PICTURE X(6).             DCDWA50 
00023 *     PROGRAN ENTRY - NAME CAT                                    DCDWA50 
00024      02  NAME-PRG-CAT REDEFINES CAT-DETAIL.                       DCDWA50 
               03  NAME-PRG-LINETYPE         PICTURE X. 
00025          03  NAME-PRG-NAME           PICTURE X(32).                  CL**2
00026          03  NAME-PRG-MODID         PICTURE X(10).                DCDWA50 
00027 *     PROGRAM ENTRY - ATTRIBUTE CAT                               DCDWA50 
00028      02  ATTR-PRG-CAT REDEFINES CAT-DETAIL.                       DCDWA50 
               03  ATTR-PRG-LINETYPE         PICTURE X. 
00029          03  ATTR-PRG-LANG           PICTURE X.                   DCDWA50 
00030          03  ATTR-PRG-TYPE           PICTURE X.                   DCDWA50 
00031          03  ATTR-PRG-OVLY           PICTURE X.                   DCDWA50 
00032          03  ATTR-PRG-SEG            PICTURE X.                   DCDWA50 
00033          03  ATTR-PRG-CALLTYP        PICTURE X.                   DCDWA50 
00034 *     PROGRAM ENTRY - STORAGE CAT                                 DCDWA50 
00035      02  STORE-CAT REDEFINES CAT-DETAIL.                          DCDWA50 
               03  STORE-LINETYPE            PICTURE X. 
00036          03  STORE-TYPE              PICTURE X.                   DCDWA50 
00037          03  STORE-PLACE             PICTURE X(20).               DCDWA50 
00038       03  STORE-MODE            PICTURE X(20).                       CL**2
00039          03  STORE-SIZE              PICTURE X(7).                DCDWA50 
00040          03  STORE-SIZE-UNIT         PICTURE X.                   DCDWA50 
00041 *     PROGRAN ENTRY - RESOURCE CAT                                DCDWA50 
00042      02  RES-CAT REDEFINES CAT-DETAIL.                            DCDWA50 
               03  RES-LINETYPE              PICTURE X. 
00043          03  RES-STEP-NAME           PICTURE X(44).               DCDWA50 
00044          03  RES-REGION              PICTURE X(4).                DCDWA50 
00045          03  RES-ELAPSED-TIME        PICTURE X(3).                DCDWA50 
00046          03  RES-ELAPSED-UNIT        PICTURE X.                   DCDWA50 
00047          03  RES-CPU-TIME            PICTURE X(3).                DCDWA50 
00048          03  RES-CPU-UNIT            PICTURE X.                   DCDWA50 
00049          03  RES-PROCEDURE           PICTURE X(8).                DCDWA50 
00050          03  RES-PROC-SEQ            PICTURE XX.                  DCDWA50 
00051          03  RES-LINES                PICTURE X(7).                  CL**2
00052          03  RES-PUNCH                PICTURE X(7).                  CL**2
00053 *     PROGRAN ENTRY - SCHEDULING CAT                              DCDWA50 
00054      02  SCHLD-CAT REDEFINES CAT-DETAIL.                          DCDWA50 
               03  SCHLD-LINETYPE            PICTURE X. 
00055          03  SCHLD-NORM-START        PICTURE X(4).                DCDWA50 
00056          03  SCHLD-NORM-STOP         PICTURE X(4).                DCDWA50 
00057          03  SCHLD-NORM-DAY           PICTURE X(10).                 CL**2
00058          03  SCHLD-DEAD-START        PICTURE X(4).                DCDWA50 
00059          03  SCHLD-DEAD-STOP         PICTURE X(4).                DCDWA50 
00060          03  SCHLD-DEAD-DAY           PICTURE X(10).                 CL**2
00061          03  SCHLD-CYCLE             PICTURE X.                   DCDWA50 
00062          03  SCHLD-PROCED-PROG       PICTURE X(32).               DCDWA50 
00063 *     PROGRAM ENTRY - PASSING CAT                                 DCDWA50 
00064      02  PASS-CAT REDEFINES CAT-DETAIL.                           DCDWA50 
               03  PASS-LINETYPE             PICTURE X. 
00065          03  PASS-CNAME              PICTURE X(32).               DCDWA50 
00066 * THE ABOVE CAT PROBALLY SHOULD BY IN RELATIONS                   DCDWA50 
00067 *     PROGRAM ENTRY - RELATION CAT CAT                            DCDWA50 
00068      02  REL-CAT REDEFINES CAT-DETAIL.                            DCDWA50 
               03  REL-LINETYPE              PICTURE X. 
00069          03  REL-PRG-CNAME                PICTURE X(32).             CL**2
00070          03  REL-PRG-PUSE                 PICTURE X.                 CL**2
00071          03  REL-PRG-IO                   PICTURE X.                 CL**2
00072          03  REL-PRG-ACCESS               PICTURE X.                 CL**2
00073          03  REL-PRG-CYCLE                PICTURE X.                 CL**2
00074          03  REL-PRG-FREQ                 PICTURE X(5).              CL**2
00075          03  REL-PRG-DISP.                                           CL**2
00076              04  REL-PRG-DISP1            PICTURE X(20).             CL**2
