/**/
Parse Arg wplport Line baud host_address Infile Listed remote_address remote_sysop
if arg() = 0 then EXIT
xfq_site_object = XfqGetAddress(remote_address)
if XfqHoldMailer(xfq_site_object) then address "AREXX" "ram:rexx/RFS.rexx" wplport Line baud host_address Infile Listed remote_address remote_sysop
else address "LOGPROC" 'Putlog roofwpl' time() Line script 'HOLD Failed:'XFQERRORMSG remote_address
drop XFQERRORCODE XFQERRORMSG
exit