*COMDECK RPTDEF24 
  
       01  ENTRYTYPE-24-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 "24". 
  
      ******************************************************************
      *    CATEGORY HEADING CONSTANTS FOR SUBSCHEMAS (ENTITY-ID = 24).
      ******************************************************************
  
           03  24-CAT-HEADERS.
               05  ENT24-CN            PICTURE X(27)   VALUE
              "010020030140200300450525900" . 
               05  ENT24-CN2   REDEFINES ENT24-CN.
                   07  ENT24-CATNUMS PICTURE XXX OCCURS 9.
               05  ENT24-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
                  "      ---SSREL CATEGORY---    ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "     ---OTHER CATEGORY---     ". 
               05  ENT24-CATH    REDEFINES  ENT24-CH. 
                   07  ENT24-CATHDRS       PICTURE X(30) OCCURS 9.
  
      ********************************************************
      *    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  FLD2414005-HCON     PICTURE X(7)    VALUE
                  "STATUS=".
               05  FLD2414010-HCON     PICTURE X(9)    VALUE
                  "FUNCTION=".
               05  FLD2414015-HCON     PICTURE X(11)   VALUE
                  "DEPARTMENT=".
               05  FLD2414020-HCON     PICTURE X(7)    VALUE
                  "PERSON=".
               05  FLD2414025-HCON     PICTURE X(6)    VALUE
                  "PHONE=". 
               05  FLD2414030-HCON     PICTURE X(6)    VALUE
                  "TITLE=". 
               05  FLD2414035-HCON     PICTURE X(5)    VALUE
                  "MAIL=".
               05  FLD2414040-HCON     PICTURE X(5)    VALUE
                  "DATE=".
      * 
      *    N A M E S    C A T E G O R Y 
      * 
               05  FLD2420005-HCON     PICTURE X(15)  VALUE 
                  "SUBSCHEMA NAME=".
      * 
      *    S T R U C T U R E    C A T E G O R Y 
      * 
               05  FLD2430005-HCON     PICTURE X(15)  VALUE 
                  "CATALOGUE NAME=".
               05  FLD2430010-HCON     PICTURE X(6)   VALUE 
                  "ALIAS=". 
               05  FLD2430015-HCON     PICTURE X(8)   VALUE 
                  "INCLUDE=". 
      * 
      *    M D I N F O   C A T E G O R Y
      * 
               05  FLD2445005-HCON     PICTURE X(14)  VALUE 
                  "SUBSCHEMA LFN=". 
  
      * 
      *    S S R E L   C A T E G O R Y
      * 
               05  FLD2452501-HCON     PICTURE X(14)  VALUE 
                  "RELATION NAME=". 
               05  FLD2452502-HCON     PICTURE X(9)   VALUE 
                  "RESTRICT=".
               05  FLD2452503-HCON     PICTURE X(6)   VALUE 
                  "ALIAS=". 
               05  FLD2452504-HCON     PICTURE X(17)  VALUE 
                  "LOGICAL OPERATOR=".
               05  FLD2452505-HCON     PICTURE X(4)   VALUE 
                  "ID1=". 
               05  FLD24525OF-HCON     PICTURE X(3)   VALUE 
                  "OF=".
               05  FLD2452529-HCON     PICTURE X(4)   VALUE 
                  "ID2=". 
               05  FLD2452553-HCON     PICTURE X(20)  VALUE 
                  "RELATIONAL OPERATOR=". 
               05  FLD24525LP-HCON     PICTURE X(23)  VALUE 
                  "LEFT PARENTHESIS COUNT=".
               05  FLD24525RP-HCON     PICTURE X(24)  VALUE 
                  "RIGHT PARENTHESIS COUNT=". 
  
      ********************************************************
      *    FIELD CODES AND VALUES 
      ********************************************************
      * 
      *    RESPONSIBILITY CATEGORY - FIELD "STATUS" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2414005-CV       PICTURE X(3)        VALUE
              "CP9".
               05  FLD2414005-CD  REDEFINES  FLD2414005-CV. 
                   07  FLD2414005-CODES PICTURE X OCCURS 3. 
               05  FLD2414005-MV       PICTURE X(21)       VALUE
              "CURRENTPAST   XXXXXXX".
               05  FLD2414005-MD  REDEFINES  FLD2414005-MV. 
                   07  FLD2414005-MNG  PICTURE X(7) OCCURS 3. 
      * 
      *    RESPONSIBILITY CATEGORY - FIELD "FUNCTION" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2414010-CV       PICTURE X(4)        VALUE
              "DCT9". 
               05  FLD2414010-CD  REDEFINES  FLD2414010-CV. 
                   07  FLD2414010-CODES PICTURE X OCCURS 4. 
               05  FLD2414010-MV       PICTURE X(36)       VALUE
              "DEVELOPEDCHANGED  TESTED   XXXXXXXXX". 
               05  FLD2414010-MD  REDEFINES  FLD2414010-MV. 
                   07  FLD2414010-MNG  PICTURE X(9) OCCURS 4. 
      * 
      *    STRUCTURE CATEGORY - FIELD "INC" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD2430015-CV       PICTURE X(2)  VALUE
              "YN". 
               05  FLD2430015-CD  REDEFINES FLD2430015-CV.
                   07  FLD2430015-CODES PICTURE X OCCURS 2. 
               05  FLD2430015-MV PICTURE X(6) VALUE "YESNO ". 
               05  FLD2430015-MD REDEFINES FLD2430015-MV. 
                   07  FLD2430015-MNG PICTURE X(3) OCCURS 2.
  
      ******************************************************************
      *    STANDARD CATEGORY REPORT DETAIL LINES FOR SUBSCHEMAS.
      ******************************************************************
  
           03  24-CAT-DETAIL-LINES. 
      * 
      *    RESPONSIBILITY LINES 
      * 
      *            LINE 1: STATUS, FUNCTION, PHONE AND MAIL 
      *            LINE 2: DEPARTMENT AND DATE
      *            LINE 3: PERSON AND TITLE 
      * 
               05  CAT24140-LINE1.
                   07  FLD2414005-HDG      PICTURE X(7).
                   07  FLD2414005-VAL.
                       09  FLD2414005-POS1 PICTURE X. 
                       09  FILLER          PICTURE X(6).
                   07  FILLER              PICTURE XX.
                   07  FLD2414010-HDG      PICTURE X(9).
                   07  FLD2414010-VAL.
                       09  FLD2414010-POS1 PICTURE X. 
                       09  FILLER          PICTURE X(8).
                   07  FILLER              PICTURE XX.
                   07  FLD2414025-HDG      PICTURE X(6).
                   07  FLD2414025-VAL      PICTURE X(10). 
                   07  FILLER              PICTURE XX.
                   07  FLD2414035-HDG      PICTURE X(5).
                   07  FLD2414035-VAL      PICTURE X(5).
                   07  FILLER              PICTURE X(6).
               05  CAT24140-LINE2  REDEFINES  CAT24140-LINE1. 
                   07  FLD2414015-HDG      PICTURE X(11). 
                   07  FLD2414015-VAL      PICTURE X(32). 
                   07  FILLER              PICTURE XX.
                   07  FLD2414040-HDG      PICTURE X(5).
                   07  FLD2414040-VAL      PICTURE X(8).
                   07  FILLER              PICTURE X(12). 
               05  CAT24140-LINE3  REDEFINES  CAT24140-LINE2. 
                   07  FLD2414020-HDG      PICTURE X(7).
                   07  FLD2414020-VAL      PICTURE X(32). 
                   07  FILLER              PICTURE XX.
                   07  FLD2414030-HDG      PICTURE X(6).
                   07  FLD2414030-VAL      PICTURE X(15). 
                   07  FILLER              PICTURE X(8).
      * 
      *    NAME LINE
      * 
      *             LINE 1: SUBSCHEMA NAME
      * 
               05  CAT24200-LINE1 REDEFINES  CAT24140-LINE3.
                   07  FLD2420005-HDG  PICTURE X(15). 
                   07  FLD2420005-VAL  PICTURE X(30). 
                   07  FILLER          PICTURE X(25). 
      * 
      *    STRUCTURE LINES
      * 
      *              LINE 1:  CATNAME AND ALIAS 
      *              LINE 2:  INCLUDE 
      * 
               05 CAT24300-LINE1 REDEFINES CAT24200-LINE1.
                  07 FLD2430005-HDG      PICTURE X(15). 
                  07 FLD2430005-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE XX.
                  07 FLD2430010-HDG      PICTURE X(6).
                  07 FLD2430010-VAL      PICTURE X(4).
                  07 FILLER              PICTURE X(9).
               05 CAT24300-LINE2 REDEFINES CAT24300-LINE1.
                  07 FLD2430015-HDG      PICTURE X(8).
                  07 FLD2430015-VAL      PICTURE X(3).
                  07 FILLER              PICTURE X(59). 
      * 
      *    MDINFO LINES 
      * 
      *              LINE 1:  SUBSCHEMA LFN 
      * 
      * 
               05 CAT24450-LINE1 REDEFINES CAT24300-LINE2.
                  07 FLD2445005-HDG      PICTURE X(14). 
                  07 FLD2445005-VAL      PICTURE X(7).
                  07 FILLER              PICTURE X(49). 
      * 
      *    SSREL LINES
      * 
      *              LINE 1:  RELATION NAME 
      *              LINE 2:  RESTRICT AND RESTRICT ALIAS 
      *              LINE 3:  PRELOP AND LEFT PAREN COUNT 
      *              LINE 4:  ID1[SUBSCRIPTS] AND ID1 ALIAS 
      *              LINE 5:  A1QUAL[SUBSCRIPTS]
      *              LINE 6:  A2QUAL[SUBSCRIPTS]
      *              LINE 7:  A3QUAL[SUBSCRIPTS]
      *              LINE 8:  A4QUAL[SUBSCRIPTS]
      *              LINE 9:  A5QUAL[SUBSCRIPTS]
      *              LINE 10: RELATIONAL OPERATOR 
      *              LINE 11: ID2[SUBSCRIPTS] AND ID2 ALIAS 
      *              LINE 12: B1QUAL[SUBSCRIPTS]
      *              LINE 13: B2QUAL[SUBSCRIPTS]
      *              LINE 14: B3QUAL[SUBSCRIPTS]
      *              LINE 15: B4QUAL[SUBSCRIPTS]
      *              LINE 16: B5QUAL[SUBSCRIPTS]
      *              LINE 17: LOP AND RIGTH PAREN COUNT 
      * 
      * 
               05 CAT24525-LINE1 REDEFINES CAT24450-LINE1.
                  07 FLD2452501-HDG      PICTURE X(14). 
                  07 FLD2452501-VAL      PICTURE X(30). 
                  07 FILLER              PICTURE X(26). 
               05 CAT24525-LINE2 REDEFINES CAT24525-LINE1.
                  07 FLD2452502-HDG      PICTURE X(9).
                  07 FLD2452502-VAL      PICTURE X(32). 
                  07 FILLER              PICTURE XX.
                  07 FLD2452503-HDG      PICTURE X(6).
                  07 FLD2452503-VAL      PICTURE X(4).
                  07 FILLER              PICTURE X(17). 
               05 CAT24525-LINE3 REDEFINES CAT24525-LINE1.
                  07 FLD2452504-HDG      PICTURE X(17). 
                  07 FLD2452504-VAL      PICTURE X(3).
                  07 FILLER              PICTURE XX.
                  07 FLD24525LP-HDG      PICTURE X(23). 
                  07 FLD24525LP-VAL      PICTURE XX.
                  07 FILLER              PICTURE X(23). 
      *    LINE 4 IS ALSO USED TO DISPLAY LINE 11 
               05 CAT24525-LINE4 REDEFINES CAT24525-LINE1.
                  07 FLD24525ID-HDG      PICTURE X(4).
                  07 FLD24525ID-VAL      PICTURE X(48). 
                  07 FILLER              PICTURE XX.
                  07 FLD2452507-HDG      PICTURE X(6).
                  07 FLD2452507-VAL      PICTURE X(4).
                  07 FILLER              PICTURE X(6).
      *    LINE 5 IS ALSO USED TO DISPLAY LINES 6 THRU 9
      *    AND LINES 12 THRU 16 
               05 CAT24525-LINE5 REDEFINES CAT24525-LINE1.
                  07 FLD24525OF-HDG      PICTURE X(3).
                  07 FLD24525OF-VAL      PICTURE X(48). 
                  07 FILLER              PICTURE X(19). 
               05 CAT24525-LINE10 REDEFINES CAT24525-LINE1. 
                  07 FLD2452553-HDG      PICTURE X(20). 
                  07 FLD2452553-VAL      PICTURE X(2).
                  07 FILLER              PICTURE X(19). 
               05 CAT24525-LINE17 REDEFINES CAT24525-LINE1. 
                  07 FLD2452555-HDG      PICTURE X(17). 
                  07 FLD2452555-VAL      PICTURE X(6).
                  07 FILLER              PICTURE XX.
                  07 FLD24525RP-HDG      PICTURE X(24). 
                  07 FLD24525RP-VAL      PICTURE XX.
                  07 FILLER              PICTURE X(19). 
      * 
      *    LINE FOR SUBSCRIPTED ITEMS AND ITS SUBSCRIPTS
      * 
       01 SSREL-SUBS. 
           03 LB-SUB                      PICTURE 99. 
           03 RB-SUB                      PICTURE 99. 
           03 ID-QUAL-LINE                PICTURE X(48).
      * 
      *    SAVE SUBSCHEMA RELATION LINES FOR DISPLAY
      * 
       01  SAVE-SSREL-LINES.
           03  REL-LINEI. 
               05 LINEI-TYPE             PICTURE X. 
               05 S-PRELOP               PICTURE X(3).
               05 S-LEFT-PAREN           PICTURE 99.
               05 S-ID1                  PICTURE X(32). 
               05 S-ID1-TYPE             PICTURE X. 
               05 S-ID1-ALIAS            PICTURE X(4).
               05 S-ID1-SUBS. 
                  07 S-ID1-SUB1          PICTURE X(4).
                  07 S-ID1-SUB2          PICTURE X(4).
                  07 S-ID1-SUB3          PICTURE X(4).
               05 S-ID1-QUAL-FLAG        PICTURE 9. 
               05 S-RELOP                PICTURE XX.
               05 S-ID2                  PICTURE X(32). 
               05 S-ID2-TYPE             PICTURE X. 
               05 S-ID2-ALIAS            PICTURE X(4).
               05 S-ID2-SUBS. 
                  07 S-ID2-SUB1          PICTURE X(4).
                  07 S-ID2-SUB2          PICTURE X(4).
                  07 S-ID2-SUB3          PICTURE X(4).
               05 S-ID2-QUAL-FLAG        PICTURE 9. 
               05 S-RIGHT-PAREN          PICTURE 99.
               05 S-LOP                  PICTURE X(6).
      * 
      *    LINE Q:   ID1 QUALIFIERS 1 THRU 3
      * 
           03  REL-LINEQ. 
               05 LINEQ-TYPE             PICTURE X. 
               05 S-ID1-A1QUAL           PICTURE X(32). 
               05 S-ID1-SUBS. 
                  07 S-ID1-A1Q-SUB1      PICTURE X(4).
                  07 S-ID1-A1Q-SUB2      PICTURE X(4).
                  07 S-ID1-A1Q-SUB3      PICTURE X(4).
               05 S-ID1-A2QUAL           PICTURE X(32). 
               05 S-ID1-A2SUBS. 
                  07 S-ID1-A2Q-SUB1      PICTURE X(4).
                  07 S-ID1-A2Q-SUB2      PICTURE X(4).
                  07 S-ID1-A2Q-SUB3      PICTURE X(4).
               05 S-ID1-A3QUAL           PICTURE X(32). 
               05 S-ID1-A3SUBS. 
                  07 S-ID1-A3Q-SUB1      PICTURE X(4).
                  07 S-ID1-A3Q-SUB2      PICTURE X(4).
                  07 S-ID1-A3Q-SUB3      PICTURE X(4).
      * 
      *    LINE 2:   ID1 QUALIFIERS 4 AND 5 
      * 
           03 REL-LINE2.
               05 LINE2-TYPE             PICTURE X. 
               05 S-ID1-A4QUAL           PICTURE X(32). 
               05 S-ID1-A4SUBS. 
                  07 S-ID1-A4Q-SUB1      PICTURE X(4).
                  07 S-ID1-A4Q-SUB2      PICTURE X(4).
                  07 S-ID1-A4Q-SUB3      PICTURE X(4).
               05 S-ID1-A5QUAL           PICTURE X(32). 
               05 S-ID1-A5SUBS. 
                  07 S-ID1-A5Q-SUB1      PICTURE X(4).
                  07 S-ID1-A5Q-SUB2      PICTURE X(4).
                  07 S-ID1-A5Q-SUB3      PICTURE X(4).
      * 
      *    LINE B:   ID2 QUALIFIERS 1 THRU 3
      * 
           03  REL-LINEB. 
               05 LINEB-TYPE             PICTURE X. 
               05 S-ID2-B1QUAL           PICTURE X(32). 
               05 S-ID2-SUBS. 
                  07 S-ID2-B1Q-SUB1      PICTURE X(4).
                  07 S-ID2-B1Q-SUB2      PICTURE X(4).
                  07 S-ID2-B1Q-SUB3      PICTURE X(4).
               05 S-ID2-B2QUAL           PICTURE X(32). 
               05 S-ID2-B2SUBS. 
                  07 S-ID2-B2Q-SUB1      PICTURE X(4).
                  07 S-ID2-B2Q-SUB2      PICTURE X(4).
                  07 S-ID2-B2Q-SUB3      PICTURE X(4).
               05 S-ID2-B3QUAL           PICTURE X(32). 
               05 S-ID2-B3SUBS. 
                  07 S-ID2-B3Q-SUB1      PICTURE X(4).
                  07 S-ID2-B3Q-SUB2      PICTURE X(4).
                  07 S-ID2-B3Q-SUB3      PICTURE X(4).
      * 
      *    LINE 3:   ID2 QUALIFIERS 4 AND 5 
      * 
           03 REL-LINE3.
               05 LINE3-TYPE             PICTURE X. 
               05 S-ID2-B4QUAL           PICTURE X(32). 
               05 S-ID2-B4SUBS. 
                  07 S-ID2-B4Q-SUB1      PICTURE X(4).
                  07 S-ID2-B4Q-SUB2      PICTURE X(4).
                  07 S-ID2-B4Q-SUB3      PICTURE X(4).
               05 S-ID2-B5QUAL           PICTURE X(32). 
               05 S-ID2-B5SUBS. 
                  07 S-ID2-B5Q-SUB1      PICTURE X(4).
                  07 S-ID2-B5Q-SUB2      PICTURE X(4).
                  07 S-ID2-B5Q-SUB3      PICTURE X(4).
