* RPG/400 syntax: FDSPGRPLFIF E K DISK F QSYDSUPB KRENAMEGRPRCD * ILE RPG IV syntax: FDSPGRPLF IF E K DISK F RENAME(QSYDSUPB:GRPRCD)