*DECK DCUTL100
00001  IDENTIFICATION DIVISION.                                         08/12/78
       PROGRAM-ID.   UTL100.
00003 ******************************************************************   LV002
00004 *                                                                    CL**2
00005 *        THIS PROGRAM INITIATES THE SYSTEM FILES                     CL**2
00006 *                                                                    CL**2
00007 ******************************************************************   CL**2
00008  ENVIRONMENT DIVISION.                                               CL**2
00009  CONFIGURATION SECTION.                                              CL**2
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
00012  INPUT-OUTPUT SECTION.                                               CL**2
00013  FILE-CONTROL.                                                       CL**2
           SELECT MAST1 ASSIGN TO "MAST1" 
               ACCESS MODE IS RANDOM
               ORGANIZATION IS DIRECT 
               RECORD KEY IS DATA-KEY 
               BLOCK COUNT IS CTL-HMB.
           SELECT MAST2 ASSIGN TO "MAST2" 
               ACCESS MODE IS RANDOM
               ORGANIZATION IS DIRECT 
               RECORD KEY IS REL-KEY
               BLOCK COUNT IS CTL-HMB.
           SELECT MAST3 ASSIGN TO "MAST3" 
               ACCESS MODE IS DYNAMIC 
               RELATIVE KEY IS CON-KEY
               ORGANIZATION IS RELATIVE 
               USE "PRUF=YES".
           SELECT SYSPRINT ASSIGN TO "OUTPUT".
00025  DATA DIVISION.                                                      CL**2
00026  FILE SECTION.                                                       CL**2
*CALL     MAST1FD                                                          CL**2
*CALL     MAST2FD                                                          CL**2
*CALL     MAST3FD                                                          CL**2
*CALL     SYSPRTFD                                                         CL**2
  
  
       COMMON-STORAGE SECTION.
  
  
       77  RETURN-CODE PICTURE 99.
  
  
       01 WKPRINT-UTL.
*CALL WKPRINT 
               10 ERROR-LINE REDEFINES STD-REPORT-REC.
                   15 FILLER     PICTURE X(20). 
                   15 ERROR-POS1 PICTURE X(6).
                    15 ERROR-POS2 PICTURE X(60).
                   15 FILLER     PICTURE X(46). 
       01  UC-BACKUP-R                    PICTURE X(533). 
       01  UC-RENAME1                  PICTURE X(72). 
       01  UC-RENAME2                  PICTURE X(11). 
       01  UC-STDS                     PICTURE X. 
       01  UC-OPTIONS                  PICTURE X(92). 
  
      ********************************************************
      * 
      *     NAME, ADDRESS AND DEVICE TRANSACTIONS ARE PASSED HERE 
      * 
      ********************************************************
       01 UTL-TABLE-INIT. 
           05 INIT-REC1.
               10 REC1-ID    PICTURE X(5).
               10 REC1-OPER  PICTURE X(67). 
           05 INIT-REC2.
               10 REC2-ID    PICTURE X(8).
               10 REC2-OPER  PICTURE X(64). 
           05 INIT-REC3.
               10 REC3-ID    PICTURE XXXX.
               10 REC3-OPER    PICTURE X(68). 
*CALL     WRKSTG77                                                         CL**2
00032  77  OPT-SUB-LIMIT            PICTURE S99 COMP SYNC.                 CL**2
00033  77  TX-SUB                   PICTURE S99 COMP SYNC.                 CL**2
       77 MAX-POS PICTURE 99  VALUE 73. 
       77 CON-KEY PICTURE 999.
