Vielleicht hilft ja eine Umgehung ?
CHGPGM PGM(QSTRUPPGM)
USRPRF(*OWNER)

CHGOBJOWN OBJ(QSTRUPPGM)
OBJTYPE(*PGM)
NEWOWN(QSECOFR)
CUROWNAUT(*REVOKE)