*COMDECK  DCDWA65 
00001 ************************************************************      06/27/77
00002 *                                                                 DCDWA65 
00003 *        C A T E G O R Y   W O R K   A R E A S                       LV001
00004 *                                                                 DCDWA65 
00005 ************************************************************      DCDWA65 
00006 *                                                                 DCDWA65 
00007 *                                                                 DCDWA65 
00008 ************************************************************      DCDWA65 
00009 *                                                                 DCDWA65 
00010 *     MANAGEMENT UNIT ENTRY                                       DCDWA65 
00011 *                                                                 DCDWA65 
00012 ************************************************************      DCDWA65 
00013 *     MANG UNIT ENTRY - PERSONEL CAT                              DCDWA65 
00014      02  PERSON-CAT REDEFINES CAT-DETAIL.                         DCDWA65 
               03  PERSON-LINETYPE         PICTURE X. 
00015          03  PERSON-UNIT             PICTURE X(32).                  CL**2
00016          03  PERSON-FUNC             PICTURE X.                   DCDWA65 
00017          03  PERSON-PERSON           PICTURE X(32).                  CL**2
00018          03  PERSON-TITLE            PICTURE X(15).               DCDWA65 
00019          03  PERSON-PHONE            PICTURE X(10).               DCDWA65 
00020          03  PERSON-MAIL             PICTURE X(5).                DCDWA65 
00021 *     MANG UNIT ENTRY - RELATION CAT                              DCDWA65 
00022      02  REL-UNIT-CAT REDEFINES CAT-DETAIL.                       DCDWA65 
               03  REL-UNIT-LINETYPE       PICTURE X. 
00023          03  REL-UNIT-CNAME          PICTURE X(32).               DCDWA65 
00024          03  REL-UNIT-PUSE           PICTURE X.                   DCDWA65 
00025          03  REL-UNIT-PERSON                PICTURE X(32).           CL**2
00026          03  REL-UNIT-UPDATE         PICTURE X.                      CL**2
