*COMDECK RPTDEF03 
       01  ENTRYTYPE-03-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 "03". 
  
      ******************************************************************
      *    CATEGORY HEADING CONSTANTS FOR DBPROCS (ENTITY-ID = 03). 
      ******************************************************************
  
           03  03-CAT-HEADERS.
               05  ENT03-CN            PICTURE X(21)   VALUE
              "010020030140200210900" . 
               05  ENT03-CN2   REDEFINES ENT03-CN.
                   07  ENT03-CATNUMS PICTURE XXX OCCURS 7.
               05  ENT03-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
                  "   ---ATTRIBUTE CATEGORY---   ". 
                   07  FILLER          PICTURE X(30)   VALUE
                  "     ---OTHER CATEGORY---     ". 
               05  ENT03-CATH    REDEFINES  ENT03-CH. 
                   07  ENT03-CATHDRS       PICTURE X(30) OCCURS 7.
  
      ********************************************************
      *    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  FLD0314005-HCON     PICTURE X(7)    VALUE
                  "STATUS=".
               05  FLD0314010-HCON     PICTURE X(9)    VALUE
                  "FUNCTION=".
               05  FLD0314015-HCON     PICTURE X(11)   VALUE
                  "DEPARTMENT=".
               05  FLD0314020-HCON     PICTURE X(7)    VALUE
                  "PERSON=".
               05  FLD0314025-HCON     PICTURE X(6)    VALUE
                  "PHONE=". 
               05  FLD0314030-HCON     PICTURE X(6)    VALUE
                  "TITLE=". 
               05  FLD0314035-HCON     PICTURE X(5)    VALUE
                  "MAIL=".
               05  FLD0314040-HCON     PICTURE X(5)    VALUE
                  "DATE=".
      * 
      *    N A M E S    C A T E G O R Y 
      * 
               05  FLD0320005-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  FLD0321005-HCON     PICTURE X(9)    VALUE
                  "LANGUAGE=".
  
      ********************************************************
      *    FIELD CODES AND VALUES 
      ********************************************************
      * 
      *    RESPONSIBILITY CATEGORY - FIELD "STATUS" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD0314005-CV       PICTURE X(3)        VALUE
              "CP9".
               05  FLD0314005-CD  REDEFINES  FLD0314005-CV. 
                   07  FLD0314005-CODES PICTURE X OCCURS 3. 
               05  FLD0314005-MV       PICTURE X(21)       VALUE
              "CURRENTPAST   XXXXXXX".
               05  FLD0314005-MD  REDEFINES  FLD0314005-MV. 
                   07  FLD0314005-MNG  PICTURE X(7) OCCURS 3. 
      * 
      *    RESPONSIBILITY CATEGORY - FIELD "FUNCTION" CODES 
      *    AND REPORT NAMES 
      * 
               05  FLD0314010-CV       PICTURE X(4)        VALUE
              "DCT9". 
               05  FLD0314010-CD  REDEFINES  FLD0314010-CV. 
                   07  FLD0314010-CODES PICTURE X OCCURS 4. 
               05  FLD0314010-MV       PICTURE X(36)       VALUE
              "DEVELOPEDCHANGED  TESTED   XXXXXXXXX". 
               05  FLD0314010-MD  REDEFINES  FLD0314010-MV. 
                   07  FLD0314010-MNG  PICTURE X(9) OCCURS 4. 
      * 
      *    ATTRIBUTES CATEGORY - FIELD "LANGPRG" CODES
      *    AND REPORT NAMES 
      * 
               05  FLD0321005-CV       PICTURE X(3)   VALUE 
              "ACP".
               05  FLD0321005-CD  REDEFINES FLD0321005-CV.
                   07  FLD0321005-CODES PICTURE X OCCURS 3. 
               05  FLD0321005-MV       PICTURE X(27)       VALUE
              "ASSEMBLERCOBOL    FORTRAN  ".
               05  FLD0321005-MD REDEFINES FLD0321005-MV. 
                   07  FLD0321005-MNG PICTURE X(9)  OCCURS 3. 
  
      ******************************************************************
      *    STANDARD CATEGORY REPORT DETAIL LINES FOR FILES. 
      ******************************************************************
  
           03  03-CAT-DETAIL-LINES. 
      * 
      *    RESPONSIBILITY LINES 
      * 
      *            LINE 1: STATUS, FUNCTION, PHONE AND MAIL 
      *            LINE 2: DEPARTMENT AND DATE
      *            LINE 3: PERSON AND TITLE 
      * 
               05  CAT03140-LINE1.
                   07  FLD0314005-HDG      PICTURE X(7).
                   07  FLD0314005-VAL.
                       09  FLD0314005-POS1 PICTURE X. 
                       09  FILLER          PICTURE X(6).
                   07  FILLER              PICTURE XX.
                   07  FLD0314010-HDG      PICTURE X(9).
                   07  FLD0314010-VAL.
                       09  FLD0314010-POS1 PICTURE X. 
                       09  FILLER          PICTURE X(8).
                   07  FILLER              PICTURE XX.
                   07  FLD0314025-HDG      PICTURE X(6).
                   07  FLD0314025-VAL      PICTURE X(10). 
                   07  FILLER              PICTURE XX.
                   07  FLD0314035-HDG      PICTURE X(5).
                   07  FLD0314035-VAL      PICTURE X(5).
                   07  FILLER              PICTURE X(6).
               05  CAT03140-LINE2  REDEFINES  CAT03140-LINE1. 
                   07  FLD0314015-HDG      PICTURE X(11). 
                   07  FLD0314015-VAL      PICTURE X(32). 
                   07  FILLER              PICTURE XX.
                   07  FLD0314040-HDG      PICTURE X(5).
                   07  FLD0314040-VAL      PICTURE X(8).
                   07  FILLER              PICTURE X(12). 
               05  CAT03140-LINE3  REDEFINES  CAT03140-LINE2. 
                   07  FLD0314020-HDG      PICTURE X(7).
                   07  FLD0314020-VAL      PICTURE X(32). 
                   07  FILLER              PICTURE XX.
                   07  FLD0314030-HDG      PICTURE X(6).
                   07  FLD0314030-VAL      PICTURE X(15). 
                   07  FILLER              PICTURE X(8).
      * 
      *    NAME LINES 
      * 
      *             LINE 1: DMSNAME 
      * 
               05  CAT03200-LINE1 REDEFINES  CAT03140-LINE3.
                   07  FLD0320005-HDG  PICTURE X(9).
                   07  FLD0320005-VAL  PICTURE X(7).
                   07  FILLER          PICTURE X(54). 
      * 
      *  ATTRIBUTE LINES
      * 
      *            LINE 1: LANGPRG
      * 
               05  CAT03210-LINE1  REDEFINES  CAT03200-LINE1. 
                   07  FLD0321005-HDG  PICTURE X(9).
                   07  FLD0321005-VAL  PICTURE X(7).
                   07  FILLER          PICTURE X(54). 
