*DECK DB$STXP 
      PROC DB$STXP; 
      BEGIN 
 #
* *   DB$STXP - PARAMETER BLOCK FOR DB$STD       PAGE  1
* 
* DC  PURPOSE 
* 
*     ALLOCATE TABLE FOR DB$STD PARAMETERS. 
* 
 #
      XDEF ITEM DB$TLIM = 1000;    #LINE LIMIT FOR SYNTAX TRACE OUTPUT# 
      XDEF ITEM DB$TLCN = 0;       #COUNT OF TRACE LINES PRINTED# 
      XDEF ARRAY DB$CHLS [79];;    #INPUT RECORD BUFFER#
      XDEF BEGIN
*CALL SCANXDCLS 
      END 
      END 
      TERM
