in opcode in ibmi rpg as400