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 END
ENDDO