*COMDECK DCDPTRS
      ******************************************************* 
      *    THIS COMDECK DEFINES THE LINES WHICH HAVE
      *    CLAUSES REQUIRING POINTERS TO BE ADDED TO
      *    THE REL-FILE 
      ********************************************************
      * 
      * 
      *    STRUCTURE CATEGORY FOR GROUPS AND RECORDS, 
      *    FOR REDEFINES FIELD. 
      * 
           02  STC-GRP-REC-LINEA REDEFINES CAT-DETAIL.
               03  FILLER          PICTURE X(41). 
               03  STC-REDEFINES   PICTURE X(32). 
      * 
      *    O-LINE-TYPE IN STRUCTURE FOR GROUPS AND RECORDS
       02  O-LINE REDEFINES CAT-DETAIL. 
           03  FILLER              PICTURE X. 
           03  STC-FROM            PICTURE 9(4).
           03  STC-TO              PICTURE X(32). 
           03  STC-TO-ALIAS        PICTURE X(4).
           03  STC-DEPEND          PICTURE X(32). 
           03  STC-DEPEND-ALIAS    PICTURE X(4).
           03  STC-DEP-QUAL-FLAG   PICTURE 9. 
           03  STC-DEPEND-QUAL1    PICTURE X(32). 
           03  STC-DEPEND-QUAL2    PICTURE X(32). 
      * 
      *    D-LINE-TYPE IN STRUCTURE FOR GROUPS AND RECORDS
       02  D-LINE REDEFINES CAT-DETAIL. 
           03  FILLER              PICTURE X. 
           03  STC-DEPEND-QUAL3    PICTURE X(32). 
           03  STC-DEPEND-QUAL4    PICTURE X(32). 
           03  STC-DEPEND-QUAL5    PICTURE X(32). 
      * 
      *    K-LINE-TYPE IN STRUCTURE FOR GROUPS AND RECORDS
       02  K-LINE REDEFINES CAT-DETAIL. 
           03  FILLER              PICTURE X. 
           03  STC-KEY             PICTURE X(32). 
           03  STC-KEY-ALIAS       PICTURE X(4).
      * 
      *    RENAME AND THRU LINE-TYPES STRUCTURE IN GROUPS AND RECORDS 
      * 
       02  R-T-LINE REDEFINES CAT-DETAIL. 
           03  FILLER              PICTURE X. 
           03  STC-NAME            PICTURE X(32). 
           03  STC-R-T-ALIAS       PICTURE X(4).
           03  STC-QUAL-COUNT      PICTURE 9. 
           03  STC-QUAL1           PICTURE X(32). 
           03  STC-QUAL2           PICTURE X(32). 
           03  STC-QUAL3           PICTURE X(32). 
      * 
      *    RENAME AND THRU QUALIFIERS 4 AND 5 
      * 
       02  R-T-QUAL REDEFINES CAT-DETAIL. 
           03  FILLER              PICTURE X. 
           03  STC-QUAL4           PICTURE X(32). 
           03  STC-QUAL5           PICTURE X(32). 
      * 
      *    CONCATENATED KEY COMPONENT AND QUALIFIER 
      *    MAY ALSO BE USED FOR RECORD CODE DATA NAME 
      *    AND DEPENDS OF SCH BOND
      * 
       02  LINE-I REDEFINES CAT-DETAIL. 
           03  FILLER              PICTURE X. 
           03  GEN-NAME            PICTURE X(32). 
           03  GEN-ALIAS           PICTURE X(4).
           03  GEN-QUAL            PICTURE X(32). 
      * 
      *    ACC-TYPE USED BY DELETE
      * 
       02  ACC-LINE REDEFINES CAT-DETAIL. 
           03  FILLER                  PICTURE X(33). 
           03  ACC-TYPE                PICTURE X. 
      * 
      *    RESTRICT NAME
      * 
       02  LINE-R REDEFINES CAT-DETAIL. 
           03  FILLER              PICTURE X(31). 
           03  RESTRICT-NAME       PICTURE X(32). 
      * 
      *    SSREL - RESTRICT IDS 
      * 
       02  RESTRICTER REDEFINES CAT-DETAIL. 
           03  FILLER              PICTURE X. 
           03  PRE-LOP             PICTURE X(3).
           03  LEFT-PAREN          PICTURE 99.
           03  ID1                 PICTURE X(32). 
           03  ID1-TYPE            PICTURE X. 
           03  ID1-ALIAS           PICTURE X(4).
           03  ID1-SUB. 
               05 ID1-SUB1         PICTURE X(4).
               05 ID1-SUB2         PICTURE X(4).
               05 ID1-SUB3         PICTURE X(4).
           03  ID1-QUAL-FLAG       PICTURE 9. 
           03  REL-OP              PICTURE X(2).
           03  ID2                 PICTURE X(32). 
           03  ID2-TYPE            PICTURE X. 
           03  ID2-ALIAS           PICTURE X(4).
           03  ID2-SUB. 
               05 ID2-SUB1         PICTURE X(4).
               05 ID2-SUB2         PICTURE X(4).
               05 ID2-SUB3         PICTURE X(4).
           03  ID2-QUAL-FLAG       PICTURE 9. 
           03  RIGHT-PAREN         PICTURE 99.
           03  LOP                 PICTURE X(6).
      * 
      *    SSREL QUALIFIERS  1 THRU 3 
      * 
       02  SSREL-QUALS REDEFINES CAT-DETAIL.
           03  FILLER              PICTURE X. 
           03  SS-QUAL1            PICTURE X(32). 
           03  SS-SUB1. 
               05 SS-QUAL1-SUB1    PICTURE X(4).
               05 SS-QUAL1-SUB2    PICTURE X(4).
               05 SS-QUAL1-SUB3    PICTURE X(4).
           03  SS-QUAL2            PICTURE X(32). 
           03  SS-SUB2. 
               05 SS-QUAL2-SUB1    PICTURE X(4).
               05 SS-QUAL2-SUB2    PICTURE X(4).
               05 SS-QUAL2-SUB3    PICTURE X(4).
           03  SS-QUAL3            PICTURE X(32). 
           03  SS-SUB3. 
               05 SS-QUAL3-SUB1    PICTURE X(4).
               05 SS-QUAL3-SUB2    PICTURE X(4).
               05 SS-QUAL3-SUB3    PICTURE X(4).
      * 
      *    SSREL QUALIFIERS 4 AND 5 
      * 
       02  SSRELQ45 REDEFINES CAT-DETAIL. 
           03  FILLER              PICTURE X. 
           03  SS-QUAL4            PICTURE X(32). 
           03  SS-SUB4. 
               05 SS-QUAL4-SUB1    PICTURE X(4).
               05 SS-QUAL4-SUB2    PICTURE X(4).
               05 SS-QUAL4-SUB3    PICTURE X(4).
           03  SS-QUAL5            PICTURE X(32). 
           03  SS-SUB5. 
               05 SS-QUAL5-SUB1    PICTURE X(4).
               05 SS-QUAL5-SUB2    PICTURE X(4).
               05 SS-QUAL5-SUB3    PICTURE X(4).
      * 
      *    SCHEMA BOND (CONSTRAINT) 
      * 
       02 SS-CONSTRAINT REDEFINES CAT-DETAIL. 
           03  FILLER              PICTURE X. 
           03  CON-NAME            PICTURE X(30). 
           03  CON-CATNAME         PICTURE X(32). 
           03  CON-ALIAS           PICTURE X(4).
           03  CON-QUAL            PICTURE X(32). 
      * 
      *    JOIN OF SCHEMA 
      * 
       02  JOIN1 REDEFINES CAT-DETAIL.
           03  FILLER              PICTURE X. 
           03  JOIN-ID             PICTURE X(32). 
           03  JOIN-ALIAS1         PICTURE X(4).
           03  JOIN-ID-SUB. 
               05 JOIN-ID-SUB1     PICTURE X(4).
               05 JOIN-ID-SUB2     PICTURE X(4).
               05 JOIN-ID-SUB3     PICTURE X(4).
           03  JOIN-QUAL1          PICTURE X(32). 
