*DECK DB$RWX
USETEXT   RQPARTX 
      PROC DB$RWX (FIT,ARORD,PKAKORD);
      BEGIN 
 #
* *   DB$RWX - REWIND INDEX FILE                 PAGE  1
* *   REWIND INDEX FILE OBJECT-TIME ROUTINE 
* *   E. P. JOHNSON                              DATE  10/16/79 
* * 
* 
* DC  PURPOSE 
* 
*     PARTIALLY FORMAT THE REQUEST PACKET 
*     FOR THE "REWIND INDEX FILE" REQUEST.
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
# 
      ARRAY FIT  ;;                    # FIT WITH REQUIRED PARAMETERS  #
      ITEM ARORD I;                    # AREA ORDINAL                  #
      ITEM PKAKORD I;                  # ALTERNATE KEY 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 INDEX FILE PROCESSING FLAG IS SET 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. 
* 
*     - TO AVOID HAVING THE INDEX FILE ONLY PROCESSING FLAG 
*       (NDX) SET IN THE REQUEST PACKET WHEN AREA FILE PROCESSING 
*       IS REQUESTED SET THE NDX FIELD TO FALSE.
* 
 #
# COMMON DECKS CDGDFDCLS AND RQPARDCLS ARE USED.                       #
  
  
# S T A R T   O F   D B $ R W X   E X E C U T A B L E   C O D E        #
  
  
# STORE CALL PARAMETERS AND INDEX FILE PROCESSING                      #
# FLAG IN THE REQUEST PACKET.                                          #
  
      RQPARO   [0] = ARORD  ; 
      RQPPAKORD[0] = PKAKORD; 
      RQPFITNDX[0] = TRUE ; 
  
# CALL DB$RQST.                                                        #
  
      DB$RQST(DFRWX,DFWCRWX,FIT); 
  
# TO AVOID HAVING THE INDEX FILE ONLY PROCESSING FLAG                  #
# (NDX) SET IN THE REQUEST PACKET WHEN AREA FILE PROCESSING            #
# IS REQUESTED SET THE NDX FIELD TO FALSE.                             #
  
      RQPFITNDX[0] = FALSE; 
  
      END 
      TERM
