*COMDECK DATCONSUB
       01  SUB-STC                REDEFINES CONSOLID-LINE.
           03  SUB-STC-CNAME      PICTURE X(32).
           03  SUB-STC-ALIAS      PICTURE X(4). 
           03  SUB-STC-INCL       PICTURE X.
       01  SUB-RSSREL             REDEFINES CONSOLID-LINE.
           03  SUB-SSREL-RNAME    PICTURE X(30).
           03  SUB-SSREL-RESTRICT PICTURE X(32).
           03  SUB-SSREL-ALIAS    PICTURE X(4). 
       01  SUB-ISSREL             REDEFINES CONSOLID-LINE.
           03  SUB-SSREL-PRELOP   PICTURE X(3). 
           03  SUB-SSREL-LPAREN   PICTURE 9(2). 
           03  SUB-SSREL-ID1      PICTURE X(32).
           03  SUB-SSREL-ALIAS1   PICTURE X(4). 
           03  SUB-SSREL-SUB1     PICTURE X(12).
           03  SUB-SSREL-QCNT1    PICTURE 9.
           03  SUB-SSREL-ROP      PICTURE X(2). 
           03  SUB-SSREL-ID2      PICTURE X(32).
           03  SUB-SSREL-TYPE2    PICTURE X.
           03  SUB-SSREL-ALIAS2   PICTURE X(4). 
           03  SUB-SSREL-SUB2     PICTURE X(12).
           03  SUB-SSREL-QCNT2    PICTURE 9.
           03  SUB-SSREL-RPAREN   PICTURE 9(2). 
           03  SUB-SSREL-LOP      PICTURE X(6). 
       01  SUB-QBSSREL            REDEFINES CONSOLID-LINE.
           03  SUB-SSREL-QUAL1    PICTURE X(32).
           03  SUB-SSREL-QSUB1    PICTURE X(12).
           03  SUB-SSREL-QUAL2    PICTURE X(32).
           03  SUB-SSREL-QSUB2    PICTURE X(12).
           03  SUB-SSREL-QUAL3    PICTURE X(32).
           03  SUB-SSREL-QSUB3    PICTURE X(12).
       01  SUB-24SSREL            REDEFINES CONSOLID-LINE.
           03  SUB-SSREL-QUAL4    PICTURE X(32).
           03  SUB-SSREL-QSUB4    PICTURE X(12).
           03  SUB-SSREL-QUAL5    PICTURE X(32).
           03  SUB-SSREL-QSUB5    PICTURE X(12).
       01  REC-GRP-DSTC           REDEFINES CONSOLID-LINE.
           03  RG-STC-QUAL3       PICTURE X(32).
           03  RG-STC-QUAL4       PICTURE X(32).
           03  RG-STC-QUAL5       PICTURE X(32).
       01  REC-GRP-KSTC           REDEFINES CONSOLID-LINE.
           03  RG-STC-KNAME       PICTURE X(32).
           03  RG-STC-KALIAS      PICTURE X(4). 
           03  RG-STC-KORDER      PICTURE X.
       01  REC-GRP-RTSTC          REDEFINES CONSOLID-LINE.
           03  RG-STC-RTNAME      PICTURE X(32).
           03  RG-STC-RTALIAS     PICTURE X(4). 
           03  RG-STC-RTQCNT      PICTURE 9.
           03  RG-STC-RTQUAL1     PICTURE X(32).
           03  RG-STC-RTQUAL2     PICTURE X(32).
           03  RG-STC-RTQUAL3     PICTURE X(32).
       01  REC-GRP-Q2STC          REDEFINES CONSOLID-LINE.
           03  RG-STC-RTQUAL4     PICTURE X(32).
           03  RG-STC-RTQUAL5     PICTURE X(32).
