*DECK DB$ABT
USETEXT RQPARTX 
      PROC DB$ABT;
      BEGIN 
 #
* *   DB$ABT -- ABNORMAL TASK ABORT PROCESSOR    PAGE  1
* *   ABNORMAL TASK ABORT OBJECT-TIME ROUTINE 
* *   W P CEAGLIO                                DATE  04/01/79 
* * 
* 
* DC  PURPOSE 
* 
*     FORMAT THE REQUEST PACKET FOR THE "ABNORMAL TASK ABORT" REQUEST 
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
* 
*     NONE
* 
* DC  EXIT CONDITIONS 
* 
*     THE "CALLSS" REQUEST TO CDCS IS MADE VIA DB$RQST
* 
* DC  CALLING ROUTINES
* 
*     HOST-LANGUAGE 
* 
* DC  CALLED ROUTINES 
* 
# 
      XREF PROC DB$RQST;           # ISSUE "CALLSS" REQUEST            #
      XREF ARRAY DB$RA0;;          # PARAMETER LIST TERMINATOR         #
# 
* 
* DC  NON-LOCAL VARIABLES 
* 
*     REQUEST PACKET (DB$RQBF)
* 
* DC  DESCRIPTION 
* 
*     DB$RQST IS CALLED TO COMPLETE THE REQUEST PACKET WITH THE FUNCTION
*     CODE AND TO ISSUE THE "CALLSS" REQUEST.  FOR NORMAL CASES, CONTROL
*     IS RETURNED TO THE HOST-LANGUAGE. 
* 
 #
  
#     S T A R T  O F  D B $ A B T    E X E C U T A B L E  C O D E      #
  
#     ISSUE "CALLSS" REQUEST VIA DB$RQST                               #
  
      DB$RQST(DFTER,DFWCTER,DB$RA0);
  
      END 
      TERM
