*DECK DB$RWR
USETEXT RQPARTX 
      PROC DB$RWR (FITLIST,RLORD);
      BEGIN 
 #
* *   DB$RWR - REWIND RELATION                   PAGE  1
* *   REWIND RELATION OBJECT-TIME ROUTINE 
* *   E. P. JOHNSON                              DATE  11/08/79 
* * 
* 
* DC  PURPOSE 
* 
*     PARTIALLY FORMAT THE REQUEST PACKET 
*     FOR THE "REWIND RELATION" REQUEST.
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
# 
      ARRAY FITLIST;                   # POINTER TO THE ROOT FIT.      #
        ITEM FITADR U(00,42,18);
      ITEM RLORD I;                    # RELATION ORDINAL.             #
# 
*     ASSUMPTIONS 
* 
*     NONE. 
* 
* DC  EXIT CONDITIONS 
* 
*     THE CALL IS MADE TO DB$RQST.
* 
* DC  CALLING ROUTINES
* 
*     HOST LANGUAGE.
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$RQST;               # COMPLETE THE FORMATING OF     #
                                       # THE REQUEST PACKET AND        #
                                       # ISSUE THE "CALLSS" TO CDCS.   #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     REQUEST PACKET - ARRAY DB$RQBF. 
* 
* DC  DESCRIPTION 
* 
*     - THE PARAMETERS FROM THE CALL (EXCEPT THE FIT) 
*       ARE STORED IN THE REQUEST PACKET. 
* 
*     - THE CALL IS MADE TO DB$RQST, TO COMPLETE
*       THE FORMATING OF THE REQUEST PACKET 
*       AND ISSUE THE "CALLSS" TO CDCS. 
* 
 #
  
# LOCAL ITEMS AND ARRAYS.                                             # 
  
      BASED ARRAY FIT;;                # FOR THE ROOT FIT FROM FITLIST.#
                                       # FOR USE IN CALL TO DB$RQST.   #
  
# COMMON DECKS CDGDFDCLS AND RQPARDCLS ARE USED.                       #
  
  
# S T A R T   O F   D B $ R W R   E X E C U T A B L E   C O D E        #
  
  
# STORE THE CALL PARAMETERS IN THE REQUEST PACKET.                     #
  
      RQPRELOR[0] = RLORD;
  
# CALL DB$RQST.                                                        #
  
      P<FIT> = FITADR [0];
  
      DB$RQST(DFRWR,DFWCRWR,FIT); 
  
  
  
      END 
      TERM
