CHGPGM QSTRUPPGM USRPRF(QSECOFR)
CHGOBJOWN OBJ(QSTRUPPGM) OBJTYPE(*PGM) NEWOWN(QSECOFR)