*COMDECK DBRQTENT 
CONTROL IFNQ CB5$CDCS,"NO"; 
 #COMMON DECK CALLED# 
 CONTROL NOLIST;
 CONTROL EJECT; 
 DEF RQTASIZE #20#;          #RELATION QUALIFICATION TABLE ENTRY BUFFER 
                               SIZE#
 DEF RQTTYPEVALUE #3#;       #-STACK TYPE- FIELD VALUE# 
 DEF RQTATTRSIZE #4#;        #SIZE OF RQT ATTRIBUTE ENTRY#
 ARRAY RQTA [1:1] S(RQTASIZE);
   BEGIN                     #FIXED PORTION FIELDS OF INTEREST# 
         CONTROL IFEQ CB5$CDCS,"CDCS1"; 
          ITEM RQTTBLLENG U(0,24,15);    #LENGTH OF RQT ENTRY#
          ITEM RQTATTRIBPTR U(0,45,15);  #NUMBER +1 OF STACK ENTRIES# 
         CONTROL FI;
         CONTROL IFEQ CB5$CDCS,"CDCS2"; 
          ITEM RQTTBLLENG U(0,27,15);  # LENGTH IN WORDS OF THE RQT    #
                                       # TABLE. THIS INCLUDES RQT      #
                                       # HEADER, RELATION NAME, ALL THE#
                                       # STACK ENTRIES AND ALL OF THE  #
                                       # ATTRIBUTE ENTRIES.            #
          ITEM RQTATTRIBPTR U(0,42,18);# OFFSET POINTER FROM THE RQT   #
                                       # HEADER TO THE FIRST WORD OF   #
                                       # THE FIRST ATTRIBUTE ENTRY     #
         CONTROL FI;
   END
 BASED ARRAY RQTBA [1:1] S(1);
   BEGIN                     #VARIABLE PORTION FIELDS OF INTEREST#
         CONTROL IFEQ CB5$CDCS,"CDCS1"; 
          ITEM RQTSTACKTYPE U(0,0,4);    #STACK TYPE# 
          ITEM RQTITEMPTR U(0,4,15);     #(NEGATIVE) OFFSET POINTER FROM
                                           START OF RQT ENTRY TO ITEM 
                                           ENTRY# 
          ITEM RQTATRIBTEWA U(0,45,15);  #OFFSET POINTER FROM START OF
                                           RQT ENTRY TO ATTRIBUTE ENTRY 
                                           (CONTAINS DATA-NAME)#
         CONTROL FI;
         CONTROL IFEQ CB5$CDCS,"CDCS2"; 
          ITEM RQTSTACKTYPE U(0,0,3);  # INDICATES STACK ENTRY TYPE.   #
          ITEM RQTITEMPTR U(0,3,18);    # (-) OFFSET POINTER FROM HEADR#
                                       # WORD (0) OF THE RQT TABLE TO  #
                                       # THE ITEM ENTRY IN THE SUB-    #
                                       # SCHEMA.                       #
          ITEM RQTATRIBTEWA U(0,42,18);# OFFSET POINTER FROM THE HEADER#
                                       # WORD (0) OF THE RQT TABLE TO  #
                                       # THE ATTRIBUTE ENTRY (CONTAINS #
                                       # DATA NAME)                    #
         CONTROL FI;
   END
 ARRAY RQTATTR [1:1] S(RQTATTRSIZE);
   BEGIN
         CONTROL IFEQ CB5$CDCS,"CDCS1"; 
          ITEM RQTDATALENC U(0,42,6);    #LENGTH IN CHARS OF (ATTRIBUTE)
                                           DATA-NAME# 
          ITEM RQTDATANAME U(1,0,60);    #DATA-NAME (1-30 CHARS, LEFT-
                                           JUSTIFIED, ZERO-FILLED)# 
          ITEM RQTDATANM30 C(1,0,30);    #SAME# 
         CONTROL FI;
         CONTROL IFEQ CB5$CDCS,"CDCS2"; 
          ITEM RQTDATALENC U(0,42,6);  # LENGTH IN CHARACTERS OF THE   #
                                       # DATA-NAME.                    #
          ITEM RQTDATANAME U(1,0,60);  # DATA-NAME. 1-30 CHARACTERS,   #
          ITEM RQTDATANM30 C(1,0,30);  # LEFT JUSTIFIED WITH ZERO FILL.#
         CONTROL FI;
   END
 CONTROL LIST;
CONTROL FI; 
