*DECK DB$CLS
USETEXT RQPARTX 
  PROC DB$CLS (FIT,AORD); 
  BEGIN 
 #
* *   DB$CLS                                     PAGE  1
* *   CLOSE OBJECT-TIME ROUTINE 
* *   W P CEAGLIO                                DATE  11/21/75 
* * 
* DC  PURPOSE 
*     FORMAT THE REQUEST PACKET FOR THE "CLOSE" CALL
* 
* DC  ENTRY CONDITIONS
*     STANDARD CALLING SEQUENCE WITH THE FOLLOWING PARAMETERS-- 
* 
*           FIT      FIT WITH REQUIRED PARAMETERS 
*           AORD     AREA ORDINAL 
* 
* DC  EXIT CONDITIONS 
*     THE "CALLSS" SUBSYSTEM REQUEST TO CDCS IS MADE
* 
* DC  CALLING ROUTINES
*     HOST-LANGUAGE 
* 
* DC  CALLED ROUTINES 
*     DB$RQST    FINALIZE REQUEST PACKET AND ISSUE "CALLSS" REQUEST 
* 
* DC  DESCRIPTION 
* 
*     PARAMETERS THAT ARE PECULIAR TO THE REQUEST ARE FORMATTED IN THE
*     BUFFER DEFINED IN DB$RQST. THEN DB$RQST IS CALLED TO FORMAT THE 
*     COMMON PARAMETERS AND TO ISSUE THE "CALLSS" SUBSYSTEM FUNCTION. 
* 
 #
  
# THE FOLLOWING PARAMETERS ARE FROM THE "CLOSE" CALLING SEQUENCE       #
  
      ARRAY FIT;; 
      ITEM AORD;                        # AREA ORDINAL                 #
  
  
      XREF PROC DB$RQST;
  
  
  
#     B E G I N   D B $ C L S   E X E C U T A B L E   C O D E .        #
  
  
  
#     FILL IN ENTRIES IN THE REQUEST PACKET BUFFER                     #
  
      RQPARORD [0] = AORD;
  
#     COMPLETE REQUEST PACKET AND ISSUE "CALLSS" REQUEST               #
  
      DB$RQST (DFCLS,DFWCCLS,FIT);
  
  
 END
      TERM
