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