*COMDECK RPTDEF00 
  
       01 COMMON-RPTDATA. 
  
      ******************************************************************
      * 
      *    THIS SECTION REDEFINES THE LINE FORMAT, FIELD VALUES, CODES
      *    AND WORK AREAS WHICH ARE COMMON TO ALL ENTRY TYPES.
      * 
      ******************************************************************
      *    COMMON CATEGORIES REPORT DETAIL LINES
      ******************************************************************
           03  00-CAT-DETAIL-LINES. 
      * 
      *    C O N T R O L   C A T E G O R Y
      * 
               05 CAT00010-LINE.
                  07  FLD0001005-HDG         PICTURE X(11). 
                  07  FLD0001005-VAL         PICTURE X(32). 
                  07  FILLER                 PICTURE X. 
                  07  FLD0001010-HDG         PICTURE X(7).
                  07  FLD0001010-VAL. 
                      09  FLD0001010-POS1    PICTURE X. 
                      09  FILLER             PICTURE X(7).
                  07  FILLER                 PICTURE X. 
                  07  FLD0001015-HDG         PICTURE X(9).
                  07  FLD0001015-VAL         PICTURE X. 
      * 
      *    K E Y W O R D   C A T E G O R Y
      * 
               05 CAT00020-LINE REDEFINES CAT00010-LINE.
                  07  FLD0002005-HDG         PICTURE X(3).
                  07  FLD0002005-VAL         PICTURE X(67). 
      * 
      *    D E S C R I P T I O N   C A T E G O R Y
      * 
               05 CAT00030-LINE REDEFINES CAT00020-LINE.
                  07  FLD0003005-VAL         PICTURE X. 
                  07  FLD0003010-VAL         PICTURE X(66). 
                  07  FILLER                 PICTURE X(3).
      * 
      *    O T H E R   C A T E G O R Y
      * 
               05 CAT00900-LINE REDEFINES CAT00020-LINE.
                  07  FLD0090005-VAL         PICTURE X. 
                  07  FLD0090010-VAL         PICTURE X(66). 
                  07  FILLER                 PICTURE X(3).
  
      ******************************************************************
      *    STANDARD FIELD HEADING CONSTANTS FOR COMMON CATEGORIES 
      *    DETAIL LINES.
      ******************************************************************
  
           03  00-FIELD-HDG-CONSTANTS.
               05 FLD0001005-HCONA           PICTURE X(11) VALUE
                  "  ALIAS OF ".
               05 FLD0001010-HCON            PICTURE X(7)  VALUE
                  "STATUS=".
               05 FLD0001015-HCON            PICTURE X(9)  VALUE
                  "SECURITY=".
               05 FLD0002005-HCON            PICTURE X(3)  VALUE
                   "   ". 
               05 FLD0001005-HCONV           PICTURE X(11) VALUE
                  "VERSION OF ".
               05 SUB-HEADING-LINE. 
                  07  FILLER                 PICTURE X(14) VALUE
                  "CATALOGUE NAME". 
                  07  FILLER                 PICTURE X(8)  VALUE SPACE. 
                  07  FILLER                 PICTURE X(9)  VALUE
                  "REV  LINE".
                  07  FILLER                 PICTURE X(5)  VALUE SPACE. 
                  07  FILLER                 PICTURE X(4)  VALUE
                  "TYPE". 
                  07  FILLER                 PICTURE X(92) VALUE SPACE. 
               05 CONTINUATION-LINE.
                  07  CATA-NAME-LINE         PICTURE X(56) VALUE SPACE. 
                  07  FILLER                 PICTURE X(72) VALUE SPACE. 
                  07  STATEMENT-LINE. 
                      09  FILLER             PICTURE X(5)  VALUE SPACE. 
                      09  FILLER             PICTURE X(30) VALUE
                      "* CONTINUED FROM PREVIOUS PAGE". 
                      09  FILLER             PICTURE X(97) VALUE SPACE. 
  
      ***************************************************************** 
      *    COMMON CATEGORIES FIELD CODES AND THEIR MEANING. 
      ***************************************************************** 
  
           03  00-CAT-CODES.
      * 
      *  STATUS OF ENTRY
      * 
               05 FLD0001010-CV                 PICTURE X(4)  VALUE 
              "EPO9". 
               05 FLD0001010-CD  REDEFINES  FLD0001010-CV.
                  07  FLD0001010-CODES PICTURE X OCCURS 4.
               05 FLD0001010-MV                 PICTURE X(32) VALUE 
              "EXISTINGPROPOSEDOBSOLETEXXXXXXXX". 
               05 FLD0001010-MD   REDEFINES  FLD0001010-MV. 
                  07  FLD0001010-MNG            PICTURE X(8) OCCURS 4.
           03  WORK-FIELDS. 
               05 DATA-OPEN-SW                  PICTURE X.
               05 HIT-WORK-REC. 
                  07 HIT-WORK-NAME              PICTURE X(32).
                  07 HIT-WORK-ENTTYPE           PICTURE XX. 
               05 HIT-TBL-LIMIT                 PICTURE 9999 VALUE 1000.
               05 HIT-TBL-LIMIT-PLUS1           PICTURE 99   VALUE 26.
               05 FRLINE-LIMIT                  PICTURE 9(4). 
               05 TOLINE-LIMIT                  PICTURE 9(4). 
               05 FORLINE-LIMIT                 PICTURE 9(4). 
               05 CATLINE-COUNTER               PICTURE 9(4). 
               05 ENTRY-NAME                    PICTURE X(32).
               05 ENTRY-TYPE-NO                 PICTURE 99. 
               05 ENTRY-TYPE-NAME               PICTURE X(8). 
               05 CATEGORY-NUMBER               PICTURE XXX.
               05 CATEGORY-OUTPUT-SW            PICTURE X.
               05 1ST-HIT-OVER-SW               PICTURE X    VALUE "X". 
               05 HIT-COUNTER                   PICTURE 9(5) VALUE 0. 
               05 HITS-PER-RECORD               PICTURE 99   VALUE 86.
               05 CON-KEY PICTURE 999.
               05 SUB1                          PICTURE 9(4) COMP-1.
               05 SUB2                          PICTURE S99  COMP SYNC. 
               05 SUB3                          PICTURE S99  COMP SYNC. 
               05 SUB4                          PICTURE S99  COMP SYNC. 
               05 SUB5                          PICTURE S99  COMP SYNC. 
               05 SUB6                          PICTURE S99  COMP SYNC. 
               05 DISPLAY-LINE-LENGTH           PICTURE XXX VALUE "132".
           03  QUERY-MESSAGES.
               05 NO-LINES-MSG. 
                  07  FILLER                    PICTURE XX VALUE SPACE. 
                  07  NLM                       PICTURE X(55)   VALUE 
                  "DCQRY-015-I * REQUESTED LINES NOT PRESENT FOR CATEGOR
      -           "Y.". 
               05 NO-CAT-MSG. 
                  07  FILLER                    PICTURE XX VALUE SPACE. 
                  07  NC7                       PICTURE X(45)   VALUE 
                  "DCQRY-020-I * REQUESTED CATEGORY NOT DEFINED.".
                  07  FILLER                    PICTURE X(9) VALUE
                  SPACES. 
               05 NO-CATS-MSG.
                  07  FILLER                    PICTURE XX VALUE SPACE. 
                  07  NCPM                      PICTURE X(47)   VALUE 
                  "DCQRY-025-I * REQUESTED CATEGORIES NOT DEFINED.".
                  07  FILLER                    PICTURE X(9) VALUE
                  SPACES. 
               05 PROGRAM-PROBLEM-MSG.
                  07  FILLER                    PICTURE XX VALUE SPACE. 
                  07  PPM                       PICTURE X(30)     VALUE 
                  "DCQRY-099-F * PROGRAM PROBLEM-". 
                  07  PROBLEM-NO                PICTURE X.
                  07  FILLER                    PICTURE X(23) VALUE 
                  SPACES. 
               05 LIST-LINE-MSG.
                  07 FILLER                     PICTURE XX  VALUE SPACE.
                  07  LIST-LINE-NAME            PICTURE X(32).
                  07  FILLER                    PICTURE XX  VALUE SPACE.
                  07  LIST-LINE-ENTTYPE         PICTURE X(9) VALUE
                  SPACES. 
                  07  FILLER                    PICTURE X(11) VALUE 
                  SPACES. 
               05 CERR-110. 
                  07  FILLER                    PICTURE X(44)   VALUE 
                  "DCQRY-950-F ERROR * MAST3 READ CLIENT RECORD". 
                  07  FILLER                    PICTURE X(12) VALUE 
                  SPACES. 
               05 CERR-120. 
                  07  FILLER                    PICTURE X(41)   VALUE 
                  "DCQRY-970-F ERROR * MAST3 READ HIT RECORD".
                  07  FILLER                    PICTURE X(15) VALUE 
                  SPACES. 
