PROCEDURE dbc_AfterDropTable(cTableName, lRecycle) 

PROCEDURE dbc_AfterDropTable
LPARAMETERS cTableName, lRecycle

* Reports to the screen the event name, where it is called from, and
* the parameter values passed to it.
PROCEDURE dbc_AfterDropTable ;
         (cTableName, ;
          lRecycle)
? '>>   ' + PROGRAM()
?? ' in ' + SUBSTR(SYS(16),RAT('\',SYS(16))+1)
? '     cTableName = ' + TRANSFORM(cTableName) + ' - ' ;
                   + TYPE('cTableName ')
? '     lRecycle   = ' + TRANSFORM(lRecycle)   + ' - ' ;
                   + TYPE('lRecycle')+' /end/ '
ENDPROC