00035  77  OPT-SUB                  PICTURE S99 COMP.                      CL**2
00036  77  COMMA-CHAR                     PICTURE X VALUE ",".             CL**2
00037  77  EQUAL-CHAR                     PICTURE X VALUE "=".             CL**2
00038  77  TEST-CHAR                      PICTURE X.                       CL**2
       01 WK-DATE.
           02 Y    PICTURE 99.
           02 M    PICTURE 99.
           02 D    PICTURE 99.
       01 WK-DATEX. 
           02 MX   PICTURE 99.
           02 FILLER   PICTURE X   VALUE "/". 
           02 DX   PICTURE 99.
           02 FILLER   PICTURE X   VALUE "/". 
           02 YX   PICTURE 99.
      ******************************************************************
      *              ENTRY NAME TABLE = CTL-RECORD-3
      ******************************************************************
       01  ENTRY-TYPES. 
           03  FILLER          PICTURE X(15)   VALUE "DBPROC".
           03  FILLER          PICTURE XX      VALUE "03".
           03  FILLER          PICTURE X(15)   VALUE "ELEMENT". 
           03  FILLER          PICTURE XX      VALUE "05".
           03  FILLER          PICTURE X(15)   VALUE "GROUP". 
           03  FILLER          PICTURE XX      VALUE "10".
           03  FILLER          PICTURE X(15)   VALUE "RECORD".
           03  FILLER          PICTURE XX      VALUE "13".
           03  FILLER          PICTURE X(15)   VALUE "DATASET". 
           03  FILLER          PICTURE XX      VALUE "19".
           03  FILLER          PICTURE X(15)   VALUE "FILE".
           03  FILLER          PICTURE XX      VALUE "20".
           03  FILLER          PICTURE X(15)   VALUE "AREA".
           03  FILLER          PICTURE XX      VALUE "22".
           03  FILLER          PICTURE X(15)   VALUE "SUBSCHEMA". 
           03  FILLER          PICTURE XX      VALUE "24".
           03  FILLER          PICTURE X(15)   VALUE "SCHEMA".
           03  FILLER          PICTURE XX      VALUE "26".
           03  FILLER          PICTURE X(15)   VALUE "TOTAL". 
           03  FILLER          PICTURE XX      VALUE "32".
           03  FILLER          PICTURE X(15)   VALUE "FORM".
           03  FILLER          PICTURE XX      VALUE "35".
           03  FILLER          PICTURE X(15)   VALUE "REPORT".
           03  FILLER          PICTURE XX      VALUE "40".
           03  FILLER          PICTURE X(15)   VALUE "EXTERNAL".
           03  FILLER          PICTURE XX      VALUE "45".
           03  FILLER          PICTURE X(15)   VALUE "MODULE".
           03  FILLER          PICTURE XX      VALUE "50".
           03  FILLER          PICTURE X(15)   VALUE "TASK".
           03  FILLER          PICTURE XX      VALUE "55".
           03  FILLER          PICTURE X(15)   VALUE "SYSTEM".
           03  FILLER          PICTURE XX      VALUE "60".
           03  FILLER          PICTURE X(15)   VALUE "USER".
           03  FILLER          PICTURE XX      VALUE "65".
  
      ******************************************************************
      *           FORMAT IS 
      *                     ENTRY ID        XX
      *                     CATEGORY        XXX 
      *                     RELATIVE RECORD NUMBER   XXX
      ******************************************************************
  
      ******************************************************************
      *           COMMON CATEGORIES USE 99 AS ENTITY-ID 
      ******************************************************************
           03  DIR-CTL. 
               05  FILLER            PICTURE 99   VALUE 99. 
               05  FILLER            PICTURE 999  VALUE 010.
               05  FILLER            PICTURE 999  VALUE 005.
           03  DIR-CLASS. 
               05  FILLER            PICTURE 99   VALUE 99. 
               05  FILLER            PICTURE 999  VALUE 020.
               05  FILLER            PICTURE 999  VALUE 006.
           03  DIR-DESC.
               05  FILLER            PICTURE 99   VALUE 99. 
               05  FILLER            PICTURE 999  VALUE 030.
               05  FILLER            PICTURE 999  VALUE 007.
           03  DIR-OTHER. 
               05  FILLER            PICTURE 99   VALUE 99. 
               05  FILLER            PICTURE 999  VALUE 900.
               05  FILLER            PICTURE 999  VALUE 008.
      ******************************************************************
      *                  DBPROC CATEGORIES
      ******************************************************************
           03  DIR-DBP-RES. 
               05  FILLER            PICTURE 99   VALUE 03. 
               05  FILLER            PICTURE 999  VALUE 140.
               05  FILLER            PICTURE 999  VALUE 009.
           03  DIR-DBP-NAM. 
               05  FILLER            PICTURE 99   VALUE 03. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 010.
           03  DIR-DBP-ATT. 
               05  FILLER            PICTURE 99   VALUE 03. 
               05  FILLER            PICTURE 999  VALUE 210.
               05  FILLER            PICTURE 999  VALUE 011.
      ******************************************************************
      *                  ELEMENT CATEGORIES 
      ******************************************************************
           03  DIR-ELE-ORG. 
               05  FILLER            PICTURE 99   VALUE 05. 
               05  FILLER            PICTURE 999  VALUE 100.
               05  FILLER            PICTURE 999  VALUE 012.
           03  DIR-ELE-VAL. 
               05  FILLER            PICTURE 99   VALUE 05. 
               05  FILLER            PICTURE 999  VALUE 110.
               05  FILLER            PICTURE 999  VALUE 013.
           03  DIR-ELE-VAL2.
               05  FILLER            PICTURE 99   VALUE 05. 
               05  FILLER            PICTURE 999  VALUE 110.
               05  FILLER            PICTURE 999  VALUE 014.
           03  DIR-ELE-NAM. 
               05  FILLER            PICTURE 99   VALUE 05. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 15. 
           03  DIR-ELE-ATT. 
               05  FILLER            PICTURE 99   VALUE 05. 
               05  FILLER            PICTURE 999  VALUE 210.
               05  FILLER            PICTURE 999  VALUE 016.
           03  DIR-ELE-ALY. 
               05  FILLER            PICTURE 99   VALUE 05. 
               05  FILLER            PICTURE 999  VALUE 211.
               05  FILLER            PICTURE 999  VALUE 017.
           03  DIR-ELE-PROC.
               05  FILLER            PICTURE 99   VALUE 05. 
               05  FILLER            PICTURE 999  VALUE 400.
               05  FILLER            PICTURE 999  VALUE 018.
      ******************************************************************
      *                    GROUP CATEGORIES 
      ******************************************************************
           03  DIR-GRO-NAM. 
               05  FILLER            PICTURE 99   VALUE 10. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 019.
           03  DIR-GRO-ATT. 
               05  FILLER            PICTURE 99   VALUE 10. 
               05  FILLER            PICTURE 999  VALUE 210.
               05  FILLER            PICTURE 999  VALUE 020.
           03  DIR-GRO-STC. 
               05  FILLER            PICTURE 99   VALUE 10. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 021.
           03  DIR-GRO-OCC. 
               05  FILLER            PICTURE 99   VALUE 10. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 022.
           03  DIR-GRO-DEP-QUAL.
               05  FILLER            PICTURE 99   VALUE 10. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 023.
           03  DIR-GRO-INDEX. 
               05  FILLER            PICTURE 99   VALUE 10. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 024.
           03  DIR-GRO-OCC-KEY. 
               05  FILLER            PICTURE 99   VALUE 10. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 025.
           03  DIR-GRO-RENAME.
               05  FILLER            PICTURE 99   VALUE 10. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 026.
           03  DIR-GRO-REN-QUAL.
               05  FILLER            PICTURE 99   VALUE 10. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 027.
           03  DIR-GRO-THRU.
               05  FILLER            PICTURE 99   VALUE 10. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 028.
           03  DIR-GRO-THRU-QUAL. 
               05  FILLER            PICTURE 99   VALUE 10. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 029.
      ******************************************************************
      *                    RECORD CATEGORIES
      ******************************************************************
           03  DIR-SR-NAME. 
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 030.
           03  DIR-SR-ATT.
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 210.
               05  FILLER            PICTURE 999  VALUE 031.
           03  DIR-SR-ALY.
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 211.
               05  FILLER            PICTURE 999  VALUE 032.
           03  DIR-SR-STC.
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 033.
           03  DIR-SR-OCC.
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 034.
           03  DIR-SR-DE-QUAL.
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 035.
           03  DIR-SR-INDEX.
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 036.
           03  DIR-SR-OCC-KEY.
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 037.
           03  DIR-SR-RENAME. 
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 038.
           03  DIR-SR-REN-QUAL. 
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 039.
           03  DIR-SR-THRU. 
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 040.
           03  DIR-SR-THRU-QUAL.
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 041.
           03  DIR-SR-STC2. 
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 042.
           03  DIR-SR-STC3. 
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 043.
           03  DIR-SR-PROC. 
               05  FILLER            PICTURE 99   VALUE 13. 
               05  FILLER            PICTURE 999  VALUE 400.
               05  FILLER            PICTURE 999  VALUE 044.
      ******************************************************************
      *                  DATASET CATEGORIES 
      ******************************************************************
           03  DIR-TOT-RESP.
               05  FILLER            PICTURE 99   VALUE 19. 
               05  FILLER            PICTURE 999  VALUE 140.
               05  FILLER            PICTURE 999  VALUE 045.
           03  DIR-TOT-NAME.
               05  FILLER            PICTURE 99   VALUE 19. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 046.
           03  DIR-TOT-ATT. 
               05  FILLER            PICTURE 99   VALUE 19. 
               05  FILLER            PICTURE 999  VALUE 210.
               05  FILLER            PICTURE 999  VALUE 047.
           03  DIR-TOT-UNIT.
               05  FILLER            PICTURE 99   VALUE 19. 
               05  FILLER            PICTURE 999  VALUE 220.
               05  FILLER            PICTURE 999  VALUE 048.
           03  DIR-TOT-ENV. 
               05  FILLER            PICTURE 99   VALUE 19. 
               05  FILLER            PICTURE 999  VALUE 245.
               05  FILLER            PICTURE 999  VALUE 049.
           03  DIR-TOT-STR. 
               05  FILLER            PICTURE 99   VALUE 19. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 050.
      ******************************************************************
      *                     FILE CATEGORIES 
      ******************************************************************
           03  DIR-FILE-RESP. 
               05  FILLER            PICTURE 99   VALUE 20. 
               05  FILLER            PICTURE 999  VALUE 140.
               05  FILLER            PICTURE 999  VALUE 051.
           03  DIR-FILE-NAME. 
               05  FILLER            PICTURE 99   VALUE 20. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 052.
           03  DIR-FILE-ATTR. 
               05  FILLER            PICTURE 99   VALUE 20. 
               05  FILLER            PICTURE 999  VALUE 210.
               05  FILLER            PICTURE 999  VALUE 053.
           03  DIR-FILE-UNIT. 
               05  FILLER            PICTURE 99   VALUE 20. 
               05  FILLER            PICTURE 999  VALUE 220.
               05  FILLER            PICTURE 999  VALUE 054.
           03  DIR-FILE-STC.
               05  FILLER            PICTURE 99   VALUE 20. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 055.
           03  DIR-FILE-MD. 
               05  FILLER            PICTURE 99   VALUE 20. 
               05  FILLER            PICTURE 999  VALUE 450.
               05  FILLER            PICTURE 999  VALUE 056.
      ******************************************************************
      *                     AREA CATEGORIES 
      ******************************************************************
           03  DIR-AREA-RESP. 
               05  FILLER            PICTURE 99   VALUE 22. 
               05  FILLER            PICTURE 999  VALUE 140.
               05  FILLER            PICTURE 999  VALUE 057.
           03  DIR-AREA-NAME. 
               05  FILLER            PICTURE 99   VALUE 22. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 058.
           03  DIR-AREA-ATTR. 
               05  FILLER            PICTURE 99   VALUE 22. 
               05  FILLER            PICTURE 999  VALUE 210.
               05  FILLER            PICTURE 999  VALUE 059.
           03  DIR-AREA-ALY.
               05  FILLER            PICTURE 99   VALUE 22. 
               05  FILLER            PICTURE 999  VALUE 211.
               05  FILLER            PICTURE 999  VALUE 060.
           03  DIR-AREA-STC.
               05  FILLER            PICTURE 99   VALUE 22. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 061.
           03  DIR-AREA-PROC. 
               05  FILLER            PICTURE 99   VALUE 22. 
               05  FILLER            PICTURE 999  VALUE 400.
               05  FILLER            PICTURE 999  VALUE 062.
           03  DIR-AREA-RCODE.
               05  FILLER            PICTURE 99   VALUE 22. 
               05  FILLER            PICTURE 999  VALUE 400.
               05  FILLER            PICTURE 999  VALUE 063.
           03  DIR-AREA-ACCESS. 
               05  FILLER            PICTURE 99   VALUE 22. 
               05  FILLER            PICTURE 999  VALUE 425.
               05  FILLER            PICTURE 999  VALUE 064.
           03  DIR-AREA-LOCK. 
               05  FILLER            PICTURE 99   VALUE 22. 
               05  FILLER            PICTURE 999  VALUE 425.
               05  FILLER            PICTURE 999  VALUE 065.
           03  DIR-AREA-MD. 
               05  FILLER            PICTURE 99   VALUE 22. 
               05  FILLER            PICTURE 999  VALUE 450.
               05  FILLER            PICTURE 999  VALUE 066.
           03 DIR-AREA-KEYS.
               05  FILLER            PICTURE 99   VALUE 22. 
               05  FILLER            PICTURE 999  VALUE 500.
               05  FILLER            PICTURE 999  VALUE 067.
           03  DIR-AREA-CKEYS.
               05  FILLER            PICTURE 99   VALUE 22. 
               05  FILLER            PICTURE 999  VALUE 500.
               05  FILLER            PICTURE 999  VALUE 068.
           03  DIR-AREA-CKEYS-COM.
               05  FILLER            PICTURE 99   VALUE 22. 
               05  FILLER            PICTURE 999  VALUE 500.
               05  FILLER            PICTURE 999  VALUE 069.
      ******************************************************************
      *                  SUBSCHEMA CATEGORIES 
      ******************************************************************
           03  DIR-SS-RESP. 
               05  FILLER            PICTURE 99   VALUE 24. 
               05  FILLER            PICTURE 999  VALUE 140.
               05  FILLER            PICTURE 999  VALUE 070.
           03  DIR-SS-NAME. 
               05  FILLER            PICTURE 99   VALUE 24. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 071.
           03 DIR-SS-STC. 
               05  FILLER            PICTURE 99   VALUE 24. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 072.
           03  DIR-SS-MDINFO. 
               05  FILLER            PICTURE 99   VALUE 24. 
               05  FILLER            PICTURE 999  VALUE 450.
               05  FILLER            PICTURE 999  VALUE 073.
           03  DIR-SS-SSREL1. 
               05  FILLER            PICTURE 99   VALUE 24. 
               05  FILLER            PICTURE 999  VALUE 525.
               05  FILLER            PICTURE 999  VALUE 074.
           03  DIR-SS-SSREL2. 
               05  FILLER            PICTURE 99   VALUE 24. 
               05  FILLER            PICTURE 999  VALUE 525.
               05  FILLER            PICTURE 999  VALUE 075.
           03  DIR-SS-SSREL3. 
               05  FILLER            PICTURE 99   VALUE 24. 
               05  FILLER            PICTURE 999  VALUE 525.
               05  FILLER            PICTURE 999  VALUE 076.
           03  DIR-SS-SSREL4. 
               05  FILLER            PICTURE 99   VALUE 24. 
               05  FILLER            PICTURE 999  VALUE 525.
               05  FILLER            PICTURE 999  VALUE 077.
           03  DIR-SS-SSREL5. 
               05  FILLER            PICTURE 99   VALUE 24. 
               05  FILLER            PICTURE 999  VALUE 525.
               05  FILLER            PICTURE 999  VALUE 078.
           03  DIR-SS-SSREL6. 
               05  FILLER            PICTURE 99   VALUE 24. 
               05  FILLER            PICTURE 999  VALUE 525.
               05  FILLER            PICTURE 999  VALUE 079.
      ******************************************************************
      *                    SCHEMA CATEGORIES
      ******************************************************************
           03  DIR-SC-RESP. 
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 140.
               05  FILLER            PICTURE 999  VALUE 080.
           03  DIR-SC-NAME. 
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 081.
           03  DIR-SC-STC.
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 082.
           03  DIR-SC-MDINFO1.
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 450.
               05  FILLER            PICTURE 999  VALUE 083.
           03  DIR-SC-MDINFO2.
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 450.
               05  FILLER            PICTURE 999  VALUE 084.
           03  DIR-SC-MDINFO3.
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 450.
               05  FILLER            PICTURE 999  VALUE 085.
           03  DIR-SC-MDINFO4.
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 450.
               05  FILLER            PICTURE 999  VALUE 086.
           03  DIR-SC-MDINFO5.
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 450.
               05  FILLER            PICTURE 999  VALUE 087.
           03  DIR-SC-MDINFO6.
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 450.
               05  FILLER            PICTURE 999  VALUE 088.
           03  DIR-SC-JOBC. 
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 475.
               05  FILLER            PICTURE 999  VALUE 089.
           03  DIR-SC-CONST1. 
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 550.
               05  FILLER            PICTURE 999  VALUE 090.
           03  DIR-SC-CONST2. 
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 550.
               05  FILLER            PICTURE 999  VALUE 091.
           03  DIR-SC-JOINSA. 
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 575.
               05  FILLER            PICTURE 999  VALUE 092.
           03  DIR-SC-JOINSB. 
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 575.
               05  FILLER            PICTURE 999  VALUE 093.
           03  DIR-SC-JOINSC. 
               05  FILLER            PICTURE 99   VALUE 26. 
               05  FILLER            PICTURE 999  VALUE 575.
               05  FILLER            PICTURE 999  VALUE 094.
      ******************************************************************
      *                TOTAL (DATABASE) CATEGORIES
      ******************************************************************
           03 DIR-DBD-RESP. 
               05  FILLER            PICTURE 99   VALUE 32. 
               05  FILLER            PICTURE 999  VALUE 140.
               05  FILLER            PICTURE 999  VALUE 095.
           03  DIR-DBD-NAME.
               05  FILLER            PICTURE 99   VALUE 32. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 096.
           03  DIR-DBD-DBD. 
               05  FILLER            PICTURE 99   VALUE 32. 
               05  FILLER            PICTURE 999  VALUE 215.
               05  FILLER            PICTURE 999  VALUE 097.
           03  DIR-DBD-SEG. 
               05  FILLER            PICTURE 99   VALUE 32. 
               05  FILLER            PICTURE 999  VALUE 300.
               05  FILLER            PICTURE 999  VALUE 098.
      ******************************************************************
      *                    FORM CATEGORIES
      ******************************************************************
           03  DIR-FORM-RESP. 
               05  FILLER            PICTURE 99   VALUE 35. 
               05  FILLER            PICTURE 999  VALUE 140.
               05  FILLER            PICTURE 999  VALUE 099.
           03  DIR-FORM-NAME. 
               05  FILLER            PICTURE 99   VALUE 35. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 100.
           03  DIR-FORM-ATT.
               05  FILLER            PICTURE 99   VALUE 35. 
               05  FILLER            PICTURE 999  VALUE 210.
               05  FILLER            PICTURE 999  VALUE 101.
           03  DIR-FORM-SUP.
               05  FILLER            PICTURE 99   VALUE 35. 
               05  FILLER            PICTURE 999  VALUE 230.
               05  FILLER            PICTURE 999  VALUE 102.
           03  DIR-FORM-FLOW. 
               05  FILLER            PICTURE 99   VALUE 35. 
               05  FILLER            PICTURE 999  VALUE 240.
               05  FILLER            PICTURE 999  VALUE 103.
           03  DIR-FORM-REL.
               05  FILLER            PICTURE 99   VALUE 35. 
               05  FILLER            PICTURE 999  VALUE 800.
               05  FILLER            PICTURE 999  VALUE 104.
      ******************************************************************
      *                    REPORT CATEGORIES
      ******************************************************************
           03  DIR-REP-RESP.
               05  FILLER            PICTURE 99   VALUE 40. 
               05  FILLER            PICTURE 999  VALUE 140.
               05  FILLER            PICTURE 999  VALUE 105.
           03  DIR-REP-NAME.
               05  FILLER            PICTURE 99   VALUE 40. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 106.
           03  DIR-REP-ATT. 
               05  FILLER            PICTURE 99   VALUE 40. 
               05  FILLER            PICTURE 999  VALUE 210.
               05  FILLER            PICTURE 999  VALUE 107.
           03  DIR-REP-FLOW.
               05  FILLER            PICTURE 99   VALUE 40. 
               05  FILLER            PICTURE 999  VALUE 240.
               05  FILLER            PICTURE 999  VALUE 108.
           03  DIR-REP-REL. 
               05  FILLER            PICTURE 99   VALUE 40. 
               05  FILLER            PICTURE 999  VALUE 800.
               05  FILLER            PICTURE 999  VALUE 109.
      ******************************************************************
      *                      EXTERNAL CATEGORIES
      ******************************************************************
           03  DIR-EXT-RESP.
               05  FILLER            PICTURE 99   VALUE 45. 
               05  FILLER            PICTURE 999  VALUE 140.
               05  FILLER            PICTURE 999  VALUE 110.
           03  DIR-EXT-NAME.
               05  FILLER            PICTURE 99   VALUE 45. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 111.
           03  DIR-EXT-LOC. 
               05  FILLER            PICTURE 99   VALUE 45. 
               05  FILLER            PICTURE 999  VALUE 250.
               05  FILLER            PICTURE 999  VALUE 112.
           03  DIR-EXT-REL. 
               05  FILLER            PICTURE 99   VALUE 45. 
               05  FILLER            PICTURE 999  VALUE 800.
               05  FILLER            PICTURE 999  VALUE 113.
      ******************************************************************
      *                      MODULE CATEGORIES
      ******************************************************************
           03  DIR-MOD-RESP.
               05  FILLER            PICTURE 99   VALUE 50. 
               05  FILLER            PICTURE 999  VALUE 140.
               05  FILLER            PICTURE 999  VALUE 114.
           03  DIR-MOD-NAME.
               05  FILLER            PICTURE 99   VALUE 50. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 115.
           03  DIR-MOD-ATT. 
               05  FILLER            PICTURE 99   VALUE 50. 
               05  FILLER            PICTURE 999  VALUE 210.
               05  FILLER            PICTURE 999  VALUE 116.
           03  DIR-MOD-STORE. 
               05  FILLER            PICTURE 99   VALUE 50. 
               05  FILLER            PICTURE 999  VALUE 260.
               05  FILLER            PICTURE 999  VALUE 117.
           03  DIR-MOD-OPE. 
               05  FILLER            PICTURE 99   VALUE 50. 
               05  FILLER            PICTURE 999  VALUE 270.
               05  FILLER            PICTURE 999  VALUE 118.
           03  DIR-MOD-PAS. 
               05  FILLER            PICTURE 99   VALUE 50. 
               05  FILLER            PICTURE 999  VALUE 280.
               05  FILLER            PICTURE 999  VALUE 119.
           03  DIR-MOD-OTH. 
               05  FILLER            PICTURE 99   VALUE 50. 
               05  FILLER            PICTURE 999  VALUE 290.
               05  FILLER            PICTURE 999  VALUE 120.
           03  DIR-MOD-REL. 
               05  FILLER            PICTURE 99   VALUE 50. 
               05  FILLER            PICTURE 999  VALUE 800.
               05  FILLER            PICTURE 999  VALUE 121.
      ******************************************************************
      *                      TASK CATEGORIES
      ******************************************************************
           03  DIR-TASK-RESP. 
               05  FILLER            PICTURE 99   VALUE 55. 
               05  FILLER            PICTURE 999  VALUE 140.
               05  FILLER            PICTURE 999  VALUE 122.
           03  DIR-TASK-NAMES.
               05  FILLER            PICTURE 99   VALUE 55. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 123.
           03  DIR-TASK-SCH.
               05  FILLER            PICTURE 99   VALUE 55. 
               05  FILLER            PICTURE 999  VALUE 280.
               05  FILLER            PICTURE 999  VALUE 124.
           03  DIR-TASK-REL.
               05  FILLER            PICTURE 99   VALUE 55. 
               05  FILLER            PICTURE 999  VALUE 800.
               05  FILLER            PICTURE 999  VALUE 125.
      ******************************************************************
      *                      SYSTEM CATEGORIES
      ******************************************************************
           03  DIR-SYS-RESP.
               05  FILLER            PICTURE 99   VALUE 60. 
               05  FILLER            PICTURE 999  VALUE 140.
               05  FILLER            PICTURE 999  VALUE 126.
           03  DIR-SYS-NAME.
               05  FILLER            PICTURE 99   VALUE 60. 
               05  FILLER            PICTURE 999  VALUE 200.
               05  FILLER            PICTURE 999  VALUE 127.
           03  DIR-SYS-REL. 
               05  FILLER            PICTURE 99   VALUE 60. 
               05  FILLER            PICTURE 999  VALUE 800.
               05  FILLER            PICTURE 999  VALUE 128.
      ******************************************************************
      *                    USER CATEGORIES
      ******************************************************************
           03  DIR-USER-PERSON. 
               05  FILLER            PICTURE 99   VALUE 65. 
               05  FILLER            PICTURE 999  VALUE 700.
               05  FILLER            PICTURE 999  VALUE 129.
           03  DIR-USER-REL.
               05  FILLER            PICTURE 99   VALUE 65. 
               05  FILLER            PICTURE 999  VALUE 800.
               05  FILLER            PICTURE 999  VALUE 130.
      ******************************************************************
      *         CATEGORY CONTROL TABLE = CTL-RECORD-4 
      ******************************************************************
       01  CATEGORY-TYPES.
      ******************************************************************
      *              CONTROL  CATEGORY - CATEGORY ID = 010
      ******************************************************************
           03  FILLER          PICTURE X(15)   VALUE "CONTROL". 
           03  FILLER          PICTURE   999   VALUE 010. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE 034. 
      ******************************************************************
      *           CLASSIFICATION  CATEGORY - CATEGORY ID = 020
      ******************************************************************
           03  FILLER          PICTURE   X(15) VALUE "CLASSIFICATION".
           03  FILLER          PICTURE   999   VALUE 020. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE 068. 
      ******************************************************************
      *          DESCRIPTION  CATEGORY - CATEGORY ID = 030
      ******************************************************************
           03  FILLER          PICTURE   X(15) VALUE "DESCRIPTION". 
           03  FILLER          PICTURE   999   VALUE 030. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE 068. 
      ******************************************************************
      *          ORIGIN  CATEGORY - CATEGORY ID = 100 
      ******************************************************************
           03  FILLER          PICTURE   X(15) VALUE "ORIGIN".
           03  FILLER          PICTURE   999   VALUE 100. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE 103. 
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ******************************************************************
      *           VALUES  CATEGORY - CATEGORY ID = 110
      ******************************************************************
           03  FILLER          PICTURE   X(15) VALUE "VALUES".
           03  FILLER          PICTURE   999   VALUE 110. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE 076. 
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ******************************************************************
      *          RESPONSIBILITY CATEGORY - CATEGORY ID = 140
      ******************************************************************
           03  FILLER          PICTURE   X(15) VALUE "RESPONSIBILITY".
           03  FILLER          PICTURE   999   VALUE 140. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE 103. 
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE 103. 
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE 103. 
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE 103. 
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE 103. 
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE 103. 
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE 103. 
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE 103. 
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE 103. 
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE 103. 
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE 103. 
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE 103. 
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE 103. 
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ******************************************************************
      *            NAMES CATEGORY  -  CATEGORY ID= 200
      ******************************************************************
           03  FILLER          PICTURE   X(15) VALUE "NAMES". 
           03  FILLER          PICTURE   999   VALUE 200. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE 008. 
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE 112. 
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE 112. 
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE 112. 
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE 077. 
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE 100. 
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE 033. 
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE 033. 
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE 033. 
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE 041. 
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE 043. 
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE 075. 
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE 043. 
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE 043. 
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE 043. 
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE 043. 
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ******************************************************************
      *            ATTRIBUTES  CATEGORY  -  CATEGORY ID= 210
      ******************************************************************
           03  FILLER          PICTURE   X(15) VALUE "ATTRIBUTES".
           03  FILLER          PICTURE   999   VALUE 210. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE 002. 
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE 083. 
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE 041. 
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE 010. 
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE 075. 
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE 075. 
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE 100. 
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE 013. 
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE 004. 
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE 006. 
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ******************************************************************
      *           ALIAS  CATEGORY  -   CATEGORY ID= 211 
      ******************************************************************
           03  FILLER          PICTURE   X(15) VALUE "ALIAS". 
           03  FILLER          PICTURE   999   VALUE 211. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE 145. 
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE 033. 
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE 033. 
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ******************************************************************
      *            IOAREA  CATEGORY  -  CATEGORY ID= 215
      ******************************************************************
           03  FILLER          PICTURE   X(15) VALUE "IOAREA".
           03  FILLER          PICTURE   999   VALUE 215. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE 040. 
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ******************************************************************
      *           UNIT  CATEGORY  -  CATEGORY ID= 220 
      ******************************************************************
           03  FILLER          PICTURE   X(15) VALUE "UNIT".
           03  FILLER          PICTURE   999   VALUE 220. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE 052. 
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE 052. 
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ******************************************************************
      *           SUPPLIERS  CATEGORY  - CATEGORY ID = 230
      ******************************************************************
           03  FILLER          PICTURE   X(15) VALUE "SUPPLIERS". 
           03  FILLER          PICTURE   999   VALUE 230. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE 071. 
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ******************************************************************
      *           FLOW  CATEGORY  - CATEGORY ID = 240 
      ******************************************************************
           03  FILLER          PICTURE   X(15) VALUE "FLOW".
           03  FILLER          PICTURE   999   VALUE 240. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE 088. 
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE 096. 
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ******************************************************************
      *           ENVIRONMENT CATEGORY  -  CATEGORY ID = 245
      ******************************************************************
           03  FILLER          PICTURE   X(15) VALUE "ENVIRONMENT". 
           03  FILLER          PICTURE   999   VALUE 245. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE 045. 
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ***************************************************************** 
      *           LOCATION  CATEGORY   -  CATEGORY ID = 250 
      ***************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "LOCATION".
           03  FILLER          PICTURE   999   VALUE 250. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ***************************************************************** 
      *           STORAGE  CATEGORY   -   CATEGORY ID = 260 
      ***************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "STORAGE". 
           03  FILLER          PICTURE   999   VALUE 260. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE 050. 
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ***************************************************************** 
      *           OPERATING  CATEGORY   -  CATEGORY ID = 270
      ***************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "OPERATING". 
           03  FILLER          PICTURE   999   VALUE 270. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE 081. 
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ***************************************************************** 
      *           SCHEDULING  CATEGORY -  CATEGORY ID = 280 
      ***************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "SCHEDULING".
           03  FILLER          PICTURE   999   VALUE 280. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE 070. 
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE 070. 
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      ***************************************************************** 
      *           PASSING  CATEGORY   -   CATEGORY ID = 290 
      ***************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "PASSING". 
           03  FILLER          PICTURE   999   VALUE 290. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE 033. 
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      *************************************************************** 
      *           STRUCTURE  CATEGORY -  CATEGORY ID = 300
      *************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "STRUCTURE". 
           03  FILLER          PICTURE   999   VALUE 300. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE 142. 
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE 142. 
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE 052. 
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE 049. 
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE 069. 
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE 038. 
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE 042. 
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE 035. 
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      *************************************************************** 
      *           PROCESS  CATEGORY   -   CATEGORY ID = 400 
      *************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "PROCESS". 
           03  FILLER          PICTURE   999   VALUE 400. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE 045. 
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE 049. 
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE 069. 
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      *************************************************************** 
      *           ACCESS  CATEGORY   -   CATEGORY ID = 425
      *************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "ACCESS".
           03  FILLER          PICTURE   999   VALUE 425. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      *************************************************************** 
      *           MDINFO  CATEGORY   -   CATEGORY ID = 450
      *************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "MDINFO".
           03  FILLER          PICTURE   999   VALUE 450. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE 041. 
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE 092. 
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE 008. 
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE 033. 
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      *************************************************************** 
      *           JOBCONTROL CATEGORY   -   CATEGORY ID = 475 
      *************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "JOBCONTROL".
           03  FILLER          PICTURE   999   VALUE 475. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE 086. 
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      *************************************************************** 
      *           AREAKEYS CATEGORY   -   CATEGORY ID = 500 
      *************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "AREAKEYS".
           03  FILLER          PICTURE   999   VALUE 500. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE 072. 
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      *************************************************************** 
      *           SSREL CATEGORY   -   CATEGORY ID = 525
      *************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "SSREL". 
           03  FILLER          PICTURE   999   VALUE 525. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE 133. 
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      *************************************************************** 
      *             BOND CATEGORY - CATEGORY ID = 550 
      *************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "BOND".
           03  FILLER          PICTURE   999   VALUE 550. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE 099. 
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      *************************************************************** 
      *           JOINS CATEGORY   -   CATEGORY ID = 575
      *************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "JOINS". 
           03  FILLER          PICTURE   999   VALUE 575. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE 082. 
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE ZERO.
      *************************************************************** 
      *           PERSONNEL  CATEGORY   -   CATEGORY ID = 700 
      *************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "PERSONNEL". 
           03  FILLER          PICTURE   999   VALUE 700. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE 096. 
      *************************************************************** 
      *           RELATIONAL CATEGORY   -   CATEGORY ID = 800 
      *************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "RELATIONAL".
           03  FILLER          PICTURE   999   VALUE 800. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE ZERO.
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE 073. 
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE 034. 
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE 062. 
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE 036. 
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE 074. 
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE 067. 
      *************************************************************** 
      *           OTHER CATEGORY   -   CATEGORY ID = 900
      *************************************************************** 
           03  FILLER          PICTURE   X(15) VALUE "OTHER". 
           03  FILLER          PICTURE   999   VALUE 900. 
           03  FILLER          PICTURE   99    VALUE 03.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 05.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 10.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 13.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 19.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 20.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 22.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 24.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 26.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 32.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 35.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 40.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 45.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 50.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 55.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 60.
           03  FILLER          PICTURE   999   VALUE 068. 
           03  FILLER          PICTURE   99    VALUE 65.
           03  FILLER          PICTURE   999   VALUE 068. 
      ***************************************************************** 
      *         BEGINNING OF CATEGORY DESCRIPTION TABLE (CTL-RECORD-5)
      ***************************************************************** 
       01  CTL-CAT. 
           05  FILLER           PICTURE 99   VALUE 03.
           05  FILLER           PICTURE 999  VALUE 010. 
           05  FILLER           PICTURE X(8) VALUE "EALIASOF".
           05  FILLER           PICTURE XX   VALUE "05".
           05  FILLER           PICTURE 999  VALUE 002. 
           05  FILLER           PICTURE 999  VALUE 032. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  CTL-ALY-VER      PICTURE X(8) VALUE "VERSION". 
           05  FILLER           PICTURE XX   VALUE "05".
           05  FILLER           PICTURE 999  VALUE 002. 
           05  FILLER           PICTURE 999  VALUE 032. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X(8) VALUE "ESTATUS". 
           05  FILLER           PICTURE XX   VALUE "10".
           05  FILLER           PICTURE 999  VALUE 034. 
           05  FILLER           PICTURE 999  VALUE 001. 
           05  FILLER           PICTURE X    VALUE "C". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
       01  KEY-CAT. 
           05  FILLER           PICTURE 99   VALUE 03.
           05  FILLER           PICTURE 999  VALUE 020. 
           05  FILLER           PICTURE X(8) VALUE "KEYWORD". 
           05  FILLER           PICTURE XX   VALUE "05".
           05  FILLER           PICTURE 999  VALUE 2. 
           05  FILLER           PICTURE 999  VALUE 67.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
       01  DESC-CAT.
           05  FILLER           PICTURE 99   VALUE 03.
           05  FILLER           PICTURE 999  VALUE 030. 
           05  DESC-FLAG        PICTURE X(8) VALUE "DESCFLAG".
           05  FILLER           PICTURE XX   VALUE "05".
           05  FILLER           PICTURE 999  VALUE 2. 
           05  FILLER           PICTURE 999  VALUE 67.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  DESC-COMMENT     PICTURE X(8) VALUE "DESC".
           05  FILLER           PICTURE XX   VALUE "10".
           05  FILLER           PICTURE 999  VALUE 2. 
           05  FILLER           PICTURE 999  VALUE 67.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
       01  OTHER-CAT. 
           05  FILLER           PICTURE 99   VALUE 03.
           05  FILLER           PICTURE 999  VALUE 900. 
           05  FILLER           PICTURE X(8) VALUE "OTHER". 
           05  FILLER           PICTURE XX   VALUE "05".
           05  FILLER           PICTURE 999  VALUE 2. 
           05  FILLER           PICTURE 999  VALUE 67.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X(8) VALUE "88LEVEL". 
           05  FILLER           PICTURE XX   VALUE "10".
           05  FILLER           PICTURE 999  VALUE 2. 
           05  FILLER           PICTURE 999  VALUE 67.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
      ******************************************************************
      *                    DBPROCS
      ******************************************************************
       01  RESP-DBP-CAT.
           05  FILLER            PICTURE 99   VALUE 03. 
           05  FILLER            PICTURE 999  VALUE 140.
           05  DBP-RESP-STAT     PICTURE X(8) VALUE "STATUS". 
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  DBP-RESP-FUNC     PICTURE X(8) VALUE "FUNCTION". 
           05  FILLER            PICTURE XX   VALUE "10". 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  DBP-RESP-DEPT     PICTURE X(8) VALUE "DEPT". 
           05  FILLER            PICTURE XX   VALUE "15". 
           05  FILLER            PICTURE 999  VALUE 4.
           05  FILLER            PICTURE 999  VALUE 32. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  DBP-RESP-PERS     PICTURE X(8) VALUE "PERSON". 
           05  FILLER            PICTURE XX   VALUE "20". 
           05  FILLER            PICTURE 999  VALUE 36. 
           05  FILLER            PICTURE 999  VALUE 32. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  DBP-RESP-PHONE    PICTURE X(8) VALUE "PHONE".
           05  FILLER            PICTURE XX   VALUE "25". 
           05  FILLER            PICTURE 999  VALUE 68. 
           05  FILLER            PICTURE 999  VALUE 10. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  DBP-RESP-TITLE    PICTURE X(8) VALUE "TITLE".
           05  FILLER            PICTURE XX   VALUE "30". 
           05  FILLER            PICTURE 999  VALUE 78. 
           05  FILLER            PICTURE 999  VALUE 15. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  DBP-RESP-MAIL     PICTURE X(8) VALUE "MAIL". 
           05  FILLER            PICTURE XX   VALUE "35". 
           05  FILLER            PICTURE 999  VALUE 93. 
           05  FILLER            PICTURE 999  VALUE 5.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  DBP-RESP-DATE     PICTURE X(8) VALUE "DATE". 
           05  FILLER            PICTURE XX   VALUE "40". 
           05  FILLER            PICTURE 999  VALUE 98. 
           05  FILLER            PICTURE 999  VALUE 6.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
       01  NAME-DBP-CAT.
           05  FILLER            PICTURE 99   VALUE 03. 
           05  FILLER            PICTURE 999  VALUE 200.
           05  NAME-DBP-DMS      PICTURE X(8) VALUE "DMSNAME".
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 002.
           05  FILLER            PICTURE 999  VALUE 007.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
       01  ATT-DBP-CAT. 
           05  FILLER            PICTURE 99   VALUE 03. 
           05  FILLER            PICTURE 999  VALUE 210.
           05  LANG-DBP          PICTURE X(8) VALUE "LANGPRG".
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 002.
           05  FILLER            PICTURE 999  VALUE 001.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
      ******************************************************************
      *                  ELEMENTS 
      ******************************************************************
       01  ORG-CAT. 
           05  FILLER           PICTURE 99   VALUE 05.
           05  FILLER           PICTURE 999  VALUE 100. 
           05  ORG-DEPT         PICTURE X(8) VALUE "DEPT".
           05  FILLER           PICTURE XX   VALUE "05".
           05  FILLER           PICTURE 999  VALUE 2. 
           05  FILLER           PICTURE 999  VALUE 32.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ORG-PROGRAM      PICTURE X(8) VALUE "PROGRAM". 
           05  FILLER           PICTURE XX   VALUE "10".
           05  FILLER           PICTURE 999  VALUE 34.
           05  FILLER           PICTURE 999  VALUE 32.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  0RG-FORM         PICTURE X(8) VALUE "FORM".
           05  FILLER           PICTURE XX   VALUE "15".
           05  FILLER           PICTURE 999  VALUE 66.
           05  FILLER           PICTURE 999  VALUE 32.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ORG-GEN          PICTURE X(8) VALUE "GENCODE". 
           05  FILLER           PICTURE XX   VALUE "20".
           05  FILLER           PICTURE 999  VALUE 98.
           05  FILLER           PICTURE 999  VALUE 1. 
           05  FILLER           PICTURE X    VALUE "C". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ORG-CYCLE        PICTURE X(8) VALUE "CYCLE". 
           05  FILLER           PICTURE XX   VALUE "25".
           05  FILLER           PICTURE 999  VALUE 99.
           05  FILLER           PICTURE 999  VALUE 1. 
           05  FILLER           PICTURE X    VALUE "C". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ORG-LIFE-TIME    PICTURE X(8) VALUE "TIMELIFE".
           05  FILLER           PICTURE XX   VALUE "30".
           05  FILLER           PICTURE 999  VALUE 100. 
           05  FILLER           PICTURE 999  VALUE 3. 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ORG-LIFE-UNIT    PICTURE X(8) VALUE "UNITLIFE".
           05  FILLER           PICTURE XX   VALUE "35".
           05  FILLER           PICTURE 999  VALUE 103. 
           05  FILLER           PICTURE 999  VALUE 1. 
           05  FILLER           PICTURE X    VALUE "C". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
       01  VAL-CAT. 
           05  FILLER           PICTURE 99   VALUE 05.
           05  FILLER           PICTURE 999  VALUE 110. 
           05  VAL-VALUE        PICTURE X(8) VALUE "VALUE". 
           05  FILLER           PICTURE XX   VALUE "05".
           05  FILLER           PICTURE 999  VALUE 2. 
           05  FILLER           PICTURE 999  VALUE 52.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  VAL-NOTE         PICTURE X(8) VALUE "NOTE".
           05  FILLER           PICTURE XX   VALUE "10".
           05  FILLER           PICTURE 999  VALUE 54.
           05  FILLER           PICTURE 999  VALUE 15.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
       01  VAL-CKVAL. 
           05  FILLER           PICTURE 99   VALUE 05.
           05  FILLER           PICTURE 999  VALUE 110. 
           05  VAL-CHECKBY      PICTURE X(8) VALUE "CHECKBY". 
           05  FILLER           PICTURE XX   VALUE "20".
           05  FILLER           PICTURE 999  VALUE 2. 
           05  FILLER           PICTURE 999  VALUE 13.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  VAL-CK-VALUE     PICTURE X(8) VALUE "CKVAL". 
           05  FILLER           PICTURE XX   VALUE "25".
           05  FILLER           PICTURE 999  VALUE 15.
           05  FILLER           PICTURE 999  VALUE 30.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  VAL-CKVAL-THRU   PICTURE X(8) VALUE "THRUVAL". 
           05  FILLER           PICTURE XX   VALUE "30".
           05  FILLER           PICTURE 999  VALUE 45.
           05  FILLER           PICTURE 999  VALUE 30.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
      * 
      *    THE "CKVAL" LITERAL/NUMERIC FLAG IS STORED AT 75.
      *    THE "THRUVAL" LITERAL/NUMERIC FLAG IS STORE AT 76. 
      * 
       01  NAME-CAT.
           05  FILLER           PICTURE 99   VALUE 05.
           05  FILLER           PICTURE 999  VALUE 200. 
           05  NAME-DATA-NAME   PICTURE X(8) VALUE "DATANAME".
           05  FILLER           PICTURE XX   VALUE "05".
           05  FILLER           PICTURE 999  VALUE 2. 
           05  FILLER           PICTURE 999  VALUE 32.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  NAME-IDENTIFIER  PICTURE X(8) VALUE "IDEN".
           05  FILLER           PICTURE XX   VALUE "10".
           05  FILLER           PICTURE 999  VALUE 34.
           05  FILLER           PICTURE 999  VALUE 31.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  NAME-SYMBOL      PICTURE X(8) VALUE "SYMBOL".
           05  FILLER           PICTURE XX   VALUE "15".
           05  FILLER           PICTURE 999  VALUE 65.
           05  FILLER           PICTURE 999  VALUE 8. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  NAME-DBMS        PICTURE X(8) VALUE "DBMSNAME".
           05  FILLER           PICTURE XX   VALUE "20".
           05  FILLER           PICTURE 999  VALUE 73.
           05  FILLER           PICTURE 999  VALUE 8. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05 NAME-DMS          PICTURE X(8) VALUE "DMSNAME". 
           05 FILLER            PICTURE XX   VALUE "35".
           05 FILLER            PICTURE 999  VALUE 081. 
           05 FILLER            PICTURE 999  VALUE 030. 
           05 FILLER            PICTURE X    VALUE "X". 
           05 FILLER            PICTURE X    VALUE "N". 
           05 FILLER            PICTURE X    VALUE "N". 
       01  ATTR-CAT.
           05  FILLER           PICTURE 99   VALUE 05.
           05  FILLER           PICTURE 999  VALUE 210. 
           05  ATTR-LENGTH      PICTURE X(8) VALUE "LENGTH".
           05  FILLER           PICTURE XX   VALUE "05".
           05  FILLER           PICTURE 999  VALUE 2. 
           05  FILLER           PICTURE 999  VALUE 010. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ATTR-FORMAT      PICTURE X(8) VALUE "FORMAT".
           05  FILLER           PICTURE XX   VALUE "10".
           05  FILLER           PICTURE 999  VALUE 012. 
           05  FILLER           PICTURE 999  VALUE 003. 
           05  FILLER           PICTURE  X   VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ATTR-JUST        PICTURE X(8) VALUE "JUST".
           05  FILLER           PICTURE XX   VALUE "15".
           05  FILLER           PICTURE 999  VALUE 015. 
           05  FILLER           PICTURE 999  VALUE 1. 
           05  FILLER           PICTURE X    VALUE "C". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ATTR-SYNC        PICTURE X(8) VALUE "SYNC".
           05  FILLER           PICTURE XX   VALUE "20".
           05  FILLER           PICTURE 999  VALUE 016. 
           05  FILLER           PICTURE 999  VALUE 1. 
           05  FILLER           PICTURE X    VALUE "C". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ATTR-VOLATILE    PICTURE X(8) VALUE "VOLATILE".
           05  FILLER           PICTURE XX   VALUE "25".
           05  FILLER           PICTURE 999  VALUE 017. 
           05  FILLER           PICTURE 999  VALUE 1. 
           05  FILLER           PICTURE X    VALUE "C". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ATTR-NATURE      PICTURE X(8) VALUE "NATURE".
           05  FILLER           PICTURE XX   VALUE "30".
           05  FILLER           PICTURE 999  VALUE 018. 
           05  FILLER           PICTURE 999  VALUE 8. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ATTR-MEASURE     PICTURE X(8) VALUE "MEASURE". 
           05  FILLER           PICTURE XX   VALUE "35".
           05  FILLER           PICTURE 999  VALUE 026. 
           05  FILLER           PICTURE 999  VALUE 8. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ATTR-PICTURE     PICTURE X(8) VALUE "PICTURE". 
           05  FILLER           PICTURE XX   VALUE "40".
           05  FILLER           PICTURE 999  VALUE 034. 
           05  FILLER           PICTURE 999  VALUE 25.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ATTR-INT-VALUE   PICTURE X(8) VALUE "IVALUE".
           05  FILLER           PICTURE XX   VALUE "45".
           05  FILLER           PICTURE 999  VALUE 059. 
           05  FILLER           PICTURE 999  VALUE 25.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
       01  ALY-CAT. 
           05  FILLER           PICTURE 99   VALUE 05.
           05  FILLER           PICTURE 999  VALUE 211. 
           05  ALY-ADATANAM     PICTURE X(8) VALUE "ADATANAM".
           05  FILLER           PICTURE XX   VALUE "05".
           05  FILLER           PICTURE 999  VALUE 2. 
           05  FILLER           PICTURE 999  VALUE 32.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ALY-AIDEN        PICTURE X(8) VALUE "AIDEN". 
           05  FILLER           PICTURE XX   VALUE "10".
           05  FILLER           PICTURE 999  VALUE 34.
           05  FILLER           PICTURE 999  VALUE 31.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ALY-ASYMBOL      PICTURE X(8) VALUE "ASYMBOL". 
           05  FILLER           PICTURE XX   VALUE "15".
           05  FILLER           PICTURE 999  VALUE 65.
           05  FILLER           PICTURE 999  VALUE 8. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ALY-ADBMS        PICTURE X(8) VALUE "ADBMS". 
           05  FILLER           PICTURE XX   VALUE "20".
           05  FILLER           PICTURE 999  VALUE 73.
           05  FILLER           PICTURE 999  VALUE 8. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ALY-ALENGTH      PICTURE X(8) VALUE "ALENGTH". 
           05  FILLER           PICTURE XX   VALUE "25".
           05  FILLER           PICTURE 999  VALUE 081. 
           05  FILLER           PICTURE 999  VALUE 010. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ALY-AFORMAT      PICTURE X(8) VALUE "AFORMAT". 
           05  FILLER           PICTURE XX   VALUE "30".
           05  FILLER           PICTURE 999  VALUE 091. 
           05  FILLER           PICTURE 999  VALUE 003. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ALY-AJUST        PICTURE X(8) VALUE "AJUST". 
           05  FILLER           PICTURE XX   VALUE "35".
           05  FILLER           PICTURE 999  VALUE 094. 
           05  FILLER           PICTURE 999  VALUE 1. 
           05  FILLER           PICTURE X    VALUE "C". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X(8) VALUE "ALIASYNC".
           05  FILLER           PICTURE XX   VALUE "40".
           05  FILLER           PICTURE 999  VALUE 095. 
           05  FILLER           PICTURE 999  VALUE 1. 
           05  FILLER           PICTURE X    VALUE "C". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ALY-PICTURE      PICTURE X(8) VALUE "APICTURE".
           05  FILLER           PICTURE XX   VALUE "45".
           05  FILLER           PICTURE 999  VALUE 096. 
           05  FILLER           PICTURE 999  VALUE 25.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ALY-AINIT        PICTURE X(8) VALUE "AINIT". 
           05  FILLER           PICTURE XX   VALUE "50".
           05  FILLER           PICTURE 999  VALUE 121. 
           05  FILLER           PICTURE 999  VALUE 25.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
       01  PROCESS-CAT. 
           05  FILLER           PICTURE 99   VALUE 05.
           05  FILLER           PICTURE 999  VALUE 400. 
           05  PROCESS-DBPROC   PICTURE X(8) VALUE "DBPROC".
           05  FILLER           PICTURE XX   VALUE "05".
           05  FILLER           PICTURE 999  VALUE 002. 
           05  FILLER           PICTURE 999  VALUE 032. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  PROCESS-TYPEPROC PICTURE X(8) VALUE "TYPEPROC".
           05  FILLER           PICTURE XX   VALUE "10".
           05  FILLER           PICTURE 999  VALUE 034. 
           05  FILLER           PICTURE 999  VALUE 002. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  PROCESS-TIME     PICTURE X(8) VALUE "TIME".
           05  FILLER           PICTURE XX   VALUE "15".
           05  FILLER           PICTURE 999  VALUE 036. 
           05  FILLER           PICTURE 999  VALUE 005. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  PROCESS-OPTION   PICTURE X(8) VALUE "OPTION".
           05  FILLER           PICTURE XX   VALUE "20".
           05  FILLER           PICTURE 999  VALUE 041. 
           05  FILLER           PICTURE 999  VALUE 005. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
      ***************************************************************** 
      *        GROUPS 
      ***************************************************************** 
       01  NAME-GRP-CAT.
           05  FILLER           PICTURE 99   VALUE 10.
           05  FILLER           PICTURE 999  VALUE 200. 
           05  NAM-GRP-DATANAM  PICTURE X(8) VALUE "DATANAME".
           05  FILLER           PICTURE XX   VALUE "05".
           05  FILLER           PICTURE 999  VALUE 2. 
           05  FILLER           PICTURE 999  VALUE 32.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  NAME-GRP-IDEN    PICTURE X(8) VALUE "IDEN".
           05  FILLER           PICTURE XX   VALUE "10".
           05  FILLER           PICTURE 999  VALUE 34.
           05  FILLER           PICTURE 999  VALUE 31.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  NAME-GRP-SYMBOL  PICTURE X(8) VALUE "SYMBOL".
           05  FILLER           PICTURE XX   VALUE "15".
           05  FILLER           PICTURE 999  VALUE 65.
           05  FILLER           PICTURE 999  VALUE 8. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  NAME-GRP-DBMS    PICTURE X(8) VALUE "DBMSNAME".
           05  FILLER           PICTURE XX   VALUE "20".
           05  FILLER           PICTURE 999  VALUE 73.
           05  FILLER           PICTURE 999  VALUE 8. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  NAME-GRP-DMS     PICTURE X(8) VALUE "DMSNAME". 
           05  FILLER           PICTURE XX   VALUE "30".
           05  FILLER           PICTURE 999  VALUE 081. 
           05  FILLER           PICTURE 999  VALUE 030. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
       01  ATTR-GRP-CAT.
           05  FILLER           PICTURE 99   VALUE 10.
           05  FILLER           PICTURE 999  VALUE 210. 
           05  ATTR-GRP-LENGTH  PICTURE X(8) VALUE "LENGTH".
           05  FILLER           PICTURE XX   VALUE "05".
           05  FILLER           PICTURE 999  VALUE 2. 
           05  FILLER           PICTURE 999  VALUE 010. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ATTR-GRP-FORMAT  PICTURE X(8) VALUE "FORMAT".
           05  FILLER           PICTURE XX   VALUE "10".
           05  FILLER           PICTURE 999  VALUE 012. 
           05  FILLER           PICTURE 999  VALUE 003. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ATTR-GRP-PICTURE PICTURE X(8) VALUE "PICTURE". 
           05  FILLER           PICTURE  XX  VALUE "15".
           05  FILLER           PICTURE 999  VALUE 015. 
           05  FILLER           PICTURE 999  VALUE 25.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ATTR-JUST        PICTURE X(8) VALUE "JUST".
           05  FILLER           PICTURE XX   VALUE "20".
           05  FILLER           PICTURE 999  VALUE 040. 
           05  FILLER           PICTURE 999  VALUE 1. 
           05  FILLER           PICTURE X    VALUE "C". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  ATTR-SYNC        PICTURE X(8) VALUE "SYNC".
           05  FILLER           PICTURE XX   VALUE "25".
           05  FILLER           PICTURE 999  VALUE 041. 
           05  FILLER           PICTURE 999  VALUE 1. 
           05  FILLER           PICTURE X    VALUE "C". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
       01  STC-GRP-CAT. 
           05  FILLER           PICTURE 99   VALUE 10.
           05  FILLER           PICTURE 999  VALUE 300. 
           05  STC-GRP-CNAME    PICTURE X(8) VALUE "CATNAME". 
           05  FILLER           PICTURE XX   VALUE "05".
           05  FILLER           PICTURE 999  VALUE 2. 
           05  FILLER           PICTURE 999  VALUE 32.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  STC-GRP-ALY-NO   PICTURE X(8) VALUE "ALIAS". 
           05  FILLER           PICTURE XX   VALUE "10".
           05  FILLER           PICTURE 999  VALUE 34.
           05  FILLER           PICTURE 999  VALUE 4. 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  STC-GRP-FIL-LEN  PICTURE X(8) VALUE "FILLER".
           05  FILLER           PICTURE XX   VALUE "15".
           05  FILLER           PICTURE 999  VALUE 38.
           05  FILLER           PICTURE 999  VALUE 4. 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  STC-GRP-REDEFS   PICTURE X(8) VALUE "REDEFINE".
           05  FILLER           PICTURE XX   VALUE "20".
           05  FILLER           PICTURE 999  VALUE 42.
           05  FILLER           PICTURE 999  VALUE 32.
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  STC-GRP-RALIAS   PICTURE X(8) VALUE "RDALIAS". 
           05  FILLER           PICTURE XX   VALUE "24".
           05  FILLER           PICTURE 999  VALUE 074. 
           05  FILLER           PICTURE 999  VALUE 004. 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  STC-GRP-USAGE    PICTURE X(8) VALUE "USAGE". 
           05  FILLER           PICTURE XX   VALUE "22".
           05  FILLER           PICTURE 999  VALUE 078. 
           05  FILLER           PICTURE 999  VALUE 007. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  STC-GRP-KEY      PICTURE X(8) VALUE "KEY". 
           05  FILLER           PICTURE XX   VALUE "45".
           05  FILLER           PICTURE 999  VALUE 085. 
           05  FILLER           PICTURE 999  VALUE 001. 
           05  FILLER           PICTURE X    VALUE "C". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  STC-GRP-INC      PICTURE X(8) VALUE "INC". 
           05  FILLER           PICTURE XX   VALUE "50".
           05  FILLER           PICTURE 999  VALUE 086. 
           05  FILLER           PICTURE 999  VALUE 001. 
           05  FILLER           PICTURE X    VALUE "C". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  STC-GRP-GENER    PICTURE X(8) VALUE "GENER". 
           05  FILLER           PICTURE XX   VALUE "55".
           05  FILLER           PICTURE 999  VALUE 087. 
           05  FILLER           PICTURE 999  VALUE 003. 
           05  FILLER           PICTURE X    VALUE "X". 
           05  FILLER           PICTURE X    VALUE "N". 
           05  FILLER           PICTURE X    VALUE "N". 
       01  STC-GRP-OCCURS.
           05  FILLER          PICTURE 99    VALUE 10.
           05  FILLER          PICTURE 999   VALUE 300. 
           05  STC-GRP-FROM    PICTURE X(8)  VALUE "FROM".
           05  FILLER          PICTURE XX    VALUE "25".
           05  FILLER          PICTURE 999   VALUE 002. 
           05  FILLER          PICTURE 999   VALUE 004. 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  STC-GRP-TO      PICTURE X(8)  VALUE "TO".
           05  FILLER          PICTURE XX    VALUE "30".
           05  FILLER          PICTURE 999   VALUE 006. 
           05  FILLER          PICTURE 999   VALUE 032. 
           05  FILLER          PICTURE X     VALUE "X". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  STC-GRP-TO-ALY  PICTURE X(8)  VALUE "TALIAS".
           05  FILLER          PICTURE XX    VALUE "32".
           05  FILLER          PICTURE 999   VALUE 038. 
           05  FILLER          PICTURE 999   VALUE 004. 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  STC-GRP-DEPEND  PICTURE X(8)  VALUE "DEPEND".
           05  FILLER          PICTURE XX    VALUE "38".
           05  FILLER          PICTURE 999   VALUE 042. 
           05  FILLER          PICTURE 999   VALUE 032. 
           05  FILLER          PICTURE X     VALUE "X". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  STC-GRP-DEP-ALY PICTURE X(8)  VALUE "DALIAS".
           05  FILLER          PICTURE XX    VALUE "39".
           05  FILLER          PICTURE 999   VALUE 074. 
           05  FILLER          PICTURE 999   VALUE 004. 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
      *    FIRST DEPENDS QUALIFIER STARTS AT 79 BECAUSE 
      *    THE QUALIFICATION FLAG IS STORED AT 78 
           05  STC-GRP-D1QUAL  PICTURE X(8)  VALUE "D1QUAL".
           05  FILLER          PICTURE XX    VALUE "40".
           05  FILLER          PICTURE 999   VALUE 079. 
           05  FILLER          PICTURE 999   VALUE 032. 
           05  FILLER          PICTURE X     VALUE "X". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  STC-GRP-D2QUAL  PICTURE X(8)  VALUE "D2QUAL".
           05  FILLER          PICTURE XX    VALUE "41".
           05  FILLER          PICTURE 999   VALUE 111. 
           05  FILLER          PICTURE 999   VALUE 032. 
           05  FILLER          PICTURE X     VALUE "X". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
       01  STC-GRP-DEP-QUAL.
           05  FILLER          PICTURE 99   VALUE 10. 
           05  FILLER          PICTURE 999  VALUE 300.
           05  STC-GRP-D3QUAL  PICTURE X(8)  VALUE "D3QUAL".
           05  FILLER          PICTURE XX    VALUE "42".
           05  FILLER          PICTURE 999   VALUE 002. 
           05  FILLER          PICTURE 999   VALUE 032. 
           05  FILLER          PICTURE X     VALUE "X". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  STC-GRP-D4QUAL  PICTURE X(8)  VALUE "D4QUAL".
           05  FILLER          PICTURE XX    VALUE "43".
           05  FILLER          PICTURE 999   VALUE 034. 
           05  FILLER          PICTURE 999   VALUE 032. 
           05  FILLER          PICTURE X     VALUE "X". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  STC-GRP-D5QUAL  PICTURE X(8)  VALUE "D5QUAL".
           05  FILLER          PICTURE XX    VALUE "44".
           05  FILLER          PICTURE 999   VALUE 066. 
           05  FILLER          PICTURE 999   VALUE 032. 
           05  FILLER          PICTURE X     VALUE "X". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
       01  STC-GRP-INDX-CAT.
           05  FILLER             PICTURE 99   VALUE 10.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  STC-GRP-INDEX      PICTURE X(8) VALUE "INDEX". 
           05  FILLER             PICTURE XX   VALUE "35".
           05  FILLER             PICTURE 999  VALUE 2. 
           05  FILLER             PICTURE 999  VALUE 32.
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  STC-GRP-DMS-KEYS.
           05  FILLER             PICTURE 99   VALUE 10.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  STC-GRP-KNAME      PICTURE X(8) VALUE "KNAME". 
           05  FILLER             PICTURE XX   VALUE "60".
           05  FILLER             PICTURE 999  VALUE 002. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-GRP-KALIAS     PICTURE X(8) VALUE "KALIAS".
           05  FILLER             PICTURE XX   VALUE "65".
           05  FILLER             PICTURE 999  VALUE 034. 
           05  FILLER             PICTURE 999  VALUE 004. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-GRP-KORDER     PICTURE X(8) VALUE "KORDER".
           05  FILLER             PICTURE XX   VALUE "70".
           05  FILLER             PICTURE 999  VALUE 038. 
           05  FILLER             PICTURE 999  VALUE 001. 
           05  FILLER             PICTURE X    VALUE "C". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  STC-GRP-RENAMES. 
           05  FILLER             PICTURE 99   VALUE 10.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  STC-GRP-RENAME     PICTURE X(8) VALUE "RENAME".
           05  FILLER             PICTURE XX   VALUE "75".
           05  FILLER             PICTURE 999  VALUE 002. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-GRP-RALIAS     PICTURE X(8) VALUE "RNALIAS". 
           05  FILLER             PICTURE XX   VALUE "76".
           05  FILLER             PICTURE 999  VALUE 034. 
           05  FILLER             PICTURE 999  VALUE 004. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
      *    R1QUAL STARTS AT 39 BECAUSE THE QUALIFIER FLAG 
      *    IS STORED IN POSITION 38 
           05  STC-GRP-R1QUAL     PICTURE X(8) VALUE "R1QUAL".
           05  FILLER             PICTURE XX   VALUE "77".
           05  FILLER             PICTURE 999  VALUE 039. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-GRP-R2QUAL     PICTURE X(8) VALUE "R2QUAL".
           05  FILLER             PICTURE XX   VALUE "79".
           05  FILLER             PICTURE 999  VALUE 071. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-GRP-R3QUAL     PICTURE X(8) VALUE "R3QUAL".
           05  FILLER             PICTURE XX   VALUE "81".
           05  FILLER             PICTURE 999  VALUE 103. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  STC-GRP-RENAMES-2. 
           05  FILLER             PICTURE 99   VALUE 10.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  STC-GRP-R4QUAL     PICTURE X(8) VALUE "R4QUAL".
           05  FILLER             PICTURE XX   VALUE "83".
           05  FILLER             PICTURE 999  VALUE 002. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-GRP-R5QUAL     PICTURE X(8) VALUE "R5QUAL".
           05  FILLER             PICTURE XX   VALUE "85".
           05  FILLER             PICTURE 999  VALUE 034. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  STC-GRP-THRU.
           05  FILLER             PICTURE 99   VALUE 10.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  STC-GRP-NAM-THRU   PICTURE X(8) VALUE "THRU".
           05  FILLER             PICTURE XX   VALUE "87".
           05  FILLER             PICTURE 999  VALUE 002. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-GRP-TALIAS     PICTURE X(8) VALUE "THALIAS". 
           05  FILLER             PICTURE XX   VALUE "88".
           05  FILLER             PICTURE 999  VALUE 034. 
           05  FILLER             PICTURE 999  VALUE 004. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
      *    T1QUAL STARTS AT 39 BECAUSE THE QUALIFIER FLAG 
      *    IS STORED IN POSITION 38 
           05  STC-GRP-T1QUAL     PICTURE X(8) VALUE "T1QUAL".
           05  FILLER             PICTURE XX   VALUE "89".
           05  FILLER             PICTURE 999  VALUE 039. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-GRP-T2QUAL     PICTURE X(8) VALUE "T2QUAL".
           05  FILLER             PICTURE XX   VALUE "91".
           05  FILLER             PICTURE 999  VALUE 071. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-GRP-T3QUAL     PICTURE X(8) VALUE "T3QUAL".
           05  FILLER             PICTURE XX   VALUE "93".
           05  FILLER             PICTURE 999  VALUE 103. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  STC-GRP-THRU-2.
           05  FILLER             PICTURE 99   VALUE 10.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  STC-GRP-T4QUAL     PICTURE X(8) VALUE "T4QUAL".
           05  FILLER             PICTURE XX   VALUE "95".
           05  FILLER             PICTURE 999  VALUE 002. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-GRP-T5QUAL     PICTURE X(8) VALUE "T5QUAL".
           05  FILLER             PICTURE XX   VALUE "97".
           05  FILLER             PICTURE 999  VALUE 034. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
      ***************************************************************** 
      *        RECORDS
      ******************************************************************
       01  NAME-SR-CAT. 
           05  FILLER             PICTURE 99   VALUE 13.
           05  FILLER             PICTURE 999  VALUE 200. 
           05  NAME-SR-DATA-NAME  PICTURE X(8) VALUE "DATANAME".
           05  FILLER             PICTURE XX   VALUE "05".
           05  FILLER             PICTURE 999  VALUE 2. 
           05  FILLER             PICTURE 999  VALUE 32.
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  NAME-SR-IDEN       PICTURE X(8) VALUE "IDEN".
           05  FILLER             PICTURE XX   VALUE "10".
           05  FILLER             PICTURE 999  VALUE 34.
           05  FILLER             PICTURE 999  VALUE 31.
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  NAME-SR-SYMBOL     PICTURE X(8) VALUE "SYMBOL".
           05  FILLER             PICTURE XX   VALUE "15".
           05  FILLER             PICTURE 999  VALUE 65.
           05  FILLER             PICTURE 999  VALUE 8. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  NAME-SR-DBMS       PICTURE X(8) VALUE "DBMSNAME".
           05  FILLER             PICTURE XX   VALUE "20".
           05  FILLER             PICTURE 999  VALUE 73.
           05  FILLER             PICTURE 999  VALUE 8. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  NAME-SR-DMS        PICTURE X(8) VALUE "DMSNAME". 
           05  FILLER             PICTURE XX   VALUE "25".
           05  FILLER             PICTURE 999  VALUE 081. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  ATTR-SR-CAT. 
           05  FILLER             PICTURE 99   VALUE 13.
           05  FILLER             PICTURE 999  VALUE 210. 
           05  ATTR-SR-MAXLEN     PICTURE X(8) VALUE "MAXLEN".
           05  FILLER             PICTURE XX   VALUE "05".
           05  FILLER             PICTURE 999  VALUE 2. 
           05  FILLER             PICTURE 999  VALUE 4. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  ATTR-SR-MINLEN     PICTURE X(8) VALUE "MINLEN".
           05  FILLER             PICTURE XX   VALUE "10".
           05  FILLER             PICTURE 999  VALUE 6. 
           05  FILLER             PICTURE 999  VALUE 4. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  ATTR-SR-STORAGE    PICTURE X(8) VALUE "STORAGE". 
           05  FILLER             PICTURE XX   VALUE "15".
           05  FILLER             PICTURE 999  VALUE 10.
           05  FILLER             PICTURE 999  VALUE 1. 
           05  FILLER             PICTURE X    VALUE "C". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  ALY-SR-CAT.
           05  FILLER             PICTURE 99   VALUE 13.
           05  FILLER             PICTURE 999  VALUE 211. 
           05  ALY-SR-NAME        PICTURE X(8) VALUE "ADMSNAM". 
           05  FILLER             PICTURE XX   VALUE "05".
           05  FILLER             PICTURE 999  VALUE 002. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  STC-SR1-CAT. 
           05  FILLER             PICTURE 99   VALUE 13.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  STC-SR-CNAME       PICTURE X(8) VALUE "CATNAME". 
           05  FILLER             PICTURE XX   VALUE "05".
           05  FILLER             PICTURE 999  VALUE 2. 
           05  FILLER             PICTURE 999  VALUE 32.
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-GRP-ALY-NO     PICTURE X(8) VALUE "ALIAS". 
           05  FILLER             PICTURE XX   VALUE "10".
           05  FILLER             PICTURE 999  VALUE 34.
           05  FILLER             PICTURE 999  VALUE 4. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-FILL-LEN    PICTURE X(8) VALUE "FILLER".
           05  FILLER             PICTURE XX   VALUE "15".
           05  FILLER             PICTURE 999  VALUE 38.
           05  FILLER             PICTURE 999  VALUE 4. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-REDEFINES   PICTURE X(8) VALUE "REDEFINE".
           05  FILLER             PICTURE XX   VALUE "20".
           05  FILLER             PICTURE 999  VALUE 42.
           05  FILLER             PICTURE 999  VALUE 32.
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-RALIAS      PICTURE X(8) VALUE "RDALIAS". 
           05  FILLER             PICTURE XX   VALUE "24".
           05  FILLER             PICTURE 999  VALUE 74.
           05  FILLER             PICTURE 999  VALUE 004. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-USAGE       PICTURE X(8) VALUE "USAGE". 
           05  FILLER             PICTURE XX   VALUE "22".
           05  FILLER             PICTURE 999  VALUE 78.
           05  FILLER             PICTURE 999  VALUE 007. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-KEY         PICTURE X(8) VALUE "KEY". 
           05  FILLER             PICTURE XX   VALUE "45".
           05  FILLER             PICTURE 999  VALUE 85.
           05  FILLER             PICTURE 999  VALUE 001. 
           05  FILLER             PICTURE X    VALUE "C". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-INC         PICTURE X(8) VALUE "INC". 
           05  FILLER             PICTURE XX   VALUE "50".
           05  FILLER             PICTURE 999  VALUE 086. 
           05  FILLER             PICTURE 999  VALUE 001. 
           05  FILLER             PICTURE X    VALUE "C". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-GENER       PICTURE X(8) VALUE "GENER". 
           05  FILLER             PICTURE XX   VALUE "55".
           05  FILLER             PICTURE 999  VALUE 087. 
           05  FILLER             PICTURE 999  VALUE 002. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  STC-SR-OCCURS. 
           05  FILLER             PICTURE 99   VALUE 13.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  STC-SR-FROM        PICTURE X(8) VALUE "FROM".
           05  FILLER             PICTURE XX   VALUE "25".
           05  FILLER             PICTURE 999  VALUE 002. 
           05  FILLER             PICTURE 999  VALUE 004. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-TO          PICTURE X(8) VALUE "TO".
           05  FILLER             PICTURE XX   VALUE "30".
           05  FILLER             PICTURE 999  VALUE 006. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-TO-ALY      PICTURE X(8) VALUE "TALIAS".
           05  FILLER             PICTURE XX   VALUE "32".
           05  FILLER             PICTURE 999  VALUE 038. 
           05  FILLER             PICTURE 999  VALUE 004. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-DEPEND      PICTURE X(8) VALUE "DEPEND".
           05  FILLER             PICTURE XX   VALUE "38".
           05  FILLER             PICTURE 999  VALUE 042. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-DEP-ALY     PICTURE X(8) VALUE "DALIAS".
           05  FILLER             PICTURE XX   VALUE "39".
           05  FILLER             PICTURE 999  VALUE 074. 
           05  FILLER             PICTURE 999  VALUE 004. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
      *    FIRST DEPENDS QUALIFIER STARTS AT 79 BECAUSE 
      *    THE QUALIFICATION FLAG IS STORED AT 78 
           05  STC-SR-D1QUAL   PICTURE X(8)  VALUE "D1QUAL".
           05  FILLER          PICTURE XX    VALUE "40".
           05  FILLER          PICTURE 999   VALUE 079. 
           05  FILLER          PICTURE 999   VALUE 032. 
           05  FILLER          PICTURE X     VALUE "X". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  STC-SR-D2QUAL   PICTURE X(8)  VALUE "D2QUAL".
           05  FILLER          PICTURE XX    VALUE "41".
           05  FILLER          PICTURE 999   VALUE 111. 
           05  FILLER          PICTURE 999   VALUE 032. 
           05  FILLER          PICTURE X     VALUE "X". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
       01  STC-SR-DEP-QUAL. 
           05  FILLER          PICTURE 99   VALUE 13. 
           05  FILLER          PICTURE 999  VALUE 300.
           05  STC-SR-D3QUAL   PICTURE X(8)  VALUE "D3QUAL".
           05  FILLER          PICTURE XX    VALUE "42".
           05  FILLER          PICTURE 999   VALUE 002. 
           05  FILLER          PICTURE 999   VALUE 032. 
           05  FILLER          PICTURE X     VALUE "X". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  STC-SR-D4QUAL   PICTURE X(8)  VALUE "D4QUAL".
           05  FILLER          PICTURE XX    VALUE "43".
           05  FILLER          PICTURE 999   VALUE 034. 
           05  FILLER          PICTURE 999   VALUE 032. 
           05  FILLER          PICTURE X     VALUE "X". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  STC-SR-D5QUAL   PICTURE X(8)  VALUE "D5QUAL".
           05  FILLER          PICTURE XX    VALUE "44".
           05  FILLER          PICTURE 999   VALUE 066. 
           05  FILLER          PICTURE 999   VALUE 032. 
           05  FILLER          PICTURE X     VALUE "X". 
           05  FILLER          PICTURE X     VALUE "N". 
           05  FILLER          PICTURE X     VALUE "N". 
       01  STC-SR-INDX-CAT. 
           05  FILLER             PICTURE 99   VALUE 13.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  STC-SR-INDEX       PICTURE X(8) VALUE "INDEX". 
           05  FILLER             PICTURE XX   VALUE "35".
           05  FILLER             PICTURE 999  VALUE 2. 
           05  FILLER             PICTURE 999  VALUE 32.
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  STC-SR-DMS-KEYS. 
           05  FILLER             PICTURE 99   VALUE 13.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  STC-SR-KNAME       PICTURE X(8) VALUE "KNAME". 
           05  FILLER             PICTURE XX   VALUE "60".
           05  FILLER             PICTURE 999  VALUE 002. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-KALIAS      PICTURE X(8) VALUE "KALIAS".
           05  FILLER             PICTURE XX   VALUE "65".
           05  FILLER             PICTURE 999  VALUE 034. 
           05  FILLER             PICTURE 999  VALUE 004. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-KORDER      PICTURE X(8) VALUE "KORDER".
           05  FILLER             PICTURE XX   VALUE "70".
           05  FILLER             PICTURE 999  VALUE 038. 
           05  FILLER             PICTURE 999  VALUE 001. 
           05  FILLER             PICTURE X    VALUE "C". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  STC-SR-RENAMES.
           05  FILLER             PICTURE 99   VALUE 13.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  STC-SR-RENAME      PICTURE X(8) VALUE "RENAME".
           05  FILLER             PICTURE XX   VALUE "75".
           05  FILLER             PICTURE 999  VALUE 002. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-RALIAS      PICTURE X(8) VALUE "RNALIAS". 
           05  FILLER             PICTURE XX   VALUE "76".
           05  FILLER             PICTURE 999  VALUE 034. 
           05  FILLER             PICTURE 999  VALUE 004. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
      *    R1QUAL STARTS IN POSITION 39 BECAUSE A QUALIFIER 
      *    FLAG IS STORED IN POSITION 38
           05  STC-SR-R1QUAL      PICTURE X(8) VALUE "R1QUAL".
           05  FILLER             PICTURE XX   VALUE "77".
           05  FILLER             PICTURE 999  VALUE 039. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-R2QUAL      PICTURE X(8) VALUE "R2QUAL".
           05  FILLER             PICTURE XX   VALUE "79".
           05  FILLER             PICTURE 999  VALUE 071. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-R3QUAL      PICTURE X(8) VALUE "R3QUAL".
           05  FILLER             PICTURE XX   VALUE "81".
           05  FILLER             PICTURE 999  VALUE 103. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  STC-SR-RENAMES-2.
           05  FILLER             PICTURE 99   VALUE 13.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  STC-SR-R4QUAL      PICTURE X(8) VALUE "R4QUAL".
           05  FILLER             PICTURE XX   VALUE "83".
           05  FILLER             PICTURE 999  VALUE 002. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-R5QUAL      PICTURE X(8) VALUE "R5QUAL".
           05  FILLER             PICTURE XX   VALUE "85".
           05  FILLER             PICTURE 999  VALUE 034. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  STC-SR-THRU. 
           05  FILLER             PICTURE 99   VALUE 13.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  STC-SR-NAM-THRU    PICTURE X(8) VALUE "THRU".
           05  FILLER             PICTURE XX   VALUE "87".
           05  FILLER             PICTURE 999  VALUE 002. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-TALIAS      PICTURE X(8) VALUE "THALIAS". 
           05  FILLER             PICTURE XX   VALUE "88".
           05  FILLER             PICTURE 999  VALUE 034. 
           05  FILLER             PICTURE 999  VALUE 004. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
      *    T1QUAL STARTS IN POSITION 39 BECAUSE A QUALIFIER 
      *    FLAG IS STORED IN POSITION 38
           05  STC-SR-T1QUAL      PICTURE X(8) VALUE "T1QUAL".
           05  FILLER             PICTURE XX   VALUE "89".
           05  FILLER             PICTURE 999  VALUE 039. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-T2QUAL      PICTURE X(8) VALUE "T2QUAL".
           05  FILLER             PICTURE XX   VALUE "91".
           05  FILLER             PICTURE 999  VALUE 071. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-T3QUAL      PICTURE X(8) VALUE "T3QUAL".
           05  FILLER             PICTURE XX   VALUE "93".
           05  FILLER             PICTURE 999  VALUE 103. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  STC-SR-THRU-2. 
           05  FILLER             PICTURE 99   VALUE 13.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  STC-SR-T4QUAL      PICTURE X(8) VALUE "T4QUAL".
           05  FILLER             PICTURE XX   VALUE "95".
           05  FILLER             PICTURE 999  VALUE 002. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  STC-SR-T5QUAL      PICTURE X(8) VALUE "T5QUAL".
           05  FILLER             PICTURE XX   VALUE "97".
           05  FILLER             PICTURE 999  VALUE 034. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  STC-SR2-CAT. 
           05  FILLER             PICTURE 99   VALUE 13.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  FILLER             PICTURE X(8) VALUE "TKEY".
           05  FILLER             PICTURE XX   VALUE "02".
           05  FILLER             PICTURE 999  VALUE 2. 
           05  FILLER             PICTURE 999  VALUE 1. 
           05  FILLER             PICTURE X    VALUE "C". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X(8) VALUE "LINKPATH".
           05  FILLER             PICTURE XX   VALUE "07".
           05  FILLER             PICTURE 999  VALUE 3. 
           05  FILLER             PICTURE 999  VALUE 6. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X(8) VALUE "VARLEN".
           05  FILLER             PICTURE XX   VALUE "12".
           05  FILLER             PICTURE 999  VALUE 9. 
           05  FILLER             PICTURE 999  VALUE 5. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X(8) VALUE "LKFIELD". 
           05  FILLER             PICTURE XX   VALUE "13".
           05  FILLER             PICTURE 999  VALUE 014. 
           05  FILLER             PICTURE 999  VALUE 032. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X(8) VALUE "LKALIAS". 
           05  FILLER             PICTURE XX   VALUE "16".
           05  FILLER             PICTURE 999  VALUE 046. 
           05  FILLER             PICTURE 999  VALUE 004. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  STC-SR3-CAT. 
           05  FILLER             PICTURE 99   VALUE 13.
           05  FILLER             PICTURE 999  VALUE 300. 
           05  FILLER             PICTURE X(8) VALUE "COMPNAME".
           05  FILLER             PICTURE XX   VALUE "03".
           05  FILLER             PICTURE 999  VALUE 2. 
           05  FILLER             PICTURE 999  VALUE 32.
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X(8) VALUE "RCCODE".
           05  FILLER             PICTURE XX   VALUE "08".
           05  FILLER             PICTURE 999  VALUE 34.
           05  FILLER             PICTURE 999  VALUE 2. 
           05  FILLER             PICTURE X    VALUE "X". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X(8) VALUE "CPALIAS". 
           05  FILLER             PICTURE XX   VALUE "11".
           05  FILLER             PICTURE 999  VALUE 036. 
           05  FILLER             PICTURE 999  VALUE 004. 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
           05  FILLER             PICTURE X    VALUE "N". 
       01  PROCESS-SR-CAT.
           05  FILLER            PICTURE 99    VALUE 13.
           05  FILLER            PICTURE 999   VALUE 400. 
           05  PROCESS-SR-DBPROC PICTURE X(8)  VALUE "DBPROC".
           05  FILLER            PICTURE XX    VALUE "05".
           05  FILLER            PICTURE 999   VALUE 002. 
           05  FILLER            PICTURE 999   VALUE 032. 
           05  FILLER            PICTURE X     VALUE "X". 
           05  FILLER            PICTURE X     VALUE "N". 
           05  FILLER            PICTURE X     VALUE "N". 
           05  PROCESS-SR-TYPEP  PICTURE X(8)  VALUE "TYPEPROC".
           05  FILLER            PICTURE XX    VALUE "10".
           05  FILLER            PICTURE 999   VALUE 034. 
           05  FILLER            PICTURE 999   VALUE 002. 
           05  FILLER            PICTURE X     VALUE "X". 
           05  FILLER            PICTURE X     VALUE "N". 
           05  FILLER            PICTURE X     VALUE "N". 
           05  PROCESS-SR-TIME   PICTURE X(8)  VALUE "TIME".
           05  FILLER            PICTURE XX    VALUE "15".
           05  FILLER            PICTURE 999   VALUE 036. 
           05  FILLER            PICTURE 999   VALUE 005. 
           05  FILLER            PICTURE X     VALUE "X". 
           05  FILLER            PICTURE X     VALUE "N". 
           05  FILLER            PICTURE X     VALUE "N". 
           05  PROCESS-SR-OPTION PICTURE X(8)  VALUE "OPTION".
           05  FILLER            PICTURE XX    VALUE "20".
           05  FILLER            PICTURE 999   VALUE 041. 
           05  FILLER            PICTURE 999   VALUE 009. 
           05  FILLER            PICTURE X     VALUE "X". 
           05  FILLER            PICTURE X     VALUE "N". 
           05  FILLER            PICTURE X     VALUE "N". 
      ***************************************************************** 
      *        DATASETS 
      ******************************************************************
       01  RESP-DS-CAT. 
           05  FILLER            PICTURE 99   VALUE 19. 
           05  FILLER            PICTURE 999  VALUE 140.
           05  RESP-STATUS       PICTURE X(8) VALUE "STATUS". 
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  RESP-FUNC         PICTURE X(8) VALUE "FUNCTION". 
           05  FILLER            PICTURE XX   VALUE "10". 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  RESP-DEPT         PICTURE X(8) VALUE "DEPT". 
           05  FILLER            PICTURE XX   VALUE "15". 
           05  FILLER            PICTURE 999  VALUE 4.
           05  FILLER            PICTURE 999  VALUE 32. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  RESP-PERSON       PICTURE X(8) VALUE "PERSON". 
           05  FILLER            PICTURE XX   VALUE "20". 
           05  FILLER            PICTURE 999  VALUE 36. 
           05  FILLER            PICTURE 999  VALUE 32. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  RESP-PHONE        PICTURE X(8) VALUE "PHONE".
           05  FILLER            PICTURE XX   VALUE "25". 
           05  FILLER            PICTURE 999  VALUE 68. 
           05  FILLER            PICTURE 999  VALUE 10. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  RESP-TITLE        PICTURE X(8) VALUE "TITLE".
           05  FILLER            PICTURE XX   VALUE "30". 
           05  FILLER            PICTURE 999  VALUE 78. 
           05  FILLER            PICTURE 999  VALUE 15. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  RESP-MAIL         PICTURE X(8) VALUE "MAIL". 
           05  FILLER            PICTURE XX   VALUE "35". 
           05  FILLER            PICTURE 999  VALUE 93. 
           05  FILLER            PICTURE 999  VALUE 5.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  RESP-DATE         PICTURE X(8) VALUE "DATE". 
           05  FILLER            PICTURE XX   VALUE "40". 
           05  FILLER            PICTURE 999  VALUE 98. 
           05  FILLER            PICTURE 999  VALUE 6.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
       01  NAME-DS-CAT. 
           05  FILLER            PICTURE 99   VALUE 19. 
           05  FILLER            PICTURE 999  VALUE 200.
           05  NAME-FILE-FD      PICTURE X(8) VALUE "TDSNAME".
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE 999  VALUE 4.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  NAME-FILE-DS      PICTURE X(8) VALUE "DSNAME". 
           05  FILLER            PICTURE XX   VALUE "10". 
           05  FILLER            PICTURE 999  VALUE 6.
           05  FILLER            PICTURE 999  VALUE 44. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  NAME-FILE-DDNAME  PICTURE X(8) VALUE "DDNAME". 
           05  FILLER            PICTURE XX   VALUE "15". 
           05  FILLER            PICTURE 999  VALUE 50. 
           05  FILLER            PICTURE 999  VALUE 8.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  NAME-FILE-DD      PICTURE X(8) VALUE "PRIME".
           05  FILLER            PICTURE XX   VALUE "20". 
           05  FILLER            PICTURE 999  VALUE 58. 
           05  FILLER            PICTURE 999  VALUE 8.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  NAME-DS-MEMBER    PICTURE X(8) VALUE "MEMBER". 
           05  FILLER            PICTURE XX   VALUE "25". 
           05  FILLER            PICTURE 999  VALUE 66. 
           05  FILLER            PICTURE 999  VALUE 8.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  NAME-DS-IOAREA    PICTURE X(8) VALUE "IOAREA". 
           05  FILLER            PICTURE XX   VALUE "30". 
           05  FILLER            PICTURE 999  VALUE 74. 
           05  FILLER            PICTURE 999  VALUE 4.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
       01  ATTR-DS-CAT. 
           05  FILLER            PICTURE 99   VALUE 19. 
           05  FILLER            PICTURE 999  VALUE 210.
           05  ATTR-FILE-RECSIZE PICTURE X(8) VALUE "RECSIZE".
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE 999  VALUE 5.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-BLKSIZE PICTURE X(8) VALUE "BLKSIZE".
           05  FILLER            PICTURE XX   VALUE "10". 
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE 999  VALUE 5.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X(8) VALUE "RFM".
           05  FILLER            PICTURE XX   VALUE "15". 
           05  FILLER            PICTURE 999  VALUE 12. 
           05  FILLER            PICTURE 999  VALUE 6.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-DSORG   PICTURE X(8) VALUE "DSORG".
           05  FILLER            PICTURE XX   VALUE "20". 
           05  FILLER            PICTURE 999  VALUE 18. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-LABEL   PICTURE X(8) VALUE "LABEL".
           05  FILLER            PICTURE XX   VALUE "25". 
           05  FILLER            PICTURE 999  VALUE 21. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-DEN     PICTURE X(8) VALUE "DENSITY".
           05  FILLER            PICTURE XX   VALUE "30". 
           05  FILLER            PICTURE 999  VALUE 24. 
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-BUFF    PICTURE X(8) VALUE "BUFFSIZE". 
           05  FILLER            PICTURE XX   VALUE "35". 
           05  FILLER            PICTURE 999  VALUE 25. 
           05  FILLER            PICTURE 999  VALUE 5.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-ADDR    PICTURE X(8) VALUE "ADDRESS".
           05  FILLER            PICTURE XX   VALUE "40". 
           05  FILLER            PICTURE 999  VALUE 30. 
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-RMOD    PICTURE X(8) VALUE "RMODNAME". 
           05  FILLER            PICTURE XX   VALUE "45". 
           05  FILLER            PICTURE 999  VALUE 31. 
           05  FILLER            PICTURE 999  VALUE 32. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-KEYLEN  PICTURE X(8) VALUE "KEYLEN". 
           05  FILLER            PICTURE XX   VALUE "50". 
           05  FILLER            PICTURE 999  VALUE 63. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-RKP     PICTURE X(8) VALUE "RKP".
           05  FILLER            PICTURE XX   VALUE "55". 
           05  FILLER            PICTURE 999  VALUE 66. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-CYLOFL  PICTURE X(8) VALUE "CYLOFL". 
           05  FILLER            PICTURE XX   VALUE "60". 
           05  FILLER            PICTURE 999  VALUE 69. 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-OPTCD   PICTURE X(8) VALUE "OPTCD".
           05  FILLER            PICTURE XX   VALUE "65". 
           05  FILLER            PICTURE 999  VALUE 71. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-LIMCT   PICTURE X(8) VALUE "LIMCT".
           05  FILLER            PICTURE XX   VALUE "70". 
           05  FILLER            PICTURE 999  VALUE 74. 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
       01  UNIT-DS-CAT. 
           05  FILLER            PICTURE 99   VALUE 19. 
           05  FILLER            PICTURE 999  VALUE 220.
           05  UNIT-UNIT         PICTURE X(8) VALUE "PUNIT".
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-VOLSER       PICTURE X(8) VALUE "PVOLSER".
           05  FILLER            PICTURE XX   VALUE "10". 
           05  FILLER            PICTURE 999  VALUE 9.
           05  FILLER            PICTURE 999  VALUE 6.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-SPACE        PICTURE X(8) VALUE "PSPACE". 
           05  FILLER            PICTURE XX   VALUE "15". 
           05  FILLER            PICTURE 999  VALUE 15. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-TYPE         PICTURE X(8) VALUE "PTYPE".
           05  FILLER            PICTURE XX   VALUE "20". 
           05  FILLER            PICTURE 999  VALUE 18. 
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-IDX-UNIT     PICTURE X(8) VALUE "IUNIT".
           05  FILLER            PICTURE XX   VALUE "25". 
           05  FILLER            PICTURE 999  VALUE 19. 
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-IDX-VOLSER   PICTURE X(8) VALUE "IVOLSER".
           05  FILLER            PICTURE XX   VALUE "30". 
           05  FILLER            PICTURE 999  VALUE 26. 
           05  FILLER            PICTURE 999  VALUE 6.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-IDX-SPACE    PICTURE X(8) VALUE "ISPACE". 
           05  FILLER            PICTURE XX   VALUE "35". 
           05  FILLER            PICTURE 999  VALUE 32. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-IDX-TYPE     PICTURE X(8) VALUE "ITYPE".
           05  FILLER            PICTURE XX   VALUE "40". 
           05  FILLER            PICTURE 999  VALUE 35. 
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-OVF-UNIT     PICTURE X(8) VALUE "OUNIT".
           05  FILLER            PICTURE XX   VALUE "45". 
           05  FILLER            PICTURE 999  VALUE 36. 
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-OVF-VOLSER   PICTURE X(8) VALUE "OVOLSER".
           05  FILLER            PICTURE XX   VALUE "50". 
           05  FILLER            PICTURE 999  VALUE 43. 
           05  FILLER            PICTURE 999  VALUE 6.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-OVF-SPACE    PICTURE X(8) VALUE "OSPACE". 
           05  FILLER            PICTURE XX   VALUE "55". 
           05  FILLER            PICTURE 999  VALUE 49. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-OVF-TYPE     PICTURE X(8) VALUE "OTYPE".
           05  FILLER            PICTURE XX   VALUE "60". 
           05  FILLER            PICTURE 999  VALUE 52. 
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
       01  ENV-TOT-CAT. 
           05  FILLER            PICTURE 99   VALUE 19. 
           05  FILLER            PICTURE 999  VALUE 245.
           05  ENV-TOT-DEVICE    PICTURE X(8) VALUE "DEVICE". 
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ENV-TOT-TRECORD   PICTURE X(8) VALUE "TRECORDS". 
           05  FILLER            PICTURE XX   VALUE "10". 
           05  FILLER            PICTURE 999  VALUE 9.
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ENV-TOT-TTRACKS   PICTURE X(8) VALUE "TTRACKS".
           05  FILLER            PICTURE XX   VALUE "15". 
           05  FILLER            PICTURE 999  VALUE 16. 
           05  FILLER            PICTURE 999  VALUE 5.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ENV-TOT-TLENGTH   PICTURE X(8) VALUE "TLENGTH".
           05  FILLER            PICTURE XX   VALUE "20". 
           05  FILLER            PICTURE 999  VALUE 21. 
           05  FILLER            PICTURE 999  VALUE 5.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ENV-TOT-BLOCKS    PICTURE X(8) VALUE "BLOCKS". 
           05  FILLER            PICTURE XX   VALUE "25". 
           05  FILLER            PICTURE 999  VALUE 26. 
           05  FILLER            PICTURE 999  VALUE 5.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ENV-TOT-TEXTENTS  PICTURE X(8) VALUE "TEXTENTS". 
           05  FILLER            PICTURE XX   VALUE "30". 
           05  FILLER            PICTURE 999  VALUE 31. 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ENV-TOT-LOADPCT   PICTURE X(8) VALUE "LOADPCT".
           05  FILLER            PICTURE XX   VALUE "35". 
           05  FILLER            PICTURE 999  VALUE 33. 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ENV-TOT-OLDFILE   PICTURE X(8) VALUE "OLDFILE".
           05  FILLER            PICTURE XX   VALUE "40". 
           05  FILLER            PICTURE 999  VALUE 35. 
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ENV-TOT-RELSTART  PICTURE X(8) VALUE "RELSTART". 
           05  FILLER            PICTURE XX   VALUE "45". 
           05  FILLER            PICTURE 999  VALUE 36. 
           05  FILLER            PICTURE 999  VALUE 5.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ENV-TOT-VTOCTRKS  PICTURE X(8) VALUE "VTOCTRKS". 
           05  FILLER            PICTURE XX   VALUE "50". 
           05  FILLER            PICTURE 999  VALUE 41. 
           05  FILLER            PICTURE 999  VALUE 5.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
       01  STC-DS-CAT.
           05  FILLER            PICTURE 99   VALUE 19. 
           05  FILLER            PICTURE 999  VALUE 300.
           05  STC-FILE-CNAME    PICTURE X(8) VALUE "CATNAME".
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE 999  VALUE 32. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  STC-FILE-TYPE     PICTURE X(8) VALUE "RECTYPE".
           05  FILLER            PICTURE XX   VALUE "10". 
           05  FILLER            PICTURE 999  VALUE 34. 
           05  FILLER            PICTURE 999  VALUE 8.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  STC-FILE-FREQ     PICTURE X(8) VALUE "FREQ". 
           05  FILLER            PICTURE XX   VALUE "15". 
           05  FILLER            PICTURE 999  VALUE 42. 
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  STC-FILE-SEGNO    PICTURE X(8) VALUE "SEGNO".
           05  FILLER            PICTURE XX   VALUE "20". 
           05  FILLER            PICTURE 999  VALUE 49. 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  STC-FILE-LEVNO    PICTURE X(8) VALUE "LEVNO".
           05  FILLER            PICTURE XX   VALUE "25". 
           05  FILLER            PICTURE 999  VALUE 51. 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
      ******************************************************************
      *        FILES
      ******************************************************************
       01  RESP-FILE-CAT. 
           05  FILLER            PICTURE 99   VALUE 20. 
           05  FILLER            PICTURE 999  VALUE 140.
           05  RESP-STATUS       PICTURE X(8) VALUE "STATUS". 
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  RESP-FUNC         PICTURE X(8) VALUE "FUNCTION". 
           05  FILLER            PICTURE XX   VALUE "10". 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  RESP-DEPT         PICTURE X(8) VALUE "DEPT". 
           05  FILLER            PICTURE XX   VALUE "15". 
           05  FILLER            PICTURE 999  VALUE 4.
           05  FILLER            PICTURE 999  VALUE 32. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  RESP-PERSON       PICTURE X(8) VALUE "PERSON". 
           05  FILLER            PICTURE XX   VALUE "20". 
           05  FILLER            PICTURE 999  VALUE 36. 
           05 FILLER             PICTURE 999  VALUE 32. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  RESP-PHONE        PICTURE X(8) VALUE "PHONE".
           05  FILLER            PICTURE XX   VALUE "25". 
           05  FILLER            PICTURE 999  VALUE 68. 
           05  FILLER            PICTURE 999  VALUE 10. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  RESP-TITLE        PICTURE X(8) VALUE "TITLE".
           05  FILLER            PICTURE XX   VALUE "30". 
           05  FILLER            PICTURE 999  VALUE 78. 
           05  FILLER            PICTURE 999  VALUE 15. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  RESP-MAIL         PICTURE X(8) VALUE "MAIL". 
           05  FILLER            PICTURE XX   VALUE "35". 
           05  FILLER            PICTURE 999  VALUE 93. 
           05  FILLER            PICTURE 999  VALUE 5.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  RESP-DATE         PICTURE X(8) VALUE "DATE". 
           05  FILLER            PICTURE XX   VALUE "40". 
           05  FILLER            PICTURE 999  VALUE 98. 
           05  FILLER            PICTURE 999  VALUE 6.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
       01  NAME-FILE-CAT. 
           05  FILLER            PICTURE 99   VALUE 20. 
           05  FILLER            PICTURE 999  VALUE 200.
           05  NAME-FILE-FD      PICTURE X(8) VALUE "FDNAME". 
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE 999  VALUE 32. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  NAME-FILE-DS      PICTURE X(8) VALUE "DSNAME". 
           05  FILLER            PICTURE XX   VALUE "10". 
           05  FILLER            PICTURE 999  VALUE 34. 
           05  FILLER            PICTURE 999  VALUE 44. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  NAME-FILE-MEMBER  PICTURE X(8) VALUE "MEMBER". 
           05  FILLER            PICTURE XX   VALUE "15". 
           05  FILLER            PICTURE 999  VALUE 78. 
           05  FILLER            PICTURE 999  VALUE 8.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  NAME-FILE-DD      PICTURE X(8) VALUE "DDNAME". 
           05  FILLER            PICTURE XX   VALUE "20". 
           05  FILLER            PICTURE 999  VALUE 86. 
           05  FILLER            PICTURE 999  VALUE 8.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  NAME-FILE-DMS     PICTURE X(8) VALUE "DMSNAME".
           05  FILLER            PICTURE XX   VALUE "35". 
           05  FILLER            PICTURE 999  VALUE 094.
           05  FILLER            PICTURE 999  VALUE 007.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
       01  ATTR-FILE-CAT. 
           05  FILLER            PICTURE 99   VALUE 20. 
           05  FILLER            PICTURE 999  VALUE 210.
           05  ATTR-FILE-RECSIZE PICTURE X(8) VALUE "RECSIZE".
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE 999  VALUE 5.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-BLKSIZE PICTURE X(8) VALUE "BLKSIZE".
           05  FILLER            PICTURE XX   VALUE "10". 
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE 999  VALUE 5.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X(8) VALUE "RFM".
           05  FILLER            PICTURE XX   VALUE "15". 
           05  FILLER            PICTURE 999  VALUE 12. 
           05  FILLER            PICTURE 999  VALUE 6.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-DSORG   PICTURE X(8) VALUE "DSORG".
           05  FILLER            PICTURE XX   VALUE "20". 
           05  FILLER            PICTURE 999  VALUE 18. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-LABEL   PICTURE X(8) VALUE "LABEL".
           05  FILLER            PICTURE XX   VALUE "25". 
           05  FILLER            PICTURE 999  VALUE 21. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-DEN     PICTURE X(8) VALUE "DENSITY".
           05  FILLER            PICTURE XX   VALUE "30". 
           05  FILLER            PICTURE 999  VALUE 24. 
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-BUFF    PICTURE X(8) VALUE "BUFFSIZE". 
           05  FILLER            PICTURE XX   VALUE "35". 
           05  FILLER            PICTURE 999  VALUE 25. 
           05  FILLER            PICTURE 999  VALUE 5.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-ADDR    PICTURE X(8) VALUE "ADDRESS".
           05  FILLER            PICTURE XX   VALUE "40". 
           05  FILLER            PICTURE 999  VALUE 30. 
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-RMOD    PICTURE X(8) VALUE "RMODNAME". 
           05  FILLER            PICTURE XX   VALUE "45". 
           05  FILLER            PICTURE 999  VALUE 31. 
           05  FILLER            PICTURE 999  VALUE 32. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-KEYLEN  PICTURE X(8) VALUE "KEYLEN". 
           05  FILLER            PICTURE XX   VALUE "50". 
           05  FILLER            PICTURE 999  VALUE 63. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-RKP     PICTURE X(8) VALUE "RKP".
           05  FILLER            PICTURE XX   VALUE "55". 
           05  FILLER            PICTURE 999  VALUE 66. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-CYLOFL  PICTURE X(8) VALUE "CYLOFL". 
           05  FILLER            PICTURE XX   VALUE "60". 
           05  FILLER            PICTURE 999  VALUE 69. 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-OPTCD   PICTURE X(8) VALUE "OPTCD".
           05  FILLER            PICTURE XX   VALUE "65". 
           05  FILLER            PICTURE 999  VALUE 71. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  ATTR-FILE-LIMCT   PICTURE X(8) VALUE "LIMCT".
           05  FILLER            PICTURE XX   VALUE "70". 
           05  FILLER            PICTURE 999  VALUE 74. 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
       01  UNIT-CAT.
           05  FILLER            PICTURE 99   VALUE 20. 
           05  FILLER            PICTURE 999  VALUE 220.
           05  UNIT-UNIT         PICTURE X(8) VALUE "PUNIT".
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-VOLSER       PICTURE X(8) VALUE "PVOLSER".
           05  FILLER            PICTURE XX   VALUE "10". 
           05  FILLER            PICTURE 999  VALUE 9.
           05  FILLER            PICTURE 999  VALUE 6.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-SPACE        PICTURE X(8) VALUE "PSPACE". 
           05  FILLER            PICTURE XX   VALUE "15". 
           05  FILLER            PICTURE 999  VALUE 15. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-TYPE         PICTURE X(8) VALUE "PTYPE".
           05  FILLER            PICTURE XX   VALUE "20". 
           05  FILLER            PICTURE 999  VALUE 18. 
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-IDX-UNIT     PICTURE X(8) VALUE "IUNIT".
           05  FILLER            PICTURE XX   VALUE "25". 
           05  FILLER            PICTURE 999  VALUE 19. 
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-IDX-VOLSER   PICTURE X(8) VALUE "IVOLSER".
           05  FILLER            PICTURE XX   VALUE "30". 
           05  FILLER            PICTURE 999  VALUE 26. 
           05  FILLER            PICTURE 999  VALUE 6.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-IDX-SPACE    PICTURE X(8) VALUE "ISPACE". 
           05  FILLER            PICTURE XX   VALUE "35". 
           05  FILLER            PICTURE 999  VALUE 32. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-IDX-TYPE     PICTURE X(8) VALUE "ITYPE".
           05  FILLER            PICTURE XX   VALUE "40". 
           05  FILLER            PICTURE 999  VALUE 35. 
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-OVF-UNIT     PICTURE X(8) VALUE "OUNIT".
           05  FILLER            PICTURE XX   VALUE "45". 
           05  FILLER            PICTURE 999  VALUE 36. 
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-OVF-VOLSER   PICTURE X(8) VALUE "OVOLSER".
           05  FILLER            PICTURE XX   VALUE "50". 
           05  FILLER            PICTURE 999  VALUE 43. 
           05  FILLER            PICTURE 999  VALUE 6.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-OVF-SPACE    PICTURE X(8) VALUE "OSPACE". 
           05  FILLER            PICTURE XX   VALUE "55". 
           05  FILLER            PICTURE 999  VALUE 49. 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  UNIT-OVF-TYPE     PICTURE X(8) VALUE "OTYPE".
           05  FILLER            PICTURE XX   VALUE "60". 
           05  FILLER            PICTURE 999  VALUE 52. 
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
       01  STC-FILE-CAT.
           05  FILLER            PICTURE 99   VALUE 20. 
           05  FILLER            PICTURE 999  VALUE 300.
           05  STC-FILE-CNAME    PICTURE X(8) VALUE "CATNAME".
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE 999  VALUE 32. 
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  STC-FILE-TYPE     PICTURE X(8) VALUE "RECTYPE".
           05  FILLER            PICTURE XX   VALUE "10". 
           05  FILLER            PICTURE 999  VALUE 34. 
           05  FILLER            PICTURE 999  VALUE 8.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  STC-FILE-FREQ     PICTURE X(8) VALUE "FREQ". 
           05  FILLER            PICTURE XX   VALUE "15". 
           05  FILLER            PICTURE 999  VALUE 42. 
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
       01  MDINFO-CAT.
           05  FILLER            PICTURE 99   VALUE 20. 
           05  FILLER            PICTURE 999  VALUE 450.
           05  MD-FILE-TYPE      PICTURE X(8) VALUE "FTYPE".
           05  FILLER            PICTURE XX   VALUE "05". 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE 999  VALUE 1.
           05  FILLER            PICTURE X    VALUE "C".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  MD-USER-NUMBER    PICTURE X(8) VALUE "UN". 
           05  FILLER            PICTURE XX   VALUE "10". 
           05  FILLER            PICTURE 999  VALUE 3.
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  MD-PASSWORD       PICTURE X(8) VALUE "PW". 
           05  FILLER            PICTURE XX   VALUE "15". 
           05  FILLER            PICTURE 999  VALUE 10. 
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  MD-UNIT-LIMIT     PICTURE X(8) VALUE "UNLMT".
           05  FILLER            PICTURE XX   VALUE "20". 
           05  FILLER            PICTURE 999  VALUE 17. 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  MD-UPDATE-LIMIT   PICTURE X(8) VALUE "UPLMT".
           05  FILLER            PICTURE XX   VALUE "25". 
           05  FILLER            PICTURE 999  VALUE 19. 
           05  FILLER            PICTURE 999  VALUE 2.
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  MD-FAMILY-NAME    PICTURE X(8) VALUE "FAMILY". 
           05  FILLER            PICTURE XX   VALUE "30". 
           05  FILLER            PICTURE 999  VALUE 21. 
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  MD-PACK-NAME      PICTURE X(8) VALUE "PACK". 
           05  FILLER            PICTURE XX   VALUE "35". 
           05  FILLER            PICTURE 999  VALUE 28. 
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
           05  MD-SET-NAME       PICTURE X(8) VALUE "SET".
           05  FILLER            PICTURE XX   VALUE "40". 
           05  FILLER            PICTURE 999  VALUE 35. 
           05  FILLER            PICTURE 999  VALUE 7.
           05  FILLER            PICTURE X    VALUE "X".
           05  FILLER            PICTURE X    VALUE "N".
           05  FILLER            PICTURE X    VALUE "N".
      ************************************************************
      *                   AREA
      ************************************************************
       01  RESP-AREA-CAT. 
           05  FILLER          PICTURE 99      VALUE 22.
           05  FILLER          PICTURE 999     VALUE 140. 
           05  RESP-AREA-STAT  PICTURE X(8)    VALUE "STATUS".
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-AREA-FUNC  PICTURE X(8)    VALUE "FUNCTION".
           05  FILLER          PICTURE XX      VALUE "10".
           05  FILLER          PICTURE 999     VALUE 003. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-AREA-DEPT  PICTURE X(8)    VALUE "DEPT".
           05  FILLER          PICTURE XX      VALUE "15".
           05  FILLER          PICTURE 999     VALUE 004. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-AREA-PERS  PICTURE X(8)    VALUE "PERSON".
           05  FILLER          PICTURE XX      VALUE "20".
           05  FILLER          PICTURE 999     VALUE 036. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-AREA-PHON  PICTURE X(8)    VALUE "PHONE". 
           05  FILLER          PICTURE XX      VALUE "25".
           05  FILLER          PICTURE 999     VALUE 068. 
           05  FILLER          PICTURE 999     VALUE 010. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-AREA-TLE   PICTURE X(8)    VALUE "TITLE". 
           05  FILLER          PICTURE XX      VALUE "30".
           05  FILLER          PICTURE 999     VALUE 078. 
           05  FILLER          PICTURE 999     VALUE 015. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-AREA-MAIL  PICTURE X(8)    VALUE "MAIL".
           05  FILLER          PICTURE XX      VALUE "35".
           05  FILLER          PICTURE 999     VALUE 093. 
           05  FILLER          PICTURE 999     VALUE 005. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-AREA-DATE  PICTURE X(8)    VALUE "DATE".
           05  FILLER          PICTURE XX      VALUE "40".
           05  FILLER          PICTURE 999     VALUE 098. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  NAME-AREA-CAT. 
           05  FILLER          PICTURE 99      VALUE 22.
           05  FILLER          PICTURE 999     VALUE 200. 
           05  NAME-AREA-DMS   PICTURE X(8)    VALUE "DMSNAME". 
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  ATTR-AREA-CAT. 
           05  FILLER          PICTURE 99      VALUE 22.
           05  FILLER          PICTURE 999     VALUE 210. 
           05  ATTR-AREA-CL    PICTURE X(8)    VALUE "CL".
           05  FILLER          PICTURE XX      VALUE "01".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-CP    PICTURE X(8)    VALUE "CP".
           05  FILLER          PICTURE XX      VALUE "03".
           05  FILLER          PICTURE 999     VALUE 008. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-C1    PICTURE X(8)    VALUE "C1".
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 014. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-EMK   PICTURE X(8)    VALUE "EMK". 
           05  FILLER          PICTURE XX      VALUE "07".
           05  FILLER          PICTURE 999     VALUE 015. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-FO    PICTURE X(8)    VALUE "FO".
           05  FILLER          PICTURE XX      VALUE "09".
           05  FILLER          PICTURE 999     VALUE 016. 
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-HL    PICTURE X(8)    VALUE "HL".
           05  FILLER          PICTURE XX      VALUE "11".
           05  FILLER          PICTURE 999     VALUE 018. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-HMB   PICTURE X(8)    VALUE "HMB". 
           05  FILLER          PICTURE XX      VALUE "13".
           05  FILLER          PICTURE 999     VALUE 024. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-KL    PICTURE X(8)    VALUE "KL".
           05  FILLER          PICTURE XX      VALUE "15".
           05  FILLER          PICTURE 999     VALUE 030. 
           05  FILLER          PICTURE 999     VALUE 004. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-KP    PICTURE X(8)    VALUE "KP".
           05  FILLER          PICTURE XX      VALUE "17".
           05  FILLER          PICTURE 999     VALUE 034. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-KT    PICTURE X(8)    VALUE "KT".
           05  FILLER          PICTURE XX      VALUE "19".
           05  FILLER          PICTURE 999     VALUE 035. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-LL    PICTURE X(8)    VALUE "LL".
           05  FILLER          PICTURE XX      VALUE "21".
           05  FILLER          PICTURE 999     VALUE 036. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-LP    PICTURE X(8)    VALUE "LP".
           05  FILLER          PICTURE XX      VALUE "23".
           05  FILLER          PICTURE 999     VALUE 037. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-BT    PICTURE X(8)    VALUE "BT".
           05  FILLER          PICTURE XX      VALUE "24".
           05  FILLER          PICTURE 999     VALUE 043. 
           05  FILLER          PICTURE 999     VALUE 003. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-MBL   PICTURE X(8)    VALUE "MBL". 
           05  FILLER          PICTURE XX      VALUE "25".
           05  FILLER          PICTURE 999     VALUE 046. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-MNR   PICTURE X(8)    VALUE "MNR". 
           05  FILLER          PICTURE XX      VALUE "26".
           05  FILLER          PICTURE 999     VALUE 052. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-MRL   PICTURE X(8)    VALUE "MRL". 
           05  FILLER          PICTURE XX      VALUE "27".
           05  FILLER          PICTURE 999     VALUE 058. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-ORG   PICTURE X(8)    VALUE "ORG". 
           05  FILLER          PICTURE XX      VALUE "29".
           05  FILLER          PICTURE 999     VALUE 064. 
           05  FILLER          PICTURE 999     VALUE 003. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-RB    PICTURE X(8)    VALUE "RB".
           05  FILLER          PICTURE XX      VALUE "30".
           05  FILLER          PICTURE 999     VALUE 067. 
           05  FILLER          PICTURE 999     VALUE 004. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-RKP   PICTURE X(8)    VALUE "RKP". 
           05  FILLER          PICTURE XX      VALUE "31".
           05  FILLER          PICTURE 999     VALUE 071. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-RKW   PICTURE X(8)    VALUE "RKW". 
           05  FILLER          PICTURE XX      VALUE "33".
           05  FILLER          PICTURE 999     VALUE 077. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-RMK   PICTURE X(8)    VALUE "RMK". 
           05  FILLER          PICTURE XX      VALUE "35".
           05  FILLER          PICTURE 999     VALUE 083. 
           05  FILLER          PICTURE 999     VALUE 010. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-RT    PICTURE X(8)    VALUE "RT".
           05  FILLER          PICTURE XX      VALUE "37".
           05  FILLER          PICTURE 999     VALUE 093. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-SEQ   PICTURE X(8)    VALUE "SEQ". 
           05  FILLER          PICTURE XX      VALUE "39".
           05  FILLER          PICTURE 999     VALUE 094. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-TL    PICTURE X(8)    VALUE "TL".
           05  FILLER          PICTURE XX      VALUE "41".
           05  FILLER          PICTURE 999     VALUE 095. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  ALY-A-CAT. 
           05  FILLER          PICTURE 99      VALUE 22.
           05  FILLER          PICTURE 999     VALUE 211. 
           05  ALY-A-DMS       PICTURE X(8)    VALUE "ADMSNAM". 
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  STC-A-CAT. 
           05  FILLER          PICTURE 99      VALUE 22.
           05  FILLER          PICTURE 999     VALUE 300. 
           05  STC-AREA-RNAME  PICTURE X(8)    VALUE "CATNAME". 
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  STC-AREA-ALY    PICTURE X(8)    VALUE "ALIAS". 
           05  FILLER          PICTURE XX      VALUE "10".
           05  FILLER          PICTURE 999     VALUE 034. 
           05  FILLER          PICTURE 999     VALUE 004. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  STC-AREA-RCVAL  PICTURE X(8)    VALUE "RCVALUE". 
           05  FILLER          PICTURE XX      VALUE "15".
           05  FILLER          PICTURE 999     VALUE 038. 
           05  FILLER          PICTURE 999     VALUE 030. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  STC-AREA-INC    PICTURE X(8)    VALUE "INCLUDE". 
           05  FILLER          PICTURE XX      VALUE "20".
           05  FILLER          PICTURE 999     VALUE 068. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
      * 
      *    THE "RECORD CODE" LITERAL/NUMERIC FLAG IS STORED AT 69.
      * 
       01  PROCESS-AREA-CAT-LINE1.
           05  FILLER          PICTURE 99      VALUE 22.
           05  FILLER          PICTURE 999     VALUE 400. 
           05  PRO-AREA-DBP    PICTURE X(8)    VALUE "DBPROC".
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  PRO-AREA-TYPEP  PICTURE X(8)    VALUE "TYPEPROC".
           05  FILLER          PICTURE XX      VALUE "10".
           05  FILLER          PICTURE 999     VALUE 034. 
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  PRO-AREA-TIME   PICTURE X(8)    VALUE "TIME".
           05  FILLER          PICTURE XX      VALUE "15".
           05  FILLER          PICTURE 999     VALUE 036. 
           05  FILLER          PICTURE 999     VALUE 005. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  PRO-AREA-OPT    PICTURE X(8)    VALUE "OPTION".
           05  FILLER          PICTURE XX      VALUE "20".
           05  FILLER          PICTURE 999     VALUE 041. 
           05  FILLER          PICTURE 999     VALUE 007. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  PROCESS-AREA-CAT-LINE2.
           05  FILLER          PICTURE 99      VALUE 22.
           05  FILLER          PICTURE 999     VALUE 400. 
           05  PRO-AREA-RCDATA PICTURE X(8)    VALUE "RCDATA".
           05  FILLER          PICTURE XX      VALUE "25".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  PRO-AREA-ALYNO  PICTURE X(8)    VALUE "RCALIAS". 
           05  FILLER          PICTURE XX      VALUE "35".
           05  FILLER          PICTURE 999     VALUE 034. 
           05  FILLER          PICTURE 999     VALUE 004. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  PRO-AREA-RCQUAL PICTURE X(8)    VALUE "RCQUAL".
           05  FILLER          PICTURE XX      VALUE "30".
           05  FILLER          PICTURE 999     VALUE 038. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  ATTR-AREA-ACCESS-LINE1.
           05  FILLER          PICTURE 99      VALUE 22.
           05  FILLER          PICTURE 999     VALUE 425. 
           05  ATTR-AREA-MODE  PICTURE X(8)    VALUE "MODE".
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 003. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  ATTR-AREA-ACCESS-LINE2.
           05  FILLER          PICTURE 99      VALUE 22.
           05  FILLER          PICTURE 999     VALUE 425. 
           05  ATTR-AREA-LOCK  PICTURE X(8)    VALUE "LOCK".
           05  FILLER          PICTURE XX      VALUE "10".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
      *    LOCK TYPE IS STORED IN CHARACTER 33 FOR 1. 
       01  ATTR-AREA-MDINFO.
           05  FILLER          PICTURE 99      VALUE 22.
           05  FILLER          PICTURE 999     VALUE 450. 
           05  ATTR-AREA-INDX  PICTURE X(8)    VALUE "INDXFIL". 
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-UN    PICTURE X(8)    VALUE "UN".
           05  FILLER          PICTURE XX      VALUE "10".
           05  FILLER          PICTURE 999     VALUE 034. 
           05  FILLER          PICTURE 999     VALUE 007. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-PW    PICTURE X(8)    VALUE "PW".
           05  FILLER          PICTURE XX      VALUE "15".
           05  FILLER          PICTURE 999     VALUE 041. 
           05  FILLER          PICTURE 999     VALUE 007. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-FAM   PICTURE X(8)    VALUE "FAMILY".
           05  FILLER          PICTURE XX      VALUE "20".
           05  FILLER          PICTURE 999     VALUE 048. 
           05  FILLER          PICTURE 999     VALUE 007. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-PACK  PICTURE X(8)    VALUE "PACK".
           05  FILLER          PICTURE XX      VALUE "25".
           05  FILLER          PICTURE 999     VALUE 055. 
           05  FILLER          PICTURE 999     VALUE 007. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-SET   PICTURE X(8)    VALUE "SET". 
           05  FILLER          PICTURE XX      VALUE "30".
           05  FILLER          PICTURE 999     VALUE 062. 
           05  FILLER          PICTURE 999     VALUE 007. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-VSN   PICTURE X(8)    VALUE "PVOLSER". 
           05  FILLER          PICTURE XX      VALUE "35".
           05  FILLER          PICTURE 999     VALUE 069. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-DT    PICTURE X(8)    VALUE "PUNIT". 
           05  FILLER          PICTURE XX      VALUE "40".
           05  FILLER          PICTURE 999     VALUE 075. 
           05  FILLER          PICTURE 999     VALUE 003. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-LOG   PICTURE X(8)    VALUE "LOG". 
           05  FILLER          PICTURE XX      VALUE "45".
           05  FILLER          PICTURE 999     VALUE 078. 
           05  FILLER          PICTURE 999     VALUE 008. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-PFN   PICTURE X(8)    VALUE "PFNAREA". 
           05  FILLER          PICTURE XX      VALUE "50".
           05  FILLER          PICTURE 999     VALUE 086. 
           05  FILLER          PICTURE 999     VALUE 007. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  ATTR-AREA-KEYS-LINE1.
           05  FILLER          PICTURE 99      VALUE 22.
           05  FILLER          PICTURE 999     VALUE 500. 
           05  ATTR-AREA-KNAME PICTURE X(8)    VALUE "KEYNAME". 
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-KALY  PICTURE X(8)    VALUE "KALIAS".
           05  FILLER          PICTURE XX      VALUE "10".
           05  FILLER          PICTURE 999     VALUE 034. 
           05  FILLER          PICTURE 999     VALUE 004. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-OFREC PICTURE X(8)    VALUE "KOFREC".
           05  FILLER          PICTURE XX      VALUE "13".
           05  FILLER          PICTURE 999     VALUE 038. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-KTYPE PICTURE X(8)    VALUE "TYPEKEY". 
           05  FILLER          PICTURE XX      VALUE "15".
           05  FILLER          PICTURE 999     VALUE 070. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-DUPES PICTURE X(8)    VALUE "DUPES". 
           05  FILLER          PICTURE XX      VALUE "20".
           05  FILLER          PICTURE 999     VALUE 071. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-USING PICTURE X(8)    VALUE "USING". 
           05  FILLER          PICTURE XX      VALUE "25".
           05  FILLER          PICTURE 999     VALUE 072. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  ATTR-AREA-KEYS-LINE2.
           05  FILLER          PICTURE 99      VALUE 22.
           05  FILLER          PICTURE 999     VALUE 500. 
           05  ATTR-AREA-CKID  PICTURE X(8)    VALUE "CKEYID".
           05  FILLER          PICTURE XX      VALUE "30".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 030. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-CTYPE PICTURE X(8)    VALUE "CTYPKEY". 
           05  FILLER          PICTURE XX      VALUE "35".
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-CDUP  PICTURE X(8)    VALUE "CDUPES".
           05  FILLER          PICTURE XX      VALUE "40".
           05  FILLER          PICTURE 999     VALUE 033. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-A-CUSING   PICTURE X(8)    VALUE "CUSING".
           05  FILLER          PICTURE XX      VALUE "42".
           05  FILLER          PICTURE 999     VALUE 034. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  ATTR-AREA-KEYS-LINE3.
           05  FILLER          PICTURE 99      VALUE 22.
           05  FILLER          PICTURE 999     VALUE 500. 
           05  ATTR-AREA-CIDEN PICTURE X(8)    VALUE "CIDEN". 
           05  FILLER          PICTURE XX      VALUE "45".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-CALY  PICTURE X(8)    VALUE "CALIAS".
           05  FILLER          PICTURE XX      VALUE "50".
           05  FILLER          PICTURE 999     VALUE 034. 
           05  FILLER          PICTURE 999     VALUE 004. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  ATTR-AREA-QUAL  PICTURE X(8)    VALUE "CQUAL". 
           05  FILLER          PICTURE XX      VALUE "55".
           05  FILLER          PICTURE 999     VALUE 038. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
      **************************************************************
      *                    SUBSCHEMA
      **************************************************************
       01  RESP-SS-CAT. 
           05  FILLER          PICTURE 99      VALUE 24.
           05  FILLER          PICTURE 999     VALUE 140. 
           05  RESP-SS-STATUS  PICTURE X(8)    VALUE "STATUS".
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-SS-FUNC    PICTURE X(8)    VALUE "FUNCTION".
           05  FILLER          PICTURE XX      VALUE "10".
           05  FILLER          PICTURE 999     VALUE 003. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-SS-DEPT    PICTURE X(8)    VALUE "DEPT".
           05  FILLER          PICTURE XX      VALUE "15".
           05  FILLER          PICTURE 999     VALUE 004. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-SS-PERSON  PICTURE X(8)    VALUE "PERSON".
           05  FILLER          PICTURE XX      VALUE "20".
           05  FILLER          PICTURE 999     VALUE 036. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-SS-PHONE   PICTURE X(8)    VALUE "PHONE". 
           05  FILLER          PICTURE XX      VALUE "25".
           05  FILLER          PICTURE 999     VALUE 068. 
           05  FILLER          PICTURE 999     VALUE 010. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-SS-TITLE   PICTURE X(8)    VALUE "TITLE". 
           05  FILLER          PICTURE XX      VALUE "30".
           05  FILLER          PICTURE 999     VALUE 078. 
           05  FILLER          PICTURE 999     VALUE 015. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-SS-MAIL    PICTURE X(8)    VALUE "MAIL".
           05  FILLER          PICTURE XX      VALUE "35".
           05  FILLER          PICTURE 999     VALUE 093. 
           05  FILLER          PICTURE 999     VALUE 005. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-SS-DATE    PICTURE X(8)    VALUE "DATE".
           05  FILLER          PICTURE XX      VALUE "40".
           05  FILLER          PICTURE 999     VALUE 098. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  NAME-SS-CAT. 
           05  FILLER          PICTURE 99      VALUE 24.
           05  FILLER          PICTURE 999     VALUE 200. 
           05  NAME-SS-NAME    PICTURE X(8)    VALUE "DMSNAME". 
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  STC-SS-CAT.
           05  FILLER          PICTURE 99      VALUE 24.
           05  FILLER          PICTURE 999     VALUE 300. 
           05  STC-SS-AREA     PICTURE X(8)    VALUE "CATNAME". 
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  STC-SS-ALY-NO   PICTURE X(8)    VALUE "ALIAS". 
           05  FILLER          PICTURE XX      VALUE "10".
           05  FILLER          PICTURE 999     VALUE 034. 
           05  FILLER          PICTURE 999     VALUE 004. 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  STC-SS-INCL     PICTURE X(8)    VALUE "INCLUDE". 
           05  FILLER          PICTURE XX      VALUE "15".
           05  FILLER          PICTURE 999     VALUE 038. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  SS-MDINFO-CAT. 
           05  FILLER          PICTURE 99      VALUE  24. 
           05  FILLER          PICTURE 999     VALUE  450.
           05  MDINFO-SSLFN    PICTURE X(8)    VALUE  "SSLFN".
           05  FILLER          PICTURE XX      VALUE  "05". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  007.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
       01  SSREL-CAT-LINE1. 
           05  FILLER          PICTURE 99      VALUE  24. 
           05  FILLER          PICTURE 999     VALUE  525.
           05  SSREL-RELNAME   PICTURE X(8)    VALUE  "RNAME".
           05  FILLER          PICTURE XX      VALUE  "01". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  030.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  SSREL-RESTRICT  PICTURE X(8)    VALUE  "RESTRICT". 
           05  FILLER          PICTURE XX      VALUE  "02". 
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  SSREL-RALIAS    PICTURE X(8)    VALUE  "RALIAS". 
           05  FILLER          PICTURE XX      VALUE  "03". 
           05  FILLER          PICTURE 999     VALUE  064.
           05  FILLER          PICTURE 999     VALUE  004.
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
       01  SSREL-CAT-LINE2. 
           05  FILLER          PICTURE 99      VALUE  24. 
           05  FILLER          PICTURE 999     VALUE  525.
           05  SSREL-PRELOP    PICTURE X(8)    VALUE  "PRELOP". 
           05  FILLER          PICTURE XX      VALUE  "04". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  003.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    ID1 STARTS AT 7 BECAUSE THE LEFT PARENTHESIS 
      *    COUNTER IS STORED ON 5 AND 6 
           05  SSREL-ID1       PICTURE X(8)    VALUE  "ID1".
           05  FILLER          PICTURE XX      VALUE  "05". 
           05  FILLER          PICTURE 999     VALUE  007.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "P".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    A1ID STARTS AT POSITION 40 BECAUSE THE ID1-TYPE
      *    FLAG IS STORED IN POSITION 39
           05  SSREL-ID1-ALY   PICTURE X(8)    VALUE  "A1ID". 
           05  FILLER          PICTURE XX      VALUE  "07". 
           05  FILLER          PICTURE 999     VALUE  040.
           05  FILLER          PICTURE 999     VALUE  004.
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    ID1 SUBSCRIPTS ARE STORED FROM 44 THRU 55
      *    (THREE SUBSCRIPTS OF 4 CHARACTERS EACH)
      *    RELATIONAL OPERATOR STARTS AT 57 BECAUSE OF THE
      *    QUALIFIER FLAG STORED IN CHARACTER 56. 
           05  SSREL-ROP       PICTURE X(8)    VALUE  "ROP".
           05  FILLER          PICTURE XX      VALUE  "53". 
           05  FILLER          PICTURE 999     VALUE  057.
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  SSREL-ID2       PICTURE X(8)    VALUE  "ID2".
           05  FILLER          PICTURE XX      VALUE  "29". 
           05  FILLER          PICTURE 999     VALUE  059.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "P".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    A2ID STARTS AT POSITION 92 BECAUSE ID2-TYPE FLAG 
      *    IS STORE IN POSITION 91
           05  SSREL-ID2-ALY   PICTURE X(8)    VALUE  "A2ID". 
           05  FILLER          PICTURE XX      VALUE  "31". 
           05  FILLER          PICTURE 999     VALUE  092.
           05  FILLER          PICTURE 999     VALUE  004.
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    ID2 SUBSCRIPTS ARE STORED FROM 96 THRU 107 
      *    (THREE SUBSCRIPTS OF 4 CHARACTERS EACH)
      *    ID2 QUALIFICATION FLAG IS STORED AT 108
      *    RIGHT PARENTHESIS COUNTER IS STORED ON 109 AND 110 
           05  SSREL-LOP       PICTURE X(8)    VALUE  "LOP".
           05  FILLER          PICTURE XX      VALUE  "55". 
           05  FILLER          PICTURE 999     VALUE  111.
           05  FILLER          PICTURE 999     VALUE  006.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
       01  SSREL-CAT-LINE3. 
           05  FILLER          PICTURE 99      VALUE  24. 
           05  FILLER          PICTURE 999     VALUE  525.
           05  SSREL-A1QUAL    PICTURE X(8)    VALUE  "A1QUAL". 
           05  FILLER          PICTURE XX      VALUE  "09". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    A1QUAL SUBSCRIPTS ARE STORED FROM 34 THRU 45 
           05  SSREL-A2QUAL    PICTURE X(8)    VALUE  "A2QUAL". 
           05  FILLER          PICTURE XX      VALUE  "13". 
           05  FILLER          PICTURE 999     VALUE  046.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    A2QUAL SUBSCRIPTS ARE STORED FROM 78 THRU 89 
           05  SSREL-A3QUAL    PICTURE X(8)    VALUE  "A3QUAL". 
           05  FILLER          PICTURE XX      VALUE  "17". 
           05  FILLER          PICTURE 999     VALUE  090.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    A3QUAL SUBSCRIPTS ARE STORED FROM 122 THRU 133 
       01  SSREL-CAT-LINE4. 
           05  FILLER          PICTURE 99      VALUE  24. 
           05  FILLER          PICTURE 999     VALUE  525.
           05  SSREL-A4QUAL    PICTURE X(8)    VALUE  "A4QUAL". 
           05  FILLER          PICTURE XX      VALUE  "21". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    A4QUAL SUBSCRIPTS ARE STORED FROM 34 THRU 45 
           05  SSREL-A5QUAL    PICTURE X(8)    VALUE  "A5QUAL". 
           05  FILLER          PICTURE XX      VALUE  "25". 
           05  FILLER          PICTURE 999     VALUE  046.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    A5QUAL SUBSCRIPTS ARE STORED FROM 78 THRU 89 
       01  SSREL-CAT-LINE5. 
           05  FILLER          PICTURE 99      VALUE  24. 
           05  FILLER          PICTURE 999     VALUE  525.
           05  SSREL-B1QUAL    PICTURE X(8)    VALUE  "B1QUAL". 
           05  FILLER          PICTURE XX      VALUE  "33". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "P".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    B1QUAL SUBSCRIPTS ARE STORED FROM 34 THRU 45 
           05  SSREL-B2QUAL    PICTURE X(8)    VALUE  "B2QUAL". 
           05  FILLER          PICTURE XX      VALUE  "37". 
           05  FILLER          PICTURE 999     VALUE  046.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "P".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    B2QUAL SUBSCRIPTS ARE STORED FROM 78 THRU 89 
           05  SSREL-B3QUAL    PICTURE X(8)    VALUE  "B3QUAL". 
           05  FILLER          PICTURE XX      VALUE  "43". 
           05  FILLER          PICTURE 999     VALUE  090.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "P".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    B3QUAL SUBSCRIPTS ARE STORED FROM 122 THRU 133 
       01  SSREL-CAT-LINE6. 
           05  FILLER          PICTURE 99      VALUE  24. 
           05  FILLER          PICTURE 999     VALUE  525.
           05  SSREL-B4QUAL    PICTURE X(8)    VALUE  "B4QUAL". 
           05  FILLER          PICTURE XX      VALUE  "45". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "P".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    B4QUAL SUBSCRIPTS ARE STORED FROM 34 THRU 45 
           05  SSREL-B5QUAL    PICTURE X(8)    VALUE  "B5QUAL". 
           05  FILLER          PICTURE XX      VALUE  "49". 
           05  FILLER          PICTURE 999     VALUE  046.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "P".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    B5QUAL SUBSCRIPTS ARE STORED FROM 78 THRU 89 
      **************************************************************
      *                    SCHEMA 
      **************************************************************
       01  RESP-SCH-CAT.
           05  FILLER          PICTURE 99      VALUE 26.
           05  FILLER          PICTURE 999     VALUE 140. 
           05  RESP-SCH-STATUS PICTURE X(8)    VALUE "STATUS".
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-SCH-FUNC   PICTURE X(8)    VALUE "FUNCTION".
           05  FILLER          PICTURE XX      VALUE "10".
           05  FILLER          PICTURE 999     VALUE 003. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-SCH-DEPT   PICTURE X(8)    VALUE "DEPT".
           05  FILLER          PICTURE XX      VALUE "15".
           05  FILLER          PICTURE 999     VALUE 004. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-SCH-PERSON PICTURE X(8)    VALUE "PERSON".
           05  FILLER          PICTURE XX      VALUE "20".
           05  FILLER          PICTURE 999     VALUE 036. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-SCH-PHONE  PICTURE X(8)    VALUE "PHONE". 
           05  FILLER          PICTURE XX      VALUE "25".
           05  FILLER          PICTURE 999     VALUE 068. 
           05  FILLER          PICTURE 999     VALUE 010. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-SCH-TITLE  PICTURE X(8)    VALUE "TITLE". 
           05  FILLER          PICTURE XX      VALUE "30".
           05  FILLER          PICTURE 999     VALUE 078. 
           05  FILLER          PICTURE 999     VALUE 015. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-SCH-MAIL   PICTURE X(8)    VALUE "MAIL".
           05  FILLER          PICTURE XX      VALUE "35".
           05  FILLER          PICTURE 999     VALUE 093. 
           05  FILLER          PICTURE 999     VALUE 005. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  RESP-SCH-DATE   PICTURE X(8)    VALUE "DATE".
           05  FILLER          PICTURE XX      VALUE "40".
           05  FILLER          PICTURE 999     VALUE 098. 
           05  FILLER          PICTURE 999     VALUE 006. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  NAME-SCH-CAT.
           05  FILLER          PICTURE 99      VALUE 26.
           05  FILLER          PICTURE 999     VALUE 200. 
           05  NAME-SCH-DMS    PICTURE X(8)    VALUE "DMSNAME". 
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  STC-SCH-CAT. 
           05  FILLER          PICTURE 99      VALUE 26.
           05  FILLER          PICTURE 999     VALUE 300. 
           05  STC-SCH-CNAME   PICTURE X(8)    VALUE "CATNAME". 
           05  FILLER          PICTURE XX      VALUE "05".
           05  FILLER          PICTURE 999     VALUE 002. 
           05  FILLER          PICTURE 999     VALUE 032. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  STC-SCH-CTYPE   PICTURE X(8)    VALUE "CTYPE". 
           05  FILLER          PICTURE XX      VALUE "10".
           05  FILLER          PICTURE 999     VALUE 034. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  STC-SCH-INC     PICTURE X(8)    VALUE "INCLUDE". 
           05  FILLER          PICTURE XX      VALUE "15".
           05  FILLER          PICTURE 999     VALUE 035. 
           05  FILLER          PICTURE 999     VALUE 001. 
           05  FILLER          PICTURE X       VALUE "C". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  STC-SCH-AVERS   PICTURE X(8)    VALUE "AVERS". 
           05  FILLER          PICTURE XX      VALUE "20".
           05  FILLER          PICTURE 999     VALUE 036. 
           05  FILLER          PICTURE 999     VALUE 007. 
           05  FILLER          PICTURE X       VALUE "X". 
           05  FILLER          PICTURE X       VALUE "N". 
           05  FILLER          PICTURE X       VALUE "N". 
       01  SC-MDINFO-CAT-LINE1. 
           05  FILLER          PICTURE 99      VALUE  26. 
           05  FILLER          PICTURE 999     VALUE  450.
           05  MD-SCHEMA-LFN   PICTURE X(8)    VALUE  "SCHLFN". 
           05  FILLER          PICTURE XX      VALUE  "05". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  007.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
       01  SC-MDINFO-CAT-LINE2. 
           05  FILLER          PICTURE 99      VALUE  26. 
           05  FILLER          PICTURE 999     VALUE  450.
           05  MD-SC-PROCLIB   PICTURE X(8)    VALUE  "PROCLIB".
           05  FILLER          PICTURE XX      VALUE  "10". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
       01  SC-MDINFO-CAT-LINE3. 
           05  FILLER          PICTURE 99      VALUE  26. 
           05  FILLER          PICTURE 999     VALUE  450.
           05  MD-SC-TRFILE    PICTURE X(8)    VALUE  "TRANFILE". 
           05  FILLER          PICTURE XX      VALUE  "15". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
       01  SC-MDINFO-CAT-LINE4. 
           05  FILLER          PICTURE 99      VALUE  26. 
           05  FILLER          PICTURE 999     VALUE  450.
           05  MD-SC-RESFILE   PICTURE X(8)    VALUE  "RESFILE".
           05  FILLER          PICTURE XX      VALUE  "20". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
       01  SC-MDINFO-CAT-LINE5. 
           05  FILLER          PICTURE 99      VALUE  26. 
           05  FILLER          PICTURE 999     VALUE  450.
           05  MD-SC-JLOG      PICTURE X(8)    VALUE  "JLOG". 
           05  FILLER          PICTURE XX      VALUE  "25". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
       01  SC-MDINFO-CAT-LINE6. 
           05  FILLER          PICTURE 99      VALUE  26. 
           05  FILLER          PICTURE 999     VALUE  450.
           05  MD-SC-QRFILE    PICTURE X(8)    VALUE  "QRFILE". 
           05  FILLER          PICTURE XX      VALUE  "30". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
       01  SC-JOBCONTROL-CAT. 
           05  FILLER          PICTURE 99      VALUE  26. 
           05  FILLER          PICTURE 999     VALUE  475.
           05  SC-JOBC-UN      PICTURE X(8)    VALUE  "UN". 
           05  FILLER          PICTURE XX      VALUE  "05". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  007.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  SC-JOBC-PW      PICTURE X(8)    VALUE  "PW". 
           05  FILLER          PICTURE XX      VALUE  "10". 
           05  FILLER          PICTURE 999     VALUE  009.
           05  FILLER          PICTURE 999     VALUE  007.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  SC-JOBC-FAMILY  PICTURE X(8)    VALUE  "FAMILY". 
           05  FILLER          PICTURE XX      VALUE  "15". 
           05  FILLER          PICTURE 999     VALUE  016.
           05  FILLER          PICTURE 999     VALUE  007.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  SC-JOBC-ACCOUNT PICTURE X(8)    VALUE  "ACCOUNT".
           05  FILLER          PICTURE XX      VALUE  "20". 
           05  FILLER          PICTURE 999     VALUE  023.
           05  FILLER          PICTURE 999     VALUE  030.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  SC-JOBC-CHARGE  PICTURE X(8)    VALUE  "CHARGE". 
           05  FILLER          PICTURE XX      VALUE  "25". 
           05  FILLER          PICTURE 999     VALUE  053.
           05  FILLER          PICTURE 999     VALUE  030.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  SC-JOBC-DENSITY PICTURE X(8)    VALUE  "DENSITY".
           05  FILLER          PICTURE XX      VALUE  "30". 
           05  FILLER          PICTURE 999     VALUE  083.
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  SC-JOBC-TTYPE   PICTURE X(8)    VALUE  "TTYPE".
           05  FILLER          PICTURE XX      VALUE  "35". 
           05  FILLER          PICTURE 999     VALUE  085.
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
       01  SC-CONSTRAINT-LINE1. 
           05  FILLER          PICTURE 99      VALUE  26. 
           05  FILLER          PICTURE 999     VALUE  550.
           05  SC-CONNAME      PICTURE X(8)    VALUE  "CONNAME".
           05  FILLER          PICTURE XX      VALUE  "05". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  030.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  SC-CATNAME      PICTURE X(8)    VALUE  "CNAME".
           05  FILLER          PICTURE XX      VALUE  "10". 
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  SC-CALIAS       PICTURE X(8)    VALUE  "CALIAS". 
           05  FILLER          PICTURE XX      VALUE  "15". 
           05  FILLER          PICTURE 999     VALUE  064.
           05  FILLER          PICTURE 999     VALUE  004.
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  SC-AOFREC       PICTURE X(8)    VALUE  "AOFREC". 
           05  FILLER          PICTURE XX      VALUE  "20". 
           05  FILLER          PICTURE 999     VALUE  068.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
       01  SC-CONSTRAINT-LINE2. 
           05  FILLER          PICTURE 99      VALUE  26. 
           05  FILLER          PICTURE 999     VALUE  550.
           05  SC-DEPENDS      PICTURE X(8)    VALUE  "DEPENDS".
           05  FILLER          PICTURE XX      VALUE  "25". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  SC-DALIAS       PICTURE X(8)    VALUE  "DALIAS". 
           05  FILLER          PICTURE XX      VALUE  "30". 
           05  FILLER          PICTURE 999     VALUE  034.
           05  FILLER          PICTURE 999     VALUE  004.
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  SC-BOFREC       PICTURE X(8)    VALUE  "BOFREC". 
           05  FILLER          PICTURE XX      VALUE  "35". 
           05  FILLER          PICTURE 999     VALUE  038.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
       01  SC-JOINS-LINEA.
           05  FILLER          PICTURE 99      VALUE  26. 
           05  FILLER          PICTURE 999     VALUE  575.
           05  SC-RELNAME      PICTURE X(8)    VALUE  "RELNAME".
           05  FILLER          PICTURE XX      VALUE  "05". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  030.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
       01  SC-JOINS-LINEB.
           05  FILLER          PICTURE 99      VALUE  26. 
           05  FILLER          PICTURE 999     VALUE  575.
           05  JOINS-ID1       PICTURE X(8)    VALUE  "ID1".
           05  FILLER          PICTURE XX      VALUE  "10". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  JOINS-ID1-ALY   PICTURE X(8)    VALUE  "I1ALIAS".
           05  FILLER          PICTURE XX      VALUE  "15". 
           05  FILLER          PICTURE 999     VALUE  034.
           05  FILLER          PICTURE 999     VALUE  004.
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    SUBSCRIPTS FOR ID1 ARE STORED FROM 38 THRU 49
           05  JOINS-C1QUAL    PICTURE X(8)    VALUE  "I1REC".
           05  FILLER          PICTURE XX      VALUE  "20". 
           05  FILLER          PICTURE 999     VALUE  050.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
       01  SC-JOINS-LINEC.
           05  FILLER          PICTURE 99      VALUE  26. 
           05  FILLER          PICTURE 999     VALUE  575.
           05  JOINS-ID2       PICTURE X(8)    VALUE  "ID2".
           05  FILLER          PICTURE XX      VALUE  "25". 
           05  FILLER          PICTURE 999     VALUE  002.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  JOINS-ID2-ALY   PICTURE X(8)    VALUE  "I2ALIAS".
           05  FILLER          PICTURE XX      VALUE  "30". 
           05  FILLER          PICTURE 999     VALUE  034.
           05  FILLER          PICTURE 999     VALUE  004.
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      *    SUBSCRIPTS FOR ID2 ARE STORED FROM 38 THRU 49
           05  JOINS-D1QUAL    PICTURE X(8)    VALUE  "I2REC".
           05  FILLER          PICTURE XX      VALUE  "35". 
           05  FILLER          PICTURE 999     VALUE  050.
           05  FILLER          PICTURE 999     VALUE  032.
           05  FILLER          PICTURE X       VALUE  "X".
           05  FILLER          PICTURE X       VALUE  "N".
           05  FILLER          PICTURE X       VALUE  "N".
      ******************************************************************
      *        TOTAL
      ******************************************************************
       01  RESP-TOT-CAT.
           05  FILLER              PICTURE 99   VALUE 32. 
           05  FILLER              PICTURE 999  VALUE 140.
           05  RESP-TOT-STATUS     PICTURE X(8) VALUE "STATUS". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-TOT-FUNC       PICTURE X(8) VALUE "FUNCTION". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-TOT-DEPT       PICTURE X(8) VALUE "DEPT". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-TOT-PERSON     PICTURE X(8) VALUE "PERSON". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 36. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-TOT-PHONE      PICTURE X(8) VALUE "PHONE".
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 68. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-TOT-TITLE      PICTURE X(8) VALUE "TITLE".
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 78. 
           05  FILLER              PICTURE 999  VALUE 15. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-TOT-MAIL       PICTURE X(8) VALUE "MAIL". 
           05  FILLER              PICTURE XX   VALUE "35". 
           05  FILLER              PICTURE 999  VALUE 93. 
           05  FILLER              PICTURE 999  VALUE 5.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-TOT-DATE       PICTURE X(8) VALUE "DATE". 
           05  FILLER              PICTURE XX   VALUE "40". 
           05  FILLER              PICTURE 999  VALUE 98. 
           05  FILLER              PICTURE 999  VALUE 6.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  NAME-TOT-CAT.
           05  FILLER              PICTURE 99   VALUE 32. 
           05  FILLER              PICTURE 999  VALUE 200.
           05  NAME-TOT-DBNAME     PICTURE X(8) VALUE "DBNAME". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 8.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  NAME-TOT-NAME       PICTURE X(8) VALUE "NAME". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  TOT-IOAREA-CAT.
           05  FILLER              PICTURE 99   VALUE 32. 
           05  FILLER              PICTURE 999  VALUE 215.
           05  FILLER              PICTURE X(8) VALUE "TRACK".
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X(8) VALUE "CATNAME".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 003.
           05  FILLER              PICTURE 999  VALUE 032.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X(8) VALUE "IOAREA". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 035.
           05  FILLER              PICTURE 999  VALUE 004.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X(8) VALUE "OCCURS". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 039.
           05  FILLER              PICTURE 999  VALUE 002.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  TOT-STR-CAT. 
           05  FILLER              PICTURE 99   VALUE 32. 
           05  FILLER              PICTURE 999  VALUE 300.
           05  FILLER              PICTURE X(8) VALUE "DSNAME". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X(8) VALUE "TYPE". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X(8) VALUE "EXCLUDE".
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 35. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
      ***************************************************************** 
      *        FORM 
      ***************************************************************** 
       01  RESP-F-CAT.
           05  FILLER              PICTURE 99   VALUE 35. 
           05  FILLER              PICTURE 999  VALUE 140.
           05  RESP-F-STATUS       PICTURE X(8) VALUE "STATUS". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-F-FUNC         PICTURE X(8) VALUE "FUNCTION". 
           05  FILLER              PICTURE  XX  VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-F-DEPT         PICTURE X(8) VALUE "DEPT". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-F-PERSON       PICTURE X(8) VALUE "PERSON". 
           05  FILLER              PICTURE  XX  VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 36. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-F-PHONE        PICTURE X(8) VALUE "PHONE".
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 68. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-F-TITLE        PICTURE X(8) VALUE "TITLE".
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 78. 
           05  FILLER              PICTURE 999  VALUE 15. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-F-MAIL         PICTURE X(8) VALUE "MAIL". 
           05  FILLER              PICTURE XX   VALUE "35". 
           05  FILLER              PICTURE 999  VALUE 93. 
           05  FILLER              PICTURE 999  VALUE 5.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-F-DATE         PICTURE X(8) VALUE "DATE". 
           05  FILLER              PICTURE XX   VALUE "40". 
           05  FILLER              PICTURE 999  VALUE 98. 
           05  FILLER              PICTURE 999  VALUE 6.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  NAME-F-CAT.
           05  FILLER              PICTURE 99   VALUE 35. 
           05  FILLER              PICTURE 999  VALUE 200.
           05  NAME-F-FORM-NAME    PICTURE X(8) VALUE "NAME". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  NAME-F-NUMBER       PICTURE X(8) VALUE "NUMBER". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  ATTR-F-CAT.
           05  FILLER              PICTURE 99   VALUE 35. 
           05  FILLER              PICTURE 999  VALUE 210.
           05  ATTR-F-PARTS        PICTURE X(8) VALUE "PARTS".
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  ATTR-F-COLOR        PICTURE X(8) VALUE "COLOR".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  SUPPLIERS-CAT. 
           05  FILLER              PICTURE 99   VALUE 35. 
           05  FILLER              PICTURE 999  VALUE 230.
           05  SUPLY-SNAME         PICTURE X(8) VALUE "SNAME".
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SUPLY-NO            PICTURE X(8) VALUE "SUPNO".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X(8) VALUE "QREORDER". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 44. 
           05  FILLER              PICTURE 999  VALUE 5.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SUPLY-REORDER-UNIT  PICTURE X(8) VALUE "UREORDER". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 49. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SUPLY-ONHAND-QTY    PICTURE X(8) VALUE "QONHAND".
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 50. 
           05  FILLER              PICTURE 999  VALUE 5.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SUPLY-ONHAND-UNIT   PICTURE X(8) VALUE "UONHAND".
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 55. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SUPLY-EOQ-QTY       PICTURE X(8) VALUE "QEOQ". 
           05  FILLER              PICTURE XX   VALUE "35". 
           05  FILLER              PICTURE 999  VALUE 56. 
           05  FILLER              PICTURE 999  VALUE 5.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SUPLY-EOQ-UNIT      PICTURE X(8) VALUE "UEOQ". 
           05  FILLER              PICTURE XX   VALUE "40". 
           05  FILLER              PICTURE 999  VALUE 61. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SUPLY-MIN-ORDER-QTY PICTURE X(8) VALUE "QMINORD".
           05  FILLER              PICTURE XX   VALUE "45". 
           05  FILLER              PICTURE 999  VALUE 62. 
           05  FILLER              PICTURE 999  VALUE 05. 
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SUPLY-MIN-ORD-UNIT  PICTURE X(8) VALUE "UMINORD".
           05  FILLER              PICTURE XX   VALUE "50". 
           05  FILLER              PICTURE 999  VALUE 67. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SUPLY-LEAD-TIME     PICTURE X(8) VALUE "STIME".
           05  FILLER              PICTURE XX   VALUE "55". 
           05  FILLER              PICTURE 999  VALUE 68. 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SUPLY-LEAD-UNIT     PICTURE X(8) VALUE "SUNIT".
           05  FILLER              PICTURE XX   VALUE "60". 
           05  FILLER              PICTURE 999  VALUE 71. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  FLOW-CAT.
           05  FILLER              PICTURE 99   VALUE 35. 
           05  FILLER              PICTURE 999  VALUE 240.
           05  FLOW-CODE           PICTURE X(8) VALUE "FLOWCODE". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-DEPT           PICTURE X(8) VALUE "FDEPT".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-PERSON         PICTURE X(8) VALUE "FPERSON".
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 35. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-PHONE          PICTURE X(8) VALUE "FPHONE". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 67. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-PARTS          PICTURE X(8) VALUE "FPARTS". 
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 77. 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-SUBMIT-DAY     PICTURE X(8) VALUE "FSUBDAY".
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 79. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  REL-F-CAT. 
           05  FILLER              PICTURE 99   VALUE 35. 
           05  FILLER              PICTURE 999  VALUE 800.
           05  REL-F-CNAME         PICTURE X(8) VALUE "CATNAME".
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-F-PUSE          PICTURE X(8) VALUE "PARTIAL".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
      ***************************************************************** 
      *        REPORT 
      ***************************************************************** 
       01  RESP-R-CAT.
           05  FILLER              PICTURE 99   VALUE 40. 
           05  FILLER              PICTURE 999  VALUE 140.
           05  RESP-R-STATUS       PICTURE X(8) VALUE "STATUS". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-R-FUNC         PICTURE X(8) VALUE "FUNCTION". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-R-DEPT         PICTURE X(8) VALUE "DEPT". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-R-PERSON       PICTURE X(8) VALUE "PERSON". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 36. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-R-PHONE        PICTURE X(8) VALUE "PHONE".
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 68. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-R-TITLE        PICTURE X(8) VALUE "TITLE".
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 78. 
           05  FILLER              PICTURE 999  VALUE 15. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-R-MAIL         PICTURE X(8) VALUE "MAIL". 
           05  FILLER              PICTURE XX   VALUE "35". 
           05  FILLER              PICTURE 999  VALUE 93. 
           05  FILLER              PICTURE 999  VALUE 5.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-R-DATE         PICTURE X(8) VALUE "DATE". 
           05  FILLER              PICTURE XX   VALUE "40". 
           05  FILLER              PICTURE 999  VALUE 98. 
           05  FILLER              PICTURE 999  VALUE 6.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  NAME-R-CAT.
           05  FILLER              PICTURE 99   VALUE 40. 
           05  FILLER              PICTURE 999  VALUE 200.
           05  NAME-R-REPORT       PICTURE X(8) VALUE "NAME". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  NAME-R-REPORT-NO    PICTURE X(8) VALUE "NUMBER". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  NAME-R-FORM         PICTURE X(8) VALUE "FORMNAME". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 44. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  ATTR-R-CAT.
           05  FILLER              PICTURE 99   VALUE 40. 
           05  FILLER              PICTURE 999  VALUE 210.
           05  ATTR-R-MEDIUM       PICTURE X(8) VALUE "MEDIUM". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  ATTR-R-PARTS        PICTURE X(8) VALUE "PARTS".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  FLOW-R-CAT.
           05  FILLER              PICTURE 99   VALUE 40. 
           05  FILLER              PICTURE 999  VALUE 240.
           05  FLOW-R-FDEPT        PICTURE X(8) VALUE "FDEPT".
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-R-FPERSON      PICTURE X(8) VALUE "FPERSON".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-R-FPHONE       PICTURE X(8) VALUE "FPHONE". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 66. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-R-FCOPIES      PICTURE X(8) VALUE "FCOPIES".
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 76. 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-R-F1MODE       PICTURE X(8) VALUE "F1MODE". 
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 78. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-R-F2MODE       PICTURE X(8) VALUE "F2MODE". 
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 79. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-R-F3MODE       PICTURE X(8) VALUE "F3MODE". 
           05  FILLER              PICTURE XX   VALUE "35". 
           05  FILLER              PICTURE 999  VALUE 80. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-R-F4MODE       PICTURE X(8) VALUE "F4MODE". 
           05  FILLER              PICTURE XX   VALUE "40". 
           05  FILLER              PICTURE 999  VALUE 81. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-R-F5MODE       PICTURE X(8) VALUE "F5MODE". 
           05  FILLER              PICTURE XX   VALUE "45". 
           05  FILLER              PICTURE 999  VALUE 82. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-R-FDIST-DA     PICTURE X(8) VALUE "FDISTDAY". 
           05  FILLER              PICTURE XX   VALUE "50". 
           05  FILLER              PICTURE 999  VALUE 83. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-R-RETAIN-TIME  PICTURE X(8) VALUE "FTRETAIN". 
           05  FILLER              PICTURE XX   VALUE "55". 
           05  FILLER              PICTURE 999  VALUE 93. 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FLOW-R-RETAIN-UNIT  PICTURE X(8) VALUE "FURETAIN". 
           05  FILLER              PICTURE XX   VALUE "60". 
           05  FILLER              PICTURE 999  VALUE 96. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  REL-R-CAT. 
           05  FILLER              PICTURE 99   VALUE 40. 
           05  FILLER              PICTURE 999  VALUE 800.
           05  REL-R-CNAME         PICTURE X(8) VALUE "CATNAME".
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-R-PUSE          PICTURE X(8) VALUE "PARTIAL".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-R-TYPE1         PICTURE X(8) VALUE "LTYPE".
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 35. 
           05  FILLER              PICTURE 999  VALUE 8.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-R-PICTURE       PICTURE X(8) VALUE "PICTURE".
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 43. 
           05  FILLER              PICTURE 999  VALUE 25. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-R-START         PICTURE X(8) VALUE "START".
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 68. 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-R-END           PICTURE X(8) VALUE "END".
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 71. 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
      ***************************************************************** 
      *       EXTERNAL
      ***************************************************************** 
       01  RESP-XRES-CAT. 
           05  FILLER              PICTURE 99   VALUE 45. 
           05  FILLER              PICTURE 999  VALUE 140.
           05  RESP-XRES-STATUS    PICTURE X(8) VALUE "STATUS". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-XRES-FUNC      PICTURE X(8) VALUE "FUNCTION". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-XRES-DEPT      PICTURE X(8) VALUE "DEPT". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-XRES-PERSON    PICTURE X(8) VALUE "PERSON". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 36. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-XRES-PHONE     PICTURE X(8) VALUE "PHONE".
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 68. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-XRES-TITLE     PICTURE X(8) VALUE "TITLE".
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 78. 
           05  FILLER              PICTURE 999  VALUE 15. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-XRES-MAIL      PICTURE X(8) VALUE "MAIL". 
           05  FILLER              PICTURE XX   VALUE "35". 
           05  FILLER              PICTURE 999  VALUE 93. 
           05  FILLER              PICTURE 999  VALUE 5.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-XRES-DATE      PICTURE X(8) VALUE "DATE". 
           05  FILLER              PICTURE XX   VALUE "40". 
           05  FILLER              PICTURE 999  VALUE 98. 
           05  FILLER              PICTURE 999  VALUE 6.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  NAME-XRES-CAT. 
           05  FILLER              PICTURE 99   VALUE 45. 
           05  FILLER              PICTURE 999  VALUE 200.
           05  NAME-XRES-NAME      PICTURE X(8) VALUE "NAME". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  NAME-XRES-ID        PICTURE X(8) VALUE "ID". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  LOC-CAT. 
           05  FILLER              PICTURE 99   VALUE 45. 
           05  FILLER              PICTURE 999  VALUE 250.
           05  LOC-TYPE            PICTURE X(8) VALUE "TYPRES". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  LOC-RES             PICTURE X(8) VALUE "LOCRES". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE 999  VALUE 66. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  REL-XRES-CAT.
           05  FILLER              PICTURE 99   VALUE 45. 
           05  FILLER              PICTURE 999  VALUE 800.
           05  REL-XRES-CNAME      PICTURE X(8) VALUE "CATNAME".
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-XRES-PUSE       PICTURE X(8) VALUE "PARTIAL".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
      ***************************************************************** 
      *        MODULE 
      ***************************************************************** 
       01  RESP-PRG-CAT.
           05  FILLER              PICTURE 99   VALUE 50. 
           05  FILLER              PICTURE 999  VALUE 140.
           05  RESP-PRG-STATUS     PICTURE X(8) VALUE "STATUS". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-PRG-FUNC       PICTURE X(8) VALUE "FUNCTION". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-PRG-DEPT       PICTURE X(8) VALUE "DEPT". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-PRG-PERSON     PICTURE X(8) VALUE "PERSON". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 36. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-PRG-PHONE      PICTURE X(8) VALUE "PHONE".
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 68. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-PRG-TITLE      PICTURE X(8) VALUE "TITLE".
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 78. 
           05  FILLER              PICTURE 999  VALUE 15. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-PRG-MAIL       PICTURE X(8) VALUE "MAIL". 
           05  FILLER              PICTURE XX   VALUE "35". 
           05  FILLER              PICTURE 999  VALUE 93. 
           05  FILLER              PICTURE 999  VALUE 5.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-PRG-DATE       PICTURE X(8) VALUE "DATE". 
           05  FILLER              PICTURE XX   VALUE "40". 
           05  FILLER              PICTURE 999  VALUE 98. 
           05  FILLER              PICTURE 999  VALUE 6.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  NAME-PRG-CAT.
           05  FILLER              PICTURE 99   VALUE 50. 
           05  FILLER              PICTURE 999  VALUE 200.
           05  NAME-PRG-NAME       PICTURE X(8) VALUE "NAME". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  NAME-PRG-MODID      PICTURE X(8) VALUE "MODID".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  ATTR-PRG-CAT.
           05  FILLER              PICTURE 99   VALUE 50. 
           05  FILLER              PICTURE 999  VALUE 210.
           05  ATTR-PRG-LANG       PICTURE X(8) VALUE "LANGPRG".
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  ATTR-PRG-TYPE       PICTURE X(8) VALUE "TYPEPRG".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  ATTR-PRG-OVLY       PICTURE X(8) VALUE "OVLYPRG".
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  ATTR-PRG-SEG        PICTURE X(8) VALUE "SEGMENTD". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 5.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  ATTR-PRG-CALLTYPE   PICTURE X(8) VALUE "CALLTYPE". 
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 6.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  STORE-CAT. 
           05  FILLER              PICTURE 99   VALUE 50. 
           05  FILLER              PICTURE 999  VALUE 260.
           05  STORE-TYPE          PICTURE X(8) VALUE "STYPE".
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  STORE-PLACE         PICTURE X(8) VALUE "PLACE".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE 999  VALUE 20. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  STORE-MODE          PICTURE X(8) VALUE "MEDIUM". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 23. 
           05  FILLER              PICTURE 999  VALUE 20. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  STORE-SIZE          PICTURE X(8) VALUE "SIZE". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 43. 
           05  FILLER              PICTURE 999  VALUE 7.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  STORE-SIZE-UNIT     PICTURE X(8) VALUE "UNITSIZE". 
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 50. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  RES-CAT. 
           05  FILLER              PICTURE 99   VALUE 50. 
           05  FILLER              PICTURE 999  VALUE 270.
           05  RES-STEP-NAME       PICTURE X(8) VALUE "STEPNAME". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 44. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RES-REGION          PICTURE X(8) VALUE "REGION". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 46. 
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RES-ELAPSED-TIME    PICTURE X(8) VALUE "TELAPSED". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 50. 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RES-ELAPSED-UNIT    PICTURE X(8) VALUE "UELAPSED". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 53. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RES-CPU-TIME        PICTURE X(8) VALUE "TIMECPU".
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 54. 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RES-CPU-UNIT        PICTURE X(8) VALUE "UNITCPU".
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 57. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RES-PROCEDURE       PICTURE X(8) VALUE "NAMEPROC". 
           05  FILLER              PICTURE XX   VALUE "35". 
           05  FILLER              PICTURE 999  VALUE 58. 
           05  FILLER              PICTURE 999  VALUE 8.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RES-PROC-SEQ        PICTURE X(8) VALUE "SEQPROC".
           05  FILLER              PICTURE XX   VALUE "40". 
           05  FILLER              PICTURE 999  VALUE 66. 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RES-LINES           PICTURE X(8) VALUE "LINES".
           05  FILLER              PICTURE XX   VALUE "45". 
           05  FILLER              PICTURE 999  VALUE 68. 
           05  FILLER              PICTURE 999  VALUE 7.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RES-PUNCH           PICTURE X(8) VALUE "PUNCH".
           05  FILLER              PICTURE XX   VALUE "50". 
           05  FILLER              PICTURE 999  VALUE 75. 
           05  FILLER              PICTURE 999  VALUE 7.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  SCHLD-CAT. 
           05  FILLER              PICTURE 99   VALUE 50. 
           05  FILLER              PICTURE 999  VALUE 280.
           05  SCHLD-NORM-BEGIN    PICTURE X(8) VALUE "NBEGIN". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SCHLD-NORM-END      PICTURE X(8) VALUE "NEND". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 6.
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SCHLD-NORM-DAY      PICTURE X(8) VALUE "NDAY". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SCHLD-DEAD-BEGIN    PICTURE X(8) VALUE "DBEGIN". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 20. 
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SCHLD-DEAD-END      PICTURE X(8) VALUE "DEND". 
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 24. 
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SCHLD-DEAD-DAY      PICTURE X(8) VALUE "DDAY". 
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 28. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SCHLD-CYCLE         PICTURE X(8) VALUE "SCYCLE". 
           05  FILLER              PICTURE XX   VALUE "35". 
           05  FILLER              PICTURE 999  VALUE 38. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SCHLD-PROCED-PROG   PICTURE X(8) VALUE "PRECPRG".
           05  FILLER              PICTURE XX   VALUE "40". 
           05  FILLER              PICTURE 999  VALUE 39. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  PASS-CAT.
           05  FILLER              PICTURE 99   VALUE 50. 
           05  FILLER              PICTURE 999  VALUE 290.
           05  PASS-CNAME          PICTURE X(8) VALUE "PASSING".
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  REL-CAT. 
           05  FILLER              PICTURE 99   VALUE 50. 
           05  FILLER              PICTURE 999  VALUE 800.
           05  REL-CNAME           PICTURE X(8) VALUE "CATNAME".
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-PUSE            PICTURE X(8) VALUE "PARTIAL".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-IOCODE          PICTURE X(8) VALUE "IOCODE". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 35. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-ACCESS          PICTURE X(8) VALUE "ACCESS". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 36. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-CYCLE           PICTURE X(8) VALUE "CYCLEPRG". 
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 37. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-FREQ            PICTURE X(8) VALUE "FREQPRG".
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 38. 
           05  FILLER              PICTURE 999  VALUE 5.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-DISP            PICTURE X(8) VALUE "DISP". 
           05  FILLER              PICTURE XX   VALUE "35". 
           05  FILLER              PICTURE 999  VALUE 43. 
           05  FILLER              PICTURE 999  VALUE 20. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
      ***************************************************************** 
      *        TASK 
      ***************************************************************** 
       01  RESP-TSK-CAT.
           05  FILLER              PICTURE 99   VALUE 55. 
           05  FILLER              PICTURE 999  VALUE 140.
           05  RESP-TSK-STATUS     PICTURE X(8) VALUE "STATUS". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-TSK-FUNC       PICTURE X(8) VALUE "FUNCTION". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-TSK-DEPT       PICTURE X(8) VALUE "DEPT". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-TSK-PERSON     PICTURE X(8) VALUE "PERSON". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 36. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-TSK-PHONE      PICTURE X(8) VALUE "PHONE".
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 68. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-TSK-TITLE      PICTURE X(8) VALUE "TITLE".
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 78. 
           05  FILLER              PICTURE 999  VALUE 15. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-TSK-MAIL       PICTURE X(8) VALUE "MAIL". 
           05  FILLER              PICTURE XX   VALUE "35". 
           05  FILLER              PICTURE 999  VALUE 93. 
           05  FILLER              PICTURE 999  VALUE 5.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-TSK-DATE       PICTURE X(8) VALUE "DATE". 
           05  FILLER              PICTURE XX   VALUE "40". 
           05  FILLER              PICTURE 999  VALUE 98. 
           05  FILLER              PICTURE 999  VALUE 6.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  NAME-TSK-CAT.
           05  FILLER              PICTURE 99   VALUE 55. 
           05  FILLER              PICTURE 999  VALUE 200.
           05  NAME-TSK-NAME       PICTURE X(8) VALUE "NAME". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  NAME-TSK-ID         PICTURE X(8) VALUE "ID". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  SCHLD-TSK-CAT. 
           05  FILLER              PICTURE 99   VALUE 55. 
           05  FILLER              PICTURE 999  VALUE 280.
           05  SCHLD-TSK-NOR-BEG   PICTURE X(8) VALUE "NBEGIN". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SCHLD-TSK-NOR-END   PICTURE X(8) VALUE "NEND". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 6.
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SCHLD-TSK-NOR-DAY   PICTURE X(8) VALUE "NDAY". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SCHLD-TSK-DEAD-BEG  PICTURE X(8) VALUE "DBEGIN". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 20. 
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SCHLD-TSK-DEAD-END  PICTURE X(8) VALUE "DEND". 
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 24. 
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SCHLD-TSK-DEAD-DAY  PICTURE X(8) VALUE "DDAY". 
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 28. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SCHLD-TSK-CYCLE     PICTURE X(8) VALUE "SCYCLE". 
           05  FILLER              PICTURE XX   VALUE "35". 
           05  FILLER              PICTURE 999  VALUE 38. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  SCHLD-TSK-PRO-PROG  PICTURE X(8) VALUE "PRECSTEP". 
           05  FILLER              PICTURE XX   VALUE "40". 
           05  FILLER              PICTURE 999  VALUE 39. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  REL-TSK-CAT. 
           05  FILLER              PICTURE 99   VALUE 55. 
           05  FILLER              PICTURE 999  VALUE 800.
           05  REL-TSK-CNAME       PICTURE X(8) VALUE "CATNAME".
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-TSK-PUSE        PICTURE X(8) VALUE "PARTIAL".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-TSK-IOCODE      PICTURE X(8) VALUE "IOCODE". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 35. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-TSK-CYCLE       PICTURE X(8) VALUE "CYCLE".
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 36. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
      ***************************************************************** 
      *        SYSTEM 
      ***************************************************************** 
       01  RESP-SYS-CAT.
           05  FILLER              PICTURE 99   VALUE 60. 
           05  FILLER              PICTURE 999  VALUE 140.
           05  RESP-SYS-STATUS     PICTURE X(8) VALUE "STATUS". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-SYS-FUNC       PICTURE X(8) VALUE "FUNCTION". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 3.
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-SYS-DEPT       PICTURE X(8) VALUE "DEPT". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 4.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-SYS-PERSON     PICTURE X(8) VALUE "PERSON". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 36. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-SYS-PHONE      PICTURE X(8) VALUE "PHONE".
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 68. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-SYS-TITLE      PICTURE X(8) VALUE "TITLE".
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 78. 
           05  FILLER              PICTURE 999  VALUE 15. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-SYS-MAIL       PICTURE X(8) VALUE "MAIL". 
           05  FILLER              PICTURE XX   VALUE "35". 
           05  FILLER              PICTURE 999  VALUE 93. 
           05  FILLER              PICTURE 999  VALUE 5.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  RESP-SYS-DATE       PICTURE X(8) VALUE "DATE". 
           05  FILLER              PICTURE XX   VALUE "40". 
           05  FILLER              PICTURE 999  VALUE 98. 
           05  FILLER              PICTURE 999  VALUE 6.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  NAME-SYS-CAT.
           05  FILLER              PICTURE 99   VALUE 60. 
           05  FILLER              PICTURE 999  VALUE 200.
           05  NAME-S-NAME         PICTURE X(8) VALUE "NAME". 
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  NAME-SYS-ID         PICTURE X(8) VALUE "ID". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  REL-SYS-CAT. 
           05  FILLER              PICTURE 99   VALUE 60. 
           05  FILLER              PICTURE 999  VALUE 800.
           05  REL-SYS-CNAME       PICTURE X(8) VALUE "CATNAME".
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-SYS-PUSE        PICTURE X(8) VALUE "PARTIAL".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-SYS-J           PICTURE X(8) VALUE "JID".
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 35. 
           05  FILLER              PICTURE 999  VALUE 8.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-SYS-NAMEJ       PICTURE X(8) VALUE "JNAME".
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 43. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
      ***************************************************************** 
      *       USERS 
      ***************************************************************** 
       01  PERSON-CAT.
           05  FILLER              PICTURE 99   VALUE 65. 
           05  FILLER              PICTURE 999  VALUE 700.
           05  PERSON-UNIT         PICTURE X(8) VALUE "SECTION".
           05  FILLER              PICTURE  XX  VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  PERSON-FUNCTION     PICTURE X(8) VALUE "FUNCTION". 
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  PERSON-PERSON       PICTURE X(8) VALUE "PERSON". 
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 35. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  PERSON-TITLE        PICTURE X(8) VALUE "TITLE".
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 67. 
           05  FILLER              PICTURE 999  VALUE 15. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  PERSON-PHONE        PICTURE X(8) VALUE "PHONE".
           05  FILLER              PICTURE XX   VALUE "25". 
           05  FILLER              PICTURE 999  VALUE 82. 
           05  FILLER              PICTURE 999  VALUE 10. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  PERSON-MAIL         PICTURE X(8) VALUE "MAIL". 
           05  FILLER              PICTURE XX   VALUE "30". 
           05  FILLER              PICTURE 999  VALUE 92. 
           05  FILLER              PICTURE 999  VALUE 5.
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
       01  REL-UNIT-CAT.
           05  FILLER              PICTURE 99   VALUE 65. 
           05  FILLER              PICTURE 999  VALUE 800.
           05  REL-UNIT-CNAME      PICTURE X(8) VALUE "CATNAME".
           05  FILLER              PICTURE XX   VALUE "05". 
           05  FILLER              PICTURE 999  VALUE 2.
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-UNIT-PUSE       PICTURE X(8) VALUE "PARTIAL".
           05  FILLER              PICTURE XX   VALUE "10". 
           05  FILLER              PICTURE 999  VALUE 34. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  REL-UNIT-RPERSON    PICTURE X(8) VALUE "RPERSON".
           05  FILLER              PICTURE XX   VALUE "15". 
           05  FILLER              PICTURE 999  VALUE 35. 
           05  FILLER              PICTURE 999  VALUE 32. 
           05  FILLER              PICTURE X    VALUE "X".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
           05  PERSON-UPDATE       PICTURE X(8) VALUE "UPDATE". 
           05  FILLER              PICTURE XX   VALUE "20". 
           05  FILLER              PICTURE 999  VALUE 67. 
           05  FILLER              PICTURE 999  VALUE 1.
           05  FILLER              PICTURE X    VALUE "C".
           05  FILLER              PICTURE X    VALUE "N".
           05  FILLER              PICTURE X    VALUE "N".
      ***************************************************************** 
      *       END OF CATEGORY DESCRIPTION TABLE (CTL-RECORD-5)
      ***************************************************************** 
  
  
  
  
