*COMDECK RPTDEF22 
  
       01  ENTRYTYPE-22-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 "22". 
  
      ******************************************************************
      *    CATEGORY HEADING CONSTANTS FOR AREAS (ENTITY-ID = 22). 
      ******************************************************************
  
           03  22-CAT-HEADERS.
               05  ENT22-CN            PICTURE X(39)   VALUE
              "010020030140200210211300400425450500900" . 
               05  ENT22-CN2   REDEFINES ENT22-CN.
                   07  ENT22-CATNUMS PICTURE XXX OCCURS 13. 
               05  ENT22-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
                  "     ---ALIAS CATEGORY---     ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "   ---STRUCTURE CATEGORY---   ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "    ---PROCESS CATEGORY---    ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "     ---ACCESS CATEGORY---    ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "     ---MDINFO CATEGORY---    ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "   ---AREAKEYS CATEGORY---    ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "     ---OTHER CATEGORY---     ". 
               05  ENT22-CATH    REDEFINES  ENT22-CH. 
                   07  ENT22-CATHDRS       PICTURE X(30) OCCURS 13. 
  
      ********************************************************
      *    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  FLD2214005-HCON     PICTURE X(7)    VALUE
                  "STATUS=".
               05  FLD2214010-HCON     PICTURE X(9)    VALUE
                  "FUNCTION=".
               05  FLD2214015-HCON     PICTURE X(11)   VALUE
                  "DEPARTMENT=".
               05  FLD2214020-HCON     PICTURE X(7)    VALUE
                  "PERSON=".
               05  FLD2214025-HCON     PICTURE X(6)    VALUE
                  "PHONE=". 
               05  FLD2214030-HCON     PICTURE X(6)    VALUE
                  "TITLE=". 
               05  FLD2214035-HCON     PICTURE X(5)    VALUE
                  "MAIL=".
               05  FLD2214040-HCON     PICTURE X(5)    VALUE
                  "DATE=".
      * 
      *    N A M E S    C A T E G O R Y 
      * 
               05  FLD2220005-HCON     PICTURE X(10)  VALUE 
                  "AREA NAME=". 
      * 
      *    A T T R I B U T E S    C A T E G O R Y 
      * 
               05  FLD2221001-HCON     PICTURE X(3)    VALUE
                  "CL=".
               05  FLD2221003-HCON     PICTURE X(3)    VALUE
                  "CP=".
               05  FLD2221005-HCON     PICTURE X(3)    VALUE
                  "C1=".
               05  FLD2221007-HCON     PICTURE X(4)    VALUE
                  "EMK=". 
               05  FLD2221009-HCON     PICTURE X(18)   VALUE
                  "FILE ORGANIZATION=". 
               05  FLD2221011-HCON     PICTURE X(3)    VALUE
                  "HL=".
               05  FLD2221013-HCON     PICTURE X(12)   VALUE
                  "HOME BLOCKS=". 
               05  FLD2221015-HCON     PICTURE X(3)    VALUE
                  "KL=".
               05  FLD2221017-HCON     PICTURE X(3)    VALUE
                  "KP=".
               05  FLD2221019-HCON     PICTURE X(3)    VALUE
                  "KT=".
               05  FLD2221021-HCON     PICTURE X(3)    VALUE
                  "LL=".
               05  FLD2221023-HCON     PICTURE X(3)    VALUE
                  "LP=".
               05  FLD2221024-HCON     PICTURE X(3)    VALUE
                  "BT=".
               05  FLD2221025-HCON     PICTURE X(4)    VALUE
                  "MBL=". 
               05  FLD2221026-HCON     PICTURE X(4)    VALUE
                  "MNR=". 
               05  FLD2221027-HCON     PICTURE X(4)    VALUE
                  "MRL=". 
               05  FLD2221029-HCON     PICTURE X(4)    VALUE
                  "ORG=". 
               05  FLD2221030-HCON     PICTURE X(3)    VALUE
                  "RB=".
               05  FLD2221031-HCON     PICTURE X(4)    VALUE
                  "RKP=". 
               05  FLD2221033-HCON     PICTURE X(4)    VALUE
                  "RKW=". 
               05  FLD2221035-HCON     PICTURE X(4)    VALUE
                  "RMK=". 
               05  FLD2221037-HCON     PICTURE X(3)    VALUE
                  "RT=".
               05  FLD2221039-HCON     PICTURE X(9)    VALUE
                  "SEQUENCE=".
               05  FLD2221041-HCON     PICTURE X(3)    VALUE
                  "TL=".
      * 
      *    S T R U C T U R E    C A T E G O R Y 
      * 
               05  FLD2230005-HCON     PICTURE X(15)  VALUE 
                  "CATALOGUE NAME=".
               05  FLD2230010-HCON     PICTURE X(6)   VALUE 
                  "ALIAS=". 
               05  FLD2230015-HCON     PICTURE X(18)  VALUE 
                  "RECORD CODE VALUE=". 
               05  FLD2230020-HCON     PICTURE X(8)   VALUE 
                  "INCLUDE=". 
      * 
      *    P R O C E S S    C A T E G O R Y 
      * 
               05  FLD2240005-HCON     PICTURE X(19)  VALUE 
                  "DATABASE PROCEDURE=".
               05  FLD2240010-HCON     PICTURE X(13)  VALUE 
                  "TYPE OF PROC=".
               05  FLD2240015-HCON     PICTURE X(5)   VALUE 
                  "TIME=".
               05  FLD2240020-HCON     PICTURE X(7)   VALUE 
                  "OPTION=".
               05  FLD2240025-HCON     PICTURE X(22)  VALUE 
                  "RECORD CODE DATA NAME=". 
               05  FLD22400OF-HCON    PICTURE X(3)   VALUE
                  "OF=".
               05  FLD2240035-HCON     PICTURE X(9)   VALUE 
                  "RC ALIAS=".
      * 
      *    A C C E S S    C A T E G O R Y 
      * 
               05  FLD2242505-HCON     PICTURE X(10)  VALUE 
                  "LOCK MODE=". 
               05  FLD2242510-HCON     PICTURE X(5)   VALUE 
                  "LOCK=".
      * 
      *    M D I N F O   C A T E G O R Y
      * 
               05  FLD2245005-HCON     PICTURE X(11)  VALUE 
                  "INDEX FILE=".
               05  FLD2245010-HCON     PICTURE X(3)   VALUE 
                  "UN=".
               05  FLD2245015-HCON     PICTURE X(3)   VALUE 
                  "PW=".
               05  FLD2245020-HCON     PICTURE X(12)  VALUE 
                  "FAMILY NAME=". 
               05  FLD2245025-HCON     PICTURE X(10)  VALUE 
                  "PACK NAME=". 
               05  FLD2245030-HCON     PICTURE X(9)   VALUE 
                  "SET NAME=".
               05  FLD2245035-HCON     PICTURE X(14)  VALUE 
                  "VOLUME SERIAL=". 
               05  FLD2245040-HCON     PICTURE X(5)   VALUE 
                  "UNIT=".
               05  FLD2245045-HCON     PICTURE X(12)  VALUE 
                  "LOG OPTIONS=". 
               05  FLD2245050-HCON     PICTURE X(12)  VALUE 
                  "PFN OF AREA=". 
      * 
      *    A R E A K E Y S   C A T E G O R Y
      * 
               05  FLD2250005-HCON     PICTURE X(9)   VALUE 
                  "KEY NAME=".
               05  FLD2250010-HCON     PICTURE X(6)   VALUE 
                  "ALIAS=". 
               05  FLD2250015-HCON     PICTURE X(12)  VALUE 
                  "TYPE OF KEY=". 
               05  FLD2250020-HCON     PICTURE X(11)  VALUE 
                  "DUPLICATES=".
               05  FLD2250025-HCON     PICTURE X(6)   VALUE 
                  "USING=". 
               05  FLD2250030-HCON     PICTURE X(20)  VALUE 
                  "CONCATENATED KEY ID=". 
               05  FLD2250045-HCON     PICTURE X(12)  VALUE 
                  "CIDENTIFIER=". 
  
      ********************************************************
      *    FIELD CODES AND VALUES 
      ********************************************************
      * 
      *    RESPONSIBILITY CATEGORY - FIELD "STATUS" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2214005-CV       PICTURE X(3)        VALUE
              "CP9".
               05  FLD2214005-CD  REDEFINES  FLD2214005-CV. 
                   07  FLD2214005-CODES PICTURE X OCCURS 3. 
               05  FLD2214005-MV       PICTURE X(21)       VALUE
              "CURRENTPAST   XXXXXXX".
               05  FLD2214005-MD  REDEFINES  FLD2214005-MV. 
                   07  FLD2214005-MNG  PICTURE X(7) OCCURS 3. 
      * 
      *    RESPONSIBILITY CATEGORY - FIELD "FUNCTION" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2214010-CV       PICTURE X(4)        VALUE
              "DCT9". 
               05  FLD2214010-CD  REDEFINES  FLD2214010-CV. 
                   07  FLD2214010-CODES PICTURE X OCCURS 4. 
               05  FLD2214010-MV       PICTURE X(36)       VALUE
              "DEVELOPEDCHANGED  TESTED   XXXXXXXXX". 
               05  FLD2214010-MD  REDEFINES  FLD2214010-MV. 
                   07  FLD2214010-MNG  PICTURE X(9) OCCURS 4. 
      * 
      *    ATTRIBUTES CATEGORY - FIELD "C1" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2221005-CV       PICTURE X(2)   VALUE 
              "YN". 
               05  FLD2221005-CD  REDEFINES FLD2221005-CV.
                   07  FLD2221005-CODES PICTURE X OCCURS 2. 
               05  FLD2221005-MV       PICTURE X(38)       VALUE
              "COBOL COMP-1 FORMATCODED FORMAT       ". 
               05  FLD2221005-MD REDEFINES FLD2221005-MV. 
                   07  FLD2221005-MNG PICTURE X(19)  OCCURS 2.
      * 
      *    ATTRIBUTES CATEGORY - FIELD "EMK" CODES
      *    AND REPORT NAMES 
      * 
               05  FLD2221007-CV       PICTURE X(2)   VALUE 
              "YN". 
               05  FLD2221007-CD  REDEFINES FLD2221007-CV.
                   07  FLD2221007-CODES PICTURE X OCCURS 2. 
               05  FLD2221007-MV       PICTURE X(24)       VALUE
              "EMBEDDED    NON-EMBEDDED". 
               05  FLD2221007-MD REDEFINES FLD2221007-MV. 
                   07  FLD2221007-MNG PICTURE X(12)  OCCURS 2.
      * 
      *    ATTRIBUTES CATEGORY - FIELD "FO" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2221009-CV       PICTURE X(6)   VALUE 
              "AKISDA". 
               05  FLD2221009-CD  REDEFINES FLD2221009-CV.
                   07  FLD2221009-CODES PICTURE XX OCCURS 3.
               05  FLD2221009-MV. 
                   07 FILLER   PICTURE X(18) VALUE "ACTUAL KEY        ".
                   07 FILLER   PICTURE X(18) VALUE "INDEXED SEQUENTIAL".
                   07 FILLER   PICTURE X(18) VALUE "DIRECT ACCESS     ".
               05  FLD2221009-MD REDEFINES FLD2221009-MV. 
                   07  FLD2221009-MNG PICTURE X(18)  OCCURS 3.
      * 
      *    ATTRIBUTES CATEGORY - FIELD "KT" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2221019-CV       PICTURE X(4)   VALUE 
              "SIFU". 
               05  FLD2221019-CD  REDEFINES FLD2221019-CV.
                   07  FLD2221019-CODES PICTURE X OCCURS 4. 
               05  FLD2221019-MV. 
                   07 FILLER   PICTURE X(23) VALUE
                      "SYMBOLIC KEY           ".
                   07 FILLER   PICTURE X(23) VALUE
                      "INTEGER                ".
                   07 FILLER   PICTURE X(23) VALUE
                      "FLOATING POINT         ".
                   07 FILLER   PICTURE X(23) VALUE
                      "UNCOLLATED SYMBOLIC KEY".
               05  FLD2221019-MD REDEFINES FLD2221019-MV. 
                   07  FLD2221019-MNG PICTURE X(23)  OCCURS 4.
      * 
      *    ATTRIBUTES CATEGORY - FIELD "BT" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2221024-CV       PICTURE X(4)  VALUE
              "ICKE". 
               05  FLD2221024-CD  REDEFINES FLD2221024-CV.
                   07  FLD2221024-CODES PICTURE X OCCURS 4. 
               05  FLD2221024-MV. 
                   07 FILLER   PICTURE X(18) VALUE "INTERNAL          ".
                   07 FILLER   PICTURE X(18) VALUE "CHARACTER COUNT   ".
                   07 FILLER   PICTURE X(18) VALUE "RECORD COUNT      ".
                   07 FILLER   PICTURE X(18) VALUE "EXACT RECORD COUNT".
               05  FLD2221024-MD REDEFINES FLD2221024-MV. 
                   07  FLD2221024-MNG PICTURE X(18)  OCCURS 4.
      * 
      *    ATTRIBUTES CATEGORY - FIELD "RT" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2221037-CV       PICTURE X(8)  VALUE
              "WFRZDTUS". 
               05  FLD2221037-CD  REDEFINES FLD2221037-CV.
                   07  FLD2221037-CODES PICTURE X OCCURS 8. 
               05  FLD2221037-MV. 
                   07 FILLER   PICTURE X(23) VALUE
                      "CONTROL WORD           ".
                   07 FILLER   PICTURE X(23) VALUE
                      "FIXED LENGTH           ".
                   07 FILLER   PICTURE X(23) VALUE
                      "RECORD MARK            ".
                   07 FILLER   PICTURE X(23) VALUE
                      "ZERO BYTE TERMINATOR   ".
                   07 FILLER   PICTURE X(23) VALUE
                      "DECIMAL CHARACTER COUNT".
                   07 FILLER   PICTURE X(23) VALUE
                      "TRAILER COUNT          ".
                   07 FILLER   PICTURE X(23) VALUE
                      "UNDEFINED              ".
                   07 FILLER   PICTURE X(23) VALUE
                      "SYSTEM LOGICAL         ".
               05  FLD2221037-MD REDEFINES FLD2221037-MV. 
                   07  FLD2221037-MNG PICTURE X(23)  OCCURS 8.
      * 
      *    ATTRIBUTES CATEGORY - FIELD "SEQ" CODES
      *    AND REPORT NAMES 
      * 
               05  FLD2221039-CV       PICTURE X(3)  VALUE
              "ACD".
               05  FLD2221039-CD  REDEFINES FLD2221039-CV.
                   07  FLD2221039-CODES PICTURE X OCCURS 3. 
               05  FLD2221039-MV. 
                   07 FILLER   PICTURE X(7) VALUE "ASCII  ".
                   07 FILLER   PICTURE X(7) VALUE "COBOL  ".
                   07 FILLER   PICTURE X(7) VALUE "DISPLAY".
               05  FLD2221039-MD REDEFINES FLD2221039-MV. 
                   07  FLD2221039-MNG PICTURE X(7)  OCCURS 3. 
      * 
      *    STRUCTURE CATEGORY - FIELD "INC" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2230020-CV       PICTURE X(2)  VALUE
              "YN". 
               05  FLD2230020-CD  REDEFINES FLD2230020-CV.
                   07  FLD2230020-CODES PICTURE X OCCURS 2. 
               05  FLD2230020-MV PICTURE X(6) VALUE "YESNO ". 
               05  FLD2230020-MD REDEFINES FLD2230020-MV. 
                   07  FLD2230020-MNG PICTURE X(3) OCCURS 2.
      * 
      *    PROCESS CATEGORY - FIELD "TYPEPROC" CODES
      *    AND REPORT NAMES 
      * 
               05  FLD2240010-CV       PICTURE X(10) VALUE
              "CADPCPRCUS". 
               05  FLD2240010-CD  REDEFINES FLD2240010-CV.
                   07  FLD2240010-CODES PICTURE XX OCCURS 5.
               05  FLD2240010-MV. 
                   07 FILLER PICTURE X(13) VALUE "CALL         ". 
                   07 FILLER PICTURE X(13) VALUE "DECOMPRESSION". 
                   07 FILLER PICTURE X(13) VALUE "COMPRESSION  ". 
                   07 FILLER PICTURE X(13) VALUE "RECORD CODE  ". 
                   07 FILLER PICTURE X(13) VALUE "USING        ". 
               05  FLD2240010-MD REDEFINES FLD2240010-MV. 
                   07  FLD2240010-MNG PICTURE X(13) OCCURS 5. 
      * 
      *    AREAKEYS CATEGORY - FIELDS "TYPEKEY" AND "CTYPKEY" 
      *    CODES AND REPORT NAMES 
      * 
               05  FLD2250015-CV       PICTURE X(2)  VALUE
              "AP". 
               05  FLD2250015-CD  REDEFINES FLD2250015-CV.
                   07  FLD2250015-CODES PICTURE X OCCURS 2. 
               05  FLD2250015-MV. 
                   07 FILLER PICTURE X(9) VALUE "ALTERNATE".
                   07 FILLER PICTURE X(9) VALUE "PRIMARY  ".
               05  FLD2250015-MD REDEFINES FLD2250015-MV. 
                   07  FLD2250015-MNG PICTURE X(9) OCCURS 2.
      * 
      *    AREAKEYS CATEGORY - FIELDS "DUPES" AND "CDUPES"
      *    CODES AND REPORT NAMES 
      * 
               05  FLD2250020-CV       PICTURE X(4)  VALUE
              "AIFN". 
               05  FLD2250020-CD  REDEFINES FLD2250020-CV.
                   07  FLD2250020-CODES PICTURE X OCCURS 4. 
               05  FLD2250020-MV. 
                   07 FILLER PICTURE X(11) VALUE "ALLOWED    ". 
                   07 FILLER PICTURE X(11) VALUE "INDEXED    ". 
                   07 FILLER PICTURE X(11) VALUE "FIRST      ". 
                   07 FILLER PICTURE X(11) VALUE "NOT ALLOWED". 
               05  FLD2250020-MD REDEFINES FLD2250020-MV. 
                   07  FLD2250020-MNG PICTURE X(11) OCCURS 4. 
      * 
      *    AREAKEYS CATEGORY - FIELDS "USING" AND "CUSING"
      *    CODES AND REPORT NAMES 
      * 
               05  FLD2250025-CV       PICTURE X(2)  VALUE
              "YN". 
               05  FLD2250025-CD  REDEFINES FLD2250025-CV.
                   07  FLD2250025-CODES PICTURE X OCCURS 2. 
               05  FLD2250025-MV PICTURE X(6) VALUE "YESNO ". 
               05  FLD2250025-MD REDEFINES FLD2250025-MV. 
                   07  FLD2250025-MNG PICTURE X(3) OCCURS 2.
  
      ******************************************************************
      *    STANDARD CATEGORY REPORT DETAIL LINES FOR AREAS. 
      ******************************************************************
  
           03  22-CAT-DETAIL-LINES. 
      * 
      *    RESPONSIBILITY LINES 
      * 
      *            LINE 1: STATUS, FUNCTION, PHONE AND MAIL 
      *            LINE 2: DEPARTMENT AND DATE
      *            LINE 3: PERSON AND TITLE 
      * 
               05  CAT22140-LINE1.
                   07  FLD2214005-HDG      PICTURE X(7).
                   07  FLD2214005-VAL.
                       09  FLD2214005-POS1 PICTURE X. 
                       09  FILLER          PICTURE X(6).
                   07  FILLER              PICTURE XX.
                   07  FLD2214010-HDG      PICTURE X(9).
                   07  FLD2214010-VAL.
                       09  FLD2214010-POS1 PICTURE X. 
                       09  FILLER          PICTURE X(8).
                   07  FILLER              PICTURE XX.
                   07  FLD2214025-HDG      PICTURE X(6).
                   07  FLD2214025-VAL      PICTURE X(10). 
                   07  FILLER              PICTURE XX.
                   07  FLD2214035-HDG      PICTURE X(5).
                   07  FLD2214035-VAL      PICTURE X(5).
                   07  FILLER              PICTURE X(6).
               05  CAT22140-LINE2  REDEFINES  CAT22140-LINE1. 
                   07  FLD2214015-HDG      PICTURE X(11). 
                   07  FLD2214015-VAL      PICTURE X(32). 
                   07  FILLER              PICTURE XX.
                   07  FLD2214040-HDG      PICTURE X(5).
                   07  FLD2214040-VAL      PICTURE X(8).
                   07  FILLER              PICTURE X(12). 
               05  CAT22140-LINE3  REDEFINES  CAT22140-LINE2. 
                   07  FLD2214020-HDG      PICTURE X(7).
                   07  FLD2214020-VAL      PICTURE X(32). 
                   07  FILLER              PICTURE XX.
                   07  FLD2214030-HDG      PICTURE X(6).
                   07  FLD2214030-VAL      PICTURE X(15). 
                   07  FILLER              PICTURE X(8).
      * 
      *    NAME OR ALIAS LINE 
      * 
      *             LINE 1: DMSNAME 
      * 
               05  CAT22200-LINE1 REDEFINES  CAT22140-LINE3.
                   07  FLD2220005-HDG  PICTURE X(10). 
                   07  FLD2220005-VAL  PICTURE X(7).
                   07  FILLER          PICTURE X(53). 
      * 
      *    ATTRIBUTE LINES
      * 
      *              LINE 1:  CL, CP, C1 AND EMK
      *              LINE 2:  FO, HL AND HMB
      *              LINE 3:  KL, KP, KT AND LL 
      *              LINE 4:  MBL, MNR, MRL, ORG AND RB 
      *              LINE 5:  RKP, RKW, RMK AND RT
      *              LINE 6:  BT, SEQUENCE AND TL 
      * 
               05 CAT22210-LINE1 REDEFINES CAT22200-LINE1.
                  07 FLD2221001-HDG      PICTURE X(3).
                  07 FLD2221001-VAL      PICTURE X(6).
                  07 FILLER              PICTURE XX.
                  07 FLD2221003-HDG      PICTURE X(3).
                  07 FLD2221003-VAL      PICTURE X(6).
                  07 FILLER              PICTURE XX.
                  07 FLD2221005-HDG      PICTURE X(3).
                  07 FLD2221005-VAL      PICTURE X(19). 
                  07 FILLER              PICTURE XX.
                  07 FLD2221007-HDG      PICTURE X(4).
                  07 FLD2221007-VAL      PICTURE X(12). 
                  07 FILLER              PICTURE X(8).
               05 CAT22210-LINE2 REDEFINES CAT22210-LINE1.
                  07 FLD2221009-HDG      PICTURE X(18). 
                  07 FLD2221009-VAL      PICTURE X(18). 
                  07 FILLER              PICTURE XX.
                  07 FLD2221011-HDG      PICTURE X(3).
                  07 FLD2221011-VAL      PICTURE X(6).
                  07 FILLER              PICTURE XX.
                  07 FLD2221013-HDG      PICTURE X(12). 
                  07 FLD2221013-VAL      PICTURE X(6).
                  07 FILLER              PICTURE X. 
               05 CAT22210-LINE3 REDEFINES CAT22210-LINE1.
                  07 FLD2221015-HDG      PICTURE X(3).
                  07 FLD2221015-VAL      PICTURE X(4).
                  07 FILLER              PICTURE XX.
                  07 FLD2221017-HDG      PICTURE X(3).
                  07 FLD2221017-VAL      PICTURE X. 
                  07 FILLER              PICTURE XX.
                  07 FLD2221019-HDG      PICTURE X(3).
                  07 FLD2221019-VAL      PICTURE X(23). 
                  07 FILLER              PICTURE XX.
                  07 FLD2221021-HDG      PICTURE X(3).
                  07 FLD2221021-VAL      PICTURE X. 
                  07 FILLER              PICTURE XX.
                  07 FLD2221023-HDG      PICTURE X(3).
                  07 FLD2221023-VAL      PICTURE X(6).
                  07 FILLER              PICTURE X(10). 
               05 CAT22210-LINE4 REDEFINES CAT22210-LINE1.
                  07 FLD2221025-HDG      PICTURE X(4).
                  07 FLD2221025-VAL      PICTURE X(6).
                  07 FILLER              PICTURE XX.
                  07 FLD2221026-HDG      PICTURE X(4).
                  07 FLD2221026-VAL      PICTURE X(6).
                  07 FILLER              PICTURE XX.
                  07 FLD2221027-HDG      PICTURE X(4).
                  07 FLD2221027-VAL      PICTURE X(6).
                  07 FILLER              PICTURE XX.
                  07 FLD2221029-HDG      PICTURE X(4).
                  07 FLD2221029-VAL      PICTURE X(3).
                  07 FILLER              PICTURE XX.
                  07 FLD2221030-HDG      PICTURE X(3).
                  07 FLD2221030-VAL      PICTURE X(4).
                  07 FILLER              PICTURE X(18). 
               05 CAT22210-LINE5 REDEFINES CAT22210-LINE1.
                  07 FLD2221031-HDG      PICTURE X(4).
                  07 FLD2221031-VAL      PICTURE X(6).
                  07 FILLER              PICTURE XX.
                  07 FLD2221033-HDG      PICTURE X(4).
                  07 FLD2221033-VAL      PICTURE X(6).
                  07 FILLER              PICTURE XX.
                  07 FLD2221035-HDG      PICTURE X(3).
                  07 FLD2221035-VAL      PICTURE X(10). 
                  07 FILLER              PICTURE XX.
                  07 FLD2221037-HDG      PICTURE X(3).
                  07 FLD2221037-VAL      PICTURE X(23). 
                  07 FILLER              PICTURE X(5).
               05 CAT22210-LINE6 REDEFINES CAT22210-LINE1.
                  07 FLD2221024-HDG      PICTURE X(3).
                  07 FLD2221024-VAL      PICTURE X(18). 
                  07 FILLER              PICTURE XX.
                  07 FLD2221039-HDG      PICTURE X(9).
                  07 FLD2221039-VAL      PICTURE X(7).
                  07 FILLER              PICTURE XX.
                  07 FLD2221041-HDG      PICTURE X(3).
                  07 FLD2221041-VAL      PICTURE X(6).
                  07 FILLER              PICTURE X(20). 
      * 
      *    STRUCTURE LINES
      * 
      *              LINE 1:  CATNAME AND ALIAS 
      *              LINE 2:  RCVALUE AND INCLUDE 
      * 
               05 CAT22300-LINE1 REDEFINES CAT22210-LINE6.
                  07 FLD2230005-HDG      PICTURE X(15). 
                  07 FLD2230005-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE XX.
                  07 FLD2230010-HDG      PICTURE X(6).
                  07 FLD2230010-VAL      PICTURE X(4).
                  07 FILLER              PICTURE X(9).
               05 CAT22300-LINE2 REDEFINES CAT22300-LINE1.
                  07 FLD2230015-HDG      PICTURE X(18). 
                  07 FLD2230015-VAL      PICTURE X(30). 
                  07 FILLER              PICTURE XX.
                  07 FLD2230020-HDG      PICTURE X(8).
                  07 FLD2230020-VAL      PICTURE X(3).
                  07 FILLER              PICTURE X(9).
      * 
      *    PROCESS LINES
      * 
      *              LINE 1:  DBPROC
      *              LINE 2:  TYPEPROC
      *              LINE 3:  TIME
      *              LINE 4:  OPTION
      *              LINE 5:  RCDATA AND RCALIAS
      *              LINE 6:  RCQUAL
      * 
               05 CAT22400-LINE1 REDEFINES CAT22300-LINE2.
                  07 FLD2240005-HDG      PICTURE X(19). 
                  07 FLD2240005-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE X(19). 
               05 CAT22400-LINE2 REDEFINES CAT22400-LINE1.
                  07 FLD2240010-HDG      PICTURE X(13). 
                  07 FLD2240010-VAL      PICTURE X(13). 
                  07 FILLER              PICTURE X(44). 
               05 CAT22400-LINE3 REDEFINES CAT22400-LINE1.
                  07 FLD2240015-HDG      PICTURE X(5).
                  07 FLD2240015-VAL1     PICTURE X(6).
                  07 FILLER              PICTURE X. 
                  07 FLD2240015-VAL2     PICTURE X(16). 
                  07 FILLER              PICTURE X. 
                  07 FLD2240015-VAL3     PICTURE X(5).
                  07 FILLER              PICTURE X(36). 
               05 CAT22400-LINE4 REDEFINES CAT22400-LINE1.
                  07 FLD2240020-HDG      PICTURE X(7).
                  07 FLD2240020-VAL1     PICTURE X(4).
                  07 FILLER              PICTURE X. 
                  07 FLD2240020-VAL2     PICTURE X(5).
                  07 FILLER              PICTURE X. 
                  07 FLD2240020-VAL3     PICTURE X(6).
                  07 FILLER              PICTURE X. 
                  07 FLD2240020-VAL4     PICTURE X(9).
                  07 FILLER              PICTURE X(36). 
               05 CAT22400-LINE5 REDEFINES CAT22400-LINE1.
                  07 FLD2240025-HDG      PICTURE X(22). 
                  07 FLD2240025-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE XX.
                  07 FLD2240035-HDG      PICTURE X(9).
                  07 FLD2240035-VAL      PICTURE X(4).
                  07 FILLER              PICTURE X. 
               05 CAT22400-LINE6 REDEFINES CAT22400-LINE1.
                  07 FLD2240030-HDG      PICTURE X(3).
                  07 FLD2240030-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE X(35). 
      * 
      *    ACCESS LINES 
      * 
      *              LINE 1:  MODE
      *              LINE 2:  LOCK
      * 
               05 CAT22425-LINE1 REDEFINES CAT22400-LINE6.
                  07 FLD2242505-HDG      PICTURE X(10). 
                  07 FLD2242505-VAL1     PICTURE X(9).
                  07 FILLER              PICTURE X. 
                  07 FLD2242505-VAL2     PICTURE X(7).
                  07 FILLER              PICTURE X(43). 
               05 CAT22425-LINE2 REDEFINES CAT22425-LINE1.
                  07 FLD2242510-HDG      PICTURE X(5).
                  07 FLD2242510-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE X(33). 
      * 
      *    MDINFO LINES 
      * 
      *              LINE 1:  AREA PFN AND INDEX FILE 
      *              LINE 2:  UN, PW, SET NAME AND VSN
      *              LINE 3:  FAMILY, PACK AND UNIT 
      *              LINE 4:  LOG OPTIONS 
      * 
      * 
               05 CAT22450-LINE1 REDEFINES CAT22425-LINE2.
                  07 FLD2245050-HDG      PICTURE X(12). 
                  07 FLD2245050-VAL      PICTURE X(7).
                  07 FILLER              PICTURE XX.
                  07 FLD2245005-HDG      PICTURE X(11). 
                  07 FLD2245005-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE X(6).
               05 CAT22450-LINE2 REDEFINES CAT22450-LINE1.
                  07 FLD2245010-HDG      PICTURE X(3).
                  07 FLD2245010-VAL      PICTURE X(7).
                  07 FILLER              PICTURE XX.
                  07 FLD2245015-HDG      PICTURE X(3).
                  07 FLD2245015-VAL      PICTURE X(7).
                  07 FILLER              PICTURE XX.
                  07 FLD2245030-HDG      PICTURE X(9).
                  07 FLD2245030-VAL      PICTURE X(7).
                  07 FILLER              PICTURE XX.
                  07 FLD2245035-HDG      PICTURE X(14). 
                  07 FLD2245035-VAL      PICTURE X(6).
                  07 FILLER              PICTURE X(8).
               05 CAT22450-LINE3 REDEFINES CAT22450-LINE1.
                  07 FLD2245020-HDG      PICTURE X(12). 
                  07 FLD2245020-VAL      PICTURE X(7).
                  07 FILLER              PICTURE XX.
                  07 FLD2245025-HDG      PICTURE X(10). 
                  07 FLD2245025-VAL      PICTURE X(7).
                  07 FILLER              PICTURE XX.
                  07 FLD2245040-HDG      PICTURE X(5).
                  07 FLD2245040-VAL      PICTURE X(3).
                  07 FILLER              PICTURE X(22). 
               05 CAT22450-LINE4 REDEFINES CAT22450-LINE1.
                  07 FLD2245045-HDG      PICTURE X(12). 
                  07 FLD2245045-VAL1     PICTURE X(14). 
                  07 FILLER              PICTURE X. 
                  07 FLD2245045-VAL2     PICTURE X(13). 
                  07 FILLER              PICTURE X. 
                  07 FLD2245045-VAL3     PICTURE X(13). 
                  07 FILLER              PICTURE X(15). 
      * 
      *    AREAKEYS LINES 
      * 
      *              LINE 1:  KEYNAME AND ALIAS 
      *              LINE 2:  KOFREC
      *              LINE 3:  TYPEKEY, DUPES AND USING
      *              LINE 4:  CKEYID
      *              LINE 5:  CTYPEKEY, CDUPES AND CUSING 
      *              LINE 6:  CIDENTIFIER AND CALIAS
      *              LINE 7:  CQUAL 
      * 
               05 CAT22500-LINE1 REDEFINES CAT22425-LINE1.
                  07 FLD2250005-HDG      PICTURE X(9).
                  07 FLD2250005-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE XX.
                  07 FLD2250010-HDG      PICTURE X(6).
                  07 FLD2250010-VAL      PICTURE X(4).
                  07 FILLER              PICTURE X(17). 
      * 
      *    LINE 2 IS ALSO USED TO DISPLAY LINE 7
      * 
               05 CAT22500-LINE2 REDEFINES CAT22500-LINE1.
                  07 FLD2250013-HDG      PICTURE X(3).
                  07 FLD2250013-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE X(35). 
      * 
      *    LINE 3 IS ALSO USED TO DISPLAY LINE 5
      * 
               05 CAT22500-LINE3 REDEFINES CAT22500-LINE1.
                  07 FLD2250015-HDG      PICTURE X(12). 
                  07 FLD2250015-VAL      PICTURE X(9).
                  07 FILLER              PICTURE XX.
                  07 FLD2250020-HDG      PICTURE X(11). 
                  07 FLD2250020-VAL      PICTURE X(11). 
                  07 FILLER              PICTURE XX.
                  07 FLD2250025-HDG      PICTURE X(6).
                  07 FLD2250025-VAL      PICTURE X(3).
                  07 FILLER              PICTURE X(14). 
               05 CAT22500-LINE4 REDEFINES CAT22500-LINE1.
                  07 FLD2250030-HDG      PICTURE X(20). 
                  07 FLD2250030-VAL      PICTURE X(30). 
                  07 FILLER              PICTURE X(20). 
               05 CAT22500-LINE6 REDEFINES CAT22500-LINE1.
                  07 FLD2250045-HDG      PICTURE X(12). 
                  07 FLD2250045-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE X(35). 
                  07 FLD2250050-HDG      PICTURE X(6).
                  07 FLD2250050-VAL      PICTURE X(4).
                  07 FILLER              PICTURE X(14). 
