*COMDECK  RPTDEF10
       01  ENTRYTYPE-10-RPTDATA.
      ****************************************************************
      *    THIS SECTION REDEFINES THE LINE FORMAT, FIELD VALUES,
      *    CODES AND WORK AREAS FOR 70 CHARACTER LINE FORMATS.
      *************************************************************** 
  
           03  ENTRY-TYPE-CONSTANT        PICTURE XX  VALUE "10". 
  
      ******************************************************************
      *    CATEGORY HEADING CONSTANTS FOR GROUPS (ENTITY-ID = 10).
      ******************************************************************
  
           03  10-CAT-HEADERS.
               05  ENT10-CN            PICTURE X(21)   VALUE
              "010020030200210300900".
               05  ENT10-CN2   REDEFINES ENT10-CN.
                   07  ENT10-CATNUMS PICTURE XXX OCCURS 7.
               05  ENT10-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
                  "     ---NAMES CATEGORY---     ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "   ---ATTRIBUTE CATEGORY---   ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "   ---STRUCTURE CATEGORY---   ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "     ---OTHER CATEGORY---     ". 
               05  ENT10-CATH  REDEFINES ENT10-CH.
                   07  ENT10-CATHDRS   PICTURE X(30) OCCURS 7.
      ******************************************************
      *    FIELD HEADING CONSTANTS. 
      ******************************************************
      * 
      *     N A M E S   C A T E G O R Y 
      * 
               05  FLD1020005-HCON     PICTURE X(10)   VALUE
                  "DATA NAME=". 
               05  FLD1020010-HCON     PICTURE X(11)   VALUE
                  "IDENTIFIER=".
               05  FLD1020015-HCON     PICTURE X(7)    VALUE
                  "SYMBOL=".
               05  FLD1020020-HCON     PICTURE X(10)   VALUE
                  "DBMS NAME=". 
               05  FLD1020035-HCON     PICTURE X(9)  VALUE
                  "DMS NAME=".
      * 
      *    A T T R I B U T E   C A T E G O R Y
      * 
               05  FLD1021005-HCON     PICTURE X(7)    VALUE
                  "LENGTH=".
               05  FLD1021010-HCON     PICTURE X(7)    VALUE
                  "FORMAT=".
               05  FLD1021015-HCON     PICTURE X(8)    VALUE
                  "PICTURE=". 
               05  FLD1021020-HCON     PICTURE X(10)   VALUE
                  "JUSTIFIED=". 
               05  FLD1021025-HCON     PICTURE X(13)   VALUE
                  "SYNCHRONIZED=".
      * 
      *    S T R U C T U R E   C A T E G O R Y
      * 
               05  FLD1030005-HCON     PICTURE X(15)   VALUE
                  "CATALOGUE NAME=".
               05  FLD1030010-HCON     PICTURE X(6)    VALUE
                  "ALIAS=". 
               05  FLD1030015-HCON     PICTURE X(7)    VALUE
                  "FILLER=".
               05  FLD1030020-HCON     PICTURE X(10)   VALUE
                  "REDEFINES=". 
               05  FLD1030022-HCON     PICTURE X(6)    VALUE
                  "USAGE=". 
               05  FLD1030024-HCON     PICTURE X(16)   VALUE
                  "REDEFINES ALIAS=". 
               05  FLD1030025-HCON     PICTURE X(5)    VALUE
                  "FROM=".
               05  FLD1030030-HCON     PICTURE X(3)    VALUE
                  "TO=".
               05  FLD1030032-HCON     PICTURE X(9)    VALUE
                  "TO ALIAS=".
               05  FLD1030035-HCON     PICTURE X(11)   VALUE
                  "INDEXED BY=".
               05  FLD1030038-HCON     PICTURE X(13)   VALUE
                  "DEPENDING ON=".
               05  FLD1030039-HCON     PICTURE X(13)   VALUE
                  "DEPEND ALIAS=".
               05  FLD1030045-HCON     PICTURE X(4)    VALUE
                  "KEY=". 
               05  FLD1030050-HCON     PICTURE X(10)   VALUE
                  "INCLUSION=". 
               05  FLD1030060-HCON     PICTURE X(7)    VALUE
                  "KEY IS ".
               05  FLD1030065-HCON     PICTURE X(10)   VALUE
                  "KEY ALIAS=". 
               05  FLD1030070-HCON     PICTURE X(10)   VALUE
                  "KEY ORDER=". 
               05  FLD1030075-HCON     PICTURE X(8)    VALUE
                  "RENAMES ". 
               05  FLD1030076-HCON     PICTURE X(13)   VALUE
                  "RENAME ALIAS=".
               05  FLD1030087-HCON     PICTURE X(5)    VALUE
                  "THRU ".
               05  FLD1030088-HCON     PICTURE X(11)   VALUE
                  "THRU ALIAS=".
               05  FLD10300DCC-HCON    PICTURE X(7)    VALUE
                  "OCCURS:".
               05  FLD10300OF-HCON    PICTURE X(3)     VALUE
                  "OF ".
      ******************************************************
      * 
      *    FIELD CODES AND VALUES 
      * 
      ******************************************************
      * 
      *    ATTRIBUTE CATEGORY - FIELD "FORMAT" CODES AND
      *    REPORT NAMES.
      * 
               05  FLD1021010-CV. 
                  07 FILLER PICTURE X(12) VALUE "B  C  CO COD". 
                  07 FILLER PICTURE X(12) VALUE "D  DFRDR DRF". 
                  07 FILLER PICTURE X(12) VALUE "F  FI FIDFIR". 
                  07 FILLER PICTURE X(12) VALUE "FD FR H  N  ". 
                  07 FILLER PICTURE X(12) VALUE "O  P  R  9  ". 
               05  FLD1021010-CD  REDEFINES   FLD1021010-CV.
                  07  FLD1021010-CODES  PICTURE X(3) OCCURS 20. 
              05  FLD1021010-MV.
                  07  FILLER PICTURE X(18) VALUE
                 "BINARY            ".
                  07  FILLER PICTURE X(18) VALUE
                 "CHARACTER         ".
                  07  FILLER PICTURE X(18) VALUE
                 "COMPLEX           ".
                  07  FILLER PICTURE X(18) VALUE
                 "COMPLEX DECIMAL   ".
                  07  FILLER PICTURE X(18) VALUE
                 "DECIMAL           ".
                  07  FILLER PICTURE X(18) VALUE
                 "DECIMAL FIXED REAL".
                  07  FILLER PICTURE X(18) VALUE
                 "DECIMAL REAL      ".
                  07  FILLER PICTURE X(18) VALUE
                 "DECIMAL REAL FLOAT".
                  07  FILLER PICTURE X(18) VALUE
                 "FLOATING POINT    ".
                  07  FILLER PICTURE X(18) VALUE
                 "FIXED             ".
                  07  FILLER PICTURE X(18) VALUE
                 "FIXED DECIMAL     ".
                  07  FILLER PICTURE X(18) VALUE
                 "FIXED REAL        ".
                  07  FILLER PICTURE X(18) VALUE
                 "FLOAT DECIMAL     ".
                  07  FILLER PICTURE X(18) VALUE
                 "FLOAT REAL        ".
                  07  FILLER PICTURE X(18) VALUE
                 "HEXADECIMAL       ".
                  07  FILLER PICTURE X(18) VALUE
                 "NUMERIC           ".
                  07  FILLER PICTURE X(18) VALUE
                 "OCTAL             ".
                  07  FILLER PICTURE X(18) VALUE
                 "PACKED DECIMAL    ".
                  07  FILLER PICTURE X(18) VALUE
                 "REAL              ".
                  07  FILLER PICTURE X(18) VALUE
                 "XXXXXXXXXXXXXXXXXX".
               05  FLD1021010-MD   REDEFINES FLD1021010-MV. 
                   07  FLD1021010-MNG  PICTURE X(18) OCCURS 20. 
      * 
      *    ATTRIBUTE CATEGORY - FIELD "JUST" CODES AND
      *    REPORT NAMES.
      * 
               05 FLD1021020-CV        PICTURE X(3)    VALUE
              "LR9".
               05  FLD1021020-CD  REDEFINES FLD1021020-CV.
                   07 FLD1021020-CODES PICTURE X OCCURS 3.
               05  FLD1021020-MV       PICTURE X(15)   VALUE
              "LEFT RIGHTXXXXX".
               05  FLD1021020-MD  REDEFINES  FLD1021020-MV. 
                   07 FLD1021020-MNG   PICTURE X(5) OCCURS 3. 
      * 
      *    ATTRIBUTE CATEGORY - FIELD "SYNC" CODES AND
      *    REPORT NAMES.
      * 
               05  FLD1021025-CV       PICTURE X(5)    VALUE
              "YNLR9".
               05  FLD1021025-CD  REDEFINES  FLD1021025-CV. 
                   07 FLD1021025-CODES PICTURE X OCCURS 5.
               05  FLD1021025-MV       PICTURE X(25)   VALUE
              "YES  NO   LEFT RIGHTXXXXX".
               05  FLD1021025-MD  REDEFINES  FLD1021025-MV. 
                   07 FLD1021025-MNG   PICTURE X(5) OCCURS 5. 
      * 
      *    STRUCTURE CATEGORY - FIELD "INC" CODES AND 
      *    REPORT NAMES.
      * 
               05  FLD1030050-CV       PICTURE X(3)    VALUE
              "NY9".
               05  FLD1030050-CD   REDEFINES FLD1030050-CV. 
                   07  FLD1030050-CODES PICTURE X OCCURS 3. 
               05  FLD1030050-MV       PICTURE X(9)   VALUE 
              "NO YESXXX".
               05  FLD1030050-MD REDEFINES FLD1030050-MV. 
                   07  FLD1030050-MNG  PICTURE X(3) OCCURS 3. 
      * 
      *    STRUCTURE CATEGORY - FIELD "KEY" CODES AND 
      *    REPORT NAMES.
      * 
               05  FLD1030045-CV       PICTURE X(5)        VALUE
              "DUMN9".
               05  FLD1030045-CD  REDEFINES FLD1030045-CV.
                   07  FLD1030045-CODES PICTURE X OCCURS 5. 
               05  FLD1030045-MV       PICTURE X(45)       VALUE
              "DUPLICATEUNIQUE   MULTIPLE NO       XXXXXXXXX".
               05  FLD1030045-MD  REDEFINES  FLD1030045-MV. 
                   07  FLD1030045-MNG  PICTURE X(9) OCCURS 5. 
      * 
      *    STRUCTURE CATEGORY - FIELD "USAGE" CODES AND 
      *    REPORT NAMES.
      * 
               05  FLD1030022-CV. 
                   07 FILLER PICTURE X(7) VALUE "COMP   ".
                   07 FILLER PICTURE X(7) VALUE "COMP1  ".
                   07 FILLER PICTURE X(7) VALUE "COMP2  ".
                   07 FILLER PICTURE X(7) VALUE "COMPLEX".
                   07 FILLER PICTURE X(7) VALUE "DISPLAY".
                   07 FILLER PICTURE X(7) VALUE "DOUBLE ".
                   07 FILLER PICTURE X(7) VALUE "INDEX  ".
                   07 FILLER PICTURE X(7) VALUE "LOGICAL".
               05  FLD1030022-CD  REDEFINES FLD1030022-CV.
                   07  FLD1030022-CODES PICTURE X(7) OCCURS 8.
               05  FLD1030022-MV. 
                   07 FILLER PICTURE X(15) VALUE "COMPUTATIONAL  ". 
                   07 FILLER PICTURE X(15) VALUE "COMPUTATIONAL-1". 
                   07 FILLER PICTURE X(15) VALUE "COMPUTATIONAL-2". 
                   07 FILLER PICTURE X(15) VALUE "COMPLEX        ". 
                   07 FILLER PICTURE X(15) VALUE "DISPLAY        ". 
                   07 FILLER PICTURE X(15) VALUE "DOUBLE         ". 
                   07 FILLER PICTURE X(15) VALUE "INDEX          ". 
                   07 FILLER PICTURE X(15) VALUE "LOGICAL        ". 
               05  FLD1030022-MD  REDEFINES  FLD1030022-MV. 
                   07  FLD1030022-MNG  PICTURE X(15) OCCURS 8.
      * 
      *    STRUCTURE CATEGORY - FIELD "KORDER" CODES AND
      *    REPORT NAMES.
      * 
               05  FLD1030070-CV       PICTURE X(2)        VALUE
              "AD". 
               05  FLD1030070-CD  REDEFINES FLD1030070-CV.
                   07  FLD1030070-CODES PICTURE X OCCURS 2. 
               05  FLD1030070-MV       PICTURE X(20)       VALUE
              "ASCENDING DESCENDING". 
               05  FLD1030070-MD  REDEFINES  FLD1030070-MV. 
                   07  FLD1030070-MNG  PICTURE X(10) OCCURS 2.
      ******************************************************************
      *    STANDARD CATEGORY REPORT DETAIL LINES FOR GROUPS.
      ******************************************************************
           03  10-CAT-DETAIL-LINES. 
      * 
      *    NAME LINES 
      * 
      *              LINE 1: DATANAME AND SYMBOL
      *              LINE 2: IDENTIFIER AND DBMS NAME 
      *              LINE 3: DMS NAME 
      * 
               05  CAT10200-LINE1.
                   07  FLD1020005-HDG  PICTURE  X(10).
                   07  FLD1020005-VAL  PICTURE  X(32).
                   07  FILLER          PICTURE  XX. 
                   07  FLD1020015-HDG  PICTURE  X(7). 
                   07  FLD1020015-VAL  PICTURE  X(8). 
                   07  FILLER          PICTURE  X(11).
               05  CAT10200-LINE2 REDEFINES CAT10200-LINE1. 
                   07  FLD1020010-HDG  PICTURE  X(11).
                   07  FLD1020010-VAL  PICTURE  X(31).
                   07  FILLER          PICTURE  XX. 
                   07  FLD1020020-HDG  PICTURE  X(10).
                   07  FLD1020020-VAL  PICTURE  X(8). 
                   07  FILLER          PICTURE X(8).
               05  CAT10200-LINE3  REDEFINES  CAT10200-LINE2. 
                   07  FLD1020035-HDG   PICTURE X(9). 
                   07  FLD1020035-VAL   PICTURE X(30).
                   07  FILLER           PICTURE X(31).
      * 
      *    ATTRIBUTE LINES
      * 
      *              LINE 1:  LENGTH AND FORMAT 
      *              LINE 2:  PICTURE, JUSTIFIED AND SYNCHRONIZED 
      * 
               05  CAT10210-LINE1  REDEFINES  CAT10200-LINE3. 
                   07  FLD1021005-HDG      PICTURE  X(7). 
                   07  FLD1021005-VAL      PICTURE  Z(9)9.
                   07  FILLER              PICTURE  X(3). 
                   07  FLD1021010-HDG      PICTURE  X(7). 
                   07  FLD1021010-VAL.
                       09  FLD1021010-POS1 PICTURE X(18). 
                   07  FILLER              PICTURE X(25). 
               05  CAT10210-LINE2  REDEFINES CAT10210-LINE1.
                   07  FLD1021015-HDG      PICTURE X(8).
                   07  FLD1021015-VAL      PICTURE X(25). 
                   07  FILLER              PICTURE XX.
                   07  FLD1021020-HDG      PICTURE X(10). 
                   07  FLD1021020-VAL.
                       09  FLD1021020-POS1 PICTURE X(5).
                   07  FILLER              PICTURE X(2).
                   07  FLD1021025-HDG      PICTURE X(13). 
                   07  FLD1021025-VAL.
                       09  FLD1021025-POS1 PICTURE X(5).
                   07  FILLER              PICTURE X(37). 
      * 
      *    STRUCTURE LINES
      * 
      *              LINE 1:  CATNAME AND ALIAS 
      *              LINE 2:  FILLER, USAGE, KEY AND INCLUDE
      *              LINE 3:  REDEFINE AND REDEFINE ALIAS 
      *              LINE 4:  FROM, TO AND TO ALIAS 
      *              LINE 5:  DEPEND AND DEPEND ALIAS 
      *              LINE 6:  D1QUAL
      *              LINE 7:  D2QUAL
      *              LINE 8:  D3QUAL
      *              LINE 9:  D4QUAL
      *              LINE 10: D5QUAL
      *              LINE 11: INDEX 
      *              LINE 12: KNAME AND KALIAS
      *              LINE 13: KORDER
      *              LINE 14: RENAMES AND RENAMES ALIAS 
      *              LINE 15: R1QUAL
      *              LINE 16: R2QUAL
      *              LINE 17: R3QUAL
      *              LINE 18: R4QUAL
      *              LINE 19: R5QUAL
      *              LINE 20: THRU AND THRU ALIAS 
      *              LINE 21: T1QUAL
      *              LINE 22: T2QUAL
      *              LINE 23: T3QUAL
      *              LINE 24: T4QUAL
      *              LINE 25: T5QUAL
      * 
               05  CAT10300-LINE1  REDEFINES  CAT10210-LINE2. 
                   07 FLD1030005-HDG     PICTURE X(15). 
                   07 FLD1030005-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE XX.
                   07 FLD1030010-HDG     PICTURE X(6).
                   07 FLD1030010-VAL     PICTURE X(4).
                   07 FILLER             PICTURE X(11). 
               05  CAT10300-LINE2  REDEFINES  CAT10300-LINE1. 
                   07 FLD1030015-HDG     PICTURE X(7).
                   07 FLD1030015-VAL     PICTURE X(4).
                   07 FILLER             PICTURE XX.
                   07 FLD1030022-HDG     PICTURE X(6).
                   07 FLD1030022-VAL     PICTURE X(15). 
                   07 FILLER             PICTURE XX.
                   07 FLD1030045-HDG     PICTURE X(4).
                   07 FLD1030045-VAL     PICTURE X(9).
                   07 FILLER             PICTURE XX.
                   07 FLD1030050-HDG     PICTURE X(10). 
                   07 FLD1030050-VAL     PICTURE X(3).
                   07 FILLER             PICTURE X(7).
               05  CAT10300-LINE3  REDEFINES  CAT10300-LINE1. 
                   07 FLD1030020-HDG     PICTURE X(10). 
                   07 FLD1030020-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE XX.
                   07 FLD1030024-HDG     PICTURE X(16). 
                   07 FLD1030024-VAL     PICTURE X(4).
                   07 FILLER             PICTURE X(6).
               05  CAT10300-LINE4  REDEFINES  CAT10300-LINE1. 
                   07 FLD10300DCC-HDG    PICTURE X(7).
                   07 FILLER             PICTURE XX.
                   07 FLD1030025-HDG     PICTURE X(5).
                   07 FLD1030025-VAL     PICTURE X(4).
                   07 FILLER             PICTURE XX.
                   07 FLD1030030-HDG     PICTURE X(3).
                   07 FLD1030030-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE X(2).
                   07 FLD1030032-HDG     PICTURE X(9).
                   07 FLD1030032-VAL     PICTURE X(4).
               05  CAT10300-LINE5  REDEFINES  CAT10300-LINE1. 
                   07 FLD1030038-HDG     PICTURE X(13). 
                   07 FLD1030038-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE XX.
                   07 FLD1030039-HDG     PICTURE X(13). 
                   07 FLD1030039-VAL     PICTURE X(4).
                   07 FILLER             PICTURE X(6).
      * 
      *    CAT10300-LINE 6 IS USED FOR: 
      *    DEPEND QUALIFIERS (LINES 6 THRU 10), 
      *    RENAMES QUALIFIERS (LINES 15 THRU 19) AND
      *    THRU QUALIFIERS (LINES 21 THRU 25).
      * 
               05  CAT10300-LINE6  REDEFINES  CAT10300-LINE1. 
                   07 FLD10300QUAL-HDG   PICTURE X(3).
                   07 FLD10300QUAL-VAL   PICTURE X(32). 
                   07 FILLER             PICTURE X(35). 
               05  CAT10300-LINE11  REDEFINES  CAT10300-LINE1.
                   07 FLD1030035-HDG     PICTURE X(13). 
                   07 FLD1030035-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE X(25). 
               05  CAT10300-LINE12  REDEFINES  CAT10300-LINE1.
                   07 FLD1030060-HDG     PICTURE X(7).
                   07 FLD1030060-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE XX.
                   07 FLD1030065-HDG     PICTURE X(10). 
                   07 FLD1030065-VAL     PICTURE X(4).
                   07 FILLER             PICTURE X(15). 
               05  CAT10300-LINE13  REDEFINES  CAT10300-LINE1.
                   07 FLD1030070-HDG     PICTURE X(10). 
                   07 FLD1030070-VAL     PICTURE X(20). 
                   07 FILLER             PICTURE X(40). 
               05  CAT10300-LINE14  REDEFINES  CAT10300-LINE1.
                   07 FLD1030075-HDG     PICTURE X(8).
                   07 FLD1030075-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE XX.
                   07 FLD1030076-HDG     PICTURE X(13). 
                   07 FLD1030076-VAL     PICTURE X(4).
                   07 FILLER             PICTURE X(11). 
               05  CAT10300-LINE20  REDEFINES  CAT10300-LINE1.
                   07 FLD1030087-HDG     PICTURE X(5).
                   07 FLD1030087-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE XX.
                   07 FLD1030088-HDG     PICTURE X(11). 
                   07 FLD1030088-VAL     PICTURE X(4).
                   07 FILLER             PICTURE X(16). 
