Figure 4: CHGOBJPGP example

CHGOBJPGP  OBJ(paytab) OBJTYPE(*FILE) NEWPGP(GPPAY)