Eigentlich würde ich da noch nicht mal RPG bemühen:
CPYF FROMFILE(FROMFILE)
TOFILE(TOFILE)
MBROPT(*ADD)
FROMRCD(*START)
NBRRCDS(1)
Ggf. mit MONMSG abfangen, wenn es einen Fehler bei leerer Datei gibt.