/*長〜いファイル名でもコピー */
/*ちょっと修正 99/02/17 */
/*ご意見下さい NAK@中村 nakaki@infonia.ne.jp */
call RxFuncadd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
call SysLoadFuncs
if arg(1,Omitted) then do
  say 'ファイル名指定してね'
  exit
end
newq = RxQueue('create')                /* キューの確保 */
rc = RxQueue('set', newq)
'@echo %2|rxqueue' newq                 /* キューにリダイレクトする*/
'@dir /a:-d /f %1|rxqueue' newq         /* OS/2コマンドを有効に使いましょう(笑) */
parse pull FOL                          /* arg(1)を分解、解釈するよりこっちの方が楽ちん*/
do until Queued() = 0
  parse pull FNAME
  rc=SysCopyObject(FNAME,FOL)
  if rc=1 then say FNAME
  else say 'あらぁまぁ'FNAME'は'FOL'にコピーできまへん'
end
call RXQueue 'delete', newq             /* キューを削除しないといけないらしい(^^; */
return                                  /* return の方がいいのかなー*/