04639 ******************************************************************   CL**2
04640 *                                                                *   CL**2
04641 *  PROGRAM WORK AREAS                                            *   CL**2
04642 *                                                                *   CL**2
04643 ******************************************************************   CL**2
04644  01  WORK-AREA.                                                      CL**2
04645      05  TYPE-CON.                                                   CL**2
04646          10  PROG-ID           PICTURE X(6) VALUE "DCUTL-".          CL**2
04647          10  NAME-TYPE      PICTURE X(3) VALUE "NAM".                CL**2
04648          10  ADDRESS-TYPE   PICTURE X(3) VALUE "ADD".                CL**2
               10 HMB   PICTURE XXX   VALUE "HMB".
04651      05  FUNCTION-OPERAND.                                           CL**2
04652          10  TX-POS         PICTURE X OCCURS 72 TIMES.               CL**2
04653      05  FUNCTION-OPT.                                               CL**2
04654          10  OPT-AREA         PICTURE X OCCURS 27 TIMES.             CL**2
04655      05  OPT-FUNCTION REDEFINES FUNCTION-OPT.                        CL**2
04656          10  FUNCTION-OPT-3         PICTURE XXX.                     CL**2
04657          10  FILLER                 PICTURE X(24).                   CL**2
04658      05  NUM-WORK-AREA.                                              CL**2
04659          10  DIGIT-1              PICTURE X.                         CL**2
04660          10  DIGIT-2              PICTURE X.                         CL**2
04661          10  DIGIT-3              PICTURE X.                         CL**2
04662          10  DIGIT-4              PICTURE X.                         CL**2
04663          10  DIGIT-5              PICTURE X.                         CL**2
04664      05  H-NUM-1 REDEFINES NUM-WORK-AREA.                            CL**2
04665          10  NUM-LEN-1     PICTURE 9.                                CL**2
04666          10  FILLER              PICTURE X(4).                       CL**2
04667      05  H-NUM-2 REDEFINES NUM-WORK-AREA.                            CL**2
04668          10  NUM-LEN-2           PICTURE 99.                         CL**2
04669          10  FILLER              PICTURE XXX.                        CL**2
04670      05  H-NUM-3 REDEFINES NUM-WORK-AREA.                            CL**2
04671          10  NUM-LEN-3           PICTURE 999.                        CL**2
04672          10  FILLER              PICTURE XX.                         CL**2
04673      05  H-NUM-4 REDEFINES NUM-WORK-AREA.                            CL**2
04674          10  NUM-LEN-4           PICTURE 9999.                       CL**2
04675          10  FILLER              PICTURE X.                          CL**2
04676      05  NUM-HOLD                 PICTURE 9(5).                      CL**2
04677      05  MSG-LINES.                                                  CL**2
04678          10  NAME-MSG          PICTURE X(50) VALUE                   CL**2
04679              "900-F *ERROR NAME TRANSACTION NOT SPECIFIED".          CL**2
04680          10  ADDRESS-MSG          PICTURE X(50) VALUE                CL**2
04681              "905-F *ERROR ADDRESS TRANSACTION NOT SPECIFIED".       CL**2
               10 HMB-MSG   PICTURE X(50)   VALUE 
           " 915-F *ERROR  HMB MUST BE NUMERIC".
