PROCEDURE dbc_AfterDeleteConnection(cConnectionName) 

PROCEDURE dbc_AfterConnection
LPARAMETERS cConnectionName

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