*COMDECK RPTDEF05 
  
       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(8) VALUE
                  "ELEMENT ". 
                  07  FILLER                    PICTURE X(12) 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. 
  
       01  ENTRYTYPE-05-RPTDATA.
      * 
      *    THE FOLLOWING ENTRIES DEFINE ALL CATEGORY HEADINGS,
      *    FIELD HEADINGS, CODE VALUES AND 70 CHARACTER LINE FORMAT 
      *    FOR ELEMENTS.
      * 
      ******************************************************************
      *     ELEMENT CATEGORY HEADING TABLE
      ******************************************************************
           03  ENTRY-TYPE-CONSTANT          PICTURE XX    VALUE "05". 
           03  05-CAT-HEADERS.
               05  ENT05-CN                 PICTURE X(30) VALUE 
              "010020030100110200210211400900". 
               05  ENT05-CN2   REDEFINES   ENT05-CN.
                   07  ENT05-CATNUMS        PICTURE XXX OCCURS 10 TIMES.
               05  ENT05-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
                  "     ---ORIGIN CATEGORY---    ". 
                   07  FILLER               PICTURE X(30)  VALUE
                  "      ---VALUE CATEGORY---    ". 
                   07  FILLER               PICTURE X(30)  VALUE
                  "      ---NAME CATEGORY---     ". 
                   07  FILLER               PICTURE X(30)  VALUE
                  "   ---ATTRIBUTE CATEGORY---   ". 
                   07  FILLER               PICTURE X(30)  VALUE
                  "     ---ALIAS CATEGORY---     ". 
                   07  FILLER               PICTURE X(30)  VALUE
                  "    ---PROCESS CATEGORY---    ". 
                   07  FILLER               PICTURE X(30)  VALUE
                  "     ---OTHER CATEGORY---     ". 
               05  ENT05-CATH  REDEFINES ENT05-CH.
                   07  ENT05-CATHDRS       PICTURE X(30) OCCURS 10. 
      ******************************************************************
      *    STANDARD FIELD HEADING CONSTANTS FOR ELEMENT DETAIL LINES
      *    ELEMENT ENTITY-ID= 05. 
      ******************************************************************
      * 
      *    O R I G I N    C A T E G O R Y 
      * 
           03  05-FIELD-HDG-CONSTANTS.
               05  FLD0510005-HCON         PICTURE X(11) VALUE
                  "DEPARTMENT=".
               05  FLD0510010-HCON         PICTURE X(8)  VALUE
                  "PROGRAM=". 
               05  FLD0510015-HCON         PICTURE X(5)  VALUE
                  "FORM=".
               05  FLD0510020-HCON         PICTURE X(10) VALUE
                  "GENERATED=". 
               05  FLD0510025-HCON         PICTURE X(6)  VALUE
                  "CYCLE=". 
               05  FLD0510030-HCON         PICTURE X(14) VALUE
                  "EXPECTED LIFE=". 
      * 
      *    V A L U E S   C A T E G O R Y
      * 
               05  FLD0511005-HCON         PICTURE X(6)  VALUE
                  "VALUE=". 
               05  FLD0511010-HCON         PICTURE X(5)  VALUE
                  "NOTE=".
               05  FLD0511020-HCON         PICTURE X(9)  VALUE
                  "CHECK BY=".
               05  FLD0511025-HCON         PICTURE X(12) VALUE
                  "CHECK VALUE=". 
               05  FLD0511030-HCON         PICTURE X(5)  VALUE
                  "THRU=".
      * 
      *    N A M E S   C A T E G O R Y
      * 
               05  FLD0520005-HCON     PICTURE X(10)  VALUE 
                  "DATA NAME=". 
               05  FLD0520010-HCON     PICTURE X(11)  VALUE 
                  "IDENTIFIER=".
               05  FLD0520015-HCON     PICTURE X(7)   VALUE 
                  "SYMBOL=".
               05  FLD0520020-HCON     PICTURE X(10)  VALUE 
                  "DBMS NAME=". 
               05  FLD0520035-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  FLD0521005-HCON     PICTURE X(7)   VALUE 
                  "LENGTH=".
               05  FLD0521010-HCON     PICTURE X(7)   VALUE 
                  "FORMAT=".
               05  FLD0521015-HCON     PICTURE X(10)  VALUE 
                  "JUSTIFIED=". 
               05  FLD0521020-HCON     PICTURE X(13)  VALUE 
                  "SYNCHRONIZED=".
               05  FLD0521025-HCON     PICTURE X(11)  VALUE 
                  "VOLATILITY=".
               05  FLD0521030-HCON     PICTURE X(7)   VALUE 
                  "NATURE=".
               05  FLD0521035-HCON     PICTURE X(16)  VALUE 
                  "UNIT OF MEASURE=". 
               05  FLD0521040-HCON     PICTURE X(8)   VALUE 
                  "PICTURE=". 
               05  FLD0521045-HCON     PICTURE X(11)  VALUE 
                  "INIT VALUE=".
  
      * 
      *    P R O C E S S   C A T E G O R Y
      * 
               05  FLD0540005-HCON     PICTURE X(19)  VALUE 
                  "DATABASE PROCEDURE=".
               05  FLD0540010-HCON     PICTURE X(13)  VALUE 
                  "TYPE OF PROC=".
               05  FLD0540015-HCON     PICTURE X(5)   VALUE 
                  "TIME=".
               05  FLD0540020-HCON     PICTURE X(7)   VALUE 
                  "OPTION=".
  
      ******************************************************************
      *    STANDARD FIELD CODES AND VALUES FOR CATEGORY DETAIL LINES
      ******************************************************************
  
           03  05-CAT-CODES.
      * 
      *    ORIGIN CATEGORY - FIELD "GENCODE" CODES AND
      *    REPORT NAMES.
      * 
               05  FLD0510020-CV        PICTURE XXX VALUE 
                  "YN9".
               05  FLD0510020-CD   REDEFINES FLD0510020-CV. 
                   07  FLD0510020-CODES PICTURE X OCCURS 3. 
               05  FLD0510020-MV        PICTURE X(9) VALUE
                  "YESNO XXX".
               05  FLD0510020-MD   REDEFINES FLD0510020-MV. 
                   07  FLD0510020-MNG   PICTURE  X(3) OCCURS 3. 
      * 
      *    ORIGIN CATEGORY - FIELD "CYCLE" CODES AND
      *    REPORT NAMES.
      * 
               05  FLD0510025-CV        PICTURE X(8) VALUE
              "ADMQRSW9". 
               05  FLD0510025-CD  REDEFINES  FLD0510025-CV. 
                   07  FLD0510025-CODES PICTURE X OCCURS 8. 
               05  FLD0510025-MV. 
                   07  FILLER PICTURE X(13) VALUE "ANNUALLY     ".
                   07  FILLER PICTURE X(13) VALUE "DAILY        ".
                   07  FILLER PICTURE X(13) VALUE "MONTHLY      ".
                   07  FILLER PICTURE X(13) VALUE "QUARTERLY    ".
                   07  FILLER PICTURE X(13) VALUE "REQUEST      ".
                   07  FILLER PICTURE X(13) VALUE "SEMI-ANNUALLY".
                   07  FILLER PICTURE X(13) VALUE "WEEKLY       ".
                   07  FILLER PICTURE X(13) VALUE "XXXXXXXXXXXXX".
               05  FLD0510025-MD  REDEFINES  FLD0510025-MV. 
                   07  FLD0510025-MNG PICTURE X(13) OCCURS 8. 
      * 
      *    ORIGIN CATEGORY - FIELD "UNITLIFE" CODES AND 
      *    REPORT NAMES.
      * 
              05  FLD0510035-CV    PICTURE X(7) VALUE 
              "DSMQWA9".
               05  FLD0510035-CD  REDEFINES   FLD0510035-CV.
                   07  FLD0510035-CODES  PICTURE X OCCURS 7.
              05  FLD0510035-MV.
                   07  FILLER PICTURE X(19) VALUE "DAYS               ".
                   07  FILLER PICTURE X(19) VALUE "SEMI-ANNUAL-PERIODS".
                   07  FILLER PICTURE X(19) VALUE "MONTHS             ".
                   07  FILLER PICTURE X(19) VALUE "QUARTERS           ".
                   07  FILLER PICTURE X(19) VALUE "WEEKS              ".
                   07  FILLER PICTURE X(19) VALUE "ANNUAL-PERIODS     ".
                   07  FILLER PICTURE X(19) VALUE "XXXXXXXXXXXXXXXXXXX".
               05  FLD0510035-MD    REDEFINES FLD0510035-MV.
                   07  FLD0510035-MNG  PICTURE X(19) OCCURS 7.
      * 
      *    ATTRIBUTES CATEGORY - FIELD "FORMAT" CODES AND 
      *    REPORT NAMES.
      * 
              05  FLD0521010-CV.
                  07 FILLER PICTURE X(12) VALUE "B  C  CO COD". 
                  07 FILLER PICTURE X(12) VALUE "D  DFRDR DRF". 
                  07 FILLER PICTURE X(12) VALUE "F  FI FIDFIR". 
                  07 FILLER PICTURE X(12) VALUE "FD FR H  N  ". 
                  07 FILLER PICTURE X(12) VALUE "O  P  R  9  ". 
               05  FLD0521010-CD  REDEFINES   FLD0521010-CV.
                  07  FLD0521010-CODES  PICTURE X(3) OCCURS 20. 
              05  FLD0521010-MV.
                  07  FILLER PICTURE X(18) VALUE
                 "BINARY            ".
                  07  FILLER PICTURE X(18) VALUE
                 "CHARACTER         ".
                  07  FILLER PICTURE X(18) VALUE
                 "COMPLEX           ".
                  07  FILLER PICTURE X(18) VALUE
                 "COMPLEX DECIMAL   ".
                  07  FILLER PICTURE X(18) VALUE
                 "DECIMAL           ".
                  07  FILLER PICTURE X(18) VALUE
                 "DECIMAL FIXED REAL".
                  07  FILLER PICTURE X(18) VALUE
                 "DECIMAL REAL      ".
                  07  FILLER PICTURE X(18) VALUE
                 "DECIMAL REAL FLOAT".
                  07  FILLER PICTURE X(18) VALUE
                 "FLOATING POINT    ".
                  07  FILLER PICTURE X(18) VALUE
                 "FIXED             ".
                  07  FILLER PICTURE X(18) VALUE
                 "FIXED DECIMAL     ".
                  07  FILLER PICTURE X(18) VALUE
                 "FIXED REAL        ".
                  07  FILLER PICTURE X(18) VALUE
                 "FLOAT DECIMAL     ".
                  07  FILLER PICTURE X(18) VALUE
                 "FLOAT REAL        ".
                  07  FILLER PICTURE X(18) VALUE
                 "HEXADECIMAL       ".
                  07  FILLER PICTURE X(18) VALUE
                 "NUMERIC           ".
                  07  FILLER PICTURE X(18) VALUE
                 "OCTAL             ".
                  07  FILLER PICTURE X(18) VALUE
                 "PACKED DECIMAL    ".
                  07  FILLER PICTURE X(18) VALUE
                 "REAL              ".
                  07  FILLER PICTURE X(18) VALUE
                 "XXXXXXXXXXXXXXXXXX".
               05  FLD0521010-MD  REDEFINES   FLD0521010-MV.
                  07  FLD0521010-MNG PICTURE X(18) OCCURS 20. 
      * 
      *    ATTRIBUTES CATEGORY - FIELD "JUST" CODES AND 
      *    REPORT NAMES.
      * 
               05  FLD0521015-CV       PICTURE X(3) VALUE "LR9".
               05  FLD0521015-CD  REDEFINES   FLD0521015-CV.
                   07  FLD0521015-CODES PICTURE X OCCURS 3. 
               05  FLD0521015-MV   PICTURE X(15)  VALUE 
               "LEFT RIGHTXXXXX". 
               05  FLD0521015-MD   REDEFINES   FLD0521015-MV. 
                   07  FLD0521015-MNG  PICTURE X(5) OCCURS 3. 
      * 
      *    ATTRIBUTES CATEGORY - FIELD "SYNC" CODES AND 
      *    REPORT NAMES.
      * 
               05  FLD0521020-CV       PICTURE X(5) VALUE "YNLR9".
               05  FLD0521020-CD   REDEFINES   FLD0521020-CV. 
                   07  FLD0521020-CODES PICTURE X OCCURS 5. 
               05  FLD0521020-MV   PICTURE X(25)  VALUE 
                   "YES  NO   LEFT RIGHTXXXXX". 
               05  DLS0521020-MD   REDEFINES   FLD0521020-MV. 
                   07  FLD0521020-MNG  PICTURE X(5) OCCURS 5. 
      * 
      *    ATTRIBUTES CATEGORY - FIELD "VOLATILE" CODES AND 
      *    REPORT NAMES.
      * 
           05  FLD0521025-CV           PICTURE X(3) VALUE "DS9".
           05  FLD0521025-CD  REDEFINES   FLD0521025-CV.
               07  FLD0521025-CODES    PICTURE X OCCURS 3.
           05  FLD0521025-MV   PICTURE X(21) VALUE
               "DYNAMICSTATIC XXXXXXX". 
           05  FLD0521025-MD   REDEFINES    FLD0521025-MV.
               07  FLD0521025-MNG      PICTURE X(7) OCCURS 3. 
  
      * 
      *    PROCESS CATEGORY - FIELD "TYPEPROC" CODES AND
      *    REPORT NAMES.
      * 
           05  FLD0540010-CV           PICTURE X(16) VALUE
               "ARVRCHECDCEADACA".
           05  FLD0540010-CD  REDEFINES   FLD0540010-CV.
               07  FLD0540010-CODES    PICTURE XX OCCURS 8. 
           05  FLD0540010-MV. 
               07 FILLER PICTURE X(14) VALUE "ACTUAL RESULT ".
               07 FILLER PICTURE X(14) VALUE "VIRTUAL RESULT".
               07 FILLER PICTURE X(14) VALUE "CHECK         ".
               07 FILLER PICTURE X(14) VALUE "ENCODE        ".
               07 FILLER PICTURE X(14) VALUE "DECODE        ".
               07 FILLER PICTURE X(14) VALUE "ENCODE ALWAYS ".
               07 FILLER PICTURE X(14) VALUE "DECODE ALWAYS ".
               07 FILLER PICTURE X(14) VALUE "CALL          ".
           05  FLD0540010-MD   REDEFINES    FLD0540010-MV.
               07  FLD0540010-MNG      PICTURE X(14) OCCURS 8.
  
      * 
      *    PROCESS CATEGORY - FIELD "TIME" CODES AND
      *    REPORT NAMES.
      * 
           05  FLD0540015-CV           PICTURE X(3) VALUE 
               "BEA". 
           05  FLD0540015-CD  REDEFINES   FLD0540015-CV.
               07  FLD0540015-CODES    PICTURE X OCCURS 3.
           05  FLD0540015-MV   PICTURE X(45) VALUE
               "BEFORE         ON ERROR DURINGAFTER          ". 
           05  FLD0540015-MD   REDEFINES    FLD0540015-MV.
               07  FLD0540015-MNG      PICTURE X(15) OCCURS 3.
  
      * 
      *    PROCESS CATEGORY - FIELD "OPTION" CODES AND
      *    REPORT NAMES.
      * 
           05  FLD0540020-CV           PICTURE X(3) VALUE 
               "SMG". 
           05  FLD0540020-CD  REDEFINES   FLD0540020-CV.
               07  FLD0540020-CODES    PICTURE X OCCURS 3.
           05  FLD0540020-MV   PICTURE X(18) VALUE
               "STORE MODIFYGET   ".
           05  FLD0540020-MD   REDEFINES    FLD0540020-MV.
               07  FLD0540020-MNG      PICTURE X(6) OCCURS 3. 
  
      ******************************************************************
      *    STANDARD CATEGORY REPORT DETAIL LINES FOR ELEMENTS 
      ******************************************************************
  
           03  05-CAT-DETAIL-LINES. 
      * 
      *    ORIGIN LINES 
      * 
      *           LINE 1: DEPARTMENT AND CYCLE
      *           LINE 2: PROGRAM AND GENCODE 
      *           LINE 3: FORM
      *           LINE 4: TIMELIFE AND UNITLIFE 
      * 
               05  CAT05100-LINE1.
                   07  FLD0510005-HDG  PICTURE X(11). 
                   07  FLD0510005-VAL  PICTURE X(32). 
                   07  FILLER          PICTURE XX.
                   07  FLD0510025-HDG  PICTURE X(6).
                   07  FLD0510025-VAL.
                       09  FLD0510025-POS1 PICTURE X. 
                       09  FILLER         PICTURE X(12).
                   07  FILLER          PICTURE X(6).
               05  CAT05100-LINE2 REDEFINES CAT05100-LINE1. 
                   07  FLD0510010-HDG  PICTURE X(8).
                   07  FLD0510010-VAL  PICTURE X(32). 
                   07  FILLER          PICTURE XX.
                   07  FLD0510020-HDG  PICTURE X(10). 
                   07  FLD0510020-VAL.
                       09  FLD0510020-POS1 PICTURE X. 
                       09  FILLER         PICTURE XX. 
                   07  FILLER          PICTURE X(15). 
               05  CAT05100-LINE3 REDEFINES CAT05100-LINE2. 
                   07  FLD0510015-HDG  PICTURE X(5).
                   07  FLD0510015-VAL  PICTURE X(32). 
                   07  FILLER          PICTURE X(33). 
               05  CAT05100-LINE4  REDEFINES CAT05100-LINE3.
                   07  FLD0510030-HDG  PICTURE X(14). 
                   07  FLD0510030-VAL  PICTURE ZZ9. 
                   07  FILLER          PICTURE X. 
                  07  FLD0510035-VAL. 
                      09  FLD0510035-POS1  PICTURE X. 
                       09  FILLER      PICTURE X(18). 
                   07  FILLER          PICTURE X(33). 
      * 
      *    VALUE LINES
      * 
      *           LINE 1: VALUE 
      *           LINE 2: NOTE
      *           LINE 3: CHECKBY 
      *           LINE 4: CKVAL 
      *           LINE 5: THRUVAL 
      * 
               05  CAT05110-LINE1  REDEFINES  CAT05100-LINE4. 
                   07  FLD0511005-HDG  PICTURE X(6).
                   07  FLD0511005-VAL  PICTURE X(52). 
                   07  FILLER          PICTURE X(12). 
               05  CAT05110-LINE2 REDEFINES CAT05110-LINE1. 
                   07  FLD0511010-HDG  PICTURE X(5).
                   07  FLD0511010-VAL  PICTURE X(15). 
                   07  FILLER          PICTURE X(50). 
               05  CAT05110-LINE3 REDEFINES CAT05110-LINE2. 
                   07  FLD0511020-HDG  PICTURE X(9).
                   07  FLD0511020-VAL  PICTURE X(13). 
                   07  FILLER          PICTURE X(48). 
               05  CAT05110-LINE4 REDEFINES CAT05110-LINE3. 
                   07  FLD0511025-HDG  PICTURE X(12). 
                   07  FLD0511025-VAL  PICTURE X(30). 
                   07  FILLER          PICTURE X(28). 
               05  CAT05110-LINE5 REDEFINES CAT05110-LINE4. 
                   07  FLD0511030-HDG  PICTURE X(5).
                   07  FLD0511030-VAL  PICTURE X(30). 
                   07  FILLER          PICTURE X(35). 
      * 
      *    NAME LINES 
      * 
      *           LINE 1: DATANAME AND SYMBOL 
      *           LINE 2: IDENTIFIER AND DBMSNAME 
      *           LINE 3: DMSNAME 
      * 
               05  CAT05200-LINE1 REDEFINES  CAT05110-LINE5.
                   07  FLD0520005-HDG  PICTURE X(10). 
                   07  FLD0520005-VAL  PICTURE X(32). 
                   07  FILLER          PICTURE XX.
                   07  FLD0520015-HDG  PICTURE X(7).
                   07  FLD0520015-VAL  PICTURE X(8).
                   07  FILLER          PICTURE X(11). 
               05  CAT05200-LINE2 REDEFINES CAT05200-LINE1. 
                   07  FLD0520010-HDG  PICTURE X(11). 
                   07  FLD0520010-VAL  PICTURE X(32). 
                   07  FILLER          PICTURE XX.
                   07  FLD0520020-HDG  PICTURE X(10). 
                   07  FLD0520020-VAL  PICTURE X(8).
                   07  FILLER          PICTURE X(7).
               05  CAT05200-LINE3  REDEFINES  CAT05200-LINE2. 
                   07  FLD0520035-HDG  PICTURE X(9).
                   07  FLD0520035-VAL  PICTURE X(30). 
                   07  FILLER          PICTURE X(31). 
      * 
      *    ATTRIBUTE LINES
      * 
      *           LINE 1: LENGTH AND FORMAT 
      *           LINE 2: JUSTIFICATION AND SYNCHRONIZATION 
      *           LINE 3: VOLATILITY, NATURE AND MEASURE
      *           LINE 4: PICTURE AND INITIAL VALUE 
      * 
               05  CAT05210-LINE1  REDEFINES  CAT05200-LINE3. 
                   07  FLD0521005-HDG  PICTURE X(7).
                   07  FLD0521005-VAL  PICTURE Z(9)9. 
                   07  FILLER          PICTURE XX.
                   07  FLD0521010-HDG  PICTURE X(7).
                   07  FLD0521010-VAL.
                       09  FLD0521010-POS1  PICTURE X(18).
                   07  FILLER          PICTURE X(26). 
               05  CAT05210-LINE2 REDEFINES  CAT05210-LINE1.
                   07  FLD0521015-HDG  PICTURE X(10). 
                   07  FLD0521015-VAL.
                       09  FLD0521015-POS1 PICTURE X(5).
                   07  FILLER          PICTURE XX.
                   07  FLD0521020-HDG  PICTURE X(13). 
                   07  FLD0521020-VAL.
                       09  FLD0521020-POS1 PICTURE X(5).
               05  CAT05210-LINE3 REDEFINES  CAT05210-LINE2.
                   07  FLD0521025-HDG  PICTURE X(11). 
                   07  FLD0521025-VAL.
                       09  FLD0521025-POS1 PICTURE X. 
                       09  FILLER      PICTURE X(6).
                   07  FILLER          PICTURE X(4).
                   07  FLD0521030-HDG  PICTURE X(7).
                   07  FLD0521030-VAL  PICTURE X(7).
                   07  FILLER          PICTURE X(4).
                   07  FLD0521035-HDG  PICTURE X(16). 
                   07  FLD0521035-VAL  PICTURE X(11). 
                   07  FILLER          PICTURE XXX. 
               05  CAT05210-LINE4 REDEFINES  CAT05210-LINE3.
                   07  FLD0521040-HDG  PICTURE X(8).
                   07  FLD0521040-VAL  PICTURE X(25). 
                   07  FILLER          PICTURE X. 
                   07  FLD0521045-HDG  PICTURE X(11). 
                   07  FLD0521045-VAL  PICTURE X(25). 
      * 
      *    PROCESS LINES
      * 
      *           LINE 1: DBPROC
      *           LINE 2: TYPEPROC AND TIME 
      *           LINE 3: OPTION
      * 
               05  CAT05400-LINE1  REDEFINES  CAT05210-LINE3. 
                   07  FLD0540005-HDG  PICTURE X(19). 
                   07  FLD0540005-VAL  PICTURE X(32). 
                   07  FILLER          PICTURE X(19). 
               05  CAT05400-LINE2  REDEFINES  CAT05400-LINE1. 
                   07  FLD0540010-HDG  PICTURE X(13). 
                   07  FLD0540010-VAL  PICTURE X(14). 
                   07  FILLER          PICTURE X. 
                   07  FLD0540015-HDG  PICTURE X(5).
                   07  FLD0540015-VAL  PICTURE X(15). 
                   07  FILLER          PICTURE X(21). 
               05  CAT05400-LINE3  REDEFINES  CAT05400-LINE2. 
                   07  FLD0540020-HDG  PICTURE X(7).
                   07  FLD0540020-VAL  PICTURE X(18). 
                   07  FILLER          PICTURE X(45). 
