*COMDECK  RPTDEF20
       01  ENTRYTYPE-20-RPTDATA.
      ****************************************************************
      *    THIS SECTION DEFINES THE LINE FORMAT, FIELD VALUES,
      *    CODES AND WORK AREAS FOR 70 CHARACTER LINE FORMATS.
      *************************************************************** 
  
           03  ENTRY-TYPE-CONSTANT        PICTURE XX  VALUE "20". 
  
      ******************************************************************
      *    CATEGORY HEADING CONSTANTS FOR FILES (ENTITY-ID = 20). 
      ******************************************************************
  
           03  20-CAT-HEADERS.
               05  ENT20-CN            PICTURE X(30)   VALUE
              "010020030140200210220300450900" .
               05  ENT20-CN2   REDEFINES ENT20-CN.
                   07  ENT20-CATNUMS PICTURE XXX OCCURS 10. 
               05  ENT20-CH.
                   07  FILLER          PICTURE X(30)   VALUE
                  "    ---CONTROL CATEGORY---    ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "---CLASSIFICATION CATEGORY--- ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "  ---DESCRIPTION CATEGORY---  ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  " ---RESPONSIBILITY CATEGORY---". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "     ---NAMES CATEGORY---     ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "   ---ATTRIBUTE CATEGORY---   ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "     ---UNIT CATEGORY---      ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "   ---STRUCTURE CATEGORY---   ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "    ---MDINFO CATEGORY---     ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "     ---OTHER CATEGORY---     ". 
               05  ENT20-CATH    REDEFINES  ENT20-CH. 
                   07  ENT20-CATHDRS       PICTURE X(30) OCCURS 10. 
  
      ********************************************************
      *    FIELD HEADING CONSTANTS
      ********************************************************
      * 
      *    R E S P O N S I B I L I T Y    C A T E G O R Y 
      * 
               05  FLD2014005-HCON     PICTURE X(7)    VALUE
                  "STATUS=".
               05  FLD2014010-HCON     PICTURE X(9)    VALUE
                  "FUNCTION=".
               05  FLD2014025-HCON     PICTURE X(6)    VALUE
                  "PHONE=". 
               05  FLD2014035-HCON     PICTURE X(5)    VALUE
                  "MAIL=".
               05  FLD2014020-HCON     PICTURE X(7)    VALUE
                  "PERSON=".
               05  FLD2014030-HCON     PICTURE X(6)    VALUE
                  "TITLE=". 
               05  FLD2014015-HCON     PICTURE X(11)   VALUE
                  "DEPARTMENT=".
               05  FLD2014040-HCON     PICTURE X(5)    VALUE
                  "DATE=".
      * 
      *    N A M E S    C A T E G O R Y 
      * 
               05  FLD2020005-HCON     PICTURE X(7)    VALUE
                  "FDNAME=".
               05  FLD2020010-HCON     PICTURE X(14)   VALUE
                  "DATA SET NAME=". 
               05  FLD2020015-HCON     PICTURE X(12)   VALUE
                  "MEMBER NAME=". 
               05  FLD2020020-HCON     PICTURE X(7)    VALUE
                  "DDNAME=".
               05  FLD2020035-HCON     PICTURE X(9)   VALUE 
                  "DMS NAME=".
      * 
      *    A T T R I B U T E S    C A T E G O R Y 
      * 
               05  FLD2021005-HCON     PICTURE X(8)    VALUE
                  "RECSIZE=". 
               05  FLD2021010-HCON     PICTURE X(8)    VALUE
                  "BLKSIZE=". 
               05  FLD2021015-HCON     PICTURE X(6)    VALUE
                  "RECFM=". 
               05  FLD2021020-HCON     PICTURE X(6)    VALUE
                  "DSORG=". 
               05  FLD2021025-HCON     PICTURE X(6)    VALUE
                  "LABEL=". 
               05  FLD2021030-HCON     PICTURE X(8)    VALUE
                  "DENSITY=". 
               05  FLD2021035-HCON     PICTURE X(7)    VALUE
                  "BUFFER=".
               05  FLD2021040-HCON     PICTURE X(13)   VALUE
                  "ADDRESS MODE=".
               05  FLD2021045-HCON     PICTURE X(10)   VALUE
                  "RMOD NAME=". 
               05  FLD2021050-HCON     PICTURE X(7)    VALUE
                  "KEYLEN=".
               05  FLD2021055-HCON     PICTURE X(4)    VALUE
                  "RKP=". 
               05  FLD2021060-HCON     PICTURE X(7)    VALUE
                  "CYLOFL=".
               05  FLD2021070-HCON     PICTURE X(6)    VALUE
                  "OPTCD=". 
               05  FLD2021075-HCON     PICTURE X(6)    VALUE
                  "LIMCT=". 
               05  FLD2022005-HCON     PICTURE X(5)    VALUE
                  "UNIT=".
               05  FLD2022010-HCON     PICTURE X(14)   VALUE
                  "VOLUME SERIAL=". 
               05  FLD2022015-HCON     PICTURE X(6)    VALUE
                  "SPACE=". 
               05  FLD20220IDX-HCON    PICTURE X(6)    VALUE
                  "INDEX:". 
      * 
      *    U N I T   C A T E G O R Y
      * 
               05  FLD2022025-HCON     PICTURE X(5)    VALUE
                  "UNIT=".
               05  FLD2022030-HCON     PICTURE X(14)   VALUE
                  "VOLUME SERIAL=". 
               05  FLD2022035-HCON     PICTURE X(6)    VALUE
                  "SPACE=". 
               05  FLD20220OVFL-HCON   PICTURE X(9)    VALUE
                  "OVERFLOW:".
               05  FLD2022045-HCON     PICTURE X(5)    VALUE
                  "UNIT=".
               05  FLD2022050-HCON     PICTURE X(14)   VALUE
                  "VOLUME SERIAL=". 
               05  FLD2022055-HCON     PICTURE X(6)    VALUE
                  "SPACE=". 
      * 
      *    S T R U C T U R E    C A T E G O R Y 
      * 
               05  FLD2030005-HCON   PICTURE X(14)   VALUE
                  "CATALOGUE NAME". 
               05  FLD2030010-HCON   PICTURE X(4)    VALUE
                  "TYPE". 
               05  FLD2030015-HCON   PICTURE X(9)    VALUE
                  "FREQUENCY".
               05 FLD2030020-HCON    PICTURE X(7)    VALUE
                  "SEG NO.".
               05 FLD2030025-HCON    PICTURE X(9)    VALUE
                  "LEVEL NO.".
      * 
      *    M D I N F O    C A T E G O R Y 
      * 
               05  FLD2045005-HCON   PICTURE X(10)   VALUE
                  "FILE TYPE=". 
               05  FLD2045010-HCON   PICTURE X(3)    VALUE
                  "UN=".
               05  FLD2045015-HCON   PICTURE X(3)    VALUE
                  "PW=".
               05 FLD2045020-HCON    PICTURE X(11)   VALUE
                  "UNIT LIMIT=".
               05 FLD2045025-HCON    PICTURE X(13)   VALUE
                  "UPDATE LIMIT=".
               05  FLD2045030-HCON   PICTURE X(12)   VALUE
                  "FAMILY NAME=". 
               05 FLD2045035-HCON    PICTURE X(10)   VALUE
                  "PACK NAME=". 
               05 FLD2045040-HCON    PICTURE X(9)    VALUE
                  "SET NAME=".
  
      ********************************************************
      *    FIELD CODES AND VALUES 
      ********************************************************
      * 
      *    RESPONSIBILITY CATEGORY - FIELD "STATUS" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2014005-CV       PICTURE X(3)        VALUE
              "CP9".
               05  FLD2014005-CD  REDEFINES  FLD2014005-CV. 
                   07  FLD2014005-CODES PICTURE X OCCURS 3. 
               05  FLD2014005-MV       PICTURE X(21)       VALUE
              "CURRENTPAST   XXXXXXX".
               05  FLD2014005-MD  REDEFINES  FLD2014005-MV. 
                   07  FLD2014005-MNG  PICTURE X(7) OCCURS 3. 
      * 
      *    RESPONSIBILITY CATEGORY - FIELD "FUNCTION" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2014010-CV       PICTURE X(4)        VALUE
              "DCT9". 
               05  FLD2014010-CD  REDEFINES  FLD2014010-CV. 
                   07  FLD2014010-CODES PICTURE X OCCURS 4. 
               05  FLD2014010-MV       PICTURE X(36)       VALUE
              "DEVELOPEDCHANGED  TESTED   XXXXXXXXX". 
               05  FLD2014010-MD  REDEFINES  FLD2014010-MV. 
                   07  FLD2014010-MNG  PICTURE X(9) OCCURS 4. 
      * 
      *    ATTRIBUTES CATEGORY - FIELD "DENSITY" CODES
      *    AND REPORT NAMES 
      * 
               05  FLD2021030-CV       PICTURE X(6)   VALUE 
              "012349". 
               05  FLD2021030-CD  REDEFINES FLD2021030-CV.
                   07  FLD2021030-CODES PICTURE X OCCURS 6. 
               05  FLD2021030-MV       PICTURE X(120)      VALUE
              "200 BPI, 7 TRACK    556 BPI, 7 TRACK    800 BPI 7 & 9  TR
      -       "ACK1600 BPI, 9 TRACK   6250 BPI, 9 TRACK   XXXXXXXXXXXXXX
      -       "XXXXXX". 
               05  FLD2021030-MD REDEFINES FLD2021030-MV. 
                   07  FLD2021030-MNG PICTURE X(20) OCCURS 6. 
      * 
      *    ATTRIBUTES CATEGORY - FIELD "ADDRESS" CODES
      *    AND REPORT NAMES 
      * 
               05  FLD2021040-CV       PICTURE X(3)   VALUE 
              "ID9".
               05  FLD2021040-CD   REDEFINES FLD2021040-CV. 
                   07  FLD2021040-CODES PICTURE X OCCURS 3. 
               05  FLD2021040-MV       PICTURE X(24)  VALUE 
              "INDIRECTDIRECT  XXXXXXXX". 
               05  FLD2021040-MD   REDEFINES FLD2021040-MV. 
                   07  FLD2021040-MNG  PICTURE X(8)  OCCURS 3.
      * 
      *    UNIT CATEGORY - FIELD "ITYPE" CODES
      *    AND REPORT NAMES 
      * 
              05  FLD2022040-CV       PICTURE X(6)    VALUE 
             "BCDRT9".
              05  FLD2022040-CD  REDEFINES  FLD2022040-CV.
                  07  FLD2022040-CODES PICTURE X OCCURS 6.
              05  FLD2022040-MV       PICTURE X(96)   VALUE 
              "BLOCKS          CYLINDERS       DIRECTORY BLOCKSRECORDS
      -      "       TRACKS          XXXXXXXXXXXXXXXX". 
              05  FLD2022040-MD  REDEFINES FLD2022040-MV. 
                  07  FLD2022040-MNG  PICTURE X(16) OCCURS 6. 
      * 
      *    UNIT CATEGORY - FIELD "OTYPE" CODES
      *    AND REPORT NAMES 
      * 
              05  FLD2022060-CV       PICTURE X(6)     VALUE
             "BCDRT9".
              05  FLD2022060-CD  REDEFINES  FLD2022060-CV.
                  07  FLD2022060-CODES PICTURE X OCCURS 6.
              05  FLD2022060-MV       PICTURE X(96)    VALUE
              "BLOCKS          CYLINDERS       DIRECTORY BLOCKSRECORDS
      -      "       TRACKS          XXXXXXXXXXXXXXXX". 
              05  FLD2022060-MD  REDEFINES  FLD2022060-MV.
                  07  FLD2022060-MNG  PICTURE X(16) OCCURS 6. 
      * 
      *    UNIT CATEGORY - FIELD "PTYPE" CODES
      *    AND REPORT NAMES 
      * 
               05  FLD2022020-CV       PICTURE X(6)   VALUE 
              "BCDRT9". 
               05  FLD2022020-CD   REDEFINES FLD2022020-CV. 
                  07  FLD2022020-CODES PICTURE X OCCURS 6.
               05  FLD2022020-MV       PICTURE X(96)  VALUE 
              "BLOCKS          CYLINDERS       DIRECTORY BLOCKSRECORDS
      -       "       TRACKS          XXXXXXXXXXXXXXXX".
               05  FLD2022020-MD   REDEFINES FLD2022020-MV. 
                   07  FLD2022020-MNG  PICTURE X(16) OCCURS 6.
  
      * 
      *    MDINFO CATEGORY - FIELD "FTYPE" CODES
      *    AND REPORT NAMES 
      * 
               05  FLD2045005-CV       PICTURE X(6)   VALUE 
              "LQTPRI". 
               05  FLD2045005-CD   REDEFINES FLD2045005-CV. 
                  07  FLD2045005-CODES PICTURE X OCCURS 6.
               05  FLD2045005-MV. 
                   07 FILLER    PICTURE X(20)   VALUE 
                   "JOURNAL LOG         ".
                   07 FILLER    PICTURE X(20)   VALUE 
                   "QUICK RECOVERY      ".
                   07 FILLER    PICTURE X(20)   VALUE 
                   "TRANSACTION RECOVERY".
                   07 FILLER    PICTURE X(20)   VALUE 
                   "PROCEDURE LIBRARY   ".
                   07 FILLER    PICTURE X(20)   VALUE 
                   "RESTART IDENTIFIER  ".
                   07 FILLER    PICTURE X(20)   VALUE 
                   "INDEX               ".
               05  FLD2045005-MD   REDEFINES FLD2045005-MV. 
                   07  FLD2045005-MNG  PICTURE X(20) OCCURS 6.
  
      ******************************************************************
      *    STANDARD CATEGORY REPORT DETAIL LINES FOR FILES. 
      ******************************************************************
  
           03  20-CAT-DETAIL-LINES. 
      * 
      *    RESPONSIBILITY LINES 
      * 
      *            LINE 1: STATUS, FUNCTION, PHONE AND MAIL 
      *            LINE 2: DEPARTMENT AND DATE
      *            LINE 3: PERSON AND TITLE 
      * 
               05  CAT20140-LINE1.
                   07  FLD2014005-HDG      PICTURE X(7).
                   07  FLD2014005-VAL.
                       09  FLD2014005-POS1 PICTURE X. 
                       09  FILLER          PICTURE X(6).
                   07  FILLER              PICTURE XX.
                   07  FLD2014010-HDG      PICTURE X(9).
                   07  FLD2014010-VAL.
                       09  FLD2014010-POS1 PICTURE X. 
                       09  FILLER          PICTURE X(8).
                   07  FILLER              PICTURE XX.
                   07  FLD2014025-HDG      PICTURE X(6).
                   07  FLD2014025-VAL      PICTURE X(10). 
                   07  FILLER              PICTURE XX.
                   07  FLD2014035-HDG      PICTURE X(5).
                   07  FLD2014035-VAL      PICTURE X(5).
                   07  FILLER              PICTURE X(6).
               05  CAT20140-LINE2  REDEFINES  CAT20140-LINE1. 
                   07  FLD2014015-HDG      PICTURE X(11). 
                   07  FLD2014015-VAL      PICTURE X(32). 
                   07  FILLER              PICTURE XX.
                   07  FLD2014040-HDG      PICTURE X(5).
                   07  FLD2014040-VAL      PICTURE X(8).
                   07  FILLER              PICTURE X(12). 
               05  CAT20140-LINE3  REDEFINES  CAT20140-LINE2. 
                   07  FLD2014020-HDG      PICTURE X(7).
                   07  FLD2014020-VAL      PICTURE X(32). 
                   07  FILLER              PICTURE XX.
                   07  FLD2014030-HDG      PICTURE X(6).
                   07  FLD2014030-VAL      PICTURE X(15). 
                   07  FILLER              PICTURE X(8).
      * 
      *    NAME LINES 
      * 
      *             LINE 1: FDNAME
      *             LINE 2: DDNAME AND MEMBER 
      *             LINE 3: DSNAME
      *             LINE 4: DMSNAME 
      * 
               05  CAT20200-LINE1 REDEFINES  CAT20140-LINE3.
                   07  FLD2020005-HDG  PICTURE X(7).
                   07  FLD2020005-VAL  PICTURE X(32). 
                   07  FILLER          PICTURE X(31). 
               05  CAT20200-LINE2  REDEFINES CAT20200-LINE1.
                   07  FLD2020020-HDG  PICTURE X(7).
                   07  FLD2020020-VAL  PICTURE X(8).
                   07  FILLER          PICTURE X(2).
                   07  FLD2020015-HDG  PICTURE X(12). 
                   07  FLD2020015-VAL  PICTURE X(8).
                   07  FILLER          PICTURE X(33). 
               05  CAT20200-LINE3  REDEFINES CAT20200-LINE2.
                   07  FLD2020010-HDG  PICTURE X(14). 
                   07  FLD2020010-VAL  PICTURE X(44). 
                   07  FILLER          PICTURE X(12). 
               05  CAT20200-LINE4  REDEFINES  CAT20200-LINE3. 
                   07  FLD2020035-HDG  PICTURE X(9).
                   07  FLD2020035-VAL  PICTURE X(7).
                   07  FILLER          PICTURE X(54). 
      * 
      *  ATTRIBUTE LINES
      * 
      *            LINE 1: RECSIZE, BLKSIZE, RFM, DSORG AND LABEL 
      *            LINE 2: ADDRESS AND RMODNAME 
      *            LINE 3: KEYLEN, RKP, CYLOFL, DENSITY AND BUFFSIZE
      *            LINE 4: LIMCT AND OPTCD
      * 
               05  CAT20210-LINE1  REDEFINES  CAT20200-LINE4. 
                   07  FLD2021005-HDG  PICTURE X(8).
                   07  FLD2021005-VAL  PICTURE ZZZZ9. 
                   07  FILLER          PICTURE XX.
                   07  FLD2021010-HDG  PICTURE X(8).
                   07  FLD2021010-VAL  PICTURE ZZZZ9. 
                   07  FILLER          PICTURE XX.
                   07  FLD2021015-HDG  PICTURE X(6).
                   07  FLD2021015-VAL  PICTURE X(6).
                   07  FILLER          PICTURE XX.
                   07  FLD2021020-HDG  PICTURE X(6).
                   07  FLD2021020-VAL  PICTURE XXX. 
                   07  FILLER          PICTURE XX.
                   07  FLD2021025-HDG  PICTURE X(6).
                   07  FLD2021025-VAL  PICTURE X(3).
                   07  FILLER          PICTURE X(6).
               05  CAT20210-LINE2 REDEFINES CAT20210-LINE1. 
                   07  FLD2021040-HDG  PICTURE X(13). 
                   07  FLD2021040-VAL.
                       09  FLD2021040-POS1 PICTURE X. 
                       09  FILLER      PICTURE X(7).
                   07  FILLER          PICTURE XX.
                   07  FLD2021045-HDG  PICTURE X(10). 
                   07  FLD2021045-VAL  PICTURE X(32). 
                   07  FILLER          PICTURE X(5).
               05  CAT20210-LINE3 REDEFINES CAT20210-LINE2. 
                   07  FLD2021050-HDG  PICTURE X(7).
                   07  FLD2021050-VAL  PICTURE ZZ9. 
                   07  FILLER              PICTURE X. 
                   07  FLD2021055-HDG  PICTURE X(4).
                   07  FLD2021055-VAL  PICTURE ZZ9. 
                   07  FILLER              PICTURE X. 
                   07  FLD2021060-HDG  PICTURE X(7).
                   07  FLD2021060-VAL  PICTURE Z9.
                   07  FILLER              PICTURE X. 
                   07  FLD2021030-HDG  PICTURE X(8).
                   07  FLD2021030-VAL.
                       09  FLD2021030-POS1 PICTURE X. 
                       09  FILLER          PICTURE X(19). 
                   07  FILLER              PICTURE X. 
                   07  FLD2021035-HDG  PICTURE X(7).
                   07  FLD2021035-VAL  PICTURE ZZZZ9. 
               05  CAT20210-LINE4  REDEFINES  CAT20210-LINE3. 
                   07  FLD2021070-HDG  PICTURE X(6).
                   07  FLD2021070-VAL  PICTURE XXX. 
                   07  FILLER          PICTURE XX.
                   07  FLD2021075-HDG  PICTURE X(6).
                   07  FLD2021075-VAL  PICTURE Z9.
                   07  FILLER          PICTURE X(51). 
      * 
      *    UNIT LINES 
      * 
      *             LINE 1: PUNIT, PVOLSER, PSPACE AND PTYPE
      *             LINE 2: IUNIT, IVOLSER, ISPACE AND ITYPE
      *             LINE 3: OUNIT, OVOLSER, OSPACE AND OTYPE
      * 
               05  CAT20220-LINE1  REDEFINES  CAT20210-LINE4. 
                   07  FLD2022005-HDG  PICTURE X(5).
                   07  FLD2022005-VAL  PICTURE X(7).
                   07  FILLER          PICTURE XXX. 
                   07  FLD2022010-HDG  PICTURE X(14). 
                   07  FLD2022010-VAL  PICTURE X(6).
                   07  FILLER          PICTURE XXX. 
                   07  FLD2022015-HDG  PICTURE X(6).
                   07  FLD2022015-VAL  PICTURE ZZ9. 
                   07  FILLER          PICTURE XXX. 
                   07  FLD2022020-VAL.
                       09  FLD2022020-POS1 PICTURE X. 
                       09  FILLER          PICTURE X(15). 
                   07  FILLER              PICTURE X(4).
               05  CAT20220-LINE2 REDEFINES CAT20220-LINE1. 
                   07  FLD20220IDX-HDG     PICTURE X(6).
                   07  FILLER              PICTURE X. 
                   07  FLD2022025-HDG  PICTURE X(5).
                   07  FLD2022025-VAL  PICTURE X(7).
                   07  FILLER          PICTURE XX.
                   07  FLD2022030-HDG  PICTURE X(14). 
                   07  FLD2022030-VAL  PICTURE X(6).
                   07  FILLER          PICTURE XX.
                   07  FLD2022035-HDG  PICTURE X(6).
                   07  FLD2022035-VAL  PICTURE ZZ9. 
                   07  FILLER          PICTURE X. 
                   07  FLD2022040-VAL.
                       09  FLD2022040-POS1 PICTURE X. 
                       09  FILLER          PICTURE X(15). 
                   07  FILLER              PICTURE X. 
               05  CAT20220-LINE3 REDEFINES CAT20220-LINE2. 
                   07  FLD20220OVFL-HDG    PICTURE X(9).
                   07  FILLER              PICTURE  X.
                   07  FLD2022045-HDG      PICTURE  X(5). 
                   07  FLD2022045-VAL  PICTURE X(7).
                   07  FILLER          PICTURE X. 
                   07  FLD2022050-HDG  PICTURE X(14). 
                   07  FLD2022050-VAL  PICTURE X(6).
                   07  FILLER          PICTURE X. 
                   07  FLD2022055-HDG  PICTURE X(6).
                   07  FLD2022055-VAL  PICTURE ZZ9. 
                   07  FILLER          PICTURE X. 
                   07  FLD2022060-VAL.
                       09  FLD2022060-POS1 PICTURE X. 
                       09  FILLER          PICTURE X(15). 
      * 
      *    STRUCTURE LINES
      * 
      *              LINE 1: HEADERS FOR LINE 2 
      *              LINE 2: CATNAME, RECTYPE AND FREQUENCY 
      * 
               05  CAT20300-LINE1  REDEFINES CAT20220-LINE3.
                   07  FLD2030005-HDG  PICTURE X(14). 
                   07  FILLER          PICTURE X(21). 
                   07 FLD2030010-HDG   PICTURE X(4).
                   07 FILLER           PICTURE X(3).
                   07 FLD2030015-HDG   PICTURE X(9).
                   07 FILLER           PICTURE X. 
                   07 FLD2030020-HDG   PICTURE X(7).
                   07 FILLER           PICTURE X. 
                   07  FLD2030025-HDG  PICTURE X(9).
                   07 FILLER           PICTURE X. 
               05  CAT20300-LINE2  REDEFINES CAT20300-LINE1.
                   07  FLD2030005-VAL  PICTURE X(32). 
                   07 FILLER           PICTURE X. 
                   07  FLD2030010-VAL  PICTURE X(8).
                   07  FILLER          PICTURE XX.
                   07  FLD2030015-VAL  PICTURE ZZZZZZ9. 
                   07  FILLER          PICTURE XXXX.
                   07  FLD2030020-VAL  PICTURE Z9.
                   07  FILLER          PICTURE X(7).
                   07  FLD2030025-VAL  PICTURE Z9.
                   07  FILLER          PICTURE X(5).
      * 
      *    MDINFO LINES 
      * 
      *              LINE 1: FILE TYPE, UN AND PW 
      *              LINE 2: UNIT LIMIT AND UPDATE LIMIT
      *              LINE 3: FAMILY NAME
      *              LINE 4: PACK NAME
      *              LINE 5: SET NAME 
      * 
               05  CAT20450-LINE1  REDEFINES CAT20300-LINE2.
                   07  FLD2045005-HDG  PICTURE X(10). 
                   07  FLD2045005-VAL  PICTURE X(20). 
                   07  FILLER          PICTURE XX.
                   07  FLD2045010-HDG  PICTURE X(3).
                   07  FLD2045010-VAL  PICTURE X(7).
                   07  FILLER          PICTURE XX.
                   07  FLD2045015-HDG  PICTURE X(3).
                   07  FLD2045015-VAL  PICTURE X(7).
                   07  FILLER          PICTURE X(16). 
               05  CAT20450-LINE2  REDEFINES CAT20450-LINE1.
                   07  FLD2045020-HDG  PICTURE X(11). 
                   07  FLD2045020-VAL  PICTURE X(2).
                   07  FILLER          PICTURE XX.
                   07  FLD2045025-HDG  PICTURE X(13). 
                   07  FLD2045025-VAL  PICTURE X(2).
                   07  FILLER          PICTURE X(40). 
               05  CAT20450-LINE3  REDEFINES CAT20450-LINE1.
                   07  FLD2045030-HDG  PICTURE X(12). 
                   07  FLD2045030-VAL  PICTURE X(7).
                   07  FILLER          PICTURE X(51). 
               05  CAT20450-LINE4  REDEFINES CAT20450-LINE1.
                   07  FLD2045035-HDG  PICTURE X(10). 
                   07  FLD2045035-VAL  PICTURE X(7).
                   07  FILLER          PICTURE X(53). 
               05  CAT20450-LINE5  REDEFINES CAT20450-LINE1.
                   07  FLD2045040-HDG  PICTURE X(9).
                   07  FLD2045040-VAL  PICTURE X(7).
                   07  FILLER          PICTURE X(54). 
