JSMDRTEXT プログラム内で JSMCHGUSER プログラムを使って、現在のジョブのユーザー・プロファイルを変更できます。
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) |