I tried

PROCEDURE dbc_BeforeOpenTable ;
(cTableName)
? '>> ' + PROGRAM()
?? ' in ' + SUBSTR(SYS(16),RAT('\',SYS(16))+1)
? ' cTableName = ' + TRANSFORM(cTableName) + ' - ' ;
+ TYPE('cTableName')+' /end/ '
ENDPROC


also tried :

PROCEDURE dbc_BeforeOpenTable ;
("CL.DBF")
? '>> ' + PROGRAM()
?? ' in ' + SUBSTR(SYS(16),RAT('\',SYS(16))+1)
? ' cTableName = ' + TRANSFORM(("CL.DBF")) + ' - ' ;
+ TYPE('cTableName')+' /end/ '
ENDPROC


Can't see any message displayed

No error messages, looks like it does not triggering anything

Moises