04688          10  BAD-OPER-MSG           PICTURE X(50) VALUE              CL**2
04689              "925-F *ERROR OPERAND INCOMPLETE".                      CL**2
04690          10  MAST1-MSG           PICTURE X(50) VALUE                 CL**2
04691              "980-F *ERROR MAST1 INSUFFICIENT SPACE".                CL**2
04692          10  MAST2-MSG           PICTURE X(50) VALUE                 CL**2
04693              "985-F *ERROR MAST2 INSUFFICIENT SPACE".                CL**2
04694          10  MAST3-MSG           PICTURE X(50) VALUE                 CL**2
04695              "990-F *ERROR MAST3 INSUFFICIENT SPACE".                CL**2
04696          10  INIT-MSG1           PICTURE X(50) VALUE                 CL**2
04697              "DATA CATALOGUE FILES HAVE BEEN INITIATED".             CL**2
04698          10  INIT-MSG2.                                              CL**2
04699          15  FILLER           PICTURE X(14) VALUE "INSTALLATION:".   CL**2
04700          15  BEGIN-NAME       PICTURE X(27).                         CL**2
04701          10  INIT-MSG3.                                              CL**2
04702              15  FILLER           PICTURE X(9) VALUE "ADDRESS:".     CL**2
04703              15  BEGIN-ADDRESS    PICTURE X(27).                     CL**2
04704          10  INIT-MSG4.                                              CL**2
04705              15  FILLER           PICTURE X(6) VALUE "DATE:".        CL**2
04706              15  BEGIN-DATE       PICTURE X(8).                      CL**2
04707          10  INIT-MSG5.                                              CL**2
                   15 FILLER   PICTURE X(13)  VALUE "HOME BLOCK = ".
                   15 BEGIN-HMB   PICTURE ZZZZ9.
