*COMDECK  TOTWA32 
00001 ******************************************************************12/01/77
00002 *                                                                 TOTWA32 
00003 *    CATEGORY WORK AREA                                              LV002
00004 *                                                                 TOTWA32 
00005 ******************************************************************TOTWA32 
00006 *       DATA BASE TOTAL ENTRY - RESPONSIBILITY CATEGORY           TOTWA32 
00007      02  RESP-TOT-CAT  REDEFINES  CAT-DETAIL.                     TOTWA32 
               03  RESP-TOT-LINETYPE       PICTURE X. 
00008          03  RESP-TOT-STATUS         PICTURE X.                   TOTWA32 
00009          03  RESP-TOT-FUNC           PICTURE X.                   TOTWA32 
00010          03  RESP-TOT-DEPT           PICTURE X(32).               TOTWA32 
00011          03  RESP-TOT-PERSON         PICTURE X(32).               TOTWA32 
00012          03  RESP-TOT-PHONE          PICTURE X(10).               TOTWA32 
00013          03  RESP-TOT-TITLE          PICTURE X(15).               TOTWA32 
00014          03  RESP-TOT-MAIL           PICTURE X(5).                TOTWA32 
00015          03  RESP-TOT-DATE           PICTURE X(6).                TOTWA32 
00017 *       DATA BASE TOTAL ENTRY - NAMES CATEGORY                    TOTWA32 
           02 DNAME-TOT-CAT REDEFINES CAT-DETAIL. 
               03  NAME-TOT-LINETYPE       PICTURE X. 
00019          03  NAME-TOT-DBNAME         PICTURE X(8).                TOTWA32 
00020          03  NAME-TOT-NAME           PICTURE X(32).               TOTWA32 
00022 *       DATA BASE TOTAL ENTRY - IOAREA CATEGORY                   TOTWA32 
00023      02  IOA-TOT-CAT  REDEFINES  CAT-DETAIL.                      TOTWA32 
               03  IOA-TOT-LINETYPE        PICTURE X. 
00024          03  IOA-TOT-TRACK           PICTURE X.                   TOTWA32 
00025          03  IOA-TOT-CATNAME         PICTURE X(32).               TOTWA32 
00026          03  IOA-TOT-IOAREA          PICTURE X(4).                TOTWA32 
00027          03  IOA-TOT-OCCURS          PICTURE XX.                  TOTWA32 
00029 *       DATA BASE TOTAL ENTRY - STRUCTURE CATEGORY                TOTWA32 
00030      02  DS-TOT-CAT  REDEFINES  CAT-DETAIL.                       TOTWA32 
               03  DS-TOT-LINETYPE         PICTURE X. 
00031          03  DS-TOT-DSNAME           PICTURE X(32).               TOTWA32 
00032          03  DS-TOT-TYPE             PICTURE X.                   TOTWA32 
00033          03  DS-TOT-EXCLUDE          PICTURE X.                   TOTWA32 
