Par2: Template to create INC files 1998-09-15 -- Craig Ransom #TEMPLATE(ExportIncTpl,'Create INC from Export TPL'),Family('ABC'),FAMILY('CW20')
#!-------------------------------------------
#UTILITY(ExportInc,'Create INC of Export Procedures')
#DECLARE(%Procout)
#CREATE(%Application & '.INC')
#FOR(%Procedure)
#IF(%ProcedureExported)
#SET(%Procout,%Procedure)
#IF(%Prototype)
#SET(%Procout,%Procout & %Prototype)
#ELSE
#SET(%Procout,%Procout & '()')
#ENDIF
#IF(%ProcedureDescription)
%[50]Procout !%ProcedureDescription)
#ELSE
%Procout
#ENDIF
#ENDIF
#ENDFOR
#CLOSE
Register it and run from the Utility (Ctrl+U) on any open app. It will
ONLY generate for items checked as export. The esulting file is named
'appname.inc' where appname is the name of the application.
Printed November 21, 2024, 6:46 am This article has been viewed/printed 35204 times. |