*COMDECK  RPTDEF65
00001  01  ENTRYTYPE-65-RPTDATA.                                        08/02/78
00002 ****************************************************************  RPTDEF65
00003 *                                                                    LV001
00004 *    THE DEFINITIONS BELOW DEFINE ALL CATEGORY HDGS,              RPTDEF65
00005 *    FIELD HDGS , CODES AND VALUES AND 70 CHR LINE FORMATS FOR    RPTDEF65
00006 *        MANAGEMENT UNIT ENTRIES                                  RPTDEF65
00007 *                                                                 RPTDEF65
00008 ***************************************************************   RPTDEF65
00009      03  ENTRY-TYPE-CONSTANT        PICTURE XX  VALUE "65".          CL**2
00010 ******************************************************************   CL**2
00011 *                                                                    CL**2
00012 *    CATEGORY HEADING CONSTANTS FOR TYPE 65-UNIT                     CL**2
00013 *                                                                    CL**2
00014 ******************************************************************   CL**2
00015      03  65-CAT-HEADERS.                                             CL**2
00016          05  ENT65-CN            PICTURE X(18)   VALUE               CL**2
00017         "010020030700800900".                                        CL**2
00018          05  ENT65-CN2   REDEFINES   ENT65-CN.                       CL**2
00019              07  ENT65-CATNUMS   PICTURE XXX OCCURS 6.               CL**2
00020          05  ENT65-CH.                                               CL**2
00021              07  FILLER          PICTURE X(30)   VALUE               CL**2
00022             "    ---CONTROL CATEGORY---    ".                        CL**2
00023              07  FILLER          PICTURE X(30)   VALUE               CL**2
00024             "---CLASSIFICATION CATEGORY--- ".                        CL**2
00025              07  FILLER          PICTURE X(30)   VALUE               CL**2
00026             "  ---DESCRIPTION CATEGORY---  ".                        CL**2
00027              07  FILLER          PICTURE X(30)   VALUE               CL**2
00028             "   ---PERSONNEL CATEGORY---   ".                        CL**2
00029              07  FILLER          PICTURE X(30)   VALUE               CL**2
00030             "   ---RELATIONAL CATEGORY---  ".                        CL**2
00031              07  FILLER          PICTURE X(30)   VALUE               CL**2
00032             "     ---OTHER CATEGORY---     ".                        CL**2
00033          05  ENT65-CATH  REDEFINES  ENT65-CH.                        CL**2
00034              07  ENT65-CATHDRS   PICTURE X(30) OCCURS 6.             CL**2
00035 ********************************************************             CL**2
00036 *                                                                    CL**2
00037 *    FIELD HEADING CONSTANTS                                         CL**2
00038 *                                                                    CL**2
00039 ********************************************************             CL**2
00040      05  FLD6570005-HCON         PICTURE  X(8)   VALUE               CL**2
00041    "SECTION=".                                                       CL**2
00042      05  FLD6570010-HCON         PICTURE  X(9)   VALUE               CL**2
00043    "FUNCTION=".                                                      CL**2
00044      05  FLD6570015-HCON         PICTURE  X(7)   VALUE               CL**2
00045    "PERSON=".                                                        CL**2
00046      05  FLD6570020-HCON         PICTURE  X(6)   VALUE               CL**2
00047    "TITLE=".                                                         CL**2
00048      05  FLD6570025-HCON         PICTURE  X(6)   VALUE               CL**2
00049    "PHONE=".                                                         CL**2
00050      05  FLD6570030-HCON         PICTURE  X(5)   VALUE               CL**2
00051    "MAIL=".                                                          CL**2
00052          05  FLD6580005-HCON    PICTURE X(14)   VALUE                CL**2
00053             "CATALOGUE NAME".                                        CL**2
00054          05  FLD65800US-HCON     PICTURE X(7)        VALUE           CL**2
00055             "PARTIAL".                                               CL**2
00056          05  FLD6580020-HCON    PICTURE X(7)     VALUE               CL**2
00057             "UPDATE=".                                               CL**2
00058          05  FLD6580015-HCON    PICTURE X(7)     VALUE               CL**2
00059             "PERSON=".                                               CL**2
00060 *******************************************************              CL**2
00061 *                                                                    CL**2
00062 *    FIELD CODES AND THEIR MEANINGS                                  CL**2
00063 *                                                                    CL**2
00064 ********************************************************             CL**2
00065 *                                                                 RPTDEF65
00066 *    REL-UNIT-PUSE                                                RPTDEF65
00067 *                                                                 RPTDEF65
00068          05 FLD6580010-CV        PICTURE X(3)        VALUE           CL**2
00069            "YN9".                                                    CL**2
00070          05 FLD6580010-CD REDEFINES FLD6580010-CV.                   CL**2
00071              07 FLD6580010-CODES PICTURE X OCCURS 3.                 CL**2
00072          05 FLD6580010-MV        PICTURE X(9)        VALUE           CL**2
00073            "YESNO XXX".                                              CL**2
00074          05 FLD6580010-MD REDEFINES FLD6580010-MV.                   CL**2
00075              07 FLD6580010-MNG   PICTURE X(3) OCCURS 3.              CL**2
00076 *                                                                 RPTDEF65
00077 *    PERSON-UPDATE                                                   CL**2
00078 *                                                                 RPTDEF65
00079          05  FLD6580020-CV  PICTURE X(3)        VALUE             RPTDEF65
00080         "NY9".                                                       CL**2
00081          05  FLD6580020-CD   REDEFINES FLD6580020-CV.             RPTDEF65
00082              07  FLD6580020-CODES PICTURE X OCCURS 3.             RPTDEF65
00083          05  FLD6580020-MV  PICTURE X(9)        VALUE             RPTDEF65
00084         "NO YESXXX".                                              RPTDEF65
00085          05  FLD6580020-MD   REDEFINES FLD6580020-MV.             RPTDEF65
00086              07  FLD6580020-MNG  PICTURE X(3)  OCCURS 3.          RPTDEF65
00087 *                                                                 RPTDEF65
00088 *    PERSON-FUNC                                                  RPTDEF65
00089 *                                                                 RPTDEF65
00090          05  FLD6570010-CV  PICTURE X(4)        VALUE             RPTDEF65
00091         "CDT9".                                                   RPTDEF65
00092          05  FLD6570010-CD   REDEFINES FLD6570010-CV.             RPTDEF65
00093              07  FLD6570010-CODES    PICTURE X OCCURS 4.             CL**2
00094          05  FLD6570010-MV  PICTURE X(36)       VALUE             RPTDEF65
00095         "CHANGED  DEVELOPEDTESTED   XXXXXXXXX".                   RPTDEF65
00096          05  FLD6570010-MD   REDEFINES FLD6570010-MV.             RPTDEF65
00097              07  FLD6570010-MNG  PICTURE X(9)  OCCURS 4.          RPTDEF65
00098 ******************************************************************   CL**2
00099 *    STANDARD CATEGORY REPORT DETAIL LINES FOR ENTRY TYPE 65         CL**2
00100 *        ENTRY TYPE 65 = MGT UNIT                                    CL**2
00101 ******************************************************************   CL**2
00102      03  65-CAT-DETAIL-LINES.                                        CL**2
00103 *    PERSONNEL LINES                                                 CL**2
00104          05  CAT65700-LINE1.                                         CL**2
00105              07  FLD6570005-HDG  PICTURE X(8).                       CL**2
00106              07  FLD6570005-VAL  PICTURE X(32).                      CL**2
00107              07  FILLER          PICTURE X(30).                      CL**2
00108          05  CAT65700-LINE2 REDEFINES CAT65700-LINE1.                CL**2
00109              07  FLD6570015-HDG      PICTURE X(7).                   CL**2
00110              07  FLD6570015-VAL      PICTURE X(32).                  CL**2
00111              07  FILLER              PICTURE XX.                     CL**2
00112              07  FLD6570010-HDG      PICTURE X(9).                   CL**2
00113              07  FLD6570010-VAL.                                     CL**2
00114                  09  FLD6570010-POS1 PICTURE X.                      CL**2
00115                  09  FILLER          PICTURE X(8).                   CL**2
00116              07  FILLER              PICTURE X(11).                  CL**2
00117          05  CAT65700-LINE3 REDEFINES CAT65700-LINE2.                CL**2
00118              07  FLD6570020-HDG      PICTURE X(6).                   CL**2
00119              07  FLD6570020-VAL      PICTURE X(15).                  CL**2
00120              07  FILLER              PICTURE XX.                     CL**2
00121              07  FLD6570025-HDG      PICTURE X(6).                   CL**2
00122              07  FLD6570025-VAL      PICTURE X(10).                  CL**2
00123              07  FILLER              PICTURE XX.                     CL**2
00124              07  FLD6570030-HDG      PICTURE X(5).                   CL**2
00125              07  FLD6570030-VAL      PICTURE X(5).                   CL**2
00126              07  FILLER              PICTURE X(19).                  CL**2
00127 *    RELATION LINES-1ST LINE IS HEADING                              CL**2
00128          05 CAT65800-LINE1 REDEFINES CAT65700-LINE3.                 CL**2
00129              07  FLD6580005-HDG      PICTURE X(14).                  CL**2
00130              07  FILLER              PICTURE X(19).                  CL**2
00131              07  FLD65800US-HDG      PICTURE X(7).                   CL**2
00132              07  FILLER              PICTURE X(30).                  CL**2
00133          05  CAT65800-LINE2  REDEFINES  CAT65800-LINE1.              CL**2
00134              07  FLD6580005-VAL      PICTURE X(32).                  CL**2
00135              07  FILLER              PICTURE XX.                     CL**2
00136              07  FLD6580010-VAL.                                     CL**2
00137                  09  FLD6580010-POS1 PICTURE X.                      CL**2
00138                  09  FILLER          PICTURE XX.                     CL**2
00139              07  FILLER              PICTURE X(33).                  CL**2
00140          05  CAT65800-LINE3  REDEFINES CAT65800-LINE2.               CL**2
00141              07  FILLER              PICTURE X(19).                  CL**2
00142              07  FLD6580020-HDG      PICTURE X(7).                   CL**2
00143              07  FLD6580020-VAL.                                     CL**2
00144                  09  FLD6580020-POS1 PICTURE X.                      CL**2
00145                  09  FILLER          PICTURE XX.                     CL**2
00146              07  FILLER              PICTURE XX.                     CL**2
00147              07  FLD6580015-HDG      PICTURE X(7).                   CL**2
00148              07  FLD6580015-VAL      PICTURE X(32).                  CL**2
