Page History
...
JSMGETENV
...
JSMGETENV プログラムは、JSMADMEXT、JSMPXYEXT、JSMDRTEXT、JSMLSAEXT の各プログラムで使用して、CGI 環境変数を読み込むことができます。
プログラムのステータス・コードには、OK、ERROR、NOVAR のいずれかの値があります。
| Code Block |
|---|
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 |