再登録:COBOLからWindowsが見えないか?

3:Re:再登録:COBOLからWindowsが見えないか?
温泉好きのうさぎ 06/30 20:39
決してスマートとは言えないと思いますが、以下のような処理を行うCOBOLのプログラムを作成してはいかがでしょうか。

(1) 存在確認したいWindowsファイルのパスを含むDosコマンドのデータを、ファイル連携機能のサーバファイルアクセスを使って、WindowsファイルとしてA-VXサーバーの共有領域に出力する。

(2) そのときのWindowsファイルの拡張子を「.bat」として、バッチファイルにしておく。

(3) WSエミュレータのクライアントAP起動機能を使って、上で出力したバッチファイルを起動する。(””27”Q00〜”のDISPLAY)

(4) バッチファイルには存在確認の結果を返すようなコマンドを記述しておく。

(5) 存在確認の結果を受け取る。


具体的にどのようなDosコマンドを記述したバッチファイルを出力すればよいのかというと、残念ながら私はDosコマンドの知識が乏しいもので、以下のようなものしか思いつきません。
(見やすくするために語と語の間の空白を大きく取ってあります。)


IF  EXIST  ¥¥□¥□¥□.TXT  GOTO  ARIARI
COPY  ¥¥×¥×¥無.TXT   ¥¥△¥△¥△.TXT
GOTO  ENDJOB
:ARIARI
COPY  ¥¥○¥○¥有.TXT   ¥¥△¥△¥△.TXT
:ENDJOB
EXIT


ここで、
¥¥□¥□¥□.TXT は、存在確認したいファイル
¥¥×¥×¥無.TXT は、存在しなかったときの結果値(例えば0)が入っているファイル
¥¥○¥○¥有.TXT は、存在したときの結果値(例えば1)が入っているファイル
¥¥△¥△¥△.TXT は、結果を検査するためのファイル

¥△¥△.TXTのファイルもサーバファイルアクセスによって定義しておき、COBOLから直接参照して内容値を検査し、0であれば無し、1であれば有りと判断します。
なお、この検査用ファイルは実行前にあらかじめ値をスペースクリア等しておいて、コマンドが実行されたかどうかの判断もできるようにしておき、まだであれば少し時間をおいて再試行するような動きにしておけばよいでしょう。


1-

BluesBB ©Sting_Band