PHP-Code:
PGM
DCL VAR(&OLDHANDLE) TYPE(*CHAR) LEN(12)
DCL VAR(&NEWHANDLE) TYPE(*CHAR) LEN(12)
DCL VAR(&NEWUSER) TYPE(*CHAR) LEN(10)
MONMSG MSGID(CPF0000)
CHGVAR VAR(&NEWUSER) VALUE(Neuer Benutzer)
CALL PGM(QSYGETPH) PARM(*CURRENT *NOPWD &OLDHANDLE)
CALL PGM(QSYGETPH) PARM(&NEWUSER *NOPWD &NEWHANDLE)
CALL PGM(QWTSETP) PARM(&NEWHANDLE)
...
CALL PGM(QWTSETP) PARM(&OLDHANDLE)
CALL PGM(QSYRLSPH) PARM(&NEWHANDLE)
CALL PGM(QSYRLSPH) PARM(&OLDHANDLE)
ENDPGM
Bookmarks