*COMDECK WRKREDEF 
      * 
      *    A BASIC HEADER RECORD (ENTITY-CODE,000,00) WILL BE WRITTEN 
      *    FOR EACH ENTITY TO BE ADDED.  THIS WILL CAUSE THE ADD
      *    STATEMENT, THE NAMES CATEGORY, AND, IF OUT-EALIASOF-NAME 
      *    IS NONBLANK, THE CONTROL CATEGORY TO BE GENERATED. 
      * 
      *    A SET OF THREE NUMBERS, FOR EXAMPLE, (05,210,05), REPRESENTS 
      *    (OUT-ENTRY-TYPE, OUT-CATEGORY-TYPE, OUT-FIELD-TYPE). 
      * 
      * 
      *    NOTE RECORD FOR ALL ENTITY TYPES (ENTITY-CODE,001,00)
      * 
       01  OUT-NOTE-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-NOTE                    PICTURE X(66). 
  
      ******************************************************************
      * 
      *                    D B P R O C
      * 
      *    THE ONLY RECORD WRITTEN FOR DBPROCS IS OUT-REC 
      * 
      ******************************************************************
  
      ******************************************************************
      * 
      *                    E L E M E N T
      * 
      ******************************************************************
  
      * 
      *    VALUE RECORD FOR CHECK FOR ELEMENT (05,110,20) 
      * 
       01  OUT-ELEV-CHECKBY-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-ELEV-CHECKBY            PICTURE X(13). 
      * 
      *    VALUE RECORD FOR CHECK VALUE FOR ELEMENT (05,110,25) 
      * 
       01  OUT-ELEV-CKVAL-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-ELEV-CKVAL              PICTURE X(62). 
           03  OUT-ELEV-THRUVAL            PICTURE X(62). 
      *    62 CHARACTERS ALLOWS FOR 2 SURROUNDING QUOTES, 30 CHARACTERS 
      *    AND 30 DOUBLING QUOTES.
      * 
      *    ATTRIBUTE RECORD FOR ELEMENT (05,210,05), AND FOR GROUP
      *    (10,210,05)
      * 
       01  OUT-ELEAT-REC REDEFINES OUT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-ELEAT-ATTRIBUTE. 
               05  OUT-ELEAT-LENGTH        PICTURE X(10). 
               05  OUT-ELEAT-FORMAT        PICTURE XXX. 
               05  OUT-ELEAT-PICTURE       PICTURE X(25). 
               05  OUT-ELEAT-JUST          PICTURE X. 
               05  OUT-ELEAT-SYNC          PICTURE X. 
      * 
      *    ALIAS RECORD FOR ELEMENT (05,211,05) 
      * 
       01  OUT-ELEAL-REC REDEFINES OUT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-ELEAL-ATTRIBUTE. 
               05  OUT-ELEAL-ALENGTH       PICTURE X(10). 
               05  OUT-ELEAL-AFORMAT       PICTURE XXX. 
               05  OUT-ELEAL-APICTURE      PICTURE X(25). 
               05  OUT-ELEAL-AJUST         PICTURE X. 
               05  OUT-ELEAL-ALIASYNC      PICTURE X. 
           03  OUT-ELEAL-CATEGORY-LINE     PICTURE X(4).
           03  OUT-ELEAL-ADATANAM          PICTURE X(32). 
      * 
      *    PROCESS RECORD FOR ELEMENT (05,400,05), FOR RECORD 
      *    (13,400,05), AND FOR AREA (22, 400,05) 
      * 
       01  OUT-ELEP-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-ELEP-DBPROC             PICTURE X(32). 
           03  OUT-ELEP-TYPEPROC           PICTURE XX.
           03  OUT-ELEP-TIME               PICTURE X(5).
           03  OUT-ELEP-OPTION             PICTURE X(9).
      * 
      *    LEVEL 88 (OTHER) RECORD FOR ELEMENT (05,900,10)
      * 
       01  OUT-ELEO-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-ELEO-88LEVEL            PICTURE X(63). 
      *    OUT-ELEO-88LEVEL CONTAINS CONDITION-NAME AND VALUE(S). 
  
      ******************************************************************
      * 
      *                    G R O U P
      * 
      ******************************************************************
      * 
      *    SEE ELEMENT FOR ATTRIBUTE RECORD FOR GROUP (10,210,05) 
      * 
      * 
      *    STRUCTURE RECORD FOR GROUP CONTAINS ELEMENTS OR GROUPS 
      *    (10,300,05), FOR RECORD (13,300,05)
      * 
       01  OUT-GRPS-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-GRPS-CATNAME            PICTURE X(32). 
           03  OUT-GRPS-ALIAS              PICTURE X(4).
           03  OUT-GRPS-STRUCTURE.
               04  OUT-GRPS-REDEFINE       PICTURE X(32). 
               04  OUT-GRPS-RDALIAS        PICTURE X(4).
               04  OUT-GRPS-USAGE          PICTURE X(7).
               04  OUT-GRPS-FILLER         PICTURE X(4).
      * 
      *    STRUCTURE RECORD FOR GROUP CONTAINS ELEMENTS OR GROUPS,
      *    OCCURS INFORMATION, (10,300,10), FOR RECORD (13,300,10)
      * 
       01  OUT-GRPS-OCCUR-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-GRPS-FROM               PICTURE X(4).
           03  OUT-GRPS-TO                 PICTURE X(32). 
           03  OUT-GRPS-TALIAS             PICTURE X(4).
           03  OUT-GRPS-DEPEND             PICTURE X(32). 
           03  OUT-GRPS-DALIAS             PICTURE X(4).
           03  OUT-GRPS-DNQUAL. 
               04  OUT-GRPS-D1QUAL         PICTURE X(32). 
               04  OUT-GRPS-D2QUAL         PICTURE X(32). 
               04  OUT-GRPS-D3QUAL         PICTURE X(32). 
               04  OUT-GRPS-D4QUAL         PICTURE X(32). 
               04  OUT-GRPS-D5QUAL         PICTURE X(32). 
      * 
      *    STRUCTURE RECORD FOR GROUP CONTAINS ELEMENTS OR GROUPS,
      *    INDEX INFORMATION, (10,300,35), FOR RECORD (13,300,35) 
      * 
       01  OUT-GRPS-INDEX-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-GRPS-INDEX              PICTURE X(32). 
      * 
      *    STRUCTURE RECORD FOR GROUP CONTAINS ELEMENTS OR GROUPS,
      *    KEY INFORMATION, (10,300,60), FOR RECORD (13,300,60) 
      * 
       01  OUT-GRPS-KEY-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-GRPS-KORDER             PICTURE X. 
           03  OUT-GRPS-KNAME              PICTURE X(32). 
           03  OUT-GRPS-KALIAS             PICTURE X(4).
      * 
      *    STRUCTURE RECORD FOR GROUP CONTAINS ELEMENTS OR GROUPS,
      *    RENAMES INFORMATION, (10,300,75), FOR RECORD (13,300,75) 
      * 
       01  OUT-GRPS-RENAMES-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-GRPS-RENAMES            PICTURE X(32). 
           03  OUT-GRPS-RNALIAS            PICTURE X(4).
           03  OUT-GRPS-RNQUAL. 
               04  OUT-GRPS-R1QUAL         PICTURE X(32). 
               04  OUT-GRPS-R2QUAL         PICTURE X(32). 
               04  OUT-GRPS-R3QUAL         PICTURE X(32). 
               04  OUT-GRPS-R4QUAL         PICTURE X(32). 
               04  OUT-GRPS-R5QUAL         PICTURE X(32). 
      * 
      *    STRUCTURE RECORD FOR GROUP CONTAINS ELEMENTS OR GROUPS,
      *    RENAMES THRU INFORMATION, (10,300,87), FOR RECORD (13,300,87)
      * 
       01  OUT-GRPS-THRU-REC REDEFINES OUT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-GRPS-THRU               PICTURE X(32). 
           03  OUT-GRPS-THALIAS            PICTURE X(4).
           03  OUT-GRPS-TNQUAL. 
               04  OUT-GRPS-T1QUAL         PICTURE X(32). 
               04  OUT-GRPS-T2QUAL         PICTURE X(32). 
               04  OUT-GRPS-T3QUAL         PICTURE X(32). 
               04  OUT-GRPS-T4QUAL         PICTURE X(32). 
               04  OUT-GRPS-T5QUAL         PICTURE X(32). 
  
      ******************************************************************
      * 
      *                    R E C O R D
      * 
      *    SEE GROUP FOR STRUCTURE RECORDS
      *    SEE ELEMENT FOR PROCESS RECORD 
      * 
      ******************************************************************
  
  
      ******************************************************************
      * 
      *                    F I L E
      * 
      ******************************************************************
  
      * 
      *    UNIT RECORD FOR FILE (20,220,65) 
      * 
       01  OUT-FILEU-REC REDEFINES OUT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-FILEU-PUNIT             PICTURE X(7).
           03  OUT-FILEU-PVOLSER           PICTURE X(6).
      * 
      *    STRUCTURE RECORD FOR FILE CONTAINS DBP (20,300,05) 
      * 
       01  OUT-FILES-REC REDEFINES OUT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-FILES-CATNAME           PICTURE X(32). 
      * 
      *    MDINFO RECORD FOR FILE (20,450,05) 
      * 
       01  OUT-FILEM-REC REDEFINES OUT-REC. 
           02  FILLER                      PICTURE X(127).
           02  OUT-FILEM-FTYPE             PICTURE X. 
           02  OUT-FILEM-PF.
               03  OUT-FILEM-UN            PICTURE X(7).
               03  OUT-FILEM-PW            PICTURE X(7).
               03  OUT-FILEM-FAMILY        PICTURE X(7).
               03  OUT-FILEM-PACK          PICTURE X(7).
               03  OUT-FILEM-SET           PICTURE X(7).
           02  OUT-FILEM-UNLMT             PICTURE XX.
           02  OUT-FILEM-UPLMT             PICTURE XX.
  
      ******************************************************************
      * 
      *                    A R E A
      * 
      ******************************************************************
  
      * 
      *    ATTRIBUTE RECORD FOR AREA, FILE STATEMENT PARAMETERS 
      *    (22,210,05)
      * 
       01  OUT-AREAA-FILE-REC REDEFINES OUT-REC.
           02  FILLER                      PICTURE X(127).
           02  OUT-AREAA-FILE-ARRAY.
               03  OUT-AREAA-BT            PICTURE X. 
               03  OUT-AREAA-CL            PICTURE X(6).
               03  OUT-AREAA-CP            PICTURE X(6).
               03  OUT-AREAA-C1            PICTURE X. 
               03  OUT-AREAA-EMK           PICTURE X. 
               03  OUT-AREAA-FO            PICTURE XX.
               03  OUT-AREAA-HL            PICTURE X(6).
               03  OUT-AREAA-HMB           PICTURE X(6).
               03  OUT-AREAA-KL            PICTURE X(4).
               03  OUT-AREAA-KP            PICTURE X. 
               03  OUT-AREAA-KT            PICTURE X. 
               03  OUT-AREAA-LL            PICTURE X. 
               03  OUT-AREAA-LP            PICTURE X(6).
               03  OUT-AREAA-LT            PICTURE X(4).
               03  OUT-AREAA-MBL           PICTURE X(6).
               03  OUT-AREAA-MNR           PICTURE X(6).
               03  OUT-AREAA-MRL           PICTURE X(6).
               03  OUT-AREAA-ORG           PICTURE X(3).
               03  OUT-AREAA-RB            PICTURE X(4).
               03  OUT-AREAA-RKP           PICTURE X(6).
               03  OUT-AREAA-RKW           PICTURE X(6).
               03  OUT-AREAA-RMK           PICTURE X(10). 
               03  OUT-AREAA-RT            PICTURE X. 
               03  OUT-AREAA-TL            PICTURE X(6).
      * 
      *    ATTRIBUTE RECORD FOR AREA, SEQUENCE (22,210,39)
      *    INFO FROM OUT-AREAA-FILE-REC WILL BE PLACED ON 
      *    THE SAME LINE WITH OUT-AREAA-SEQ-REC.
      * 
       01  OUT-AREAA-SEQ-REC REDEFINES OUT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-AREAA-SEQUENCE          PICTURE X. 
      * 
      *    STRUCTURE RECORD FOR AREA CONTAINS RECORDS (22,300,05) 
      * 
       01  OUT-AREAS-REC REDEFINES OUT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-AREAS-CATNAME           PICTURE X(32). 
      * 
      *    STRUCTURE RECORD FOR AREA FOR RECORD CODE VALUE (22,300,15)
      *    INFO FROM THIS RECORD WILL BE PLACED ON SAME LINE
      *    WITH STRUCTURE RECORD OUT-AREAS-REC. 
      * 
       01  OUT-AREAS-RCVALUE-REC REDEFINES OUT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-AREAS-RCVALUE           PICTURE X(62). 
      * 
      *    PROCESS RECORD FOR DBPROCS FOR AREA (22,400,05), SEE ELEMENT 
      * 
      * 
      *    PROCESS RECORD FOR RECORD CODE DATANAMES FOR AREA
      *    (22,400,25)
      * 
       01  OUT-AREAP-RC-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-AREAP-RCDATA            PICTURE X(32). 
           03  OUT-AREAP-RCALIAS           PICTURE X(4).
           03  OUT-AREAP-RCQUAL            PICTURE X(32). 
      * 
      *    ACCESS RECORD FOR ACCESS CONTROL FOR AREA, MODE
      *    (22,425,05)
      * 
       01  OUT-AREAC-MODE-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-AREAC-MODE              PICTURE XXX. 
      * 
      *    ACCESS RECORD FOR ACCESS CONTROL FOR AREA, LOCK
      *    (22,425,10)
      * 
       01  OUT-AREAC-LOCK-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-AREAC-LOCK              PICTURE X(62). 
      * 
      *    MDINFO RECORD FOR AREA (22,450,05) 
      * 
       01  OUT-AREAM-REC REDEFINES OUT-REC. 
           02  FILLER                      PICTURE X(127).
           02  OUT-AREAM-PFNAREA           PICTURE X(7).
           02  OUT-AREAM-PF.
               03  OUT-AREAM-UN            PICTURE X(7).
               03  OUT-AREAM-PW            PICTURE X(7).
               03  OUT-AREAM-FAMILY        PICTURE X(7).
               03  OUT-AREAM-PACK          PICTURE X(7).
               03  OUT-AREAM-SET           PICTURE X(7).
           02  OUT-AREAM-UNIT-RECORD. 
               03  OUT-AREAM-PVOLSER       PICTURE X(6).
               03  OUT-AREAM-PUNIT         PICTURE X(3).
           02  OUT-AREAM-LOG               PICTURE X(8).
           02  OUT-AREAM-INDXFIL           PICTURE X(32). 
      * 
      *    AREAKEY RECORD FOR PRIMARY OR ALTERNATE KEY OF AREA, 
      *    (22,500,05)
      * 
       01  OUT-AREAK-KEY-REC REDEFINES OUT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-AREAK-KEYNAME           PICTURE X(32). 
           03  OUT-AREAK-KALIAS            PICTURE X(4).
           03  OUT-AREAK-KOFREC            PICTURE X(32). 
           03  OUT-AREAK-TYPEKEY           PICTURE X. 
           03  OUT-AREAK-DUPES             PICTURE X. 
           03  OUT-AREAK-USING             PICTURE X. 
      * 
      *    AREAKEY RECORD FOR KEY ID OF CONCATENATED KEY OF AREA, 
      *    (22,500,30)
      * 
       01  OUT-AREAK-CKEY-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-AREAK-CKEYID            PICTURE X(30). 
           03  OUT-AREAK-CTYPKEY           PICTURE X. 
           03  OUT-AREAK-CDUPES            PICTURE X. 
           03  OUT-AREAK-CUSING            PICTURE X. 
      * 
      *    AREAKEY RECORD FOR COMPONENT OF CONCATENATED KEY OF AREA,
      *    (22,500,45)
      * 
       01  OUT-AREAK-CCKEY-REC REDEFINES OUT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-AREAK-CIDEN             PICTURE X(32). 
           03  OUT-AREAK-CALIAS            PICTURE X(4).
           03  OUT-AREAK-CQUAL             PICTURE X(32). 
  
      ******************************************************************
      * 
      *                    S U B S C H E M A
      * 
      ******************************************************************
  
      * 
      *    STRUCTURE RECORD FOR SUBSCHEMA CONTAINS AREAS (24,300,05)
      * 
       01  OUT-SSCHS-REC REDEFINES OUT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-SSCHS-CATNAME           PICTURE X(32). 
      * 
      *    MDINFO RECORD FOR SUBSCHEMA, (24,450,05) 
      * 
       01  OUT-SSCHM-REC REDEFINES OUT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-SSCHM-SSLFN             PICTURE X(7).
      * 
      *    SSREL RECORD FOR SUBSCHEMA, RELATION AND RESTRICT NAME 
      *    (24,525,02)
      * 
       01  OUT-SSCHR-RNAME-REC REDEFINES OUT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-SSCHR-RNAME             PICTURE X(30). 
           03  OUT-SSCHR-RESTRICT          PICTURE X(32). 
      * 
      *    SSREL RECORD FOR SUBSCHEMA, RESTRICT EXPRESSION
      *    (24,525,05)
      * 
       01  OUT-SSCHR-EXP-REC REDEFINES OUT-REC. 
           02  FILLER                      PICTURE X(127).
           02  OUT-SSCHR-EXP-AREA.
               03  OUT-SSCHR-PRELOP        PICTURE X(3).
               03  OUT-SSCHR-LEFT-PAREN    PICTURE 99.
               03  OUT-SSCHR-ID1           PICTURE X(32). 
               03  OUT-SSCHR-A1ID          PICTURE X(4).
               03  OUT-SSCHR-SUBSCRIPT1    PICTURE X(16). 
               03  OUT-SSCHR-ANQUAL.
                   04  OUT-SSCHR-A1QUAL    PICTURE X(32). 
                   04  OUT-SSCHR-A2QUAL    PICTURE X(32). 
                   04  OUT-SSCHR-A3QUAL    PICTURE X(32). 
                   04  OUT-SSCHR-A4QUAL    PICTURE X(32). 
                   04  OUT-SSCHR-A5QUAL    PICTURE X(32). 
               03  OUT-SSCHR-ID2           PICTURE X(62). 
               03  OUT-SSCHR-A2ID          PICTURE X(4).
               03  OUT-SSCHR-SUBSCRIPT2    PICTURE X(16). 
               03  OUT-SSCHR-BNQUAL.
                   04  OUT-SSCHR-B1QUAL    PICTURE X(32). 
                   04  OUT-SSCHR-B2QUAL    PICTURE X(32). 
                   04  OUT-SSCHR-B3QUAL    PICTURE X(32). 
                   04  OUT-SSCHR-B4QUAL    PICTURE X(32). 
                   04  OUT-SSCHR-B5QUAL    PICTURE X(32). 
               03  OUT-SSCHR-RIGHT-PAREN   PICTURE 99.
               03  OUT-SSCHR-ROP           PICTURE XX.
               03  OUT-SSCHR-LOP           PICTURE X(6).
  
      ******************************************************************
      * 
      *                    S C H E M A
      * 
      ******************************************************************
  
      * 
      *    STRUCTURE RECORD FOR SCHEMA CONTAINS AREAS AND SUBSCHEMAS
      *    (26,300,05)
      * 
       01  OUT-SCHS-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-SCHS-CATNAME            PICTURE X(32). 
           03  OUT-SCHS-CTYPE              PICTURE X. 
           03  OUT-SCHS-AVERS              PICTURE X(7).
      * 
      *    MDINFO RECORD FOR SCHEMA FILE NAME, LFN (26,450,05)
      * 
       01  OUT-SCHM-LFN-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-SCHM-SCHLFN             PICTURE X(7).
      * 
      *    MDINFO RECORD FOR SCHEMA FILE NAME, FILE CATNAME (26,450,10) 
      * 
       01  OUT-SCHM-FILE-REC REDEFINES OUT-REC. 
           03  FILLER                      PICTURE X(127).
           03  OUT-SCHM-FILE-TYPE          PICTURE XXX. 
      *        =PRO, PROCEDURE LIBRARY
      *        =TRA, TRANSACTION RECOVERY FILE
      *        =RES, RESTART IDENTIFIER FILE
      *        =JLO, JOURNAL LOG FILE 
      *        =QRF, QUICK RECOVERY FILE
           03  OUT-SCHM-FILE-CATNAME       PICTURE X(32). 
      * 
      *    JOB CONTROL RECORD FOR DBREC UTILITY INFORMATION 
      *    FOR SCHEMA (26,475,05) 
      * 
       01  OUT-SCHJC-REC REDEFINES OUT-REC. 
           02  FILLER                      PICTURE X(127).
           02  OUT-SCHJC-ARRAY. 
               03  OUT-SCHJC-UN            PICTURE X(7).
               03  OUT-SCHJC-PW            PICTURE X(7).
               03  OUT-SCHJC-FAMILY        PICTURE X(7).
               03  OUT-SCHJC-ACCOUNT       PICTURE X(62). 
               03  OUT-SCHJC-CHARGE        PICTURE X(62). 
               03  OUT-SCHJC-DENSITY       PICTURE XX.
               03  OUT-SCHJC-TTYPE         PICTURE XX.
      * 
      *    BOND RECORD FOR SCHEMA, 1ST IDENTIFIER (26,550,05) 
      * 
       01  OUT-SCHB-ID1-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-SCHB-CONNAME            PICTURE X(30). 
           03  OUT-SCHB-CNAME              PICTURE X(32). 
           03  OUT-SCHB-CALIAS             PICTURE X(4).
           03  OUT-SCHB-AOFREC             PICTURE X(32). 
      * 
      *    BOND RECORD FOR SCHEMA, 2ND IDENTIFIER (26,550,10) 
      * 
       01  OUT-SCHB-ID2-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-SCHB-DEPENDS            PICTURE X(32). 
           03  OUT-SCHB-DALIAS             PICTURE X(4).
           03  OUT-SCHB-BOFREC             PICTURE X(32). 
      * 
      *    JOIN RECORD FOR SCHEMA HAS RELATION (26,575,05)
      * 
       01  OUT-SCHJ-REL-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-SCHJ-RELNAME            PICTURE X(30). 
      * 
      *    JOIN RECORD FOR SCHEMA FOR RELATION HAS 1ST IDENTIFIER 
      *    (26,575,10) AND 2ND IDENTIFIER (26,575,45) 
      * 
       01  OUT-SCHJ-ID1-REC REDEFINES OUT-REC.
           03  FILLER                      PICTURE X(127).
           03  OUT-SCHJ-ID1                PICTURE X(48). 
           03  OUT-SCHJ-I1ALIAS            PICTURE X(4).
           03  OUT-SCHJ-I1REC              PICTURE X(32). 
