JSMCHGUSERプログラムは、現在のジョブのユーザー・プロファイルを変更する場合にJSMDRTEXTプログラムで使用できます。
DCL VAR(&STATUS) TYPE(*CHAR) LEN(7)
DCL VAR(&USERID) TYPE(*CHAR) LEN(10)
DCL VAR(&PASSWORD) TYPE(*CHAR) LEN(10)
CALL PGM(JSMCHGUSER) PARM(&USERID &PASSWORD &STATUS)
IF COND(&STATUS *NE OK) THEN(DO)