*COMDECK DATCONSCH
       01  SCH-BOND               REDEFINES CONSOLID-LINE.
           03  SCH-BOND-NAME      PICTURE X(30).
           03  SCH-BOND-CNAME     PICTURE X(32).
           03  SCH-BOND-ALIAS     PICTURE X(4). 
           03  SCH-BOND-QUAL      PICTURE X(32).
       01  SCH-JOIN               REDEFINES CONSOLID-LINE.
           03  SCH-JOIN-ID        PICTURE X(32).
           03  SCH-JOIN-ALIAS     PICTURE X(4). 
           03  SCH-JOIN-SUB1      PICTURE X(4). 
           03  SCH-JOIN-SUB2      PICTURE X(4). 
           03  SCH-JOIN-SUB3      PICTURE X(4). 
           03  SCH-JOIN-QUAL      PICTURE X(32).
       01  AREA-ATT               REDEFINES CONSOLID-LINE.
           03  A-ATT-SEQ          PICTURE X.
       01  AREA-CKEY              REDEFINES CONSOLID-LINE.
           03  A-KEY-ID           PICTURE X(30).
           03  A-KEY-CTYPE        PICTURE X.
           03  A-KEY-CDUPES       PICTURE X.
           03  A-KEY-CUSING       PICTURE X.
       01  AREA-IKEY              REDEFINES CONSOLID-LINE.
           03  A-KEY-COMPONENT    PICTURE X(32).
           03  A-KEY-CALIAS       PICTURE X(4). 
           03  A-KEY-CQUAL        PICTURE X(32).
       01  AREA-KKEY              REDEFINES CONSOLID-LINE.
           03  A-KEY-KNAME        PICTURE X(32).
           03  A-KEY-ALIAS        PICTURE X(4). 
           03  A-KEY-QUAL         PICTURE X(32).
           03  A-KEY-KTYPE        PICTURE X.
           03  A-KEY-DUPES        PICTURE X.
           03  A-KEY-USING        PICTURE X.
       01  AREA-PPRO              REDEFINES CONSOLID-LINE.
           03  A-PRO-DBP          PICTURE X(32).
           03  A-PRO-PTYPE        PICTURE X(2). 
           03  A-PRO-TIME         PICTURE X(5). 
           03  A-PRO-OPT          PICTURE X(7). 
       01  AREA-RPRO              REDEFINES CONSOLID-LINE.
           03  A-PRO-RCDATA       PICTURE X(32).
           03  A-PRO-ALIAS        PICTURE X(4). 
           03  A-PRO-QUAL         PICTURE X(32).
       01  REC-PRO                REDEFINES CONSOLID-LINE.
           03  R-PRO-DBP          PICTURE X(32).
           03  R-PRO-PTYPE        PICTURE X(2). 
           03  R-PRO-TIME         PICTURE X(5). 
           03  R-PRO-OPT          PICTURE X(9). 
       01  ELEM-PRO               REDEFINES CONSOLID-LINE.
           03  E-PRO-DBP          PICTURE X(32).
           03  E-PRO-PTYPE        PICTURE X(2). 
           03  E-PRO-TIME         PICTURE X(5). 
           03  E-PRO-OPT          PICTURE X(5). 
