| 雰囲気だけ
手続き実行 作業file("購入品マスタ.xvx",&購入品マスタ) &DSQL="False" 結合 &購入品マスタ,,モード=専有,リトライ=する,変数使用=する
手続き定義開始 作業file( 文字列 &指定file,参照 文字列 &結果 ) 繰り返し &秒=1,99,1 &結果=#ファイル名(&指定file,2)+"_"+#文字列(&秒,2)+"."+#ファイル名(&指定file,4) ケース開始 ケース (#ファイルサイズ(&結果)<1) 繰り返し中止 ケース (#表番号取得(&結果)<1 .and #ファイル使用(&結果,1)=1) 繰り返し中止 ケース終了 繰り返し終了 ファイル複写 &指定file,&結果 手続き定義終了
|