*DECK DB$SKF
USETEXT   RQPARTX 
      PROC DB$SKF(FIT,ARORD,COUNT); 
      BEGIN 
 #
* *   DB$SKF - SKIP ON AREA FILE                 PAGE  1
* *   SKIP ON AREA FILE OBJECT-TIME ROUTINE 
* *   E. P. JOHNSON                              DATE  10/16/79 
* * 
* 
* DC  PURPOSE 
* 
*     PARTIALLY FORMAT THE REQUEST PACKET 
*     FOR THE "SKIP ON AREA FILE" REQUEST.
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
# 
      ARRAY FIT    ;;                  # FIT WITH REQUIRED PARAMETERS. #
      ITEM ARORD I;                    # AREA ORDINAL.                 #
      ITEM COUNT I;                    # NUMBER OF RECORDS TO SKIP.    #
# 
*     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 "CALLSS" TO CDCS.       #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     REQUEST PACKET - ARRAY DB$RQBF
* 
* DC  DESCRIPTION 
* 
*     - THE PARAMETERS FROM THE CALL (EXCEPT THE FIT) 
*       AREA STORED IN THE REQUEST PACKET.
* 
*     - THE CALL IS MADE TO DB$RQST, TO COMPLETE
*       THE FORMATING OF THE REQUEST PACKET 
*       AND ISSUE "CALLSS" TO CDCS. 
* 
 #
# COMMON DECKS CDGDFDCLS AND RQPARDCLS ARE USED.                       #
  
  
# S T A R T   O F   D B $ S K 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;
      RQPSRCNT[0] = COUNT;
  
# CALL DB$RQST.                                                        #
  
      DB$RQST(DFSKF,DFWCSKF,FIT); 
  
      END 
      TERM
