4.7.6 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)