*DECK DB$RWF
USETEXT   RQPARTX 
      PROC DB$RWF (FIT,ARORD);
      BEGIN 
 #
* *   DB$RWF - REWIND AREA FILE                  PAGE  1
* *   REWIND AREA FILE OBJECT-TIME ROUTINE
* *   E. P. JOHNSON                              DATE  10/16/79 
* * 
* 
* DC  PURPOSE 
* 
*     PARTIALLY FORMAT THE REQUEST PACKET 
*     FOR THE "REWIND AREA FILE" REQUEST. 
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
# 
      ARRAY FIT  ;;                    # FIT WITH REQUIRED PARAMETERS  #
      ITEM ARORD I;                    # AREA 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;               # FORMAT REQUEST AND ISSUE      #
                                       # "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 TO DB$RQST IS MADE, TO COMPLETE THE FORMATING 
*      OF THE REQUEST PACKET AND TO ISSUE THE "CALLSS" TO CDCS. 
* 
 #
# COMMON DECKS CDGDFDCLS AND RQPARDCLS ARE USED.                       #
  
      CONTROL EJECT;
  
# S T A R T   O F   D B $ R W F   E X E C U T A B L E   C O D E        #
  
  
# STORE CALL PARAMETERS IN THE REQUEST PACKET.                         #
  
      RQPARO   [0] = ARORD  ; 
  
# CALL DB$RQST.                                                        #
  
      DB$RQST(DFRWF,DFWCRWF,FIT); 
  
      END 
      TERM
