O
OctavioOlguin
Guest
Having trouble to dbug some procedures that remotelly connect to appserver, so i came to this way of logging. I remeber have seen a better way. Hoping someone to point me in that direction. &SCOPED-DEFINE logging YES DEFINE STREAM dbg. &scoped-define logit OUTPUT STREAM dbg TO value(SESSION:TEMP-DIRECTORY + "dbg.txt") APPEND. ~ PUT STREAM dbg SKIP(1) NOW " ". &scoped-define CloseIt OUTPUT STREAM dbg CLOSE. ... &if {&logging} &then {&logit} PUT STREAM dbg "Getting connection". {&CloseIt} &endif GET-KEY-VALUE SECTION "CONNECTION" KEY "AppServerUser" VALUE pUsuario. GET-KEY-VALUE SECTION "CONNECTION" KEY "SucursalAppServer" VALUE t1Char.
Continue reading...
Continue reading...