Par2: A template to return the current procedure name 1998-09-21 -- Craig Ransom Note that it's for CW 2003 but the same rules apply, but in C4/C5 you will have to add FAMILY() to it and check to make sure that the embed points are still there! #TEMPLATE(ThisProcTPL,'Save Procedure Name TPL') #!------------------------------------------------------------- #EXTENSION(ThisProc,'Save Procedure Name TPL') #AT(%GlobalData) CurrentProcedureName STRING(64) #ENDAT #AT(%ProcedureSetup),FIRST CurrentProcedureName = '%Procedure' #ENDAT Populate this at the GLOBAL level in your app, and it will "hook" itself into _all_ the procedures Printed May 5, 2024, 9:57 am This article has been viewed/printed 35117 times. |