*DECK DBCLOSEDN 
USETEXT DBTEXT
PROC CLOSEDOWN; 
*CALL DEBUGVARS 
*CALL GETSET
*CALL TABLNAMES 
*CALL AUXT1 
*CALL AUXTVALS
START("CLOSEDOWN")
FINIS("CLOSEDOWN")
TERM
