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)