how to recognize Profound ui code on CL
Posted: Thu Sep 27, 2012 11:18 am
How to recognize Profound ui code on CL.
We use the following code to test if we are running under Genie:
DCL VAR(&GENIE) TYPE(*CHAR) LEN(1)
/* *** Check if we are running under Genie *** */
/* ----------------------------------- */
CALL PGM(PROFOUNDUI/PUI0002300) PARM(&GENIE)
&GENIE would be set to '1' if true and '0' if false.