*COMDECK  RPTDEF19
00001  01  ENTRYTYPE-19-RPTDATA.                                        08/09/78
00002 ****************************************************************  RPTDEF19
00003 *                                                                    LV002
00004 *    THE DEFINITIONS BELOW DEFINE ALL CATEGORY HDGS,              RPTDEF19
00005 *    FIELD HDGS , CODES AND VALUES AND 70 CHR LINE FORMATS FOR    RPTDEF19
00006 *        DATASET ENTRIES-TYPE 19                                  RPTDEF19
00007 *                                                                 RPTDEF19
00008 ***************************************************************   RPTDEF19
00009 ******************************************************************RPTDEF19
00010 *                                                                 RPTDEF19
00011 *    CATEGORY HEADING CONSTANTS FOR TYPE 19-DATASET               RPTDEF19
00012 *                                                                 RPTDEF19
00013 ******************************************************************RPTDEF19
00014      03  19-CAT-HEADERS.                                          RPTDEF19
00015          05  ENT19-CN            PICTURE X(30)   VALUE            RPTDEF19
00016         "010020030140200210220245300900".                         RPTDEF19
00017          05  ENT19-CN2   REDEFINES ENT19-CN.                      RPTDEF19
00018              07  ENT19-CATNUMS PICTURE XXX OCCURS 10.             RPTDEF19
00019          05  ENT19-CH.                                            RPTDEF19
00020              07  FILLER          PICTURE X(30)   VALUE            RPTDEF19
00021             "    ---CONTROL CATEGORY---    ".                     RPTDEF19
00022              07  FILLER          PICTURE X(30)   VALUE            RPTDEF19
00023             "---CLASSIFICATION CATEGORY--- ".                     RPTDEF19
00024              07  FILLER          PICTURE X(30)   VALUE            RPTDEF19
00025             "  ---DESCRIPTION CATEGORY---  ".                     RPTDEF19
00026              07  FILLER          PICTURE X(30)   VALUE            RPTDEF19
00027             " ---RESPONSIBILITY CATEGORY---".                     RPTDEF19
00028              07  FILLER          PICTURE X(30)   VALUE            RPTDEF19
00029             "     ---NAMES CATEGORY---     ".                     RPTDEF19
00030              07  FILLER          PICTURE X(30)   VALUE            RPTDEF19
00031             "   ---ATTRIBUTE CATEGORY---   ".                     RPTDEF19
00032              07  FILLER          PICTURE X(30)   VALUE            RPTDEF19
00033             "     ---UNIT CATEGORY---      ".                     RPTDEF19
00034              07  FILLER          PICTURE X(30)   VALUE            RPTDEF19
00035             "  ---ENVIRONMENT CATEGORY---  ".                     RPTDEF19
00036              07  FILLER          PICTURE X(30)   VALUE            RPTDEF19
00037             "   ---STRUCTURE CATEGORY---   ".                     RPTDEF19
00038              07  FILLER          PICTURE X(30)   VALUE            RPTDEF19
00039             "     ---OTHER CATEGORY---     ".                     RPTDEF19
00040          05  ENT19-CATH    REDEFINES  ENT19-CH.                   RPTDEF19
00041              07  ENT19-CATHDRS       PICTURE X(30) OCCURS 10.     RPTDEF19
00042 ********************************************************          RPTDEF19
00043 *                                                                 RPTDEF19
00044 *    FIELD HEADING CONSTANTS                                      RPTDEF19
00045 *                                                                 RPTDEF19
00046 ********************************************************          RPTDEF19
00047          05  FLD1914005-HCON     PICTURE X(7)    VALUE            RPTDEF19
00048             "STATUS=".                                            RPTDEF19
00049          05  FLD1914010-HCON     PICTURE X(9)    VALUE            RPTDEF19
00050             "FUNCTION=".                                          RPTDEF19
00051          05  FLD1914025-HCON     PICTURE X(6)    VALUE            RPTDEF19
00052             "PHONE=".                                             RPTDEF19
00053          05  FLD1914035-HCON     PICTURE X(5)    VALUE            RPTDEF19
00054             "MAIL=".                                              RPTDEF19
00055          05  FLD1914020-HCON     PICTURE X(7)    VALUE            RPTDEF19
00056             "PERSON=".                                            RPTDEF19
00057          05  FLD1914030-HCON     PICTURE X(6)    VALUE            RPTDEF19
00058             "TITLE=".                                             RPTDEF19
00059          05  FLD1914015-HCON     PICTURE X(11)   VALUE            RPTDEF19
00060             "DEPARTMENT=".                                        RPTDEF19
00061          05  FLD1914040-HCON     PICTURE X(5)    VALUE            RPTDEF19
00062             "DATE=".                                              RPTDEF19
00063          05  FLD1920005-HCON     PICTURE X(13)    VALUE           RPTDEF19
00064             "TOTAL DSNAME=".                                      RPTDEF19
00065          05  FLD1920010-HCON     PICTURE X(14)   VALUE            RPTDEF19
00066             "DATA SET NAME=".                                     RPTDEF19
00067          05  FLD1920015-HCON     PICTURE X(8)   VALUE             RPTDEF19
00068             "DD NAME=".                                           RPTDEF19
00069          05  FLD1920020-HCON     PICTURE X(6)    VALUE               CL**2
00070             "PRIME=".                                             RPTDEF19
00071          05  FLD1920025-HCON     PICTURE X(7)    VALUE               CL**2
00072             "MEMBER=".                                            RPTDEF19
00073          05  FLD1920030-HCON    PICTURE X(7)  VALUE                  CL**2
00074             "IOAREA=".                                               CL**2
00075          05  FLD1921005-HCON     PICTURE X(8)    VALUE            RPTDEF19
00076             "RECSIZE=".                                           RPTDEF19
00077          05  FLD1921010-HCON     PICTURE X(8)    VALUE            RPTDEF19
00078             "BLKSIZE=".                                           RPTDEF19
00079          05  FLD1921015-HCON     PICTURE X(6)    VALUE            RPTDEF19
00080             "RECFM=".                                             RPTDEF19
00081          05  FLD1921020-HCON     PICTURE X(6)    VALUE            RPTDEF19
00082             "DSORG=".                                             RPTDEF19
00083          05  FLD1921025-HCON     PICTURE X(6)    VALUE            RPTDEF19
00084             "LABEL=".                                             RPTDEF19
00085          05  FLD1921030-HCON     PICTURE X(8)    VALUE            RPTDEF19
00086             "DENSITY=".                                           RPTDEF19
00087          05  FLD1921035-HCON     PICTURE X(7)    VALUE            RPTDEF19
00088             "BUFFER=".                                            RPTDEF19
00089          05  FLD1921040-HCON     PICTURE X(13)   VALUE            RPTDEF19
00090             "ADDRESS MODE=".                                      RPTDEF19
00091          05  FLD1921045-HCON     PICTURE X(10)   VALUE            RPTDEF19
00092             "RMOD NAME=".                                         RPTDEF19
00093          05  FLD1921050-HCON     PICTURE X(7)    VALUE            RPTDEF19
00094             "KEYLEN=".                                            RPTDEF19
00095          05  FLD1921055-HCON     PICTURE X(4)    VALUE            RPTDEF19
00096             "RKP=".                                               RPTDEF19
00097          05  FLD1921060-HCON     PICTURE X(7)    VALUE            RPTDEF19
00098             "CYLOFL=".                                            RPTDEF19
00099          05  FLD1921070-HCON     PICTURE X(6)    VALUE            RPTDEF19
00100             "OPTCD=".                                             RPTDEF19
00101          05  FLD1921075-HCON     PICTURE X(6)    VALUE            RPTDEF19
00102             "LIMCT=".                                             RPTDEF19
00103          05  FLD1922005-HCON     PICTURE X(5)    VALUE            RPTDEF19
00104             "UNIT=".                                              RPTDEF19
00105          05  FLD1922010-HCON     PICTURE X(14)   VALUE            RPTDEF19
00106             "VOLUME SERIAL=".                                     RPTDEF19
00107          05  FLD1922015-HCON     PICTURE X(6)    VALUE            RPTDEF19
00108             "SPACE=".                                             RPTDEF19
00109          05  FLD19220IDX-HCON    PICTURE X(6)    VALUE            RPTDEF19
00110             "INDEX:".                                             RPTDEF19
00111          05  FLD1922025-HCON     PICTURE X(5)    VALUE            RPTDEF19
00112             "UNIT=".                                              RPTDEF19
00113          05  FLD1922030-HCON     PICTURE X(14)   VALUE            RPTDEF19
00114             "VOLUME SERIAL=".                                     RPTDEF19
00115          05  FLD1922035-HCON     PICTURE X(6)    VALUE            RPTDEF19
00116             "SPACE=".                                             RPTDEF19
00117          05  FLD19220OVFL-HCON   PICTURE X(9)    VALUE            RPTDEF19
00118             "OVERFLOW:".                                          RPTDEF19
00119          05  FLD1922045-HCON     PICTURE X(5)    VALUE            RPTDEF19
00120             "UNIT=".                                              RPTDEF19
00121          05  FLD1922050-HCON     PICTURE X(14)   VALUE            RPTDEF19
00122             "VOLUME SERIAL=".                                     RPTDEF19
00123          05  FLD1922055-HCON     PICTURE X(6)    VALUE            RPTDEF19
00124             "SPACE=".                                             RPTDEF19
00125          05  FLD1924505-HCON       PICTURE X(7)   VALUE           RPTDEF19
00126             "DEVICE=".                                            RPTDEF19
00127          05  FLD1924510-HCON       PICTURE X(14)  VALUE           RPTDEF19
00128             "TOTAL RECORDS=".                                     RPTDEF19
00129          05  FLD1924515-HCON       PICTURE X(13)  VALUE           RPTDEF19
00130             "TOTAL TRACKS=".                                      RPTDEF19
00131          05  FLD1924520-HCON       PICTURE X(12)  VALUE           RPTDEF19
00132             "RECD LENGTH=".                                       RPTDEF19
00133          05  FLD1924525-HCON       PICTURE X(13)  VALUE           RPTDEF19
00134             "BLOCKS/TRACK=".                                      RPTDEF19
00135          05  FLD1924530-HCON       PICTURE X(13)  VALUE           RPTDEF19
00136             "# OF EXTENTS=".                                      RPTDEF19
00137          05  FLD1924535-HCON       PICTURE X(13)  VALUE           RPTDEF19
00138             "LOAD % LIMIT=".                                      RPTDEF19
00139          05  FLD1924540-HCON       PICTURE X(9)  VALUE            RPTDEF19
00140             "OLD FILE=".                                          RPTDEF19
00141          05  FLD1924545-HCON        PICTURE X(11)  VALUE             CL**2
00142             "REL. START=".                                        RPTDEF19
00143          05  FLD1924550-HCON       PICTURE X(12)  VALUE           RPTDEF19
00144             "VTOC TRACKS=".                                       RPTDEF19
00145          05  FLD1930005-HCON   PICTURE X(14)   VALUE              RPTDEF19
00146             "CATALOGUE NAME".                                     RPTDEF19
00147          05  FLD1930010-HCON   PICTURE X(4)    VALUE              RPTDEF19
00148             "TYPE".                                               RPTDEF19
00149          05  FLD1930015-HCON   PICTURE X(9)    VALUE              RPTDEF19
00150             "FREQUENCY".                                          RPTDEF19
00151          05 FLD1930020-HCON      PICTURE X(7)        VALUE        RPTDEF19
00152             "SEG NO.".                                            RPTDEF19
00153          05 FLD1930025-HCON      PICTURE X(9)        VALUE        RPTDEF19
00154             "LEVEL NO.".                                          RPTDEF19
00155 ********************************************************          RPTDEF19
00156 *                                                                 RPTDEF19
00157 *    FIELD CODES AND THIER MEANINGS                               RPTDEF19
00158 *                                                                 RPTDEF19
00159 ********************************************************          RPTDEF19
00160 *                                                                 RPTDEF19
00161 *    RESP-STATUS                                                  RPTDEF19
00162 *                                                                 RPTDEF19
00163          05  FLD1914005-CV        PICTURE X(3)     VALUE             CL**2
00164         "CP9".                                                    RPTDEF19
00165          05  FLD1914005-CD  REDEFINES  FLD1914005-CV.                CL**2
00166              07  FLD1914005-CODES PICTURE X OCCURS 3.                CL**2
00167          05  FLD1914005-MV        PICTURE X(21)      VALUE           CL**2
00168         "CURRENTPAST   XXXXXXX".                                  RPTDEF19
00169          05  FLD1914005-MD  REDEFINES  FLD1914005-MV.                CL**2
00170              07  FLD1914005-MNG  PICTURE X(7)  OCCURS 3.             CL**2
00171 *                                                                 RPTDEF19
00172 *    RESP-FUNCTION                                                RPTDEF19
00173 *                                                                 RPTDEF19
00174          05  FLD1914010-CV       PICTURE X(4)     VALUE              CL**2
00175         "DCT9".                                                   RPTDEF19
00176          05  FLD1914010-CD  REDEFINES  FLD1914010-CV.                CL**2
00177              07  FLD1914010-CODES  PICTURE X  OCCURS 4.              CL**2
00178          05  FLD1914010-MV        PICTURE X(36)     VALUE            CL**2
00179         "DEVELOPEDCHANGED  TESTED   XXXXXXXXX".                   RPTDEF19
00180          05  FLD1914010-MD  REDEFINES  FLD1914010-MV.                CL**2
00181              07  FLD1914010-MNG  PICTURE X(9)  OCCURS 4.             CL**2
00182 *                                                                 RPTDEF19
00183 *    ATTR-FILE-DEN                                                RPTDEF19
00184 *                                                                 RPTDEF19
00185          05  FLD1921030-CV       PICTURE X(6)   VALUE             RPTDEF19
00186         "012349".                                                 RPTDEF19
00187          05  FLD1921030-CD  REDEFINES FLD1921030-CV.              RPTDEF19
00188              07  FLD1921030-CODES PICTURE X OCCURS 6.             RPTDEF19
00189          05  FLD1921030-MV       PICTURE X(120)      VALUE        RPTDEF19
00190         "200 BPI, 7 TRACK    556 BPI, 7 TRACK    800 BPI 7 & 9  TRRPTDEF19
00191 -       "ACK1600 BPI, 9 TRACK   6250 BPI, 9 TRACK   XXXXXXXXXXXXXXRPTDEF19
00192 -       "XXXXXX".                                                 RPTDEF19
00193          05  FLD1921030-MD REDEFINES FLD1921030-MV.               RPTDEF19
00194              07  FLD1921030-MNG PICTURE X(20) OCCURS 6.           RPTDEF19
00195 *                                                                 RPTDEF19
00196 *    ATTR-FILE-ADDR                                               RPTDEF19
00197 *                                                                 RPTDEF19
00198          05  FLD1921040-CV       PICTURE X(3)   VALUE             RPTDEF19
00199         "ID9".                                                    RPTDEF19
00200          05  FLD1921040-CD   REDEFINES FLD1921040-CV.             RPTDEF19
00201              07  FLD1921040-CODES PICTURE X OCCURS 3.             RPTDEF19
00202          05  FLD1921040-MV       PICTURE X(24)  VALUE             RPTDEF19
00203         "INDIRECTDIRECT  XXXXXXXX".                               RPTDEF19
00204          05  FLD1921040-MD   REDEFINES FLD1921040-MV.             RPTDEF19
00205              07  FLD1921040-MNG  PICTURE X(8)  OCCURS 3.          RPTDEF19
00206 *                                                                 RPTDEF19
00207 *    UNIT INDEX TYPE                                              RPTDEF19
00208 *                                                                 RPTDEF19
00209         05  FLD1922040-CV       PICTURE X(6)    VALUE             RPTDEF19
00210        "BCDRT9".                                                  RPTDEF19
00211         05  FLD1922040-CD  REDEFINES  FLD1922040-CV.              RPTDEF19
00212             07  FLD1922040-CODES PICTURE X OCCURS 6.              RPTDEF19
00213         05  FLD1922040-MV       PICTURE X(96)   VALUE             RPTDEF19
00214         "BLOCKS          CYLINDERS       DIRECTORY BLOCKSRECORDS  RPTDEF19
00215 -      "       TRACKS          XXXXXXXXXXXXXXXX".                 RPTDEF19
00216         05  FLD1922040-MD  REDEFINES FLD1922040-MV.               RPTDEF19
00217             07  FLD1922040-MNG  PICTURE X(16) OCCURS 6.           RPTDEF19
00218 *                                                                 RPTDEF19
00219 *    UNIT OVERFLOW TYPE                                           RPTDEF19
00220 *                                                                 RPTDEF19
00221         05  FLD1922060-CV       PICTURE X(6)     VALUE            RPTDEF19
00222        "BCDRT9".                                                  RPTDEF19
00223         05  FLD1922060-CD  REDEFINES  FLD1922060-CV.              RPTDEF19
00224             07  FLD1922060-CODES PICTURE X OCCURS 6.              RPTDEF19
00225         05  FLD1922060-MV       PICTURE X(96)    VALUE            RPTDEF19
00226         "BLOCKS          CYLINDERS       DIRECTORY BLOCKSRECORDS  RPTDEF19
00227 -      "       TRACKS          XXXXXXXXXXXXXXXX".                 RPTDEF19
00228         05  FLD1922060-MD  REDEFINES  FLD1922060-MV.              RPTDEF19
00229             07  FLD1922060-MNG  PICTURE X(16) OCCURS 6.           RPTDEF19
00230 *                                                                 RPTDEF19
00231 *    UNIT-TYPE                                                    RPTDEF19
00232 *                                                                 RPTDEF19
00233          05  FLD1922020-CV       PICTURE X(6)   VALUE             RPTDEF19
00234         "BCDRT9".                                                 RPTDEF19
00235          05  FLD1922020-CD   REDEFINES FLD1922020-CV.             RPTDEF19
00236             07  FLD1922020-CODES PICTURE X OCCURS 6.              RPTDEF19
00237          05  FLD1922020-MV       PICTURE X(96)  VALUE             RPTDEF19
00238         "BLOCKS          CYLINDERS       DIRECTORY BLOCKSRECORDS  RPTDEF19
00239 -       "       TRACKS          XXXXXXXXXXXXXXXX".                RPTDEF19
00240          05  FLD1922020-MD   REDEFINES FLD1922020-MV.             RPTDEF19
00241              07  FLD1922020-MNG  PICTURE X(16) OCCURS 6.          RPTDEF19
00242 *                                                                    CL**2
00243 *    ENV OLD FILE                                                    CL**2
00244 *                                                                    CL**2
00245         05  FLD1924540-CV       PICTURE X(3)    VALUE             RPTDEF19
00246        "YN9".                                                     RPTDEF19
00247         05  FLD1924540-CD  REDEFINES  FLD1924540-CV.              RPTDEF19
00248             07  FLD1924540-CODES PICTURE X OCCURS 3.              RPTDEF19
00249         05  FLD1924540-MV       PICTURE X(9)   VALUE              RPTDEF19
00250              "YESNO XXX".                                         RPTDEF19
00251         05  FLD1924540-MD  REDEFINES FLD1924540-MV.               RPTDEF19
00252             07  FLD1924540-MNG  PICTURE X(3) OCCURS 3.            RPTDEF19
00253 *    STANDARD CATEGORY RPT DETAIL LINES FOR ENTRY TYPE 20 (FILE)  RPTDEF19
00254      03  20-CAT-DETAIL-LINES.                                     RPTDEF19
00255 *                                                                 RPTDEF19
00256 *    RESPONSIBILITY LINES                                         RPTDEF19
00257 *                                                                 RPTDEF19
00258          05  CAT19140-LINE1.                                         CL**2
00259              07  FLD1914005-HDG        PICTURE X(7).                 CL**2
00260              07  FLD1914005-VAL.                                     CL**2
00261                  09  FLD1914005-POS1 PICTURE X.                      CL**2
00262                  09  FILLER          PICTURE X(6).                RPTDEF19
00263              07  FILLER              PICTURE XX.                  RPTDEF19
00264              07  FLD1914010-HDG        PICTURE X(9).                 CL**2
00265              07  FLD1914010-VAL.                                     CL**2
00266                  09  FLD1914010-POS1 PICTURE X.                      CL**2
00267                  09  FILLER          PICTURE X(8).                RPTDEF19
00268              07  FILLER              PICTURE XX.                  RPTDEF19
00269              07  FLD1914025-HDG        PICTURE X(6).                 CL**2
00270              07  FLD1914025-VAL        PICTURE X(10).                CL**2
00271              07  FILLER              PICTURE XX.                  RPTDEF19
00272              07  FLD1914035-HDG        PICTURE X(5).                 CL**2
00273              07  FLD1914035-VAL        PICTURE X(5).                 CL**2
00274              07  FILLER              PICTURE X(6).                RPTDEF19
00275          05  CAT19140-LINE2  REDEFINES  CAT19140-LINE1.              CL**2
00276              07  FLD1914015-HDG        PICTURE X(11).                CL**2
00277              07  FLD1914015-VAL        PICTURE X(32).                CL**2
00278              07  FILLER              PICTURE XX.                  RPTDEF19
00279              07  FLD1914040-HDG        PICTURE X(5).                 CL**2
00280              07  FLD1914040-VAL        PICTURE X(8).                 CL**2
00281              07  FILLER              PICTURE X(12).               RPTDEF19
00282          05  CAT19140-LINE3  REDEFINES  CAT19140-LINE2.              CL**2
00283              07  FLD1914020-HDG        PICTURE X(7).                 CL**2
00284              07  FLD1914020-VAL        PICTURE X(32).                CL**2
00285              07  FILLER              PICTURE XX.                  RPTDEF19
00286              07  FLD1914030-HDG        PICTURE X(6).                 CL**2
00287              07  FLD1914030-VAL        PICTURE X(15).                CL**2
00288              07  FILLER              PICTURE X(8).                RPTDEF19
00289 *    NAME LINES                                                   RPTDEF19
00290          05  CAT19200-LINE1  REDEFINES  CAT19140-LINE3.              CL**2
00291              07  FLD1920005-HDG  PICTURE X(13).                   RPTDEF19
00292              07  FLD1920005-VAL  PICTURE X(4).                    RPTDEF19
00293              07  FILLER          PICTURE X(2).                    RPTDEF19
00294              07  FLD1920015-HDG  PICTURE X(8).                    RPTDEF19
00295              07  FLD1920015-VAL  PICTURE X(8).                    RPTDEF19
00296              07  FILLER          PICTURE X(2).                    RPTDEF19
00297              07  FLD1920020-HDG  PICTURE X(6).                       CL**2
00298              07  FLD1920020-VAL  PICTURE X(8).                    RPTDEF19
00299              07  FILLER          PICTURE XX.                         CL**2
00300              07  FLD1920025-HDG        PICTURE X(9).                 CL**2
00301              07  FLD1920025-VAL        PICTURE X(8).                 CL**2
00302          05  CAT19200-LINE2  REDEFINES CAT19200-LINE1.            RPTDEF19
00303              07  FLD1920010-HDG  PICTURE X(14).                   RPTDEF19
00304              07  FLD1920010-VAL  PICTURE X(44).                   RPTDEF19
00305              07  FILLER           PICTURE X.                         CL**2
00306              07  FLD1920030-HDG   PICTURE X(7).                      CL**2
00307              07  FLD1920030-VAL   PICTURE X(4).                      CL**2
00308 *  ATTRIBUTE LINES                                                RPTDEF19
00309          05  CAT19210-LINE1  REDEFINES  CAT19200-LINE2.              CL**2
00310              07  FLD1921005-HDG  PICTURE X(8).                    RPTDEF19
00311              07  FLD1921005-VAL  PICTURE ZZZZ9.                   RPTDEF19
00312              07  FILLER          PICTURE XX.                      RPTDEF19
00313              07  FLD1921010-HDG  PICTURE X(8).                    RPTDEF19
00314              07  FLD1921010-VAL  PICTURE ZZZZ9.                   RPTDEF19
00315              07  FILLER          PICTURE XX.                      RPTDEF19
00316              07  FLD1921015-HDG  PICTURE X(6).                    RPTDEF19
00317              07  FLD1921015-VAL  PICTURE X(6).                    RPTDEF19
00318              07  FILLER          PICTURE XX.                      RPTDEF19
00319              07  FLD1921020-HDG  PICTURE X(6).                    RPTDEF19
00320              07  FLD1921020-VAL  PICTURE XXX.                     RPTDEF19
00321              07  FILLER          PICTURE XX.                      RPTDEF19
00322              07  FLD1921025-HDG  PICTURE X(6).                    RPTDEF19
00323              07  FLD1921025-VAL  PICTURE X(3).                    RPTDEF19
00324              07  FILLER          PICTURE X(6).                    RPTDEF19
00325          05  CAT19210-LINE2 REDEFINES CAT19210-LINE1.             RPTDEF19
00326              07  FLD1921040-HDG  PICTURE X(13).                   RPTDEF19
00327              07  FLD1921040-VAL.                                  RPTDEF19
00328                  09  FLD1921040-POS1 PICTURE X.                   RPTDEF19
00329                  09  FILLER      PICTURE X(7).                    RPTDEF19
00330              07  FILLER          PICTURE XX.                      RPTDEF19
00331              07  FLD1921045-HDG  PICTURE X(10).                   RPTDEF19
00332              07  FLD1921045-VAL  PICTURE X(32).                   RPTDEF19
00333              07  FILLER          PICTURE X(5).                    RPTDEF19
00334          05  CAT19210-LINE3 REDEFINES CAT19210-LINE2.             RPTDEF19
00335              07  FLD1921050-HDG  PICTURE X(7).                    RPTDEF19
00336              07  FLD1921050-VAL  PICTURE ZZ9.                     RPTDEF19
00337              07  FILLER              PICTURE X.                   RPTDEF19
00338              07  FLD1921055-HDG  PICTURE X(4).                    RPTDEF19
00339              07  FLD1921055-VAL  PICTURE ZZ9.                     RPTDEF19
00340              07  FILLER              PICTURE X.                   RPTDEF19
00341              07  FLD1921060-HDG  PICTURE X(7).                    RPTDEF19
00342              07  FLD1921060-VAL  PICTURE Z9.                      RPTDEF19
00343              07  FILLER              PICTURE X.                   RPTDEF19
00344              07  FLD1921030-HDG  PICTURE X(8).                    RPTDEF19
00345              07  FLD1921030-VAL.                                  RPTDEF19
00346                  09  FLD1921030-POS1 PICTURE X.                   RPTDEF19
00347                  09  FILLER          PICTURE X(19).               RPTDEF19
00348              07  FILLER              PICTURE X.                   RPTDEF19
00349              07  FLD1921035-HDG  PICTURE X(7).                    RPTDEF19
00350              07  FLD1921035-VAL  PICTURE ZZZZ9.                   RPTDEF19
00351          05  CAT19210-LINE4  REDEFINES  CAT19210-LINE3.           RPTDEF19
00352              07  FLD1921070-HDG  PICTURE X(6).                    RPTDEF19
00353              07  FLD1921070-VAL  PICTURE XXX.                     RPTDEF19
00354              07  FILLER          PICTURE XX.                      RPTDEF19
00355              07  FLD1921075-HDG  PICTURE X(6).                    RPTDEF19
00356              07  FLD1921075-VAL  PICTURE Z9.                      RPTDEF19
00357              07  FILLER          PICTURE X(51).                   RPTDEF19
00358 *    UNIT LINES                                                   RPTDEF19
00359          05  CAT19220-LINE1  REDEFINES  CAT19210-LINE4.           RPTDEF19
00360              07  FLD1922005-HDG  PICTURE X(5).                    RPTDEF19
00361              07  FLD1922005-VAL  PICTURE X(7).                    RPTDEF19
00362              07  FILLER          PICTURE XXX.                     RPTDEF19
00363              07  FLD1922010-HDG  PICTURE X(14).                   RPTDEF19
00364              07  FLD1922010-VAL  PICTURE X(6).                    RPTDEF19
00365              07  FILLER          PICTURE XXX.                     RPTDEF19
00366              07  FLD1922015-HDG  PICTURE X(6).                    RPTDEF19
00367              07  FLD1922015-VAL  PICTURE ZZ9.                     RPTDEF19
00368              07  FILLER                 PICTURE X.                   CL**2
00369              07  FLD1922020-VAL.                                  RPTDEF19
00370                  09  FLD1922020-POS1 PICTURE X.                   RPTDEF19
00371                  09  FILLER          PICTURE X(15).               RPTDEF19
00372              07  FILLER                 PICTURE X(6).                CL**2
00373          05  CAT19220-LINE2 REDEFINES CAT19220-LINE1.             RPTDEF19
00374              07  FLD19220IDX-HDG     PICTURE X(9).                   CL**2
00375              07  FILLER              PICTURE X.                   RPTDEF19
00376              07  FLD1922025-HDG  PICTURE X(5).                    RPTDEF19
00377              07  FLD1922025-VAL  PICTURE X(7).                    RPTDEF19
00378              07  FILLER              PICTURE X.                      CL**2
00379              07  FLD1922030-HDG  PICTURE X(14).                   RPTDEF19
00380              07  FLD1922030-VAL  PICTURE X(6).                    RPTDEF19
00381              07  FILLER              PICTURE X.                      CL**2
00382              07  FLD1922035-HDG  PICTURE X(6).                    RPTDEF19
00383              07  FLD1922035-VAL  PICTURE ZZ9.                     RPTDEF19
00384              07  FILLER          PICTURE X.                       RPTDEF19
00385              07  FLD1922040-VAL.                                  RPTDEF19
00386                  09  FLD1922040-POS1 PICTURE X.                   RPTDEF19
00387                  09  FILLER          PICTURE X(15).               RPTDEF19
00388          05  CAT19220-LINE3 REDEFINES CAT19220-LINE2.             RPTDEF19
00389              07  FLD19220OVFL-HDG    PICTURE X(9).                RPTDEF19
00390              07  FILLER              PICTURE  X.                  RPTDEF19
00391              07  FLD1922045-HDG      PICTURE  X(5).               RPTDEF19
00392              07  FLD1922045-VAL  PICTURE X(7).                    RPTDEF19
00393              07  FILLER          PICTURE X.                       RPTDEF19
00394              07  FLD1922050-HDG  PICTURE X(14).                   RPTDEF19
00395              07  FLD1922050-VAL  PICTURE X(6).                    RPTDEF19
00396              07  FILLER          PICTURE X.                       RPTDEF19
00397              07  FLD1922055-HDG  PICTURE X(6).                    RPTDEF19
00398              07  FLD1922055-VAL  PICTURE ZZ9.                     RPTDEF19
00399              07  FILLER          PICTURE X.                       RPTDEF19
00400              07  FLD1922060-VAL.                                  RPTDEF19
00401                  09  FLD1922060-POS1 PICTURE X.                   RPTDEF19
00402                  09  FILLER          PICTURE X(15).               RPTDEF19
00403 *     ENVIRONMENT LINES                                           RPTDEF19
00404          05  CAT19245-LINE1  REDEFINES CAT19220-LINE3.            RPTDEF19
00405              07  FLD1924505-HDG  PICTURE X(7).                    RPTDEF19
00406              07  FLD1924505-VAL   PICTURE X(7).                   RPTDEF19
00407              07  FILLER           PICTURE XX.                     RPTDEF19
00408              07  FLD1924510-HDG   PICTURE X(14).                  RPTDEF19
00409              07  FLD1924510-VAL   PICTURE X(7).                   RPTDEF19
00410              07  FILLER           PICTURE XX.                     RPTDEF19
00411              07  FLD1924515-HDG   PICTURE X(13).                  RPTDEF19
00412              07  FLD1924515-VAL   PICTURE X(5).                   RPTDEF19
00413              07  FILLER           PICTURE X(13).                  RPTDEF19
00414          05  CAT19245-LINE2  REDEFINES  CAT19245-LINE1.           RPTDEF19
00415              07  FLD1924520-HDG   PICTURE X(12).                  RPTDEF19
00416              07  FLD1924520-VAL   PICTURE X(5).                   RPTDEF19
00417              07  FILLER           PICTURE XX.                     RPTDEF19
00418              07  FLD1924525-HDG   PICTURE X(13).                  RPTDEF19
00419              07  FLD1924525-VAL   PICTURE X(5).                   RPTDEF19
00420              07  FILLER           PICTURE XX.                     RPTDEF19
00421              07  FLD1924530-HDG   PICTURE X(13).                  RPTDEF19
00422              07  FLD1924530-VAL   PICTURE XX.                     RPTDEF19
00423              07  FILLER           PICTURE X(16).                  RPTDEF19
00424          05  CAT19245-LINE3  REDEFINES  CAT19245-LINE2.           RPTDEF19
00425              07  FLD1924535-HDG   PICTURE X(13).                  RPTDEF19
00426              07  FLD1924535-VAL   PICTURE XX.                     RPTDEF19
00427              07  FILLER           PICTURE XX.                     RPTDEF19
00428              07  FLD1924540-HDG   PICTURE X(9).                   RPTDEF19
00429              07  FLD1924540-VAL.                                  RPTDEF19
00430                  09  FLD1924540-POS1  PICTURE X.                  RPTDEF19
00431                  09  FILLER           PICTURE XX.                 RPTDEF19
00432              07  FILLER           PICTURE XX.                     RPTDEF19
00433              07  FLD1924545-HDG   PICTURE X(11).                  RPTDEF19
00434              07  FLD1924545-VAL   PICTURE X(5).                   RPTDEF19
00435              07  FILLER           PICTURE XX.                     RPTDEF19
00436              07  FLD1924550-HDG   PICTURE X(12).                  RPTDEF19
00437              07  FLD1924550-VAL   PICTURE X(5).                   RPTDEF19
00438              07  FILLER           PICTURE X(4).                   RPTDEF19
00439 *    STRUCTURE LINE- 1ST LINE IS HDG                              RPTDEF19
00440          05  CAT19300-LINE1  REDEFINES CAT19245-LINE3.            RPTDEF19
00441              07  FLD1930005-HDG  PICTURE X(14).                   RPTDEF19
00442              07  FILLER          PICTURE X(21).                   RPTDEF19
00443              07 FLD1930010-HDG   PICTURE X(4).                    RPTDEF19
00444              07 FILLER           PICTURE X(3).                    RPTDEF19
00445              07 FLD1930015-HDG   PICTURE X(9).                    RPTDEF19
00446              07 FILLER           PICTURE X.                       RPTDEF19
00447              07 FLD1930020-HDG   PICTURE X(7).                    RPTDEF19
00448              07 FILLER           PICTURE X.                       RPTDEF19
00449              07  FLD1930025-HDG  PICTURE X(9).                    RPTDEF19
00450              07 FILLER           PICTURE X.                       RPTDEF19
00451          05  CAT19300-LINE2  REDEFINES CAT19300-LINE1.            RPTDEF19
00452              07  FLD1930005-VAL  PICTURE X(32).                   RPTDEF19
00453              07 FILLER           PICTURE X.                       RPTDEF19
00454              07  FLD1930010-VAL  PICTURE X(8).                    RPTDEF19
00455              07  FILLER          PICTURE XX.                      RPTDEF19
00456              07  FLD1930015-VAL  PICTURE ZZZZZZ9.                 RPTDEF19
00457              07  FILLER          PICTURE XXXX.                    RPTDEF19
00458              07  FLD1930020-VAL  PICTURE Z9.                      RPTDEF19
00459              07  FILLER          PICTURE X(7).                    RPTDEF19
00460              07  FLD1930025-VAL  PICTURE Z9.                      RPTDEF19
00461              07  FILLER          PICTURE X(5).                    RPTDEF19
