... im Prinzip schon, wenn da die Members nicht wären. Ohne IFS geht's so:

FTP RMTSYS(*INTNETADR) INTNETADR('000.000.000.000')
dann Eingaben:
<USRPRF>
<KENNWORT>
EBCDIC
CD QGPL
LCD QGPL
PUT FILEA.MEMBER FILEB.MEMBER (REPLACE
QUIT

Gruß, Robert