*CALL     WRKSTG01                                                         CL**2
*CALL     MAST1WS                                                          CL**2
04742                                                                    UTL100T
04768  PROCEDURE DIVISION.                                                 CL**2
       OLD-ENTRY. 
04772      OPEN OUTPUT MAST3.                                              CL**2
04773      OPEN OUTPUT SYSPRINT.                                           CL**2
04774      MOVE SPACE TO CTL-RECORD-1.                                     CL**2
04775      MOVE SPACE TO PRINT-LINE.                                       CL**2
           ACCEPT WK-DATE FROM DATE.
           MOVE Y TO YX.
           MOVE M TO MX.
           MOVE D TO DX.
           MOVE WK-DATEX TO CURRENT-DATE. 
04776 ******************************************************************   CL**2
04777 *       GET NAME                                                     CL**2
04778 ******************************************************************   CL**2
04779      MOVE INIT-REC1 TO STD-REPORT-REC.                               CL**2
04780      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
04781      MOVE 1 TO TX-SUB.                                               CL**2
04782      MOVE INIT-REC1 TO FUNCTION-OPERAND.                             CL**2
04783      MOVE SPACE TO TEST-CHAR.                                        CL**2
04784      PERFORM FIND-CHAR THRU FIND-CHAR-XIT.                           CL**2
04785      IF FUNCTION-OPT-3 NOT EQUAL NAME-TYPE                           CL**2
04786          GO TO 1000-EDIT.                                            CL**2
04787      IF REC1-OPER EQUAL SPACE                                        CL**2
04788          GO TO 1000-EDIT.                                            CL**2
04789      PERFORM FIND-BLANK THRU FIND-BLANK-XIT.                         CL**2
04790      MOVE 28 TO OPT-SUB-LIMIT.                                       CL**2
04791      PERFORM FIND-OPT THRU FIND-OPT-XIT.                             CL**2
04792      MOVE FUNCTION-OPT TO CTL-NAME.                                  CL**2
04793 ******************************************************************   CL**2
04794 *       GET ADDRESS                                                  CL**2
04795 ******************************************************************   CL**2
04796  0100-EDIT.                                                          CL**2
04797      MOVE INIT-REC2 TO STD-REPORT-REC.                               CL**2
04798      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
04799      MOVE 1 TO TX-SUB.                                               CL**2
04800      MOVE INIT-REC2 TO FUNCTION-OPERAND.                             CL**2
04801      MOVE SPACE TO TEST-CHAR.                                        CL**2
04802      PERFORM FIND-CHAR THRU FIND-CHAR-XIT.                           CL**2
04803      IF FUNCTION-OPT-3 NOT EQUAL ADDRESS-TYPE                        CL**2
04804          GO TO 1100-EDIT.                                            CL**2
04805      IF REC2-OPER EQUAL SPACE                                        CL**2
04806          GO TO 1100-EDIT.                                            CL**2
04807      PERFORM FIND-BLANK THRU FIND-BLANK-XIT.                         CL**2
04808      MOVE 28 TO OPT-SUB-LIMIT.                                       CL**2
04809      PERFORM FIND-OPT THRU FIND-OPT-XIT.                             CL**2
04810      MOVE FUNCTION-OPT TO CTL-ADDRESS.                               CL**2
04811 ******************************************************************   CL**2
      *        GET   HOME - BLOCKS
