*DECK DB$STX
USETEXT   RQPARTX 
      PROC DB$STX (FIT,ARORD,PKAKORD);
      BEGIN 
 #
* *   DB$STX - START ON INDEX FILE               PAGE  1
* *   START ON INDEX FILE OBJECT-TIME ROUTINE 
* *   E. P. JOHNSON                              DATE  10/16/79 
* * 
* 
* DC  PURPOSE 
* 
*     PARTIALLY FORMAT THE REQUEST PACKET 
*     FOR THE "START ON INDEX FILE" REQUEST.
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
# 
      ARRAY FIT;                       # FIT WITH REQUIRED PARAMETERS  #
*CALL FITDCLS 
  
      ITEM ARORD   I;                  # AREA ORDINAL                  #
      ITEM PKAKORD I;                  # ALTERNATE KEY ORDINAL         #
# 
*     ASSUMPTIONS 
* 
*     NONE
* 
* DC  EXIT CONDITIONS 
* 
*     THE CALL IS MADE TO DB$RQST.
* 
*     IF CONTROL IS RETURNED FROM CDCS (WILL ALWAYS RETURN
*     FOR INTERACTIVE USER) THE FIT FIELDS FP AND KNE 
*     WILL BE RETURNED TO THE USER. 
* 
* DC  CALLING ROUITNES
* 
*     HOST LANGUAGE 
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$RQST;               # COMPLETE THE FORMATING OF THE #
                                       # REQUEST AND ISSUE "CALLSS"    #
                                       # TO CDCS.                      #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     REQUEST PACKET - ARRAY DB$RQBF
* 
*     THE FIELDS FP AND KNE OF USER FIT 
* 
* 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 IS MADE TO DB$RQST, TO COMPLETE THE FORMATING
*       OF THE REQUEST PACKET AND TO ISSUE THE "CALLSS" TO CDCS.
* 
*     - THE FIT FIELDS FP AND KNE ARE RETURNED TO THE USER. 
* 
*     - 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.                       #
  
      CONTROL EJECT;
  
# S T A R T   O F   D B $ S T 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(DFSTX,DFWCSTX,FIT); 
  
# RETURN THE FIT FIELDS FP AND KNE TO THE USER.                        #
  
      FITFP [0] = RQPFITFP [0]; 
      FITKNE[0] = RQPFITKNE[0]; 
  
# 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
