Par2: App Tree printing utility - template 1998-07-27 -- Sebastian Talamoni Here you have... you will have to translate the text from spanish to english
#UTILITY(APPDocumentador,'Documentador de Aplicación')
#CREATE(%Application & '.TXT')
Arbol de Procedimientos de %Application Fecha:%@d5@ProgramDateChanged
Hora:%@t1@ProgramTimeChanged
--------------------------------------------------------------------------
Fecha
Aplicación : %Application %ProgramDateChanged
Diccionario : %DictionaryFile
#INSERT(%DisplayTree,%FirstProcedure,'',' ')
Variables Globales
--------------------------------------------------------------------------
#FOR(%GlobalData)
%@s25@GlobalData %GlobalDataStatement
#ENDFOR
#CLOSE
#!***********************************************
#GROUP(%DisplayTree,%ThisProc,%Level,%NextIndent)
#FIX(%Procedure,%ThisProc)
%Level+-%ThisProc (%ProcedureTemplate) %ProcedureDescription
#FOR(%ProcedureCalled)
#IF(INSTANCE(%ProcedureCalled)=ITEMS(%ProcedureCalled))
#INSERT(%DisplayTree,%ProcedureCalled, %Level & %NextIndent, ' ')
#ELSE
#INSERT(%DisplayTree,%ProcedureCalled, %Level & %NextIndent, '|')
#ENDIF
#ENDFOR
Printed November 24, 2024, 1:13 am This article has been viewed/printed 35202 times. |