#TEMPLATE (GetProcedureName, 'Get Proc name'),FAMILY('ABC'),FAMILY('CW20')
#!
#EXTENSION (GetProcExt, 'Get Proc name extension'), PROCEDURE
#DISPLAY('')
#DISPLAY('Another Freeware template from Sterling Data')
#DISPLAY('')
#DISPLAY('A template to display Procedure info')
#DISPLAY('')
#DISPLAY('More template examples available on :')
#DISPLAY('www.sterlingdata.com')
#LOCALDATA
ProcedureName        STRING(30)
ProcedurePrototype    STRING(60)
ProcedureType          STRING(20)
ProcedureDescription  STRING(60)  ! Short Description
#ENDLOCALDATA
#AT(%ProcedureSetup)
ProcedureName='%Procedure'
#FIX(%Procedure,%Procedure)
ProcedureProtoType='%Prototype'
ProcedureType='%ProcedureType'
ProcedureDescription='%ProcedureDescription'
#ENDAT