Hallo Lisa,
oder Du machst dies:

CRTUSRPRF USRPRF(QIPSJOB) TEXT('Infoprint Server User
Profile') SPCAUT(*NONE) SPCENV(*NONE) PTYLMT(0) ACGCDE(*SYS) AUT(*EXCLUDE)

CALL PGM(QIPS/QIPSCHGOWN)