4.7.8 JSMGETENV
JSMGETENV プログラムは、JSMADMEXT、JSMPXYEXT、JSMDRTEXT、JSMLSAEXT の各プログラムで使用して、CGI 環境変数を読み込むことができます。
プログラムのステータス・コードには、OK、ERROR、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 ENDENDDO |