04813 ******************************************************************   CL**2
04814  0200-EDIT.                                                          CL**2
04815      MOVE INIT-REC3 TO STD-REPORT-REC.                               CL**2
04816      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
04817      MOVE 1 TO TX-SUB.                                               CL**2
04818      MOVE INIT-REC3 TO FUNCTION-OPERAND.                             CL**2
04819      MOVE EQUAL-CHAR TO TEST-CHAR.                                   CL**2
04820      PERFORM FIND-CHAR THRU FIND-CHAR-XIT.                           CL**2
           IF FUNCTION-OPT-3 NOT = HMB
04822          GO TO 1200-EDIT.                                            CL**2
04823      IF REC3-OPER EQUAL SPACE                                        CL**2
04824          GO TO 1200-EDIT.                                            CL**2
04825      PERFORM FIND-BLANK THRU FIND-BLANK-XIT.                         CL**2
04855      MOVE SPACE TO TEST-CHAR.                                        CL**2
04856      PERFORM FIND-CHAR THRU FIND-CHAR-XIT.                           CL**2
04857      PERFORM MOVE-NUM THRU MOVE-NUM-XIT.                             CL**2
           MOVE NUM-HOLD TO CTL-HMB.
04860 ******************************************************************   CL**2
04861 *                                                                    CL**2
04862 *         VALIDATE MAX ENTRIES                                       CL**2
04863 *                                                                    CL**2
04864 ******************************************************************   CL**2
04865  0800-EDIT.                                                          CL**2
           IF CTL-HMB NOT NUMERIC 
           MOVE HMB-MSG TO ERROR-POS2 
