*COMDECK  RPTDEF13
       01  ENTRYTYPE-13-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 "13". 
  
      ****************************************************************
      *    CATEGORY HEADING CONSTANTS FOR RECORDS (ENTITY-ID = 13). 
      ****************************************************************
  
           03  13-CAT-HEADERS.
               05  ENT13-CN            PICTURE X(27)   VALUE
              "010020030200210211300400900".
               05  ENT13-CN2   REDEFINES ENT13-CN.
                   07  ENT13-CATNUMS   PICTURE XXX OCCURS 9.
               05  ENT13-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
                  "     --- ALIAS CATEGORY---    ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "   ---STRUCTURE CATEGORY---   ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "    ---PROCESS CATEGORY---    ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "     ---OTHER CATEGORY---     ". 
               05  ENT13-CATH  REDEFINES  ENT13-CH. 
                   07  ENT13-CATHDRS   PICTURE X(30) OCCURS 9.
  
      ********************************************************
      *    FIELD HEADING CONSTANTS
      ********************************************************* 
      * 
      *     N A M E S     C A T E G O R Y 
      * 
               05  FLD1320005-HCON     PICTURE X(10)   VALUE
                  "DATA NAME=". 
               05  FLD1320010-HCON     PICTURE X(11)   VALUE
                  "IDENTIFIER=".
               05  FLD1320015-HCON     PICTURE X(7)    VALUE
                  "SYMBOL=".
               05  FLD1320020-HCON     PICTURE X(10)   VALUE
                  "DBMS NAME=". 
               05  FLD1320025-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  FLD1321005-HCON     PICTURE X(15)   VALUE
                  "MAXIMUM LENGTH=".
               05  FLD1321010-HCON     PICTURE X(15)   VALUE
                  "MINIMUM LENGTH=".
               05  FLD1321015-HCON     PICTURE X(8)    VALUE
                  "STORAGE=". 
      * 
      *     S T R U C T U R E    C A T E G O R Y
      * 
               05  FLD1330005-HCON       PICTURE X(15)   VALUE
                  "CATALOGUE NAME=".
               05  FLD1330010-HCON       PICTURE X(6)    VALUE
                  "ALIAS=". 
               05  FLD1330015-HCON       PICTURE X(7)    VALUE
                  "FILLER=".
               05  FLD1330020-HCON       PICTURE X(10)   VALUE
                  "REDEFINES=". 
               05  FLD1330022-HCON       PICTURE X(6)    VALUE
                  "USAGE=". 
               05  FLD1330024-HCON       PICTURE X(16)   VALUE
                  "REDEFINES ALIAS=". 
               05  FLD1330025-HCON       PICTURE X(5)    VALUE
                  "FROM=".
               05  FLD1330030-HCON       PICTURE X(3)    VALUE
                  "TO=".
               05  FLD1330032-HCON       PICTURE X(9)    VALUE
                  "TO ALIAS=".
               05  FLD1330035-HCON       PICTURE X(11)   VALUE
                  "INDEXED BY=".
               05  FLD1330038-HCON       PICTURE X(13)   VALUE
                  "DEPENDING ON=".
               05  FLD1330039-HCON       PICTURE X(13)   VALUE
                   "DEPEND ALIAS".
               05  FLD1330045-HCON       PICTURE X(4)    VALUE
                   "KEY=".
               05  FLD1330050-HCON       PICTURE X(10)   VALUE
                   "INCLUSION=".
               05  FLD1330060-HCON       PICTURE X(7)    VALUE
                   "KEY IS ". 
               05  FLD1330065-HCON       PICTURE X(10)   VALUE
                   "KEY ALIAS=".
               05  FLD1330070-HCON       PICTURE X(10)   VALUE
                   "KEY ORDER=".
               05  FLD1330075-HCON       PICTURE X(8)    VALUE
                   "RENAMES ".
               05  FLD1330076-HCON       PICTURE X(13)   VALUE
                   "RENAME ALIAS=". 
               05  FLD1330087-HCON       PICTURE X(5)    VALUE
                   "THRU ". 
               05  FLD1330088-HCON       PICTURE X(11)   VALUE
                   "THRU ALIAS=". 
               05  FLD13300OCC-HCON      PICTURE X(7)    VALUE
                  "OCCURS:".
               05  FLD13300OF-HCON       PICTURE X(3)    VALUE
                  "OF ".
      * 
      *     T O T A L   R E C O R D   F I E L D S 
      * 
               05  FLD1330003-HCON     PICTURE X(10)   VALUE
                   "COMPONENT=".
               05  FLD1330007-HCON     PICTURE X(13)   VALUE
                   "LINKAGE PATH=". 
               05  FLD1330008-HCON     PICTURE X(9)    VALUE
                   "REC CODE=". 
               05  FLD1330012-HCON     PICTURE X(16)   VALUE
                   "LENGTH/VARIABLE=".
               05  FLD1330013-HCON     PICTURE X(6)    VALUE
                   "FIELD=".
      * 
      *     P R O C E S S    C A T E G O R Y
      * 
               05  FLD1340005-HCON     PICTURE X(19)   VALUE
                   "DATABASE PROCEDURE=". 
               05  FLD1340010-HCON     PICTURE X(13)   VALUE
                   "TYPE OF PROC=". 
               05  FLD1340015-HCON     PICTURE X(5)    VALUE
                   "TIME=". 
               05  FLD1340020-HCON     PICTURE X(7)    VALUE
                   "OPTION=". 
  
      ********************************************************* 
      * 
      *    FIELD CODES AND VALUES 
      * 
      ********************************************************* 
      * 
      *    ATTRIBUTE CATEGORY - FIELD "STORAGE" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD1321015-CV       PICTURE X(5)   VALUE 
              "ABCS9".
               05  FLD1321015-CD  REDEFINES  FLD1321015-CV. 
                   07  FLD1321015-CODES PICTURE X OCCURS 5. 
               05  FLD1321015-MV       PICTURE X(50)   VALUE
              "AUTOMATIC BASED     CONTROLLEDSTATIC    XXXXXXXXXX". 
               05  FLD1321015-MD   REDEFINES FLD1321015-MV. 
                   07  FLD1321015-MNG  PICTURE X(10) OCCURS 5.
      * 
      *    STRUCTURE CATEGORY - FIELD "KEY" CODES 
      *    AND REPORT NAMES 
      * 
               05 FLD1330045-CV        PICTURE X(5)        VALUE
              "MNUD9".
               05  FLD1330045-CD   REDEFINES FLD1330045-CV. 
                   07 FLD1330045-CODES PICTURE X OCCURS 5.
               05 FLD1330045-MV        PICTURE X(45)       VALUE
              "MULTIPLE NO       UNIQUE   DUPLICATEXXXXXXXXX".
               05 FLD1330045-MD REDEFINES FLD1330045-MV.
                   07 FLD1330045-MNG   PICTURE X(9) OCCURS 5. 
      * 
      *    STRUCTURE CATEGORY - FIELD "INC" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD1330050-CV       PICTURE X(3)   VALUE 
              "NY9".
               05  FLD1330050-CD   REDEFINES FLD1330050-CV. 
                   07  FLD1330050-CODES PICTURE X OCCURS 3. 
               05  FLD1330050-MV       PICTURE X(9)   VALUE 
              "NO YESXXX".
               05  FLD1330050-MD   REDEFINES FLD1330050-MV. 
                   07  FLD1330050-MNG  PICTURE X(3)  OCCURS 3.
      * 
      *    STRUCTURE CATEGORY - FIELD "TKEY" CODES
      *    AND REPORT NAMES 
      * 
               05  FLD1330002-CV      PICTURE X(3)   VALUE
              "NY9".
               05  FLD1330002-CD  REDEFINES  FLD1330002-CV. 
                   07  FLD1330002-CODES  PICTURE X  OCCURS 3. 
               05  FLD1330002-MV     PICTURE X(9)   VALUE 
              "NO YESXXX".
               05  FLD1330002-MD  REDEFINES  FLD1330002-MV. 
                   07  FLD1330002-MNG  PICTURE X(3)  OCCURS 3.
  
      * 
      *    STRUCTURE CATEGORY - FIELD "USAGE" CODES AND 
      *    REPORT NAMES.
      * 
               05  FLD1330022-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  FLD1330022-CD  REDEFINES FLD1330022-CV.
                   07  FLD1330022-CODES PICTURE X(7) OCCURS 8.
               05  FLD1330022-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  FLD1330022-MD  REDEFINES  FLD1330022-MV. 
                   07  FLD1330022-MNG  PICTURE X(15) OCCURS 8.
      * 
      *    STRUCTURE CATEGORY - FIELD "KORDER" CODES AND
      *    REPORT NAMES.
      * 
               05  FLD1330070-CV       PICTURE X(2)        VALUE
              "AD". 
               05  FLD1330070-CD  REDEFINES FLD1330070-CV.
                   07  FLD1330070-CODES PICTURE X OCCURS 2. 
               05  FLD1330070-MV       PICTURE X(20)       VALUE
              "ASCENDING DESCENDING". 
               05  FLD1330070-MD  REDEFINES  FLD1330070-MV. 
                   07  FLD1330070-MNG  PICTURE X(10) OCCURS 2.
  
      ******************************************************************
      *    STANDARD CATEGORY REPORT DETAIL LINES FOR GROUPS.
      ******************************************************************
  
           03  15-CAT-DETAIL-LINES. 
      * 
      *    NAME LINES 
      * 
      *             LINE 1:  DATANAME AND SYMBOL
      *             LINE 2:  IDENTIFIER AND DBMS NAME 
      *             LINE 3:  DMS NAME 
      * 
               05  CAT13200-LINE1.
                   07  FLD1320005-HDG  PICTURE  X(10).
                   07  FLD1320005-VAL  PICTURE  X(32).
                   07  FILLER          PICTURE  XX. 
                   07  FLD1320015-HDG  PICTURE  X(7). 
                   07  FLD1320015-VAL  PICTURE  X(8). 
                   07  FILLER          PICTURE  X(11).
               05  CAT13200-LINE2 REDEFINES CAT13200-LINE1. 
                   07  FLD1320010-HDG  PICTURE  X(11).
                   07  FLD1320010-VAL  PICTURE  X(31).
                   07  FILLER          PICTURE  XX. 
                   07  FLD1320020-HDG  PICTURE  X(10).
                   07  FLD1320020-VAL  PICTURE  X(8). 
                   07  FILLER          PICTURE X(8).
               05  CAT13200-LINE3 REDEFINES CAT13200-LINE1. 
                   07  FLD1320025-HDG  PICTURE  X(9). 
                   07  FLD1320025-VAL  PICTURE  X(30).
                   07  FILLER          PICTURE  X(31).
      * 
      *    ATTRIBUTE LINES
      * 
      *                  LINE 1: MAXLEN, MINLEN AND STORAGE 
      * 
               05  CAT13210-LINE1 REDEFINES CAT13200-LINE3. 
                   07  FLD1321005-HDG  PICTURE X(15). 
                   07  FLD1321005-VAL  PICTURE ZZZ9.
                   07  FILLER          PICTURE XXXX.
                   07  FLD1321010-HDG  PICTURE X(15). 
                   07  FLD1321010-VAL  PICTURE ZZZ9.
                   07  FILLER          PICTURE XXXX.
                   07  FLD1321015-HDG  PICTURE X(8).
                   07  FLD1321015-VAL.
                       09  FLD1321015-POS1 PICTURE X. 
                       09  FILLER      PICTURE X(9).
                   07  FILLER          PICTURE X(6).
      * 
      *    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
      *              LINE 26: TKEY, LINKPATH AND VARLEN 
      *              LINE 27: LKFIELD AND LKALIAS 
      *              LINE 28: COMPNAME, RCCODE AND CPALIAS
      * 
               05  CAT13300-LINE1  REDEFINES  CAT13210-LINE1. 
                   07 FLD1330005-HDG     PICTURE X(15). 
                   07 FLD1330005-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE XX.
                   07 FLD1330010-HDG     PICTURE X(6).
                   07 FLD1330010-VAL     PICTURE X(4).
                   07 FILLER             PICTURE X(11). 
               05  CAT13300-LINE2  REDEFINES  CAT13300-LINE1. 
                   07 FLD1330015-HDG     PICTURE X(7).
                   07 FLD1330015-VAL     PICTURE X(4).
                   07 FILLER             PICTURE XX.
                   07 FLD1330022-HDG     PICTURE X(6).
                   07 FLD1330022-VAL     PICTURE X(15). 
                   07 FILLER             PICTURE XX.
                   07 FLD1330045-HDG     PICTURE X(4).
                   07 FLD1330045-VAL     PICTURE X(9).
                   07 FILLER             PICTURE XX.
                   07 FLD1330050-HDG     PICTURE X(10). 
                   07 FLD1330050-VAL     PICTURE X(3).
                   07 FILLER             PICTURE X(7).
               05  CAT13300-LINE3  REDEFINES  CAT13300-LINE1. 
                   07 FLD1330020-HDG     PICTURE X(10). 
                   07 FLD1330020-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE XX.
                   07 FLD1330024-HDG     PICTURE X(16). 
                   07 FLD1330024-VAL     PICTURE X(4).
                   07 FILLER             PICTURE X(6).
               05  CAT13300-LINE4  REDEFINES  CAT13300-LINE1. 
                   07 FLD13300OCC-HDG    PICTURE X(7).
                   07 FILLER             PICTURE XX.
                   07 FLD1330025-HDG     PICTURE X(5).
                   07 FLD1330025-VAL     PICTURE X(4).
                   07 FILLER             PICTURE XX.
                   07 FLD1330030-HDG     PICTURE X(3).
                   07 FLD1330030-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE X(2).
                   07 FLD1330032-HDG     PICTURE X(9).
                   07 FLD1330032-VAL     PICTURE X(4).
               05  CAT13300-LINE5  REDEFINES  CAT13300-LINE1. 
                   07 FLD1330038-HDG     PICTURE X(13). 
                   07 FLD1330038-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE XX.
                   07 FLD1330039-HDG     PICTURE X(13). 
                   07 FLD1330039-VAL     PICTURE X(4).
                   07 FILLER             PICTURE X(6).
      * 
      *    CAT13300-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  CAT13300-LINE6  REDEFINES  CAT13300-LINE1. 
                   07 FLD13300QUAL-HDG   PICTURE X(3).
                   07 FLD13300QUAL-VAL   PICTURE X(32). 
                   07 FILLER             PICTURE X(35). 
               05  CAT13300-LINE11  REDEFINES  CAT13300-LINE1.
                   07 FLD1330035-HDG     PICTURE X(13). 
                   07 FLD1330035-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE X(25). 
               05  CAT13300-LINE12  REDEFINES  CAT13300-LINE1.
                   07 FLD1330060-HDG     PICTURE X(7).
                   07 FLD1330060-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE XX.
                   07 FLD1330065-HDG     PICTURE X(10). 
                   07 FLD1330065-VAL     PICTURE X(4).
                   07 FILLER             PICTURE X(15). 
               05  CAT13300-LINE13  REDEFINES  CAT13300-LINE1.
                   07 FLD1330070-HDG     PICTURE X(10). 
                   07 FLD1330070-VAL     PICTURE X(20). 
                   07 FILLER             PICTURE X(40). 
               05  CAT13300-LINE14  REDEFINES  CAT13300-LINE1.
                   07 FLD1330075-HDG     PICTURE X(8).
                   07 FLD1330075-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE XX.
                   07 FLD1330076-HDG     PICTURE X(13). 
                   07 FLD1330076-VAL     PICTURE X(4).
                   07 FILLER             PICTURE X(11). 
               05  CAT13300-LINE20  REDEFINES  CAT13300-LINE1.
                   07 FLD1330087-HDG     PICTURE X(5).
                   07 FLD1330087-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE XX.
                   07 FLD1330088-HDG     PICTURE X(11). 
                   07 FLD1330088-VAL     PICTURE X(4).
                   07 FILLER             PICTURE X(16). 
               05  CAT13300-LINE26  REDEFINES  CAT13300-LINE1.
                   07 FLD1330002-HDG     PICTURE X(4).
                   07 FLD1330002-VAL     PICTURE X(3).
                   07 FILLER             PICTURE XX.
                   07 FLD1330007-HDG     PICTURE X(13). 
                   07 FLD1330007-VAL     PICTURE X(16). 
                   07 FILLER             PICTURE XX.
                   07 FLD1330012-HDG     PICTURE X(16). 
                   07 FLD1330012-VAL     PICTURE X(5).
                   07 FILLER             PICTURE X(9).
               05  CAT13300-LINE27  REDEFINES  CAT13300-LINE1.
                   07 FLD1330013-HDG     PICTURE X(6).
                   07 FLD1330013-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE XX.
                   07 FLD1330016-HDG     PICTURE X(6).
                   07 FLD1330016-VAL     PICTURE X(4).
                   07 FILLER             PICTURE X(20). 
               05  CAT13300-LINE28  REDEFINES  CAT13300-LINE1.
                   07 FLD1330003-HDG     PICTURE X(10). 
                   07 FLD1330003-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE XX.
                   07 FLD1330008-HDG     PICTURE X(9).
                   07 FLD1330008-VAL     PICTURE X(2).
                   07 FILLER             PICTURE XX.
                   07 FLD1330011-HDG     PICTURE X(6).
                   07 FLD1330011-VAL     PICTURE X(4).
                   07 FILLER             PICTURE X(3).
      * 
      *     PROCESS LINES 
      * 
      *                 LINE 1: DATABASE PROCEDURE
      *                 LINE 2: TYPE OF PROCEDURE AND TIME
      *                 LINE 3: OPTION
      * 
               05  CAT13400-LINE1  REDEFINES  CAT13300-LINE20.
                   07 FLD1340005-HDG     PICTURE X(19). 
                   07 FLD1340005-VAL     PICTURE X(32). 
                   07 FILLER             PICTURE X(19). 
               05  CAT13400-LINE2  REDEFINES  CAT13400-LINE1. 
                   07 FLD1340010-HDG     PICTURE X(13). 
                   07 FLD1340010-VAL     PICTURE X(14). 
                   07 FILLER             PICTURE XX.
                   07 FLD1340015-HDG     PICTURE X(5).
                   07 FLD1340015-VAL1    PICTURE X(6).
                   07 FLD1340015-VAL2    PICTURE X(5).
                   07 FLD1340015-VAL3    PICTURE X(15). 
                   07 FILLER             PICTURE X(10). 
               05  CAT13400-LINE3  REDEFINES  CAT13400-LINE1. 
                   07 FLD1340020-HDG     PICTURE X(7).
                   07 FLD1340020-VAL1    PICTURE X(5).
                   07 FLD1340020-VAL2    PICTURE X(6).
                   07 FLD1340020-VAL3    PICTURE X(6).
                   07 FLD1340020-VAL4    PICTURE X(4).
                   07 FLD1340020-VAL5    PICTURE X(3).
                   07 FILLER             PICTURE X(39). 
