*COMDECK  RPTDEF60
00001 *                                                                 08/02/78
00002  01  ENTRYTYPE-60-RPTDATA.                                        RPTDEF60
00003 ****************************************************************     LV001
00004 *                                                                 RPTDEF60
00005 *    THE DEFINITIONS BELOW DEFINE ALL CATEGORY HDGS,              RPTDEF60
00006 *    FIELD HDGS , CODES AND VALUES AND 70 CHR LINE FORMATS FOR    RPTDEF60
00007 *        SYSTEM ENTRIES                                           RPTDEF60
00008 *                                                                 RPTDEF60
00009      03  ENTRY-TYPE-CONSTANT        PICTURE XX  VALUE "60".          CL**2
00010 *                                                                    CL**2
00011 *    CATEGORY HEADING CONSTANTS FOR TYPE 60- SYSTEM                  CL**2
00012 *                                                                    CL**2
00013 ******************************************************************   CL**2
00014      03  60-CAT-HEADERS.                                             CL**2
00015          05  ENT60-CN            PICTURE X(21)   VALUE               CL**2
00016         "010020030140200800900".                                     CL**2
00017          05  ENT60-CN2   REDEFINES   ENT60-CN.                       CL**2
00018              07  ENT60-CATNUMS   PICTURE XXX OCCURS 7.               CL**2
00019          05  ENT60-CH.                                               CL**2
00020              07  FILLER          PICTURE X(30)   VALUE               CL**2
00021             "    ---CONTROL CATEGORY---    ".                        CL**2
00022              07  FILLER          PICTURE X(30)   VALUE               CL**2
00023             "---CLASSIFICATION CATEGORY--- ".                        CL**2
00024              07  FILLER          PICTURE X(30)   VALUE               CL**2
00025             "  ---DESCRIPTION CATEGORY---  ".                        CL**2
00026              07  FILLER          PICTURE X(30)   VALUE               CL**2
00027             " ---RESPONSIBILITY CATEGORY---".                        CL**2
00028              07  FILLER          PICTURE X(30)   VALUE               CL**2
00029             "      ---NAME CATEGORY---     ".                        CL**2
00030              07  FILLER          PICTURE X(30)   VALUE               CL**2
00031             "  ---RELATIONAL CATEGORY---   ".                        CL**2
00032             07  FILLER           PICTURE X(30)   VALUE               CL**2
00033             "     ---OTHER CATEGORY---     ".                        CL**2
00034          05  ENT60-CATH  REDEFINES  ENT60-CH.                        CL**2
00035              07  ENT60-CATHDRS      PICTURE X(30) OCCURS 7.          CL**2
00036 ***************************************************************   RPTDEF60
00037 ********************************************************             CL**2
00038 *                                                                    CL**2
00039 *    FIELD HEADING CONSTANTS                                         CL**2
00040 *                                                                    CL**2
00041 ********************************************************             CL**2
00042          05  FLD6014005-HCON         PICTURE X(7)    VALUE           CL**2
00043             "STATUS=".                                               CL**2
00044          05  FLD6014010-HCON         PICTURE X(9)    VALUE           CL**2
00045             "FUNCTION=".                                             CL**2
00046          05  FLD6014015-HCON         PICTURE X(11)   VALUE           CL**2
00047             "DEPARTMENT=".                                           CL**2
00048          05  FLD6014020-HCON         PICTURE X(7)    VALUE           CL**2
00049             "PERSON=".                                               CL**2
00050          05  FLD6014025-HCON         PICTURE X(6)    VALUE           CL**2
00051             "PHONE=".                                                CL**2
00052          05  FLD6014030-HCON         PICTURE X(6)    VALUE           CL**2
00053             "TITLE=".                                                CL**2
00054          05  FLD6014035-HCON         PICTURE X(5)    VALUE           CL**2
00055             "MAIL=".                                                 CL**2
00056          05  FLD6014040-HCON         PICTURE X(5)    VALUE           CL**2
00057             "DATE=".                                                 CL**2
00058          05  FLD6020005-HCON     PICTURE X(12)   VALUE            RPTDEF60
00059             "SYSTEM NAME=".                                       RPTDEF60
00060          05  FLD6020010-HCON     PICTURE X(10)   VALUE            RPTDEF60
00061             "SYSTEM ID=".                                         RPTDEF60
00062          05  FLD6080005-HCON    PICTURE X(14)   VALUE                CL**2
00063             "CATALOGUE NAME".                                        CL**2
00064          05  FLD6080015-HCON    PICTURE X(5)    VALUE                CL**2
00065             "NAME=".                                                 CL**2
00066          05  FLD6080020-HCON    PICTURE X(6)     VALUE               CL**2
00067             "TITLE=".                                                CL**2
00068          05  FLD60800JOB-HCON   PICTURE X(4)     VALUE               CL**2
00069             "JOB:".                                                  CL**2
00070          05  FLD6080010-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-SYS-STATUS                                                 CL**2
00079 *                                                                    CL**2
00080          05  FLD6014005-CV           PICTURE X(3)    VALUE           CL**2
00081         "CP9".                                                       CL**2
00082          05  FLD6014005-CD  REDEFINES   FLD6014005-CV.               CL**2
00083              07  FLD6014005-CODES   PICTURE X OCCURS 3.              CL**2
00084          05  FLD6014005-MV           PICTURE X(21)   VALUE           CL**2
00085         "CURRENTPAST   XXXXXXX".                                     CL**2
00086          05  FLD6014005-MD  REDEFINES  FLD6014005-MV.                CL**2
00087              07  FLD6014005-MNG      PICTURE X(7) OCCURS 3.          CL**2
00088 *                                                                    CL**2
00089 *    RESP-SYS-FUNC                                                   CL**2
00090 *                                                                    CL**2
00091          05  FLD6014010-CV           PICTURE X(4)    VALUE           CL**2
00092         "DCT9".                                                      CL**2
00093          05  FLD6014010-CD  REDEFINES  FLD6014010-CV.                CL**2
00094                                                                      CL**2
00095              07  FLD6014010-CODES    PICTURE X OCCURS 4.             CL**2
00096          05  FLD6014010-MV           PICTURE X(36)   VALUE           CL**2
00097         "DEVELOPEDCHANGED  TESTED   XXXXXXXXX".                      CL**2
00098          05  FLD6014010-MD  REDEFINES   FLD6014010-MV.               CL**2
00099              07  FLD6014010-MNG      PICTURE X(9) OCCURS 4.          CL**2
00100 *                                                                 RPTDEF60
00101 *    REL-SYS-PUSE                                                 RPTDEF60
00102 *                                                                 RPTDEF60
00103          05  FLD6080010-CV           PICTURE X(3)    VALUE           CL**2
00104         "YN9".                                                       CL**2
00105          05  FLD6080010-CD   REDEFINES FLD6080010-CV.             RPTDEF60
00106              07  FLD6080010-CODES    PICTURE X OCCURS 3.             CL**2
00107          05  FLD6080010-MV           PICTURE X(9)    VALUE           CL**2
00108         "YESNO XXX".                                                 CL**2
00109          05  FLD6080010-MD   REDEFINES FLD6080010-MV.             RPTDEF60
00110              07  FLD6080010-MNG      PICTURE X(3) OCCURS 3.          CL**2
00111 ******************************************************************   CL**2
00112 *        ENTRY TYPE 60 = SYSTEM                                      CL**2
00113 ******************************************************************   CL**2
00114      03  60-CAT-DETAIL-LINES.                                        CL**2
00115 *  RESPONSIBILITY LINES                                              CL**2
00116          05   CAT60140-LINE1.                                        CL**2
00117              07  FLD6014005-HDG      PICTURE X(7).                   CL**2
00118              07  FLD6014005-VAL.                                     CL**2
00119                  09  FLD6014005-POS1 PICTURE X.                      CL**2
00120                  09  FILLER          PICTURE X(6).                   CL**2
00121              07  FILLER              PICTURE XX.                     CL**2
00122              07  FLD6014010-HDG      PICTURE X(9).                   CL**2
00123              07  FLD6014010-VAL.                                     CL**2
00124                  09  FLD6014010-POS1 PICTURE X.                      CL**2
00125                  09  FILLER          PICTURE X(8).                   CL**2
00126              07  FILLER              PICTURE XX.                     CL**2
00127              07  FLD6014025-HDG      PICTURE X(6).                   CL**2
00128              07  FLD6014025-VAL      PICTURE X(10).                  CL**2
00129              07  FILLER              PICTURE XX.                     CL**2
00130              07  FLD6014035-HDG      PICTURE X(5).                   CL**2
00131              07  FLD6014035-VAL      PICTURE X(5).                   CL**2
00132              07  FILLER              PICTURE X(6).                   CL**2
00133          05  CAT60140-LINE2  REDEFINES  CAT60140-LINE1.              CL**2
00134              07  FLD6014020-HDG      PICTURE X(7).                   CL**2
00135              07  FLD6014020-VAL      PICTURE X(20).                  CL**2
00136              07  FILLER              PICTURE XX.                     CL**2
00137              07  FLD6014030-HDG      PICTURE X(6).                   CL**2
00138              07  FLD6014030-VAL      PICTURE X(15).                  CL**2
00139              07  FILLER              PICTURE X(20).                  CL**2
00140          05  CAT60140-LINE3  REDEFINES CAT60140-LINE2.               CL**2
00141              07  FLD6014015-HDG      PICTURE X(11).                  CL**2
00142              07  FLD6014015-VAL      PICTURE X(32).                  CL**2
00143              07  FILLER              PICTURE XX.                     CL**2
00144              07  FLD6014040-HDG      PICTURE X(5).                   CL**2
00145              07  FLD6014040-VAL      PICTURE X(8).                   CL**2
00146              07  FILLER              PICTURE X(12).                  CL**2
00147 *    NAME LINE                                                       CL**2
00148          05  CAT60200-LINE1  REDEFINES CAT60140-LINE3.               CL**2
00149              07  FLD6020005-HDG      PICTURE X(12).                  CL**2
00150              07  FLD6020005-VAL      PICTURE X(32).                  CL**2
00151              07  FILLER              PICTURE XX.                     CL**2
00152              07  FLD6020010-HDG      PICTURE X(10).                  CL**2
00153              07  FLD6020010-VAL      PICTURE X(10).                  CL**2
00154              07  FILLER              PICTURE X(4).                   CL**2
00155 *    RELATION LINES-1ST LINE IS HEADING                              CL**2
00156          05  CAT60800-LINE1  REDEFINES  CAT60200-LINE1.              CL**2
00157              07  FLD6080005-HDG      PICTURE X(14).                  CL**2
00158              07  FILLER              PICTURE X(19).                  CL**2
00159              07  FLD6080010-HDG      PICTURE X(7).                   CL**2
00160              07  FILLER              PICTURE X(30).                  CL**2
00161          05  CAT60800-LINE2  REDEFINES  CAT60800-LINE1.              CL**2
00162              07  FLD6080005-VAL      PICTURE X(32).                  CL**2
00163              07  FILLER              PICTURE XX.                     CL**2
00164              07  FLD6080010-VAL.                                     CL**2
00165                  09  FLD6080010-POS1 PICTURE X.                      CL**2
00166                  09  FILLER          PICTURE XX.                     CL**2
00167              07  FILLER              PICTURE X(33).                  CL**2
00168          05  CAT60800-LINE3  REDEFINES  CAT60800-LINE2.              CL**2
00169              07  FLD60800JOB-HDG     PICTURE X(4).                   CL**2
00170              07  FILLER              PICTURE X.                      CL**2
00171              07  FLD6080015-HDG      PICTURE X(5).                   CL**2
00172              07  FLD6080015-VAL      PICTURE X(8).                   CL**2
00173              07  FILLER              PICTURE X.                      CL**2
00174              07  FLD6080020-HDG      PICTURE X(6).                   CL**2
00175              07  FLD6080020-VAL      PICTURE X(32).                  CL**2
00176              07  FILLER              PICTURE X(13).                  CL**2
