REXX wird ( ganz zu Unrecht ) oft übersehen ist aber hier der wohl einfachste Weg :

Code:
'OVRDBF FILE(STDIN) TOFILE(YOURLIB/YOURPF)'
'OVRDBF FILE(STDOUT) TOFILE(YOURLIB/YOURSAVF)'
DO FOREVER
 PARSE LINEIN inputrecord
 IF inputrecord == '' THEN LEAVE
 SAY inputrecord
END
EXIT