Page History
...
The program status code will have one of the following values OK, ERROR or NOVAR.
...
DCL VAR(&ENVNAME) TYPE(*CHAR) LEN(128)
...
DCL VAR(&ENVVALUE) TYPE(*CHAR) LEN(1024)
...
DCL VAR(&ENVSTS) TYPE(*CHAR) LEN(5)
...
CHGVAR VAR(&ENVNAME) VALUE(HTTPS)
...
CALL PGM(JSMGETENV) PARM(&ENVNAME &ENVVALUE &ENVSTS)
...
IF COND(&ENVSTS *NE 'OK') THEN(DO)
...
GOTO END
...
ENDDO