*COMDECK RELCMDCLS
  
# THE COMDECK DB$RLCM DEFINES A COMMON BLOCK OF CELLS AND ARRAYS ADDED
  FOR RELATION PROCESSING BY CDCS                                      #
  
      COMMON DB$RLCM; 
      BEGIN #DB$RLCM# 
  
*CALL CSTRNDCLS 
*CALL CSTARDCLS 
*CALL RSBRNDCLS 
*CALL RSNSTDCLS 
*CALL RSNQTDCLS 
#**********************************************************************#
  
# BASED ARRAY FOR TASK-SPECIFIC ITEMS                                  #
  
      BASED ARRAY TASKITEMS;
        BEGIN 
        ITEM MAXRANK U(0,0,60);   #MAXIMUM RANK FOR CURRENT RELATION   #
        ITEM CURRANK U(1,0,60);   #CURRENT RANK IN RELATION            #
        ITEM MFPRETCD U(2,0,60);  #RETURN CODE SET BY MFP AND SEARCH   #
                             #STRATEGY MODULES -                       #
                             #0 = RECORD RETURNED.                     #
                             #1 = NULL OCCURRENCE.                     #
                             #2 = I/O ERROR.                           #
                             #777B=BEGIN MFP AT NEW RANK (MFP ONLY).   #
        ITEM FIRSTTIME B(3,0,60); #FLAG FOR FIRST READ ON A RANK       #
        ITEM EOKFLAG  B(4,0,60);  #TRUE IF END OF KEY IN DB$AKY        #
        ITEM JNBUFA   U(5,0,60);  #ABS ADDRESS OF MFP JOIN BUFFER      #
        ITEM MFPRDRNK U(6,0,60);  #CURRENT RANK IN RELATION            #
        ITEM KEYREAD C(7,0,10);    #KEY BUFFER - 25 WORDS LONG         #
        END 
  
      END #OF DB$RLCM#
