a proc tracing toggler for your application menu
Author: ulrichmerkel@web.de (ulrich-merkel)
entry set_proctrace
$proc_tracing_addition = "|%% $componentname|%% $status|"
askmess "$proc_tracing ist %%$proc_tracing%%%. Umschalten?"
if ($status = 1)
$proc_tracing = !$proc_tracing
message "$proc_tracing ist %%$proc_tracing%%%."
endif
end ; set_proctrace
... provided in the application in the menu will enrich your proc tracing without the need to call the debugger
# $proc_tracing_addition = "|%% $componentname|%% $status|"
# Beispiel:
# |APRT_V00|0|(OPER) READPRINTERMODEL:4 retrieve/e "Pratt"
# |APRT_V00|0|(_read) READ:1 read
# |APRT_V00|-2|(_read) READ:2 [-2] done<end of module>
# |APRT_V00|-2|(OPER) READPRINTERMODEL:5 [-2] if ($status < 0)
# |APRT_V00|-2|(OPER) READPRINTERMODEL:6 [-2] HLOG.PRINTSETTINGS->PUT2("E","$Msg(EX_NO_PRTMODEL$5=%%LAYOUT.PRATT)","")
# |AMSG_V03|0|(OPER) PUT2:1 $instancehandle->GETLEVEL(VLOGLEVEL)
# |AMSG_V03|0|(OPER) GETLEVEL:1 return (0)
