4.7.5 JSMCHGUSER
The JSMCHGUSER program can be used in the JSMDRTEXT program to change the user profile of the current job.
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)