04868          PERFORM PRINT-ERROR THRU PRINT-ERROR-XIT.                   CL**2
04927      IF RETURN-CODE NOT EQUAL ZERO                                   CL**2
04928          GO TO EOJ.                                                  CL**2
04929      GO TO OPEN-MAST1.                                               CL**2
04930  1000-EDIT.                                                          CL**2
04931      MOVE NAME-MSG TO ERROR-POS2.                                    CL**2
04932      PERFORM PRINT-ERROR THRU PRINT-ERROR-XIT.                       CL**2
04933      GO TO 0100-EDIT.                                                CL**2
04934  1100-EDIT.                                                          CL**2
04935      MOVE ADDRESS-MSG TO ERROR-POS2.                                 CL**2
04936      PERFORM PRINT-ERROR THRU PRINT-ERROR-XIT.                       CL**2
04937      GO TO 0200-EDIT.                                                CL**2
04938  1200-EDIT.                                                          CL**2
04939      MOVE BAD-OPER-MSG TO ERROR-POS2.                                CL**2
04940      PERFORM PRINT-ERROR THRU PRINT-ERROR-XIT.                       CL**2
04941      GO TO EOJ.                                                      CL**2
04943  OPEN-MAST1.                                                         CL**2
04946 ******************************************************************   CL**2
04948 *                                                                *   CL**2
04949 *        INITIALIZE DATA FILE - MAST1                            *   CL**2
04950 *                                                                *   CL**2
04952 ******************************************************************   CL**2
04953      OPEN OUTPUT MAST1.                                              CL**2
04954      MOVE SPACE TO DATA-RECORD.                                      CL**2
04955      MOVE ALL-NAMES-LITERAL TO DATA-ENTRY-NAME.                      CL**2
04956      MOVE ZERO TO DATA-NEXT-REC.                                     CL**2
04957      PERFORM DATAALG THRU DATAALG-XIT.                               CL**2
04958      WRITE DATA-RECORD                                               CL**2
04959          INVALID KEY GO TO DATA-REC-ERR.                             CL**2
04960      CLOSE MAST1.                                                    CL**2
04962 ******************************************************************   CL**2
04964 *                                                                *   CL**2
04965 *        INTIALIZE REFERENCE FILE - MAST2                        *   CL**2
04966 *                                                                *   CL**2
04968 ******************************************************************   CL**2
04969      OPEN OUTPUT MAST2.                                              CL**2
04970      MOVE SPACE TO REL-RECORD.                                       CL**2
04971      MOVE ALL-NAMES-LITERAL TO REL-ENTRY-NAME.                       CL**2
04972      MOVE ZERO TO REL-NEXT-REC.                                      CL**2
04973      MOVE ZERO TO REL-HDR-CONT.                                      CL**2
04974      PERFORM RELALG THRU RELALG-XIT.                                 CL**2
04975      WRITE REL-RECORD                                                CL**2
04976          INVALID KEY GO TO REL-REC-ERR.                              CL**2
04977      CLOSE MAST2.                                                    CL**2
04979 ******************************************************************   CL**2
04980 *                                                                *   CL**2
04981 *        CREATE CONTROL FILE  -   MAST3                              CL**2
04982 *                                                                *   CL**2
04984 ******************************************************************   CL**2
04985      MOVE CURRENT-DATE TO CTL-DATE-UPD CTL-DATE-RES.                 CL**2
04986      MOVE ZERO TO CTL-REV-NUM.                                       CL**2
04987      MOVE ZERO TO CTL-NUM-RES CTL-SYN-NUM CTL-CUR-ENT.               CL**2
04988      MOVE ZERO TO CTL-NUM-DEL CTL-NUM-INS CTL-NUM-UPD.               CL**2
04989      MOVE SPACE TO CTL-EOP-MSG.                                      CL**2
04990      MOVE 59 TO CTL-LINES.                                           CL**2
04991      MOVE 15 TO CTL-REL-LIMIT.                                       CL**2
04992      MOVE 01 TO CTL-DC-RELEASE.                                      CL**2
           MOVE 1 TO CON-KEY. 
           MOVE 1197 TO CTL-DATA-REC-SIZE.
