*COMDECK  RPTDEF40
00001  01  ENTRYTYPE-40-RPTDATA.                                        08/02/78
00002 ****************************************************************  RPTDEF40
00003 *                                                                    LV001
00004 *    THE DEFINITIONS BELOW DEFINE ALL CATEGORY HDGS,              RPTDEF40
00005 *    FIELD HDGS , CODES AND VALUES AND 70 CHR LINE FORMATS FOR    RPTDEF40
00006 *        REPORT ENTRIES                                           RPTDEF40
00007 *                                                                 RPTDEF40
00008 ***************************************************************   RPTDEF40
00009      03  ENTRY-TYPE-CONSTANT        PICTURE XX  VALUE "40".          CL**2
00010 ******************************************************************   CL**2
00011 *                                                                    CL**2
00012 *    CATEGORY HEADING CONSTANTS FOR TYPE 40-REPORT                   CL**2
00013 *                                                                    CL**2
00014 ******************************************************************   CL**2
00015      03  40-CAT-HEADERS.                                             CL**2
00016          05  ENT40-CN            PICTURE X(27)   VALUE               CL**2
00017         "010020030140200210240800900" .                              CL**2
00018          05  ENT40-CN2   REDEFINES   ENT40-CN.                       CL**2
00019              07  ENT40-CATNUMS PICTURE XXX OCCURS 9.                 CL**2
00020          05  ENT40-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             "      ---NAME CATEGORY---     ".                        CL**2
00031              07  FILLER          PICTURE X(30)   VALUE               CL**2
00032             "   ---ATTRIBUTE CATEGORY---   ".                        CL**2
00033              07  FILLER          PICTURE X(30)   VALUE               CL**2
00034             "     ---FLOW CATEGORY---      ".                        CL**2
00035              07  FILLER          PICTURE X(30)   VALUE               CL**2
00036             "  ---RELATIONAL CATEGORY---   ".                        CL**2
00037              07  FILLER          PICTURE X(30)   VALUE               CL**2
00038             "     ---OTHER CATEGORY---     ".                        CL**2
00039          05  ENT40-CATH      REDEFINES  ENT40-CH.                    CL**2
00040              07  ENT40-CATHDRS       PICTURE X(30) OCCURS 9.         CL**2
00041 ********************************************************             CL**2
00042 *                                                                    CL**2
00043 *    FIELD HEADING CONSTANTS                                         CL**2
00044 *                                                                    CL**2
00045 ********************************************************             CL**2
00046      05  FLD4014005-HCON         PICTURE X(7)    VALUE               CL**2
00047         "STATUS=".                                                   CL**2
00048      05  FLD4014010-HCON         PICTURE X(9)    VALUE               CL**2
00049         "FUNCTION=".                                                 CL**2
00050      05  FLD4014015-HCON         PICTURE X(11)   VALUE               CL**2
00051         "DEPARTMENT=".                                               CL**2
00052      05  FLD4014020-HCON         PICTURE X(7)    VALUE               CL**2
00053         "PERSON=".                                                   CL**2
00054      05  FLD4014025-HCON         PICTURE X(6)    VALUE               CL**2
00055         "PHONE=".                                                    CL**2
00056      05  FLD4014030-HCON         PICTURE X(6)    VALUE               CL**2
00057         "TITLE=".                                                    CL**2
00058      05  FLD4014035-HCON         PICTURE X(5)    VALUE               CL**2
00059         "MAIL=".                                                     CL**2
00060      05  FLD4014040-HCON         PICTURE X(5)    VALUE               CL**2
00061         "DATE=".                                                     CL**2
00062          05  FLD4020005-HCON     PICTURE X(12)   VALUE            RPTDEF40
00063             "REPORT NAME=".                                       RPTDEF40
00064          05  FLD4020010-HCON     PICTURE X(14)   VALUE            RPTDEF40
00065             "REPORT NUMBER=".                                     RPTDEF40
00066          05  FLD4020015-HCON     PICTURE X(10)   VALUE            RPTDEF40
00067             "FORM NAME=".                                         RPTDEF40
00068          05  FLD4021005-HCON     PICTURE X(7)    VALUE               CL**2
00069         "MEDIUM=".                                                   CL**2
00070          05  FLD4021010-HCON     PICTURE X(6)    VALUE               CL**2
00071         "PARTS=".                                                    CL**2
00072          05  FLD4024005-HCON     PICTURE X(11)   VALUE               CL**2
00073         "DEPARTMENT=".                                               CL**2
00074          05  FLD4024010-HCON     PICTURE X(7)    VALUE               CL**2
00075         "PERSON=".                                                   CL**2
00076          05  FLD4024015-HCON     PICTURE X(6)    VALUE               CL**2
00077         "PHONE=".                                                    CL**2
00078          05  FLD4024020-HCON     PICTURE X(7)    VALUE               CL**2
00079         "COPIES=".                                                   CL**2
00080          05  FLD40240MODE-HCON   PICTURE X(5)    VALUE               CL**2
00081         "MODE:".                                                     CL**2
00082          05  FLD4024025-HCON     PICTURE XX      VALUE               CL**2
00083         "1=".                                                        CL**2
00084          05  FLD4024030-HCON     PICTURE XX      VALUE               CL**2
00085         "2=".                                                        CL**2
00086          05  FLD4024035-HCON         PICTURE XX      VALUE           CL**2
00087         "3=".                                                        CL**2
00088          05  FLD4024040-HCON     PICTURE XX      VALUE               CL**2
00089         "4=".                                                        CL**2
00090          05  FLD4024045-HCON     PICTURE XX      VALUE               CL**2
00091         "5=".                                                        CL**2
00092          05  FLD4024050-HCON     PICTURE X(4)    VALUE               CL**2
00093         "DAY=".                                                      CL**2
00094          05  FLD4024055-HCON     PICTURE X(10)   VALUE               CL**2
00095         "RETENTION=".                                                CL**2
00096          05  FLD4080005-HCON   PICTURE X(14)   VALUE                 CL**2
00097             "CATALOGUE NAME".                                        CL**2
00098          05  FLD4080010-HCON     PICTURE X(7)    VALUE               CL**2
00099            "PARTIAL".                                                CL**2
00100          05  FLD4080015-HCON   PICTURE X(4)     VALUE                CL**2
00101             "TYPE".                                                  CL**2
00102          05  FLD4080030-HCON   PICTURE X(6)     VALUE                CL**2
00103             "START=".                                                CL**2
00104          05  FLD4080035-HCON         PICTURE X(8)    VALUE           CL**2
00105         "END=".                                                      CL**2
00106          05  FLD4080025-HCON   PICTURE X(8)      VALUE               CL**2
00107             "PICTURE=".                                              CL**2
00108 ********************************************************             CL**2
00109 *                                                                    CL**2
00110 *    FIELD CODES AND THEIR MEANINGS                                  CL**2
00111 *                                                                    CL**2
00112 **********************************************************           CL**2
00113 *    RESP-R-STATUS                                                   CL**2
00114 *                                                                    CL**2
00115      05  FLD4014005-CV           PICTURE X(3)    VALUE               CL**2
00116     "CP9".                                                           CL**2
00117      05  FLD4014005-CD   REDEFINES  FLD4014005-CV.                   CL**2
00118          07  FLD4014005-CODES    PICTURE X OCCURS 3.                 CL**2
00119          05  FLD4014005-MV           PICTURE X(21)   VALUE           CL**2
00120         "CURRENTPAST   XXXXXXX".                                     CL**2
00121      05  FLD4014005-MD   REDEFINES   FLD4014005-MV.                  CL**2
00122          07  FLD4014005-MNG      PICTURE X(7) OCCURS 3.              CL**2
00123 *                                                                    CL**2
00124 *    RESP-R-FUNC                                                     CL**2
00125 *                                                                    CL**2
00126      05  FLD4014010-CV           PICTURE X(4)    VALUE               CL**2
00127     "DCT9".                                                          CL**2
00128      05  FLD4014010-CD  REDEFINES  FLD4014010-CV.                    CL**2
00129          07  FLD4014010-CODES    PICTURE X OCCURS 4.                 CL**2
00130      05  FLD4014010-MV           PICTURE X(36)   VALUE               CL**2
00131     "DEVELOPEDCHANGED  TESTED   XXXXXXXXX".                          CL**2
00132      05  FLD4014010-MD  REDEFINES  FLD4014010-MV.                    CL**2
00133          07  FLD4014010-MNG      PICTURE X(9) OCCURS 4.              CL**2
00134 *                                                                 RPTDEF40
00135 *                                                                    CL**2
00136 *   REPORT MODES 1 TO 5                                              CL**2
00137 *                                                                    CL**2
00138          05  FLD40240MODE-CV     PICTURE X(6)    VALUE               CL**2
00139         "BDMFR9".                                                    CL**2
00140          05  FLD40240MODE-CD     REDEFINES   FLD40240MODE-CV.        CL**2
00141              07  FLD40240MODE-CODES  PICTURE X OCCURS 6.             CL**2
00142          05  FLD40240MODE-MV     PICTURE X(60) VALUE                 CL**2
00143         "BURST     DECOLLATEDMICROFICHEFASTENED    REDUCED   XXXXX   CL**2
00144 -       "XXX".                                                       CL**2
00145          05  FLD40240MODE-MD     REDEFINES   FLD40240MODE-MV.        CL**2
00146              07  FLD40240MODE-MNG    PICTURE X(10) OCCURS 6.         CL**2
00147 *                                                                    CL**2
00148 *    FLOW-R-RETAIN-UNIT                                              CL**2
00149 *                                                                    CL**2
00150          05  FLD4024060-CV       PICTURE X(8)    VALUE               CL**2
00151         "DIMQSWA9".                                                  CL**2
00152          05  FLD4024060-CD  REDEFINES FLD4024060-CV.                 CL**2
00153              07  FLD4024060-CODES PICTURE X OCCURS 8.                CL**2
00154          05  FLD4024060-MV.                                          CL**2
00155              07  FIRST-HALF          PICTURE X(76)   VALUE           CL**2
00156             "DAYS               INDEFINITELY        MONTHS           CL**2
00157 -           "    QUARTERS           ".                               CL**2
00158              07  SECOND-HALF         PICTURE X(76)   VALUE           CL**2
00159             "SEMI-ANNUAL PERIODSWEEKS              ANNUAL PERIODS    CL**2
00160 -           "    XXXXXXXXXXXXXXXXXXX".                               CL**2
00161          05  FLD4024060-MD   REDEFINES FLD4024060-MV.                CL**2
00162              07  FLD4024060-MNG  PICTURE X(19) OCCURS 8.             CL**2
00163          05 FLD4021005-CV        PICTURE X(6)        VALUE           CL**2
00164         "DMPST9".                                                    CL**2
00165          05  FLD4021005-CD  REDEFINES  FLD4021005-CV.                CL**2
00166              07 FLD4021005-CODES PICTURE X OCCURS 6.                 CL**2
00167          05 FLD4021005-MV        PICTURE X(54)       VALUE           CL**2
00168         "DISPLAY  MICROFILMPRINTED  SPOOLED  TYPED    XXXXXXXXX".    CL**2
00169          05  FLD4021005-MD   REDEFINES  FLD4021005-MV.               CL**2
00170              07  FLD4021005-MNG      PICTURE X(9) OCCURS 6.          CL**2
00171          05  FLD4080010-CV       PICTURE X(3)    VALUE               CL**2
00172         "YN9".                                                       CL**2
00173          05  FLD4080010-CD REDEFINES FLD4080010-CV.                  CL**2
00174              07  FLD4080010-CODES     PICTURE X OCCURS 3.            CL**2
00175          05  FLD4080010-MV       PICTURE X(9)    VALUE               CL**2
00176         "YESNO XXX".                                                 CL**2
00177          05  FLD4080010-MD REDEFINES FLD4080010-MV.                  CL**2
00178              07  FLD4080010-MNG      PICTURE X(3) OCCURS 3.          CL**2
00179 ******************************************************************   CL**2
00180 *    STANDARD CATEGORY REPORT DETAIL LINES FOR ENTRY TYPE 40         CL**2
00181 *        ENTRY TYPE 40 = REPORT                                      CL**2
00182 ******************************************************************   CL**2
00183      03  40-CAT-DETAIL-LINES.                                        CL**2
00184          05  CAT40140-LINE1.                                         CL**2
00185 *  RESPONSIBILITY LINES                                              CL**2
00186              07  FLD4014005-HDG      PICTURE X(7).                   CL**2
00187              07  FLD4014005-VAL.                                     CL**2
00188                  09  FLD4014005-POS1 PICTURE X.                      CL**2
00189                  09  FILLER          PICTURE X(6).                   CL**2
00190              07  FILLER              PICTURE XX.                     CL**2
00191              07  FLD4014010-HDG      PICTURE X(9).                   CL**2
00192              07  FLD4014010-VAL.                                     CL**2
00193                  09  FLD4014010-POS1 PICTURE X.                      CL**2
00194                  09  FILLER          PICTURE X(8).                   CL**2
00195              07  FILLER              PICTURE XX.                     CL**2
00196              07  FLD4014025-HDG      PICTURE X(6).                   CL**2
00197              07  FLD4014025-VAL      PICTURE X(10).                  CL**2
00198              07  FILLER              PICTURE XX.                     CL**2
00199              07  FLD4014035-HDG      PICTURE X(5).                   CL**2
00200              07  FLD4014035-VAL      PICTURE X(5).                   CL**2
00201              07  FILLER              PICTURE X(6).                   CL**2
00202          05  CAT40140-LINE2  REDEFINES  CAT40140-LINE1.              CL**2
00203              07  FLD4014020-HDG      PICTURE X(7).                   CL**2
00204              07  FLD4014020-VAL      PICTURE X(20).                  CL**2
00205              07  FILLER              PICTURE XX.                     CL**2
00206              07  FLD4014030-HDG      PICTURE X(6).                   CL**2
00207              07  FLD4014030-VAL      PICTURE X(15).                  CL**2
00208              07  FILLER              PICTURE X(20).                  CL**2
00209          05  CAT40140-LINE3  REDEFINES CAT40140-LINE2.               CL**2
00210              07  FLD4014015-HDG      PICTURE X(11).                  CL**2
00211              07  FLD4014015-VAL      PICTURE X(32).                  CL**2
00212              07  FILLER              PICTURE XX.                     CL**2
00213              07  FLD4014040-HDG      PICTURE X(5).                   CL**2
00214              07  FLD4014040-VAL      PICTURE X(8).                   CL**2
00215              07  FILLER              PICTURE X(12).                  CL**2
00216 *    NAME LINES                                                      CL**2
00217          05  CAT40200-LINE1 REDEFINES CAT40140-LINE3.                CL**2
00218              07  FLD4020005-HDG  PICTURE X(12).                      CL**2
00219              07  FLD4020005-VAL  PICTURE X(32).                      CL**2
00220              07  FILLER          PICTURE XX.                         CL**2
00221              07  FLD4020010-HDG  PICTURE X(14).                      CL**2
00222              07  FLD4020010-VAL  PICTURE X(10).                      CL**2
00223          05  CAT40200-LINE2 REDEFINES CAT40200-LINE1.                CL**2
00224              07  FLD4020015-HDG  PICTURE X(10).                      CL**2
00225              07  FLD4020015-VAL  PICTURE X(32).                      CL**2
00226              07  FILLER          PICTURE X(28).                      CL**2
00227 *    ATTRIBUTE LINE                                                  CL**2
00228          05  CAT40210-LINE1 REDEFINES CAT40200-LINE2.                CL**2
00229              07  FLD4021005-HDG      PICTURE X(7).                   CL**2
00230              07  FLD4021005-VAL.                                     CL**2
00231                  09  FLD4021005-POS1 PICTURE X.                      CL**2
00232                  09  FILLER          PICTURE X(9).                   CL**2
00233              07  FILLER              PICTURE XX.                     CL**2
00234              07  FLD4021010-HDG      PICTURE X(6).                   CL**2
00235              07  FLD4021010-VAL      PICTURE XX.                     CL**2
00236              07  FILLER              PICTURE X(43).                  CL**2
00237 *    FLOW LINES                                                      CL**2
00238          05  CAT40240-LINE1 REDEFINES CAT40210-LINE1.                CL**2
00239              07  FLD4024005-HDG  PICTURE X(11).                      CL**2
00240              07  FLD4024005-VAL      PICTURE X(32).                  CL**2
00241              07  FILLER              PICTURE X(27).                  CL**2
00242          05  CAT40240-LINE2 REDEFINES CAT40240-LINE1.                CL**2
00243              07  FLD4024010-HDG  PICTURE  X(7).                      CL**2
00244              07  FLD4024010-VAL  PICTURE  X(32).                     CL**2
00245              07  FILLER          PICTURE  X(2).                      CL**2
00246              07  FLD4024015-HDG  PICTURE  X(6).                      CL**2
00247              07  FLD4024015-VAL  PICTURE  X(10).                     CL**2
00248              07  FILLER          PICTURE  X(13).                     CL**2
00249          05  CAT40240-LINE3 REDEFINES CAT40240-LINE2.                CL**2
00250              07  FLD4024050-HDG      PICTURE X(4).                   CL**2
00251              07 FLD4024050-VAL   PICTURE X(10).                      CL**2
00252              07  FILLER              PICTURE X(2).                   CL**2
00253              07  FLD4024020-HDG      PICTURE X(7).                   CL**2
00254              07  FLD4024020-VAL      PICTURE X(2).                   CL**2
00255              07  FILLER              PICTURE XX.                     CL**2
00256              07  FLD4024055-HDG      PICTURE X(11).                  CL**2
00257              07  FLD4024055-VAL      PICTURE ZZ9.                    CL**2
00258              07  FILLER              PICTURE X.                      CL**2
00259              07  FLD4024060-VAL.                                     CL**2
00260                  09  FLD4024060-POS1 PICTURE X.                      CL**2
00261                  09  FILLER          PICTURE X(18).                  CL**2
00262              07 FILLER           PICTURE X(9).                       CL**2
00263          05  CAT40240-LINE4 REDEFINES CAT40240-LINE3.                CL**2
00264              07  FLD40240MODE-HDG    PICTURE X(5).                   CL**2
00265              07  FILLER              PICTURE X.                      CL**2
00266              07  FLD4024025-HDG      PICTURE XX.                     CL**2
00267              07  FLD4024025-VAL.                                     CL**2
00268                  09  FLD4024025-POS1 PICTURE X.                      CL**2
00269                  09  FILLER          PICTURE X(9).                   CL**2
00270              07  FILLER              PICTURE X.                      CL**2
00271              07  FLD4024030-HDG      PICTURE XX.                     CL**2
00272              07  FLD4024030-VAL.                                     CL**2
00273                  09  FLD4024030-POS1 PICTURE X.                      CL**2
00274                  09  FILLER          PICTURE X(9).                   CL**2
00275              07  FILLER              PICTURE X.                      CL**2
00276              07  FLD4024035-HDG      PICTURE XX.                     CL**2
00277              07  FLD4024035-VAL.                                     CL**2
00278                  09  FLD4024035-POS1 PICTURE X.                      CL**2
00279                  09  FILLER          PICTURE X(9).                   CL**2
00280              07  FILLER              PICTURE X.                      CL**2
00281                                                                      CL**2
00282              07  FLD4024040-HDG      PICTURE XX.                     CL**2
00283          07  FLD4024040-VAL.                                         CL**2
00284                  09  FLD4024040-POS1 PICTURE X.                      CL**2
00285                  09  FILLER          PICTURE X(9).                   CL**2
00286              07  FILLER              PICTURE X.                      CL**2
00287              07  FLD4024045-HDG      PICTURE XX.                     CL**2
00288              07  FLD4024045-VAL.                                     CL**2
00289                  09  FLD4024045-POS1 PICTURE X.                      CL**2
00290                  09  FILLER          PICTURE X(9).                   CL**2
00291 *    RELATIONAL LINE- 1ST LINE IS HDG.                               CL**2
00292          05 CAT40800-LINE1 REDEFINES CAT40240-LINE4.                 CL**2
00293              07  FLD4080005-HDG      PICTURE X(14).                  CL**2
00294              07  FILLER              PICTURE X(21).                  CL**2
00295              07  FLD4080010-HDG      PICTURE X(7).                   CL**2
00296              07  FILLER              PICTURE X(4).                   CL**2
00297              07  FLD4080015-HDG      PICTURE X(4).                   CL**2
00298              07  FILLER              PICTURE X(20).                  CL**2
00299          05  CAT40800-LINE2  REDEFINES  CAT40800-LINE1.              CL**2
00300              07  FLD4080005-VAL      PICTURE X(32).                  CL**2
00301              07  FILLER          PICTURE X(5).                       CL**2
00302              07  FLD4080010-VAL.                                     CL**2
00303                  09  FLD4080010-POS1 PICTURE X.                      CL**2
00304                  09  FILLER          PICTURE XX.                     CL**2
00305              07  FILLER          PICTURE X(6).                       CL**2
00306              07  FLD4080015-VAL      PICTURE X(8).                   CL**2
00307              07  FILLER          PICTURE X(16).                      CL**2
00308          05  CAT40800-LINE3  REDEFINES CAT40800-LINE2.               CL**2
00309              07  FILLER          PICTURE X(19).                      CL**2
00310              07 FLD4080030-HDG   PICTURE X(6).                       CL**2
00311              07 FLD4080030-VAL   PICTURE ZZ9.                        CL**2
00312              07  FILLER          PICTURE X.                          CL**2
00313              07 FLD4080035-HDG   PICTURE X(4).                       CL**2
00314              07 FLD4080035-VAL   PICTURE ZZ9.                        CL**2
00315              07  FILLER          PICTURE X.                          CL**2
00316              07 FLD4080025-HDG   PICTURE X(8).                       CL**2
00317              07 FLD4080025-VAL   PICTURE X(25).                      CL**2
