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)