04995      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
      *         PASSWORD RECORD CURRENTLY NOT USED
           MOVE SPACES TO CTL-RECORD-2. 
04996      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
04997      MOVE ENTRY-TYPES TO CTL-RECORD-3.                               CL**2
04998      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
04999      MOVE CATEGORY-TYPES TO CTL-RECORD-4.                            CL**2
05000       PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                  CL**2
05001      MOVE CTL-CAT TO CTL-RECORD-5.                                   CL**2
05002      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05003      MOVE KEY-CAT TO CTL-RECORD-5.                                   CL**2
05004      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05005      MOVE DESC-CAT TO CTL-RECORD-5.                                  CL**2
05006      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05007      MOVE OTHER-CAT TO CTL-RECORD-5.                                 CL**2
05008      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
      *       DBPROC ENTITY 
           MOVE RESP-DBP-CAT TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE NAME-DBP-CAT TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE ATT-DBP-CAT TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
05009      MOVE ORG-CAT TO CTL-RECORD-5.                                   CL**2
05010      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05011      MOVE VAL-CAT TO CTL-RECORD-5.                                   CL**2
05012      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
           MOVE VAL-CKVAL TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
05017      MOVE NAME-CAT TO CTL-RECORD-5.                                  CL**2
05018      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05019      MOVE ATTR-CAT TO CTL-RECORD-5.                                  CL**2
05020      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05021      MOVE ALY-CAT TO CTL-RECORD-5.                                   CL**2
05022      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
           MOVE PROCESS-CAT TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
05023      MOVE NAME-GRP-CAT TO CTL-RECORD-5.                              CL**2
05024      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05025      MOVE ATTR-GRP-CAT TO CTL-RECORD-5.                              CL**2
05026      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05027      MOVE STC-GRP-CAT TO CTL-RECORD-5.                               CL**2
05028      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
           MOVE STC-GRP-OCCURS TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-GRP-DEP-QUAL TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-GRP-INDX-CAT TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-GRP-DMS-KEYS TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-GRP-RENAMES TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-GRP-RENAMES-2 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-GRP-THRU TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-GRP-THRU-2 TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
05029      MOVE NAME-SR-CAT TO CTL-RECORD-5.                               CL**2
05030      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05031      MOVE ATTR-SR-CAT TO CTL-RECORD-5.                               CL**2
05032      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
           MOVE ALY-SR-CAT TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
05033      MOVE STC-SR1-CAT TO CTL-RECORD-5.                               CL**2
05034      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
           MOVE STC-SR-OCCURS TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-SR-DEP-QUAL TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-SR-INDX-CAT TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-SR-DMS-KEYS TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-SR-RENAMES TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-SR-RENAMES-2 TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-SR-THRU TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-SR-THRU-2 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
05035      MOVE STC-SR2-CAT TO CTL-RECORD-5.                               CL**2
05036      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05037      MOVE STC-SR3-CAT TO CTL-RECORD-5.                               CL**2
05038      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
           MOVE PROCESS-SR-CAT TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
05041      MOVE RESP-DS-CAT TO CTL-RECORD-5.                               CL**2
05042      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05043      MOVE NAME-DS-CAT TO CTL-RECORD-5.                               CL**2
05044      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05045      MOVE ATTR-DS-CAT TO CTL-RECORD-5.                               CL**2
05046      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05047      MOVE UNIT-DS-CAT TO CTL-RECORD-5.                               CL**2
05048      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05049      MOVE ENV-TOT-CAT TO CTL-RECORD-5.                               CL**2
05050      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05051      MOVE STC-DS-CAT TO CTL-RECORD-5.                                CL**2
05052      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05053      MOVE RESP-FILE-CAT TO CTL-RECORD-5.                             CL**2
05054      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05055      MOVE NAME-FILE-CAT TO CTL-RECORD-5.                             CL**2
05056      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05057      MOVE ATTR-FILE-CAT TO CTL-RECORD-5.                             CL**2
05058      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05059      MOVE UNIT-CAT TO CTL-RECORD-5.                                  CL**2
05060      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05061      MOVE STC-FILE-CAT TO CTL-RECORD-5.                              CL**2
05062      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
           MOVE MDINFO-CAT TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
      *       AREA ENTITY 
           MOVE RESP-AREA-CAT TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE NAME-AREA-CAT TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE ATTR-AREA-CAT TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE ALY-A-CAT TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-A-CAT TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE PROCESS-AREA-CAT-LINE1 TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE PROCESS-AREA-CAT-LINE2  TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE ATTR-AREA-ACCESS-LINE1 TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE ATTR-AREA-ACCESS-LINE2 TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE ATTR-AREA-MDINFO TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE ATTR-AREA-KEYS-LINE1 TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE ATTR-AREA-KEYS-LINE2 TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE ATTR-AREA-KEYS-LINE3 TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
      *      SUBSCHEMA ENTITY 
           MOVE RESP-SS-CAT TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE NAME-SS-CAT TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-SS-CAT TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SS-MDINFO-CAT TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SSREL-CAT-LINE1 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SSREL-CAT-LINE2 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SSREL-CAT-LINE3 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SSREL-CAT-LINE4 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SSREL-CAT-LINE5 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SSREL-CAT-LINE6 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
      *      SCHEMA 
           MOVE RESP-SCH-CAT TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE NAME-SCH-CAT TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE STC-SCH-CAT TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SC-MDINFO-CAT-LINE1 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SC-MDINFO-CAT-LINE2 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SC-MDINFO-CAT-LINE3 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SC-MDINFO-CAT-LINE4 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SC-MDINFO-CAT-LINE5 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SC-MDINFO-CAT-LINE6 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SC-JOBCONTROL-CAT TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SC-CONSTRAINT-LINE1 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SC-CONSTRAINT-LINE2 TO CTL-RECORD-5.
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SC-JOINS-LINEA TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SC-JOINS-LINEB TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
           MOVE SC-JOINS-LINEC TO CTL-RECORD-5. 
           PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.
05063      MOVE RESP-TOT-CAT TO CTL-RECORD-5.                              CL**2
05064      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05065      MOVE NAME-TOT-CAT TO CTL-RECORD-5.                              CL**2
05066      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05067      MOVE TOT-IOAREA-CAT TO CTL-RECORD-5.                            CL**2
05068      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05069      MOVE TOT-STR-CAT TO CTL-RECORD-5.                               CL**2
05070      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05071      MOVE RESP-F-CAT TO CTL-RECORD-5.                                CL**2
05072      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05073      MOVE NAME-F-CAT TO CTL-RECORD-5.                                CL**2
05074      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05075      MOVE ATTR-F-CAT TO CTL-RECORD-5.                                CL**2
05076      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
           MOVE SUPPLIERS-CAT TO CTL-RECORD-5.
05078      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05079      MOVE FLOW-CAT TO CTL-RECORD-5.                                  CL**2
05080      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05081      MOVE REL-F-CAT TO CTL-RECORD-5.                                 CL**2
05082      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05083      MOVE RESP-R-CAT TO CTL-RECORD-5.                                CL**2
05084      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05085      MOVE NAME-R-CAT TO CTL-RECORD-5.                                CL**2
05086      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05087      MOVE ATTR-R-CAT TO CTL-RECORD-5.                                CL**2
05088      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05089      MOVE FLOW-R-CAT TO CTL-RECORD-5.                                CL**2
05090      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05091      MOVE REL-R-CAT TO CTL-RECORD-5.                                 CL**2
05092      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05093      MOVE RESP-XRES-CAT TO CTL-RECORD-5.                             CL**2
05094      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05095      MOVE NAME-XRES-CAT TO CTL-RECORD-5.                             CL**2
05096      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05097      MOVE LOC-CAT TO CTL-RECORD-5.                                   CL**2
05098      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05099      MOVE REL-XRES-CAT TO CTL-RECORD-5.                              CL**2
05100      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05101      MOVE RESP-PRG-CAT TO CTL-RECORD-5.                              CL**2
05102      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05103      MOVE NAME-PRG-CAT TO CTL-RECORD-5.                              CL**2
05104      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05105      MOVE ATTR-PRG-CAT TO CTL-RECORD-5.                              CL**2
05106      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05107      MOVE STORE-CAT TO CTL-RECORD-5.                                 CL**2
05108      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05109      MOVE RES-CAT TO CTL-RECORD-5.                                   CL**2
05110      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05111      MOVE SCHLD-CAT TO CTL-RECORD-5.                                 CL**2
05112      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05113      MOVE PASS-CAT TO CTL-RECORD-5.                                  CL**2
05114      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05115      MOVE REL-CAT TO CTL-RECORD-5.                                   CL**2
05116      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05117      MOVE RESP-TSK-CAT TO CTL-RECORD-5.                              CL**2
05118      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05119      MOVE NAME-TSK-CAT TO CTL-RECORD-5.                              CL**2
05120      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05121      MOVE SCHLD-TSK-CAT TO CTL-RECORD-5.                             CL**2
05122      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05123      MOVE REL-TSK-CAT TO CTL-RECORD-5.                               CL**2
05124      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05125      MOVE RESP-SYS-CAT TO CTL-RECORD-5.                              CL**2
05126      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05127      MOVE NAME-SYS-CAT TO CTL-RECORD-5.                              CL**2
05128      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05129      MOVE REL-SYS-CAT TO CTL-RECORD-5.                               CL**2
05130      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05131      MOVE PERSON-CAT TO CTL-RECORD-5.                                CL**2
05132      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05133      MOVE REL-UNIT-CAT TO CTL-RECORD-5.                              CL**2
05134      PERFORM WRITE-CONTROL THRU WRITE-CONTROL-XIT.                   CL**2
05147      CLOSE MAST3.                                                    CL**2
05149 ******************************************************************   CL**2
05150 *                                                                    CL**2
05151 *        PRINT INITIATION PARAMETERS                                 CL**2
05152 *                                                                    CL**2
05153 ******************************************************************   CL**2
05154      OPEN INPUT MAST3.                                               CL**2
           MOVE 1 TO CON-KEY. 
           READ MAST3 NEXT RECORD AT END GO TO CTL-REC-ERR. 
05156      MOVE 2 TO PRT-CTL.                                              CL**2
05157      MOVE INIT-MSG1 TO STD-REPORT-REC.                               CL**2
05158      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
05170      MOVE CTL-NAME TO BEGIN-NAME.                                    CL**2
05171      MOVE CTL-DATE-UPD TO BEGIN-DATE.                                CL**2
05172      MOVE CTL-ADDRESS TO BEGIN-ADDRESS.                              CL**2
           MOVE CTL-HMB TO BEGIN-HMB. 
05176      MOVE 1 TO PRT-CTL.                                              CL**2
05191      MOVE INIT-MSG2 TO STD-REPORT-REC.                               CL**2
05192      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
05193      MOVE INIT-MSG3 TO STD-REPORT-REC.                               CL**2
05194      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
05195      MOVE INIT-MSG4 TO STD-REPORT-REC.                               CL**2
05196      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
05197      MOVE INIT-MSG5 TO STD-REPORT-REC.                               CL**2
05198      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
05211  EOJ.                                                                CL**2
05212      MOVE SPACE TO PRINT-LINE.                                       CL**2
05213      MOVE SPACE TO STD-REPORT-REC.                                   CL**2
05214      CLOSE MAST3.                                                    CL**2
05215      CLOSE SYSPRINT.                                                 CL**2
           EXIT PROGRAM.
05218 ******************************************************************   CL**2
05219 *                                                                    CL**2
05220 *        ERROR SUBROUTINES                                           CL**2
05221 *                                                                    CL**2
05222 ******************************************************************   CL**2
05223  PRINT-ERROR.                                                        CL**2
05224      MOVE 12 TO RETURN-CODE.                                         CL**2
05225      MOVE PROG-ID TO ERROR-POS1.                                     CL**2
05226      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
05227  PRINT-ERROR-XIT.                                                    CL**2
05228      EXIT.                                                           CL**2
05229  CTL-REC-ERR.                                                        CL**2
05230      MOVE MAST3-MSG TO ERROR-POS2.                                   CL**2
05231  REC-ERR.                                                            CL**2
05232      PERFORM PRINT-ERROR THRU PRINT-ERROR-XIT.                       CL**2
05233      GO TO EOJ.                                                      CL**2
05234  DATA-REC-ERR.                                                       CL**2
05235      MOVE MAST1-MSG TO ERROR-POS2.                                   CL**2
05236      GO TO REC-ERR.                                                  CL**2
05237  REL-REC-ERR.                                                        CL**2
05238      MOVE MAST2-MSG TO ERROR-POS2.                                   CL**2
05239      GO TO REC-ERR.                                                  CL**2
05241 ******************************************************************   CL**2
05242 *                                                                    CL**2
05243 *       SCAN SUBROUTINES                                             CL**2
05244 *                                                                    CL**2
05245 ******************************************************************   CL**2
05246  FIND-BLANK.                                                         CL**2
05247      ADD 1 TO TX-SUB.                                                CL**2
05248      IF TX-SUB GREATER THAN MAX-POS                                  CL**2
05249           GO TO FIND-BLANK-XIT.                                      CL**2
05250      IF TX-POS (TX-SUB) EQUAL SPACE                                  CL**2
05251          GO TO FIND-BLANK.                                           CL**2
05252  FIND-BLANK-XIT.                                                     CL**2
05253      EXIT.                                                           CL**2
05254  FIND-OPT.                                                           CL**2
05255      MOVE ZERO TO OPT-SUB.                                           CL**2
05256      MOVE SPACE TO FUNCTION-OPT.                                     CL**2
05257  FIND-OPT-100.                                                       CL**2
05258      ADD 1 TO OPT-SUB.                                               CL**2
05259      MOVE TX-POS (TX-SUB) TO OPT-AREA (OPT-SUB).                     CL**2
05260      ADD 1 TO TX-SUB.                                                CL**2
05261      IF TX-SUB GREATER THAN MAX-POS                                  CL**2
05262          GO TO FIND-OPT-XIT.                                         CL**2
05263      IF OPT-SUB LESS THAN OPT-SUB-LIMIT                              CL**2
05264          GO TO FIND-OPT-100.                                         CL**2
05265  FIND-OPT-XIT.                                                       CL**2
05266      EXIT.                                                           CL**2
05267  FIND-CHAR.                                                          CL**2
05268      MOVE ZERO TO OPT-SUB.                                           CL**2
05269      MOVE SPACE TO FUNCTION-OPT.                                     CL**2
05270  FIND-CHAR-100.                                                      CL**2
05271      ADD 1 TO OPT-SUB.                                               CL**2
05272      IF TX-POS (TX-SUB) EQUAL TEST-CHAR                              CL**2
05273          GO TO FIND-CHAR-XIT.                                        CL**2
05274      MOVE TX-POS (TX-SUB) TO OPT-AREA (OPT-SUB).                     CL**2
05275      ADD 1 TO TX-SUB.                                                CL**2
05276      IF TX-SUB GREATER THAN MAX-POS                                  CL**2
05277          GO TO FIND-CHAR-XIT.                                        CL**2
05278      GO TO FIND-CHAR-100.                                            CL**2
05279  FIND-CHAR-XIT.                                                      CL**2
05280      EXIT.                                                           CL**2
05281  MOVE-NUM.                                                           CL**2
05282      MOVE ZERO TO NUM-HOLD.                                          CL**2
05283      IF OPT-AREA (1) NOT EQUAL SPACE                                 CL**2
05284          MOVE OPT-AREA (1) TO DIGIT-1                                CL**2
05285      ELSE MOVE 12 TO RETURN-CODE                                     CL**2
05286           GO TO MOVE-NUM-XIT.                                        CL**2
05287      IF OPT-AREA (2) EQUAL SPACE                                     CL**2
05288         MOVE NUM-LEN-1 TO NUM-HOLD                                   CL**2
05289         GO TO MOVE-NUM-XIT.                                          CL**2
05290      MOVE OPT-AREA (2) TO DIGIT-2.                                   CL**2
05291      IF OPT-AREA (3) EQUAL SPACE                                     CL**2
05292         MOVE NUM-LEN-2 TO NUM-HOLD                                   CL**2
05293         GO TO MOVE-NUM-XIT.                                          CL**2
05294      MOVE OPT-AREA (3) TO DIGIT-3.                                   CL**2
05295      IF OPT-AREA (4) EQUAL SPACE                                     CL**2
05296         MOVE NUM-LEN-3 TO NUM-HOLD                                   CL**2
05297         GO TO MOVE-NUM-XIT.                                          CL**2
05298      MOVE OPT-AREA (4) TO DIGIT-4.                                   CL**2
05299      IF OPT-AREA (5) EQUAL SPACE                                     CL**2
05300         MOVE NUM-LEN-4 TO NUM-HOLD                                   CL**2
05301         GO TO MOVE-NUM-XIT.                                          CL**2
05302      MOVE OPT-AREA (5) TO DIGIT-5.                                   CL**2
05303      MOVE NUM-WORK-AREA TO NUM-HOLD.                                 CL**2
05304  MOVE-NUM-XIT.                                                       CL**2
05305      EXIT.                                                           CL**2
*CALL     DISPLAYLN                                                        CL**2
*CALL     WRITELN                                                          CL**2
05308  USER-ROUTINE.                                                       CL**2
05309      GO TO USER-ROUTINE-XIT.                                         CL**2
05310  USER-ROUTINE-XIT.                                                   CL**2
05311      EXIT.                                                           CL**2
05312                                                                    UTL100T
05313  WRITE-CONTROL.                                                      CL**2
05314      WRITE CTL-RECORD-1                                              CL**2
05315          INVALID KEY GO TO CTL-REC-ERR.                              CL**2
05317      ADD 1 TO CON-KEY.                                               CL**2
05318  WRITE-CONTROL-XIT.                                                  CL**2
05319      EXIT.                                                           CL**2
*CALL     MAST1ALG                                                         CL**2
*CALL     RELALG                                                           CL**2
