サポートチーム便り2011.04.20
CLコマンドを使用してIFSディレクトリーのファイル名をOutfileに書き込む
Question
CL プログラムで CPYFRMIMPF コマンドを使用して、日々、ASCII ファイルの内容を物理ファイルにコピーできればと考えています。しかし、IFS フォルダーの ASCII ファイル名が毎日変わるので、どのようなファイル名になるのか前もってわかりません。そのため、ファイル名を検索し、それを自動的に CPYFRMIMPF コマンドに渡したいと思っています。見つけた中で最も近いと思った CL コマンドは RTVDIRINF でしたが、データが PF ですべてバイナリーのようなのです。
これしか代替方法がない場合は、IFS と連携して動作する RPG IV プログラムを作成するにあたり多少の参考資料はあります。IFS のディレクトリーからファイル名を取得し、それらを outfile に書き込む CL コマンドはないでしょうか。
Answer
シェル・ユーティリティーを使用できます。
find /home/ -name '*.txt'
-exec system "CPYFRMIMPF FROMSTMF('{}')
TOFILE(MYLIB/MYFILE) RCDDLM(*ALL)" \;
また Scott Klement 氏が、CL 内から PHP、QShell、PASE の各ツールを実行することに関して優れた記事を書いています。
http://systeminetwork.com/article/its-easy-run-php-qshell-and-pase-tools-cl-too.
