*COMDECK RPTDEF26 
  
       01  ENTRYTYPE-26-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 "26". 
  
      ******************************************************************
      *    CATEGORY HEADING CONSTANTS FOR SCHEMAS (ENTITY-ID = 26). 
      ******************************************************************
  
           03  26-CAT-HEADERS.
               05  ENT26-CN            PICTURE X(33)   VALUE
              "010020030140200300450475550575900" . 
               05  ENT26-CN2   REDEFINES ENT26-CN.
                   07  ENT26-CATNUMS PICTURE XXX OCCURS 11. 
               05  ENT26-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
                  "   ---STRUCTURE CATEGORY---   ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "     ---MDINFO CATEGORY---    ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "   ---JOBCONTROL CATEGORY---  ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "      ---BOND CATEGORY---     ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "     ---JOINS CATEGORY---     ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "     ---OTHER CATEGORY---     ". 
               05  ENT26-CATH    REDEFINES  ENT26-CH. 
                   07  ENT26-CATHDRS       PICTURE X(30) OCCURS 11. 
  
      ********************************************************
      *    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  FLD2614005-HCON     PICTURE X(7)    VALUE
                  "STATUS=".
               05  FLD2614010-HCON     PICTURE X(9)    VALUE
                  "FUNCTION=".
               05  FLD2614015-HCON     PICTURE X(11)   VALUE
                  "DEPARTMENT=".
               05  FLD2614020-HCON     PICTURE X(7)    VALUE
                  "PERSON=".
               05  FLD2614025-HCON     PICTURE X(6)    VALUE
                  "PHONE=". 
               05  FLD2614030-HCON     PICTURE X(6)    VALUE
                  "TITLE=". 
               05  FLD2614035-HCON     PICTURE X(5)    VALUE
                  "MAIL=".
               05  FLD2614040-HCON     PICTURE X(5)    VALUE
                  "DATE=".
      * 
      *    N A M E S    C A T E G O R Y 
      * 
               05  FLD2620005-HCON     PICTURE X(12)  VALUE 
                  "SCHEMA NAME=". 
      * 
      *    S T R U C T U R E    C A T E G O R Y 
      * 
               05  FLD2630005-HCON     PICTURE X(15)  VALUE 
                  "CATALOGUE NAME=".
               05  FLD2630010-HCON     PICTURE X(21)  VALUE 
                  "CATALOGUE NAME TYPE=". 
               05  FLD2630015-HCON     PICTURE X(8)   VALUE 
                  "INCLUDE=". 
               05  FLD2630020-HCON     PICTURE X(13)  VALUE 
                  "AREA VERSION=".
      * 
      *    M D I N F O   C A T E G O R Y
      * 
               05  FLD2645005-HCON     PICTURE X(17)  VALUE 
                  "SCHEMA FILE NAME=".
               05  FLD2645010-HCON     PICTURE X(18)  VALUE 
                  "PROCEDURE LIBRARY=". 
               05  FLD2645015-HCON     PICTURE X(17)  VALUE 
                  "TRANSACTION FILE=".
               05  FLD2645020-HCON     PICTURE X(13)  VALUE 
                  "RESTART FILE=".
               05  FLD2645025-HCON     PICTURE X(17)  VALUE 
                  "JOURNAL LOG FILE=".
               05  FLD2645030-HCON     PICTURE X(20)  VALUE 
                  "QUICK RECOVERY FILE=". 
  
      * 
      *    J O B C O N T R O L    C A T E G O R Y 
      * 
               05  FLD2647505-HCON     PICTURE X(3)   VALUE 
                  "UN=".
               05  FLD2647510-HCON     PICTURE X(3)   VALUE 
                  "PW=".
               05  FLD2647515-HCON     PICTURE X(7)   VALUE 
                  "FAMILY=".
               05  FLD2647520-HCON     PICTURE X(8)   VALUE 
                  "ACCOUNT=". 
               05  FLD2647525-HCON     PICTURE X(7)   VALUE 
                  "CHARGE=".
               05  FLD2647530-HCON     PICTURE X(13)  VALUE 
                  "TAPE DENSITY=".
               05  FLD2647535-HCON     PICTURE X(10)  VALUE 
                  "TAPE TYPE=". 
      * 
      *    B O N D   C A T E G O R Y
      * 
               05  FLD2655005-HCON     PICTURE X(16)  VALUE 
                  "CONSTRAINT NAME=". 
               05  FLD2655010-HCON     PICTURE X(15)  VALUE 
                  "CATALOGUE NAME=".
               05  FLD2655015-HCON     PICTURE X(6)   VALUE 
                  "ALIAS=". 
               05  FLD26550OF-HCON     PICTURE X(10)  VALUE 
                  "OF RECORD ". 
               05  FLD2655025-HCON     PICTURE X(11)  VALUE 
                  "DEPENDS ON ".
      * 
      *    J O I N S    C A T E G O R Y 
      * 
               05  FLD2657505-HCON     PICTURE X(14)  VALUE 
                  "RELATION NAME=". 
               05  FLD2657510-HCON     PICTURE X(4)   VALUE 
                  "ID1=". 
               05  FLD2657515-HCON     PICTURE X(6)   VALUE 
                  "ALIAS=". 
               05  FLD26575OF-HCON     PICTURE X(3)   VALUE 
                  "OF ".
               05  FLD2657525-HCON     PICTURE X(4)   VALUE 
                  "ID2=". 
  
      ********************************************************
      *    FIELD CODES AND VALUES 
      ********************************************************
      * 
      *    RESPONSIBILITY CATEGORY - FIELD "STATUS" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2614005-CV       PICTURE X(3)        VALUE
              "CP9".
               05  FLD2614005-CD  REDEFINES  FLD2614005-CV. 
                   07  FLD2614005-CODES PICTURE X OCCURS 3. 
               05  FLD2614005-MV       PICTURE X(21)       VALUE
              "CURRENTPAST   XXXXXXX".
               05  FLD2614005-MD  REDEFINES  FLD2614005-MV. 
                   07  FLD2614005-MNG  PICTURE X(7) OCCURS 3. 
      * 
      *    RESPONSIBILITY CATEGORY - FIELD "FUNCTION" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2614010-CV       PICTURE X(4)        VALUE
              "DCT9". 
               05  FLD2614010-CD  REDEFINES  FLD2614010-CV. 
                   07  FLD2614010-CODES PICTURE X OCCURS 4. 
               05  FLD2614010-MV       PICTURE X(36)       VALUE
              "DEVELOPEDCHANGED  TESTED   XXXXXXXXX". 
               05  FLD2614010-MD  REDEFINES  FLD2614010-MV. 
                   07  FLD2614010-MNG  PICTURE X(9) OCCURS 4. 
      * 
      *    STRUCTURE CATEGORY - FIELD "INC" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2630015-CV       PICTURE X(2)  VALUE
              "YN". 
               05  FLD2630015-CD  REDEFINES FLD2630015-CV.
                   07  FLD2630015-CODES PICTURE X OCCURS 2. 
               05  FLD2630015-MV PICTURE X(6) VALUE "YESNO ". 
               05  FLD2630015-MD REDEFINES FLD2630015-MV. 
                   07  FLD2630015-MNG PICTURE X(3) OCCURS 2.
      * 
      *    STRUCTURE CATEGORY - FIELD "CTYPE" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2630010-CV       PICTURE X(2)  VALUE
              "SA". 
               05  FLD2630010-CD  REDEFINES FLD2630010-CV.
                   07  FLD2630010-CODES PICTURE X OCCURS 2. 
               05  FLD2630010-MV PICTURE X(18) VALUE
                  "SUBSCHEMAAREA     ". 
               05  FLD2630010-MD REDEFINES FLD2630010-MV. 
                   07  FLD2630010-MNG PICTURE X(9) OCCURS 2.
      * 
      *    JOBCONTROL CATEGORY - FIELD "DENSITY" CODES
      *    AND REPORT NAMES 
      * 
               05  FLD2647530-CV       PICTURE X(12) VALUE
              "LOHIHYHDPEGE". 
               05  FLD2647530-CD  REDEFINES FLD2647530-CV.
                   07  FLD2647530-CODES PICTURE XX OCCURS 6.
               05  FLD2647530-MV. 
                   07 FILLER PICTURE X(8) VALUE "200 BPI ". 
                   07 FILLER PICTURE X(8) VALUE "556 BPI ". 
                   07 FILLER PICTURE X(8) VALUE "800 BPI ". 
                   07 FILLER PICTURE X(8) VALUE "800 CPI ". 
                   07 FILLER PICTURE X(8) VALUE "1600 CPI". 
                   07 FILLER PICTURE X(8) VALUE "6250 CPI". 
               05  FLD2647530-MD REDEFINES FLD2647530-MV. 
                   07  FLD2647530-MNG PICTURE X(8) OCCURS 6.
      * 
      *    JOBCONTROL CATEGORY - FIELD "TTYPE" CODES
      *    AND REPORT NAMES 
      * 
               05  FLD2647535-CV       PICTURE X(4)  VALUE
              "MTNT". 
               05  FLD2647535-CD  REDEFINES FLD2647535-CV.
                   07  FLD2647535-CODES PICTURE XX OCCURS 2.
               05  FLD2647535-MV. 
                   07 FILLER PICTURE X(11) VALUE "SEVEN TRACK". 
                   07 FILLER PICTURE X(11) VALUE "NINE TRACK ". 
               05  FLD2647535-MD REDEFINES FLD2647535-MV. 
                   07  FLD2647535-MNG PICTURE X(11) OCCURS 2. 
  
      ******************************************************************
      *    STANDARD CATEGORY REPORT DETAIL LINES FOR SCHEMAS. 
      ******************************************************************
  
           03  26-CAT-DETAIL-LINES. 
      * 
      *    RESPONSIBILITY LINES 
      * 
      *            LINE 1: STATUS, FUNCTION, PHONE AND MAIL 
      *            LINE 2: DEPARTMENT AND DATE
      *            LINE 3: PERSON AND TITLE 
      * 
               05  CAT26140-LINE1.
                   07  FLD2614005-HDG      PICTURE X(7).
                   07  FLD2614005-VAL.
                       09  FLD2614005-POS1 PICTURE X. 
                       09  FILLER          PICTURE X(6).
                   07  FILLER              PICTURE XX.
                   07  FLD2614010-HDG      PICTURE X(9).
                   07  FLD2614010-VAL.
                       09  FLD2614010-POS1 PICTURE X. 
                       09  FILLER          PICTURE X(8).
                   07  FILLER              PICTURE XX.
                   07  FLD2614025-HDG      PICTURE X(6).
                   07  FLD2614025-VAL      PICTURE X(10). 
                   07  FILLER              PICTURE XX.
                   07  FLD2614035-HDG      PICTURE X(5).
                   07  FLD2614035-VAL      PICTURE X(5).
                   07  FILLER              PICTURE X(6).
               05  CAT26140-LINE2  REDEFINES  CAT26140-LINE1. 
                   07  FLD2614015-HDG      PICTURE X(11). 
                   07  FLD2614015-VAL      PICTURE X(32). 
                   07  FILLER              PICTURE XX.
                   07  FLD2614040-HDG      PICTURE X(5).
                   07  FLD2614040-VAL      PICTURE X(8).
                   07  FILLER              PICTURE X(12). 
               05  CAT26140-LINE3  REDEFINES  CAT26140-LINE2. 
                   07  FLD2614020-HDG      PICTURE X(7).
                   07  FLD2614020-VAL      PICTURE X(32). 
                   07  FILLER              PICTURE XX.
                   07  FLD2614030-HDG      PICTURE X(6).
                   07  FLD2614030-VAL      PICTURE X(15). 
                   07  FILLER              PICTURE X(8).
      * 
      *    NAME LINE
      * 
      *             LINE 1: SCHEMA NAME 
      * 
               05  CAT26200-LINE1 REDEFINES  CAT26140-LINE3.
                   07  FLD2620005-HDG  PICTURE X(12). 
                   07  FLD2620005-VAL  PICTURE X(30). 
                   07  FILLER          PICTURE X(28). 
      * 
      *    STRUCTURE LINES
      * 
      *              LINE 1:  CATNAME AND INCLUDE 
      *              LINE 2:  CATNAME TYPE AND AVERS
      * 
               05 CAT26300-LINE1 REDEFINES CAT26200-LINE1.
                  07 FLD2630005-HDG      PICTURE X(15). 
                  07 FLD2630005-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE XX.
                  07 FLD2630015-HDG      PICTURE X(8).
                  07 FLD2630015-VAL      PICTURE X(3).
                  07 FILLER              PICTURE X(10). 
               05 CAT26300-LINE2 REDEFINES CAT26300-LINE1.
                  07 FLD2630010-HDG      PICTURE X(21). 
                  07 FLD2630010-VAL      PICTURE X(9).
                  07 FILLER              PICTURE X(2).
                  07 FLD2630020-HDG      PICTURE X(13). 
                  07 FLD2630020-VAL      PICTURE X(7).
                  07 FILLER              PICTURE X(18). 
      * 
      *    MDINFO LINES 
      * 
      *              LINE 1:  SCHEMA LFN
      *              LINE 2:  PROCEDURE LIBRARY 
      *              LINE 3:  TRANSACTION FILE
      *              LINE 4:  RESTART FILE
      *              LINE 5:  JOURNAL LOG FILE
      *              LINE 6:  QUICK RECOVERY FILE 
      * 
      * 
               05 CAT26450-LINE1 REDEFINES CAT26300-LINE2.
                  07 FLD2645005-HDG      PICTURE X(17). 
                  07 FLD2645005-VAL      PICTURE X(7).
                  07 FILLER              PICTURE X(46). 
               05 CAT26450-LINE2 REDEFINES CAT26450-LINE1.
                  07 FLD2645010-HDG      PICTURE X(18). 
                  07 FLD2645010-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE X(20). 
      * 
      *    LINE 3 IS ALSO USED TO DISPLAY LINE 5
      * 
               05 CAT26450-LINE3 REDEFINES CAT26450-LINE1.
                  07 FLD2645015-HDG      PICTURE X(17). 
                  07 FLD2645015-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE X(21). 
               05 CAT26450-LINE4 REDEFINES CAT26450-LINE1.
                  07 FLD2645020-HDG      PICTURE X(13). 
                  07 FLD2645020-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE X(25). 
               05 CAT26450-LINE6 REDEFINES CAT26450-LINE1.
                  07 FLD2645030-HDG      PICTURE X(20). 
                  07 FLD2645030-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE X(18). 
      * 
      *    JOBCONTROL LINES 
      * 
      *              LINE 1:  UN, PW AND FAMILY 
      *              LINE 2:  ACCOUNT 
      *              LINE 3:  CHARGE
      *              LINE 4:  DENSITY AND TAPE TYPE 
      * 
      * 
               05 CAT26475-LINE1 REDEFINES CAT26450-LINE6.
                  07 FLD2647505-HDG      PICTURE X(3).
                  07 FLD2647505-VAL      PICTURE X(7).
                  07 FILLER              PICTURE X(2).
                  07 FLD2647510-HDG      PICTURE X(3).
                  07 FLD2647510-VAL      PICTURE X(7).
                  07 FILLER              PICTURE X(2).
                  07 FLD2647515-HDG      PICTURE X(7).
                  07 FLD2647515-VAL      PICTURE X(7).
                  07 FILLER              PICTURE X(30). 
               05 CAT26475-LINE2 REDEFINES CAT26475-LINE1.
                  07 FLD2647520-HDG      PICTURE X(8).
                  07 FLD2647520-VAL      PICTURE X(30). 
                  07 FILLER              PICTURE X(32). 
               05 CAT26475-LINE3 REDEFINES CAT26475-LINE1.
                  07 FLD2647525-HDG      PICTURE X(7).
                  07 FLD2647525-VAL      PICTURE X(30). 
                  07 FILLER              PICTURE X(33). 
               05 CAT26475-LINE4 REDEFINES CAT26475-LINE1.
                  07 FLD2647530-HDG      PICTURE X(13). 
                  07 FLD2647530-VAL      PICTURE X(8).
                  07 FILLER              PICTURE XX.
                  07 FLD2647535-HDG      PICTURE X(10). 
                  07 FLD2647535-VAL      PICTURE X(11). 
                  07 FILLER              PICTURE X(26). 
      * 
      *    BOND LINES 
      * 
      *              LINE 1:  CONNAME 
      *              LINE 2:  CNAME AND CALIAS
      *              LINE 3:  AOFREC
      *              LINE 4:  DEPENDS AND DALIAS
      *              LINE 5:  BOFREC
      * 
      * 
               05 CAT26550-LINE1 REDEFINES CAT26475-LINE4.
                  07 FLD2655005-HDG      PICTURE X(16). 
                  07 FLD2655005-VAL      PICTURE X(30). 
                  07 FILLER              PICTURE X(24). 
               05 CAT26550-LINE2 REDEFINES CAT26550-LINE1.
                  07 FLD2655010-HDG      PICTURE X(15). 
                  07 FLD2655010-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE XX.
                  07 FLD2655015-HDG      PICTURE X(6).
                  07 FLD2655015-VAL      PICTURE X(4).
                  07 FILLER              PICTURE X(11). 
      * 
      *    LINE 3 IS ALSO USED TO DISPLAY LINE 5
      * 
               05 CAT26550-LINE3 REDEFINES CAT26550-LINE1.
                  07 FLD26550OF-HDG      PICTURE X(3).
                  07 FLD26550OF-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE X(28). 
               05 CAT26550-LINE4 REDEFINES CAT26550-LINE1.
                  07 FLD2655025-HDG      PICTURE X(11). 
                  07 FLD2655025-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE XX.
                  07 FLD2655030-HDG      PICTURE X(6).
                  07 FLD2655030-VAL      PICTURE X(4).
                  07 FILLER              PICTURE X(15). 
      * 
      *    JOINS LINES
      * 
      *              LINE 1:  RELNAME 
      *              LINE 2:  ID1[SUBSCRIPTS] AND I1ALIAS 
      *              LINE 3:  I1REC 
      *              LINE 4:  ID2[SUBSCRIPTS] AND I2ALIAS 
      *              LINE 5:  I2REC 
      * 
      * 
               05 CAT26575-LINE1 REDEFINES CAT26550-LINE4.
                  07 FLD2657505-HDG      PICTURE X(14). 
                  07 FLD2657505-VAL      PICTURE X(30). 
                  07 FILLER              PICTURE X(26). 
      * 
      *    LINE 2 IS ALSO USED TO DISPLAY LINE 4
      * 
               05 CAT26575-LINE2 REDEFINES CAT26575-LINE1.
                  07 FLD2657510-HDG      PICTURE X(4).
                  07 FLD2657510-VAL      PICTURE X(48). 
                  07 FILLER              PICTURE XX.
                  07 FLD2657515-HDG      PICTURE X(6).
                  07 FLD2657515-VAL      PICTURE X(4).
                  07 FILLER              PICTURE X(6).
      * 
      *    LINE 3 IS ALSO USED TO DISPLAY LINE 5
      * 
               05 CAT26575-LINE3 REDEFINES CAT26575-LINE1.
                  07 FLD26575OF-HDG      PICTURE X(3).
                  07 FLD26575OF-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE X(35). 
      * 
      *    WORK AREA FOR JOINS IDENTIFIERS
      * 
       01  SUBSCRIPTED-LINE.
           03  ID-QUAL-LINE              PICTURE X(48). 
           03  LB-SUB                    PICTURE 99.
           03  RB-SUB                    PICTURE 99.
