*COMDECK  RPTDEF50
00001  01  ENTRYTYPE-50-RPTDATA.                                        08/02/78
00002 ****************************************************************  RPTDEF50
00003 *                                                                    LV001
00004 *    THE DEFINITIONS BELOW DEFINE ALL CATEGORY HDGS,              RPTDEF50
00005 *    FIELD HDGS , CODES AND VALUES AND 70 CHR LINE FORMATS FOR    RPTDEF50
00006 *        MODULE ENTRIES                                           RPTDEF50
00007 *                                                                 RPTDEF50
00008 ***************************************************************   RPTDEF50
00009      03  ENTRY-TYPE-CONSTANT        PICTURE XX  VALUE "50".          CL**2
00010 ******************************************************************   CL**2
00011 *                                                                    CL**2
00012 *    CATEGORY HEADING CONSTANTS FOR TYPE 50- PROGRAM                 CL**2
00013 *                                                                    CL**2
00014 ******************************************************************   CL**2
00015      03  50-CAT-HEADERS.                                             CL**2
00016          05  ENT50-CN            PICTURE X(36)   VALUE               CL**2
00017         "010020030140200210260270280290800900".                      CL**2
00018          05  ENT50-CN2   REDEFINES   ENT50-CN.                       CL**2
00019              07  ENT50-CATNUMS   PICTURE XXX OCCURS 12.              CL**2
00020          05  ENT50-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             "   ---ATTRIBUTE CATEGORY---   ".                        CL**2
00033              07  FILLER          PICTURE X(30)   VALUE               CL**2
00034             "    ---STORAGE CATEGORY---    ".                        CL**2
00035              07  FILLER          PICTURE X(30)   VALUE               CL**2
00036             "   ---OPERATING CATEGORY---   ".                        CL**2
00037              07  FILLER          PICTURE X(30)   VALUE               CL**2
00038             "  ---SCHEDULING CATEGORY---   ".                        CL**2
00039              07  FILLER          PICTURE X(30)   VALUE               CL**2
00040             "     ---PASSING CATEGORY---   ".                        CL**2
00041              07  FILLER          PICTURE X(30)   VALUE               CL**2
00042             "   ---RELATIONAL CATEGORY---  ".                        CL**2
00043              07  FILLER          PICTURE X(30)   VALUE               CL**2
00044             "     ---OTHER CATEGORY---     ".                        CL**2
00045          05  ENT50-CATH  REDEFINES ENT50-CH.                         CL**2
00046              07  ENT50-CATHDRS       PICTURE X(30) OCCURS 12.        CL**2
00047 ********************************************************             CL**2
00048 *                                                                    CL**2
00049 *    FIELD HEADING CONSTANTS                                         CL**2
00050 *                                                                    CL**2
00051 ********************************************************             CL**2
00052          05  FLD5014005-HCON     PICTURE X(7)    VALUE               CL**2
00053             "STATUS=".                                               CL**2
00054          05  FLD5014010-HCON     PICTURE X(9)    VALUE               CL**2
00055             "FUNCTION=".                                             CL**2
00056          05  FLD5014025-HCON     PICTURE X(6)    VALUE               CL**2
00057             "PHONE=".                                                CL**2
00058          05  FLD5014035-HCON     PICTURE X(5)    VALUE               CL**2
00059             "MAIL=".                                                 CL**2
00060          05  FLD5014020-HCON     PICTURE X(7)    VALUE               CL**2
00061             "PERSON=".                                               CL**2
00062          05  FLD5014030-HCON     PICTURE X(6)    VALUE               CL**2
00063             "TITLE=".                                                CL**2
00064          05  FLD5014015-HCON     PICTURE X(11)   VALUE               CL**2
00065             "DEPARTMENT=".                                           CL**2
00066          05  FLD5014040-HCON     PICTURE X(5)    VALUE               CL**2
00067             "DATE=".                                                 CL**2
00068          05  FLD5020005-HCON     PICTURE X(12)   VALUE            RPTDEF50
00069             "MODULE NAME=".                                          CL**2
00070          05  FLD5020010-HCON     PICTURE X(10)   VALUE            RPTDEF50
00071             "MODULE ID=".                                         RPTDEF50
00072          05  FLD5021005-HCON     PICTURE X(9)    VALUE            RPTDEF50
00073             "LANGUAGE=".                                          RPTDEF50
00074          05  FLD5021010-HCON     PICTURE X(5)    VALUE            RPTDEF50
00075             "TYPE=".                                              RPTDEF50
00076          05  FLD5021015-HCON     PICTURE X(9)    VALUE            RPTDEF50
00077             "OVERLAID=".                                          RPTDEF50
00078          05  FLD5021020-HCON     PICTURE X(10)   VALUE            RPTDEF50
00079             "SEGMENTED=".                                         RPTDEF50
00080          05  FLD5021025-HCON     PICTURE X(10)   VALUE            RPTDEF50
00081             "CALL TYPE=".                                         RPTDEF50
00082          05  FLD5026005-HCON     PICTURE X(5)    VALUE            RPTDEF50
00083             "TYPE=".                                              RPTDEF50
00084          05  FLD5026010-HCON     PICTURE X(6)    VALUE            RPTDEF50
00085             "PLACE=".                                             RPTDEF50
00086          05  FLD5026015-HCON     PICTURE X(7)    VALUE               CL**2
00087             "MEDIUM=".                                               CL**2
00088          05  FLD5026020-HCON     PICTURE X(12)   VALUE            RPTDEF50
00089             "STORED SIZE=".                                       RPTDEF50
00090          05  FLD5027005-HCON     PICTURE X(10)   VALUE            RPTDEF50
00091             "STEP NAME=".                                         RPTDEF50
00092          05  FLD5027010-HCON     PICTURE X(7)    VALUE            RPTDEF50
00093             "REGION=".                                            RPTDEF50
00094          05  FLD5027015-HCON     PICTURE X(13)   VALUE            RPTDEF50
00095             "ELAPSED TIME=".                                      RPTDEF50
00096          05  FLD5027025-HCON     PICTURE X(9)    VALUE            RPTDEF50
00097             "CPU TIME=".                                          RPTDEF50
00098          05  FLD5027035-HCON     PICTURE X(10)   VALUE            RPTDEF50
00099             "PROC NAME=".                                         RPTDEF50
00100          05  FLD5027040-HCON     PICTURE X(14)   VALUE            RPTDEF50
00101             "PROC SEQUENCE=".                                     RPTDEF50
00102          05  FLD5027045-HCON     PICTURE X(14)   VALUE            RPTDEF50
00103             "LINES PRINTED=".                                     RPTDEF50
00104          05  FLD5027050-HCON     PICTURE X(14)   VALUE               CL**2
00105             "CARDS PUNCHED=".                                        CL**2
00106          05  FLD5028005-HCON     PICTURE X(13)   VALUE            RPTDEF50
00107             "NORMAL START=".                                      RPTDEF50
00108          05  FLD5028010-HCON     PICTURE X(12)   VALUE            RPTDEF50
00109             "NORMAL STOP=".                                       RPTDEF50
00110          05  FLD5028015-HCON     PICTURE X(11)   VALUE            RPTDEF50
00111             "NORMAL DAY=".                                        RPTDEF50
00112          05  FLD5028020-HCON     PICTURE X(15)   VALUE            RPTDEF50
00113             "DEADLINE START=".                                    RPTDEF50
00114          05  FLD5028025-HCON     PICTURE X(14)   VALUE            RPTDEF50
00115             "DEADLINE STOP=".                                     RPTDEF50
00116          05  FLD5028030-HCON     PICTURE X(13)   VALUE               CL**2
00117             "DEADLINE DAY=".                                      RPTDEF50
00118          05  FLD5028035-HCON     PICTURE X(6)    VALUE            RPTDEF50
00119             "CYCLE=".                                             RPTDEF50
00120          05  FLD5028040-HCON     PICTURE X(18)   VALUE            RPTDEF50
00121             "PRECEDING PROGRAM=".                                 RPTDEF50
00122          05  FLD5080005-HCON     PICTURE X(14)   VALUE               CL**2
00123             "CATALOGUE NAME".                                        CL**2
00124          05  FLD50800DISP-HCON   PICTURE X(5)    VALUE               CL**2
00125             "DISP=".                                                 CL**2
00126          05  FLD5080020-HCON     PICTURE X(5)    VALUE               CL**2
00127             "TYPE=".                                                 CL**2
00128          05  FLD50800US-HCON     PICTURE X(7)    VALUE               CL**2
00129             "PARTIAL".                                               CL**2
00130          05  FLD5080015-HCON     PICTURE X(3)    VALUE               CL**2
00131             "I/O".                                                   CL**2
00132          05  FLD50800ACC-HCON    PICTURE X(7)    VALUE               CL**2
00133             "ACCESS:".                                               CL**2
00134          05  FLD5080030-HCON     PICTURE X(5)    VALUE            RPTDEF50
00135             "FREQ=".                                              RPTDEF50
00136          05  FLD5080025-HCON     PICTURE X(6)    VALUE            RPTDEF50
00137             "CYCLE=".                                             RPTDEF50
00138 ********************************************************             CL**2
00139 *                                                                    CL**2
00140 *    FIELD CODES AND THEIR MEANINGS                                  CL**2
00141 *                                                                    CL**2
00142 **********************************************************           CL**2
00143 *                                                                 RPTDEF50
00144 *                                                                    CL**2
00145 *    RESP-STATUS                                                     CL**2
00146 *                                                                    CL**2
00147          05  FLD5014005-CV       PICTURE X(3)    VALUE               CL**2
00148         "CP9".                                                       CL**2
00149          05  FLD5014005-CD  REDEFINES FLD5014005-CV.                 CL**2
00150              07  FLD5014005-CODES PICTURE X OCCURS 3.                CL**2
00151          05  FLD5014005-MV       PICTURE X(21)   VALUE               CL**2
00152         "CURRENTPAST   XXXXXXX".                                     CL**2
00153          05  FLD5014005-MD  REDEFINES FLD5014005-MV.                 CL**2
00154              07  FLD5014005-MNG  PICTURE X(7) OCCURS 3.              CL**2
00155 *                                                                    CL**2
00156 *    RESP-FUNCTION                                                   CL**2
00157 *                                                                    CL**2
00158          05  FLD5014010-CV       PICTURE X(4)    VALUE               CL**2
00159         "DCT9".                                                      CL**2
00160          05  FLD5014010-CD  REDEFINES FLD5014010-CV.                 CL**2
00161              07  FLD5014010-CODES PICTURE X OCCURS 4.                CL**2
00162          05  FLD5014010-MV       PICTURE X(36)   VALUE               CL**2
00163         "DEVELOPEDCHANGED  TESTED   XXXXXXXXX".                      CL**2
00164          05  FLD5014010-MD   REDEFINES FLD5014010-MV.                CL**2
00165              07  FLD5014010-MNG  PICTURE X(9) OCCURS 4.              CL**2
00166 *    ATTR-PRG-LANG                                                RPTDEF50
00167 *                                                                 RPTDEF50
00168          05  FLD5021005-CV  PICTURE X(7)        VALUE             RPTDEF50
00169         "ACFMPR9".                                                   CL**2
00170          05  FLD5021005-CD   REDEFINES FLD5021005-CV.             RPTDEF50
00171              07  FLD5021005-CODES PICTURE X OCCURS 7.                CL**2
00172          05  FLD5021005-MV       PICTURE X(63)  VALUE             RPTDEF50
00173          "ASSEMBLERCOBOL    FORTRAN  MARK 1V  PL/1     RPG      XX   CL**2
00174 -       "XXXXXXX".                                                   CL**2
00175          05  FLD5021005-MD   REDEFINES FLD5021005-MV.             RPTDEF50
00176              07  FLD5021005-MNG  PICTURE X(9)  OCCURS 7.          RPTDEF50
00177 *                                                                 RPTDEF50
00178 *    ATTR-PRG-TYPE                                                RPTDEF50
00179 *                                                                 RPTDEF50
00180          05  FLD5021010-CV  PICTURE X(3)        VALUE             RPTDEF50
00181         "BT9".                                                       CL**2
00182          05  FLD5021010-CD   REDEFINES FLD5021010-CV.             RPTDEF50
00183              07  FLD5021010-CODES PICTURE X OCCURS 3.             RPTDEF50
00184          05  FLD5021010-MV       PICTURE X(45)  VALUE             RPTDEF50
00185         "BATCH PROCESSEDTELE PROCESSED XXXXXXXXXXXXXXX".             CL**2
00186          05  FLD5021010-MD   REDEFINES FLD5021010-MV.             RPTDEF50
00187              07  FLD5021010-MNG  PICTURE X(15) OCCURS 3.             CL**2
00188 *                                                                 RPTDEF50
00189 *    ATTR-PRG-ONLY                                                RPTDEF50
00190 *                                                                 RPTDEF50
00191          05  FLD5021015-CV  PICTURE X(3)        VALUE             RPTDEF50
00192         "NY9".                                                       CL**2
00193          05  FLD5021015-CD   REDEFINES FLD5021015-CV.             RPTDEF50
00194              07  FLD5021015-CODES PICTURE X OCCURS 3.             RPTDEF50
00195          05  FLD5021015-MV       PICTURE X(9)   VALUE             RPTDEF50
00196         "NO YESXXX".                                              RPTDEF50
00197          05  FLD5021015-MD   REDEFINES FLD5021015-MV.             RPTDEF50
00198              07  FLD5021015-MNG  PICTURE X(3)  OCCURS 3.          RPTDEF50
00199 *                                                                 RPTDEF50
00200 *    ATTR-PRG-SEG                                                 RPTDEF50
00201 *                                                                 RPTDEF50
00202          05  FLD5021020-CV  PICTURE X(3)        VALUE             RPTDEF50
00203         "NY9".                                                       CL**2
00204          05  FLD5021020-CD   REDEFINES FLD5021020-CV.             RPTDEF50
00205              07  FLD5021020-CODES PICTURE X OCCURS 3.             RPTDEF50
00206          05  FLD5021020-MV           PICTURE X(9)    VALUE           CL**2
00207         "NO YESXXX".                                              RPTDEF50
00208          05  FLD5021020-MD   REDEFINES FLD5021020-MV.             RPTDEF50
00209              07  FLD5021020-MNG  PICTURE X(3)  OCCURS 3.          RPTDEF50
00210 *                                                                 RPTDEF50
00211 *    ATTR-PRG-CALLTYP                                             RPTDEF50
00212 *                                                                 RPTDEF50
00213          05  FLD5021025-CV           PICTURE X(3)    VALUE           CL**2
00214         "ER9".                                                       CL**2
00215          05  FLD5021025-CD   REDEFINES FLD5021025-CV.             RPTDEF50
00216              07  FLD5021025-CODES    PICTURE X OCCURS 3.             CL**2
00217          05  FLD5021025-MV           PICTURE X(27)   VALUE           CL**2
00218         "REENTRANTRECURSIVEXXXXXXXXX" .                              CL**2
00219          05  FLD5021025-MD   REDEFINES FLD5021025-MV.             RPTDEF50
00220              07  FLD5021025-MNG      PICTURE X(9) OCCURS 3.          CL**2
00221 *                                                                 RPTDEF50
00222 *    STORE-TYPE                                                   RPTDEF50
00223 *                                                                 RPTDEF50
00224          05  FLD5026005-CV  PICTURE X(7)        VALUE             RPTDEF50
00225         "LOPRSC9".                                                   CL**2
00226          05  FLD5026005-CD   REDEFINES FLD5026005-CV.             RPTDEF50
00227              07  FLD5026005-CODES PICTURE X OCCURS 7.             RPTDEF50
00228          05  FLD5026005-MV.                                          CL**2
00229              07  FIRST-HALF      PICTURE X(60)   VALUE               CL**2
00230             "LOAD MODULE         OBJECT MODULE       PARTITIONED D   CL**2
00231 -           "ATA SET".                                               CL**2
00232              07  SECOND-HALF     PICTURE X(80)   VALUE               CL**2
00233             "RELOCATABLE         SOURCE              CORE IMAGE      CL**2
00234 -           "       XXXXXXXXXXXXXXXXXXXX".                           CL**2
00235          05  FLD5026005-MD   REDEFINES FLD5026005-MV.             RPTDEF50
00236              07  FLD5026005-MNG  PICTURE X(20) OCCURS 7.          RPTDEF50
00237 *                                                                 RPTDEF50
00238 *    STORE-SIZE-UNIT                                              RPTDEF50
00239 *                                                                 RPTDEF50
00240          05  FLD5026025-CV  PICTURE X(7)        VALUE             RPTDEF50
00241         "BCKPRT9".                                                RPTDEF50
00242          05  FLD5026025-CD   REDEFINES FLD5026025-CV.             RPTDEF50
00243              07  FLD5026025-CODES PICTURE X OCCURS 7.             RPTDEF50
00244          05  FLD5026025-MV           PICTURE X(63)   VALUE           CL**2
00245         "BYTES    CYLINDERSK BYTES  PAGES    RECORDS  TRACKS   XXX   CL**2
00246 -       "XXXXXX".                                                    CL**2
00247          05  FLD5026025-MD  REDEFINES  FLD5026025-MV.                CL**2
00248              07  FLD5026025-MNG      PICTURE X(9) OCCURS 7.          CL**2
00249 *                                                                 RPTDEF50
00250 *    RES-ELAPSED-UNIT                                             RPTDEF50
00251 *                                                                 RPTDEF50
00252          05  FLD5027020-CV  PICTURE X(4)        VALUE             RPTDEF50
00253         "HMS9".                                                      CL**2
00254          05  FLD5027020-CD   REDEFINES FLD5027020-CV.             RPTDEF50
00255              07  FLD5027020-CODES    PICTURE X OCCURS 4.             CL**2
00256          05  FLD5027020-MV  PICTURE X(28)       VALUE             RPTDEF50
00257         "HOURS  MINUTESSECONDSXXXXXXX".                           RPTDEF50
00258          05  FLD5027020-MD   REDEFINES FLD5027020-MV.             RPTDEF50
00259              07  FLD5027020-MNG  PICTURE X(7)  OCCURS 4.          RPTDEF50
00260 *                                                                    CL**2
00261 *    RES-CPU-UNIT                                                    CL**2
00262 *                                                                    CL**2
00263          05  FLD5027030-CV           PICTURE X(4)    VALUE           CL**2
00264         "HMS9".                                                      CL**2
00265          05  FLD5027030-CD  REDEFINES  FLD5027030-CV.                CL**2
00266              07  FLD5027030-CODES    PICTURE X OCCURS 4.             CL**2
00267          05  FLD5027030-MV           PICTURE X(28)   VALUE           CL**2
00268         "HOURS  MINUTESSECONDSXXXXXXX".                              CL**2
00269          05  FLD5027030-MD  REDEFINES  FLD5027030-MV.                CL**2
00270              07  FLD5027030-MNG      PICTURE X(7) OCCURS 4.          CL**2
00271 *                                                                 RPTDEF50
00272 *    SCHLD-CYCLE                                                  RPTDEF50
00273 *                                                                 RPTDEF50
00274          05  FLD5028035-CV       PICTURE X(8)    VALUE               CL**2
00275         "ADMQRSW9".                                               RPTDEF50
00276          05  FLD5028035-CD   REDEFINES FLD5028035-CV.             RPTDEF50
00277              07  FLD5028035-CODES PICTURE X OCCURS 8.             RPTDEF50
00278          05  FLD5028035-MV       PICTURE X(104) VALUE             RPTDEF50
00279         "ANNUALLY     DAILY        MONTHLY      QUARTERLY    REQUE   CL**2
00280 -       "ST      SEMI-ANNUALLYWEEKLY       XXXXXXXXXXXXX".           CL**2
00281          05  FLD5028035-MD   REDEFINES FLD5028035-MV.             RPTDEF50
00282              07  FLD5028035-MNG  PICTURE X(13) OCCURS 8.          RPTDEF50
00283 *                                                                 RPTDEF50
00284 *    REL-PUSE                                                     RPTDEF50
00285 *                                                                 RPTDEF50
00286          05  FLD5080010-CV           PICTURE X(3)    VALUE           CL**2
00287         "YN9".                                                       CL**2
00288          05  FLD5080010-CD   REDEFINES FLD5080010-CV.             RPTDEF50
00289              07  FLD5080010-CODES    PICTURE X  OCCURS 3.            CL**2
00290          05  FLD5080010-MV       PICTURE X(9)    VALUE               CL**2
00291         "YESNO XXX".                                                 CL**2
00292          05  FLD5080010-MD   REDEFINES FLD5080010-MV.             RPTDEF50
00293              07  FLD5080010-MNG      PICTURE X(3) OCCURS 3.          CL**2
00294 *                                                                 RPTDEF50
00295 *    REL I/O                                                         CL**2
00296 *                                                                 RPTDEF50
00297          05  FLD5080015-CV  PICTURE X(4)        VALUE             RPTDEF50
00298         "BIO9".                                                      CL**2
00299          05  FLD5080015-CD   REDEFINES FLD5080015-CV.             RPTDEF50
00300              07  FLD5080015-CODES PICTURE X OCCURS 4.             RPTDEF50
00301          05  FLD5080015-MV       PICTURE X(24)  VALUE             RPTDEF50
00302         "BOTH  INPUT OUTPUTXXXXXX".                               RPTDEF50
00303          05  FLD5080015-MD   REDEFINES FLD5080015-MV.             RPTDEF50
00304              07  FLD5080015-MNG  PICTURE X(6)  OCCURS 4.          RPTDEF50
00305 *                                                                 RPTDEF50
00306 *    REL-ACCESS                                                   RPTDEF50
00307 *                                                                 RPTDEF50
00308          05  FLD5080020-CV  PICTURE X(6)        VALUE             RPTDEF50
00309          "ACDRU9".                                                   CL**2
00310          05  FLD5080020-CD   REDEFINES FLD5080020-CV.             RPTDEF50
00311              07  FLD5080020-CODES PICTURE X OCCURS 6.             RPTDEF50
00312          05  FLD5080020-MV   PICTURE X(42)      VALUE             RPTDEF50
00313         "ALL    CREATESDELETESREADS  UPDATESXXXXXXX".             RPTDEF50
00314          05  FLD5080020-MD   REDEFINES FLD5080020-MV.             RPTDEF50
00315              07  FLD5080020-MNG  PICTURE X(7)  OCCURS 6.          RPTDEF50
00316 *                                                                    CL**2
00317 *    REL-CYCLE                                                       CL**2
00318 *                                                                    CL**2
00319          05  FLD5080025-CV           PICTURE X(8)    VALUE           CL**2
00320         "ADMQRSW9".                                                  CL**2
00321          05  FLD5080025-CD  REDEFINES  FLD5080025-CV.                CL**2
00322              07  FLD5080025-CODES    PICTURE X OCCURS 8.             CL**2
00323          05  FLD5080025-MV           PICTURE X(104)  VALUE           CL**2
00324         "ANNUALLY     DAILY        MONTHLY      QUARTERLY    REQUE   CL**2
00325 -       "ST      SEMI-ANNUALLYWEEKLY       XXXXXXXXXXXXX".           CL**2
00326          05  FLD5080025-MD  REDEFINES  FLD5080025-MV.                CL**2
00327              07  FLD5080025-MNG      PICTURE X(13) OCCURS 8.         CL**2
00328 ******************************************************************   CL**2
00329 *    STANDARD CATEGORY REPORT DETAIL LINES FOR ENTRY TYPE 50         CL**2
00330 *        ENTRY TYPE 50 = MODULE                                      CL**2
00331 ******************************************************************   CL**2
00332      03  50-CAT-DETAIL-LINES.                                        CL**2
00333 *    RESPONSIBILITY LINES                                            CL**2
00334          05  CAT50140-LINE1.                                         CL**2
00335              07  FLD5014005-HDG  PICTURE X(7).                       CL**2
00336              07  FLD5014005-VAL.                                     CL**2
00337                  09  FLD5014005-POS1 PICTURE X.                      CL**2
00338                  09  FILLER      PICTURE X(6).                       CL**2
00339              07  FILLER          PICTURE XX.                         CL**2
00340              07  FLD5014010-HDG  PICTURE X(9).                       CL**2
00341              07  FLD5014010-VAL.                                     CL**2
00342                  09  FLD5014010-POS1 PICTURE X.                      CL**2
00343                  09  FILLER      PICTURE X(8).                       CL**2
00344              07  FILLER          PICTURE XX.                         CL**2
00345              07  FLD5014025-HDG  PICTURE X(6).                       CL**2
00346              07  FLD5014025-VAL  PICTURE X(10).                      CL**2
00347              07  FILLER          PICTURE XX.                         CL**2
00348              07  FLD5014035-HDG  PICTURE X(5).                       CL**2
00349              07  FLD5014035-VAL  PICTURE X(5).                       CL**2
00350              07  FILLER          PICTURE X(6).                       CL**2
00351          05  CAT50140-LINE2  REDEFINES CAT50140-LINE1.               CL**2
00352              07  FLD5014015-HDG  PICTURE X(11).                      CL**2
00353              07  FLD5014015-VAL  PICTURE X(32).                      CL**2
00354              07  FILLER          PICTURE XX.                         CL**2
00355              07  FLD5014040-HDG  PICTURE X(5).                       CL**2
00356              07  FLD5014040-VAL  PICTURE X(8).                       CL**2
00357              07  FILLER          PICTURE X(12).                      CL**2
00358          05  CAT50140-LINE3  REDEFINES CAT50140-LINE2.               CL**2
00359              07  FLD5014020-HDG  PICTURE X(7).                       CL**2
00360              07  FLD5014020-VAL  PICTURE X(32).                      CL**2
00361              07  FILLER          PICTURE XX.                         CL**2
00362              07  FLD5014030-HDG  PICTURE X(6).                       CL**2
00363              07  FLD5014030-VAL  PICTURE X(15).                      CL**2
00364              07  FILLER          PICTURE X(8).                       CL**2
00365 *    NAME LINE                                                       CL**2
00366          05  CAT50200-LINE1  REDEFINES  CAT50140-LINE3.              CL**2
00367              07  FLD5020005-HDG      PICTURE   X(12).                CL**2
00368              07  FLD5020005-VAL      PICTURE   X(32).                CL**2
00369              07  FILLER              PICTURE   XX.                   CL**2
00370              07  FLD5020010-HDG      PICTURE   X(10).                CL**2
00371              07  FLD5020010-VAL      PICTURE   X(10).                CL**2
00372              07  FILLER              PICTURE   X(4).                 CL**2
00373 *    ATTRIBUTE LINES                                                 CL**2
00374          05  CAT50210-LINE1 REDEFINES CAT50200-LINE1.                CL**2
00375              07  FLD5021005-HDG      PICTURE X(9).                   CL**2
00376              07  FLD5021005-VAL.                                     CL**2
00377                  09  FLD5021005-POS1 PICTURE X.                      CL**2
00378                  09  FILLER          PICTURE X(8).                   CL**2
00379              07  FILLER              PICTURE XX.                     CL**2
00380              07  FLD5021010-HDG      PICTURE X(5).                   CL**2
00381              07  FLD5021010-VAL.                                     CL**2
00382                  09  FLD5021010-POS1 PICTURE X.                      CL**2
00383                  09  FILLER          PICTURE X(14).                  CL**2
00384              07  FILLER              PICTURE XX.                     CL**2
00385              07  FLD5021015-HDG      PICTURE X(9).                   CL**2
00386              07  FLD5021015-VAL.                                     CL**2
00387                  09  FLD5021015-POS1 PICTURE X.                      CL**2
00388                  09  FILLER          PICTURE XX.                     CL**2
00389              07  FILLER              PICTURE XX.                     CL**2
00390              07  FLD5021020-HDG      PICTURE X(10).                  CL**2
00391              07  FLD5021020-VAL.                                     CL**2
00392                  09  FLD5021020-POS1 PICTURE X.                      CL**2
00393                  09  FILLER          PICTURE XX.                     CL**2
00394              07  FILLER              PICTURE X.                      CL**2
00395          05  CAT50210-LINE2  REDEFINES CAT50210-LINE1.               CL**2
00396              07  FLD5021025-HDG      PICTURE X(10).                  CL**2
00397              07  FLD5021025-VAL.                                     CL**2
00398                  09  FLD5021025-POS1 PICTURE X.                      CL**2
00399                  09  FILLER          PICTURE X(13).                  CL**2
00400              07  FILLER              PICTURE X(46).                  CL**2
00401 *    STORAGE LINES                                                   CL**2
00402          05  CAT50260-LINE1 REDEFINES CAT50210-LINE2.                CL**2
00403              07  FLD5026005-HDG      PICTURE X(5).                   CL**2
00404              07  FLD5026005-VAL.                                     CL**2
00405                  09  FLD5026005-POS1 PICTURE X.                      CL**2
00406                  09  FILLER      PICTURE X(19).                      CL**2
00407              07  FILLER              PICTURE XX.                     CL**2
00408              07  FLD5026010-HDG      PICTURE X(6).                   CL**2
00409              07  FLD5026010-VAL      PICTURE X(20).                  CL**2
00410              07  FILLER          PICTURE X(17).                      CL**2
00411          05  CAT50260-LINE2 REDEFINES CAT50260-LINE1.                CL**2
00412              07  FLD5026015-HDG      PICTURE X(7).                   CL**2
00413              07  FLD5026015-VAL      PICTURE X(20).                  CL**2
00414              07  FILLER              PICTURE XX.                     CL**2
00415              07  FLD5026020-HDG      PICTURE X(12).                  CL**2
00416              07  FLD5026020-VAL      PICTURE ZZZZZZ9.                CL**2
00417              07  FILLER              PICTURE X.                      CL**2
00418              07  FLD5026025-VAL.                                     CL**2
00419                  09  FLD5026025-POS1 PICTURE X.                      CL**2
00420                  09  FILLER          PICTURE X(8).                   CL**2
00421              07  FILLER              PICTURE X(12).                  CL**2
00422 *    RESOURCE LINES                                                  CL**2
00423          05  CAT50270-LINE1 REDEFINES CAT50260-LINE2.                CL**2
00424              07  FLD5027005-HDG      PICTURE X(10).                  CL**2
00425              07  FLD5027005-VAL      PICTURE X(44).                  CL**2
00426              07  FILLER              PICTURE XX.                     CL**2
00427              07  FLD5027010-HDG      PICTURE X(7).                   CL**2
00428              07  FLD5027010-VAL      PICTURE ZZZ9.                   CL**2
00429              07  FILLER              PICTURE XXX.                    CL**2
00430          05  CAT50270-LINE2 REDEFINES CAT50270-LINE1.                CL**2
00431              07  FLD5027015-HDG      PICTURE X(13).                  CL**2
00432              07  FLD5027015-VAL      PICTURE ZZ9.                    CL**2
00433              07  FILLER              PICTURE X.                      CL**2
00434              07  FLD5027020-VAL.                                     CL**2
00435                  09  FLD5027020-POS1 PICTURE X.                      CL**2
00436                  09  FILLER          PICTURE X(6).                   CL**2
00437              07  FILLER              PICTURE XX.                     CL**2
00438              07  FLD5027025-HDG      PICTURE X(9).                   CL**2
00439              07  FLD5027025-VAL      PICTURE ZZ9.                    CL**2
00440              07  FILLER              PICTURE X.                      CL**2
00441              07  FLD5027030-VAL.                                     CL**2
00442                  09  FLD5027030-POS1 PICTURE X.                      CL**2
00443                  09  FILLER          PICTURE X(6).                   CL**2
00444              07  FILLER              PICTURE XX.                     CL**2
00445              07  FLD5027035-HDG      PICTURE X(10).                  CL**2
00446              07  FLD5027035-VAL      PICTURE X(8).                   CL**2
00447              07  FILLER              PICTURE X(4).                   CL**2
00448          05  CAT50270-LINE3 REDEFINES CAT50270-LINE2.                CL**2
00449              07  FLD5027040-HDG      PICTURE X(14).                  CL**2
00450              07  FLD5027040-VAL      PICTURE Z9.                     CL**2
00451              07  FILLER              PICTURE XX.                     CL**2
00452              07  FLD5027045-HDG      PICTURE X(14).                  CL**2
00453              07  FLD5027045-VAL      PICTURE ZZZZZZ9.                CL**2
00454              07  FILLER              PICTURE XX.                     CL**2
00455              07  FLD5027050-HDG      PICTURE X(14).                  CL**2
00456              07  FLD5027050-VAL      PICTURE ZZZZZZ9.                CL**2
00457              07  FILLER              PICTURE X(8).                   CL**2
00458 *    SCHEDULING LINES                                                CL**2
00459          05  CAT50280-LINE1 REDEFINES CAT50270-LINE3.                CL**2
00460              07  FLD5028005-HDG      PICTURE  X(13).                 CL**2
00461              07  FLD5028005-VAL      PICTURE  X(4).                  CL**2
00462              07  FILLER              PICTURE  XX.                    CL**2
00463              07  FLD5028010-HDG      PICTURE  X(12).                 CL**2
00464              07  FLD5028010-VAL      PICTURE  X(4).                  CL**2
00465              07  FILLER              PICTURE  XX.                    CL**2
00466              07  FLD5028015-HDG      PICTURE  X(11).                 CL**2
00467              07  FLD5028015-VAL      PICTURE X(10).                  CL**2
00468              07  FILLER              PICTURE X(12).                  CL**2
00469          05  CAT50280-LINE2 REDEFINES CAT50280-LINE1.                CL**2
00470              07  FLD5028020-HDG      PICTURE  X(15).                 CL**2
00471              07  FLD5028020-VAL      PICTURE  X(4).                  CL**2
00472              07  FILLER              PICTURE  XX.                    CL**2
00473              07  FLD5028025-HDG  PICTURE X(14).                      CL**2
00474              07  FLD5028025-VAL      PICTURE  X(4).                  CL**2
00475              07  FILLER              PICTURE  XX.                    CL**2
00476              07  FLD5028030-HDG      PICTURE  X(13).                 CL**2
00477              07  FLD5028030-VAL      PICTURE X(10).                  CL**2
00478              07  FILLER              PICTURE X(6).                   CL**2
00479          05  CAT50280-LINE3 REDEFINES CAT50280-LINE2.                CL**2
00480              07  FLD5028035-HDG      PICTURE  X(6).                  CL**2
00481              07  FLD5028035-VAL.                                     CL**2
00482                  09  FLD5028035-POS1 PICTURE  X.                     CL**2
00483                  09  FILLER          PICTURE  X(12).                 CL**2
00484              07  FILLER              PICTURE  X.                     CL**2
00485              07  FLD5028040-HDG      PICTURE  X(18).                 CL**2
00486              07  FLD5028040-VAL      PICTURE  X(32).                 CL**2
00487 *    PASSING LINE                                                    CL**2
00488          05  CAT50290-LINE1 REDEFINES CAT50280-LINE3.                CL**2
00489              07  FLD5029005-VAL      PICTURE  X(32).                 CL**2
00490              07  FILLER              PICTURE X(38).                  CL**2
00491 *    RELATION  LINE-1ST LINE IS HEADING                              CL**2
00492          05  CAT50800-LINE1  REDEFINES  CAT50290-LINE1.              CL**2
00493              07  FLD5080005-HDG      PICTURE X(14).                  CL**2
00494              07  FILLER              PICTURE X(18).                  CL**2
00495              07  FLD50800US-HDG      PICTURE X(7).                   CL**2
00496              07  FILLER              PICTURE X(5).                   CL**2
00497              07  FLD5080015-HDG      PICTURE XXX.                    CL**2
00498              07  FILLER              PICTURE X(23).                  CL**2
00499      05  CAT50800-LINE2  REDEFINES   CAT50800-LINE1.                 CL**2
00500              07  FLD5080005-VAL      PICTURE X(32).                  CL**2
00501              07  FILLER              PICTURE XX.                     CL**2
00502              07  FLD5080010-VAL.                                     CL**2
00503                  09  FLD5080010-POS1 PICTURE X.                      CL**2
00504                  09  FILLER          PICTURE XX.                     CL**2
00505              07  FILLER              PICTURE X(8).                   CL**2
00506              07  FLD5080015-VAL.                                     CL**2
00507                  09  FLD5080015-POS1 PICTURE X.                      CL**2
00508                  09  FILLER          PICTURE X(5).                   CL**2
00509              07  FILLER              PICTURE X(19).                  CL**2
00510      05  CAT50800-LINE3  REDEFINES   CAT50800-LINE2.                 CL**2
00511              07  FLD50800ACC-HDG     PICTURE X(7).                   CL**2
00512              07  FILLER              PICTURE X.                      CL**2
00513              07  FLD5080020-HDG      PICTURE X(5).                   CL**2
00514              07  FLD5080020-VAL.                                     CL**2
00515                  09  FLD5080020-POS1 PICTURE X.                      CL**2
00516                  09  FILLER          PICTURE X(6).                   CL**2
00517          07  FILLER                  PICTURE XX.                     CL**2
00518          07  FLD5080025-HDG          PICTURE X(6).                   CL**2
00519          07  FLD5080025-VAL.                                         CL**2
00520              09  FLD5080025-POS1     PICTURE X.                      CL**2
00521              09  FILLER              PICTURE X(12).                  CL**2
00522          07  FILLER                  PICTURE XX.                     CL**2
00523          07  FLD5080030-HDG          PICTURE X(5).                   CL**2
00524          07  FLD5080030-VAL          PICTURE ZZZZ9.                  CL**2
00525              07  FILLER              PICTURE X(17).                  CL**2
00526      05  CAT50800-LINE4  REDEFINES   CAT50800-LINE3.                 CL**2
00527              07  FLD50800DISP-HDG    PICTURE X(5).                   CL**2
00528              07  FLD5080035-VAL      PICTURE X(20).                  CL**2
00529              07  FILLER              PICTURE X(45).                  CL**2
