PROCEDURE dbc_AfterAddTable(cTableName, cLongTableName) 

PROCEDURE dbc_AfterAddTable
LPARAMETERS cTableName, cLongTableName

PROCEDURE dbc_AfterAddTable ;
         (cTableName, ;
          cLongTableName)
? '     cTableName     = ' + TRANSFORM(cTableName)     + ' - ' ;
                       + TYPE('cTableName ')
? '     cLongTableName = ' + TRANSFORM(cLongTableName) + ' - ' ;
                       + TYPE('cLongTableName ')+' /end/ '
ENDPROC