*DECK DB$DROP 
USETEXT,RQPARTX 
      PROC DB$DROP(STAT); 
      BEGIN 
 #
* *   DB$DROP - DROP TRANSACTION                 PAGE  1
* *   DROP TRANSACTION OBJECT-TIME ROUTINE
* *   W. P. CEAGLIO                              DATE  09/24/80 
* * 
* 
* DC  PURPOSE 
* 
*     PARTIALLY FORMAT THE REQUEST PACKET FOR THE 
*     *DROP TRANSACTION* REQUEST. 
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
# 
      ITEM STAT        I;    # OUTPUT - ERROR STATUS                   #
# 
*     ASSUMPTIONS 
* 
*     NONE
* 
* DC  EXIT CONDITIONS 
* 
*     THE *CALLSS* SUBSYSTEM REQUEST TO CDCS IS MADE.  IF A NON-FATAL 
*     ERROR IS DIAGNOSED BY CDCS, CONTROL IS RETURNED WITH THE ERROR
*     NUMBER SET IN THE REQUEST PACKET--THIS IS SET IN THE *STAT* CELL. 
* 
* DC  CALLING ROUTINES
* 
*     HOST-LANGUAGE 
* 
* DC  CALLED ROUTINES 
* 
# 
      XREF PROC DB$RA0;      # PARAMETER LIST TERMINATOR               #
      XREF PROC DB$RQST;     # COMPLETE THE FORMATING OF THE           #
                             # REQUEST AND ISSUE THE CALLSS TO CDCS.   #
# 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     DB$RQBF - REQUEST PACKET BUFFER 
* 
* DC  DESCRIPTION 
* 
*     DB$RQST IS CALLED TO FORMAT THE COMMON PARAMETERS AND TO ISSUE
*     THE *CALLSS* FUNCTION.  UPON RETURN, THE STATUS PARAMETER IS SET
*     TO THE VALUE RETURNED IN THE REQUEST PACKET HEADER.  CONTROL THEN 
*     IS RETURNED TO THE CALLER.
* 
 #
  
#     COMMON DECKS CDGDFDCLS AND RQPARDCLS ARE USED.                   #
  
  
  
#     S T A R T  O F  D B $ D R O P  E X E C U T A B L E  C O D E      #
  
  
#     COMPLETE REQUEST PACKET AND ISSUE *CALLSS* FUNCTION              #
  
      DB$RQST(DFDRP,DFWCDRP,DB$RA0);
  
#     SET STATUS PARAMETER FROM REQUEST PACKET AND RETURN TO CALLER    #
  
      STAT = RQPKERR[0];
  
      END 
      TERM
