*COMDECK  RPTDEF45
00001  01  ENTRYTYPE-45-RPTDATA.                                        08/02/78
00002 ****************************************************************  RPTDEF45
00003 *                                                                    LV001
00004 *    THE DEFINITIONS BELOW DEFINE ALL CATEGORY HDGS,              RPTDEF45
00005 *    FIELD HDGS , CODES AND VALUES AND 70 CHR LINE FORMATS FOR    RPTDEF45
00006 *        RESOURCE ENTRIES                                         RPTDEF45
00007 *                                                                 RPTDEF45
00008 ***************************************************************   RPTDEF45
00009      03 ENTRY-TYPE-CONSTANT        PICTURE XX  VALUE "45".           CL**2
00010 ******************************************************************   CL**2
00011 *                                                                    CL**2
00012 *    CATEGORY HEADING CONSTANTS FOR TYPE 45 -RESOURCE                CL**2
00013 *                                                                    CL**2
00014 ******************************************************************   CL**2
00015      03  45-CAT-HEADERS.                                             CL**2
00016          05  ENT45-CN            PICTURE X(24)   VALUE               CL**2
00017         "010020030140200250800900".                                  CL**2
00018          05  ENT45-CN2   REDEFINES   ENT45-CN.                       CL**2
00019              07  ENT45-CATNUMS   PICTURE XXX OCCURS 8.               CL**2
00020          05  ENT45-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             " ---RESPONSIBILITY CATEGORY---".                        CL**2
00029              07  FILLER          PICTURE X(30)   VALUE               CL**2
00030              "      ---NAMES CATEGORY---    ".                       CL**2
00031              07  FILLER          PICTURE X(30)   VALUE               CL**2
00032              "   ---LOCATION CATEGORY---    ".                       CL**2
00033              07  FILLER          PICTURE X(30)   VALUE               CL**2
00034              "  ---RELATIONAL CATEGORY---   ".                       CL**2
00035              07  FILLER          PICTURE X(30)   VALUE               CL**2
00036             "     ---OTHER CATEGORY---     ".                        CL**2
00037          05  ENT45-CATH  REDEFINES ENT45-CH.                         CL**2
00038              07  ENT45-CATHDRS   PICTURE X(30) OCCURS 8.             CL**2
00039 ********************************************************             CL**2
00040 *                                                                    CL**2
00041 *    FIELD HEADING CONSTANTS                                         CL**2
00042 *                                                                    CL**2
00043 ********************************************************             CL**2
00044          05  FLD4514005-HCON         PICTURE X(7)    VALUE           CL**2
00045             "STATUS=".                                               CL**2
00046          05  FLD4514010-HCON         PICTURE X(9)    VALUE           CL**2
00047             "FUNCTION=".                                             CL**2
00048          05  FLD4514015-HCON         PICTURE X(11)   VALUE           CL**2
00049             "DEPARTMENT=".                                           CL**2
00050          05  FLD4514020-HCON         PICTURE X(7)    VALUE           CL**2
00051             "PERSON=".                                               CL**2
00052          05  FLD4514025-HCON         PICTURE X(6)    VALUE           CL**2
00053             "PHONE=".                                                CL**2
00054          05  FLD4514030-HCON         PICTURE X(6)    VALUE           CL**2
00055             "TITLE=".                                                CL**2
00056          05  FLD4514035-HCON         PICTURE X(5)    VALUE           CL**2
00057             "MAIL=".                                                 CL**2
00058          05  FLD4514040-HCON         PICTURE X(5)    VALUE           CL**2
00059             "DATE=".                                                 CL**2
00060          05  FLD4520005-HCON     PICTURE X(14)   VALUE            RPTDEF45
00061             "RESOURCE NAME=".                                     RPTDEF45
00062          05  FLD4520010-HCON     PICTURE X(12)   VALUE            RPTDEF45
00063             "RESOURCE ID=".                                       RPTDEF45
00064          05  FLD4525005-HCON     PICTURE X(14)   VALUE            RPTDEF45
00065             "RESOURCE TYPE=".                                     RPTDEF45
00066          05  FLD4525010-HCON         PICTURE X(4)    VALUE           CL**2
00067             "LOC=".                                                  CL**2
00068          05  FLD4580005-HCON    PICTURE X(14)   VALUE                CL**2
00069             "CATALOGUE NAME".                                        CL**2
00070          05  FLD4580010-HCON         PICTURE X(7)    VALUE           CL**2
00071             "PARTIAL".                                               CL**2
00072 ********************************************************             CL**2
00073 *                                                                    CL**2
00074 *    FIELD CODES AND THEIR MEANINGS                                  CL**2
00075 *                                                                    CL**2
00076 **********************************************************           CL**2
00077 *                                                                    CL**2
00078 *    RESP-XRES-STATUS                                                CL**2
00079 *                                                                    CL**2
00080          05  FLD4514005-CV           PICTURE X(3)    VALUE           CL**2
00081         "CP9".                                                       CL**2
00082          05  FLD4514005-CD   REDEFINES  FLD4514005-CV.               CL**2
00083              07  FLD4514005-CODES    PICTURE X OCCURS 3.             CL**2
00084          05  FLD4514005-MV           PICTURE X(21)   VALUE           CL**2
00085         "CURRENTPAST   XXXXXXX".                                     CL**2
00086          05  FLD4514005-MD   REDEFINES   FLD4514005-MV.              CL**2
00087              07  FLD4514005-MNG      PICTURE X(7) OCCURS 3.          CL**2
00088 *                                                                    CL**2
00089 *    RESP-XRES-FUNC                                                  CL**2
00090 *                                                                    CL**2
00091          05  FLD4514010-CV           PICTURE X(4)    VALUE           CL**2
00092         "DCT9".                                                      CL**2
00093          05  FLD4514010-CD   REDEFINES   FLD4514010-CV.              CL**2
00094              07  FLD4514010-CODES    PICTURE X OCCURS 4.             CL**2
00095          05  FLD4514010-MV           PICTURE X(36)   VALUE           CL**2
00096         "DEVELOPEDCHANGED  TESTED   XXXXXXXXX".                      CL**2
00097          05  FLD4514010-MD   REDEFINES   FLD4514010-MV.              CL**2
00098              07  FLD4514010-MNG      PICTURE X(9) OCCURS 4.          CL**2
00099 *                                                                 RPTDEF45
00100 *    LOC-TYPE                                                     RPTDEF45
00101 *                                                                 RPTDEF45
00102          05  FLD4525005-CV  PICTURE X(8)        VALUE             RPTDEF45
00103         "DFOLPST.".                                                  CL**2
00104          05  FLD4525005-CD   REDEFINES FLD4525005-CV.             RPTDEF45
00105              07  FLD4525005-CODES PICTURE X OCCURS 8.             RPTDEF45
00106          05  FLD4525005-MV.                                          CL**2
00107              07  FIRST-HALF      PICTURE X(92)   VALUE               CL**2
00108             "DOCUMENTATION          FLOWCHART              OPERATI   CL**2
00109 -           "NG INSTRUCTIONS LISTING                ".               CL**2
00110              07  SECOND-HALF     PICTURE X(92)   VALUE               CL**2
00111             "PROCEDURAL INSTRUCTIONSSTATUS REPORT          TEST DA   CL**2
00112 -           "TA              XXXXXXXXXXXXXXXXXXXXXXX".               CL**2
00113          05  FLD4525005-MD   REDEFINES FLD4525005-MV.             RPTDEF45
00114              07  FLD4525005-MNG      PICTURE X(23) OCCURS 8.         CL**2
00115 *                                                                 RPTDEF45
00116 *    REL-XRES-PUSE                                                RPTDEF45
00117 *                                                                 RPTDEF45
00118          05  FLD4580010-CV           PICTURE X(3)    VALUE           CL**2
00119         "YN9".                                                       CL**2
00120          05  FLD4580010-CD REDEFINES FLD4580010-CV.                  CL**2
00121              07  FLD4580010-CODES    PICTURE X OCCURS 3.             CL**2
00122          05  FLD4580010-MV       PICTURE X(9)    VALUE               CL**2
00123         "YESNO XXX".                                                 CL**2
00124          05  FLD4580010-MD REDEFINES FLD4580010-MV.                  CL**2
00125              07  FLD4580010-MNG      PICTURE X(3) OCCURS 3.          CL**2
00126 ******************************************************************   CL**2
00127 *    STANDARD CATEGORY REPORT DETAIL LINES FOR ENTRY TYPE 45         CL**2
00128 *        ENTRY TYPE 45 = RESOURCE                                    CL**2
00129 ******************************************************************   CL**2
00130 *    RESPONSIBILITY LINES                                            CL**2
00131          05  CAT45140-LINE1.                                         CL**2
00132              07  FLD4514005-HDG      PICTURE X(7).                   CL**2
00133              07  FLD4514005-VAL.                                     CL**2
00134                  09  FLD4514005-POS1 PICTURE X.                      CL**2
00135                  09  FILLER          PICTURE X(6).                   CL**2
00136              07  FILLER              PICTURE XX.                     CL**2
00137              07  FLD4514010-HDG      PICTURE X(9).                   CL**2
00138              07  FLD4514010-VAL.                                     CL**2
00139                  09  FLD4514010-POS1 PICTURE X.                      CL**2
00140                  09  FILLER          PICTURE X(8).                   CL**2
00141              07  FILLER              PICTURE XX.                     CL**2
00142              07  FLD4514025-HDG      PICTURE X(6).                   CL**2
00143              07  FLD4514025-VAL      PICTURE X(10).                  CL**2
00144              07  FILLER              PICTURE XX.                     CL**2
00145              07  FLD4514035-HDG      PICTURE X(5).                   CL**2
00146              07  FLD4514035-VAL      PICTURE X(5).                   CL**2
00147              07  FILLER              PICTURE X(6).                   CL**2
00148          05  CAT45140-LINE2  REDEFINES  CAT45140-LINE1.              CL**2
00149              07  FLD4514020-HDG      PICTURE X(7).                   CL**2
00150              07  FLD4514020-VAL      PICTURE X(20).                  CL**2
00151              07  FILLER              PICTURE XX.                     CL**2
00152              07  FLD4514030-HDG      PICTURE X(6).                   CL**2
00153              07  FLD4514030-VAL      PICTURE X(15).                  CL**2
00154              07  FILLER              PICTURE X(20).                  CL**2
00155          05  CAT45140-LINE3  REDEFINES CAT45140-LINE2.               CL**2
00156              07  FLD4514015-HDG      PICTURE X(11).                  CL**2
00157              07  FLD4514015-VAL      PICTURE X(32).                  CL**2
00158              07  FILLER              PICTURE XX.                     CL**2
00159              07  FLD4514040-HDG      PICTURE X(5).                   CL**2
00160              07  FLD4514040-VAL      PICTURE X(8).                   CL**2
00161              07  FILLER              PICTURE X(12).                  CL**2
00162 *        NAME LINE                                                   CL**2
00163          05  CAT45200-LINE1  REDEFINES  CAT45140-LINE3.              CL**2
00164              07  FLD4520005-HDG      PICTURE X(14).                  CL**2
00165              07  FLD4520005-VAL  PICTURE X(32).                      CL**2
00166              07  FILLER          PICTURE XX.                         CL**2
00167              07  FLD4520010-HDG      PICTURE X(12).                  CL**2
00168              07  FLD4520010-VAL  PICTURE X(10).                      CL**2
00169 *        LOCATION LINES                                              CL**2
00170          05  CAT45250-LINE1 REDEFINES CAT45200-LINE1.                CL**2
00171              07  FLD4525005-HDG  PICTURE X(14).                      CL**2
00172              07  FLD4525005-VAL.                                     CL**2
00173                  09  FLD4525005-POS1 PICTURE X.                      CL**2
00174                  09  FILLER          PICTURE X(30).                  CL**2
00175              07  FILLER              PICTURE X(25).                  CL**2
00176          05  CAT45250-LINE2 REDEFINES CAT45250-LINE1.                CL**2
00177              07  FLD4525010-HDG      PICTURE X(4).                   CL**2
00178              07  FLD4525010-VAL      PICTURE X(66).                  CL**2
00179 * RELATIONAL LINE--1ST LINE IS HDG.                                  CL**2
00180          05  CAT45800-LINE1  REDEFINES  CAT45250-LINE2.              CL**2
00181              07  FLD4580005-HDG      PICTURE X(14).                  CL**2
00182              07  FILLER              PICTURE X(19).                  CL**2
00183              07  FLD4580010-HDG      PICTURE X(7).                   CL**2
00184              07  FILLER              PICTURE X(30).                  CL**2
00185          05  CAT45800-LINE2  REDEFINES CAT45800-LINE1.               CL**2
00186              07  FLD4580005-VAL      PICTURE X(32).                  CL**2
00187              07  FILLER              PICTURE X(3).                   CL**2
00188              07  FLD4580010-VAL.                                     CL**2
00189                  09  FLD4580010-POS1 PICTURE X.                      CL**2
00190                  09  FILLER          PICTURE XX.                     CL**2
00191              07  FILLER              PICTURE X(32).                  CL**2
