|
1:SELECTSYS@WK1�� Tama 03/28 09:47 ＣＯＢＯＬプログラムでＲＤＢファイルをＳＥＬＥＣＴ命令 で使用するとＳＹＳ＠ＷＫ１を使用してしまう為に他のＳＹ Ｓ＠ＷＫ１を使用しているプログラムがファイル使用中で止 まってしまいます。 現状でＳＥＬＥＣＴ命令を使用しているプログラムが相当数 あり業務が停滞して困っています、＃ＳＯＲＴのようにテン ポラリーファイルを指定する方法か何か別の解決策はないで しょうか、どうかお知恵をお貸し下さい。 2:Re:SELECTSYS@WK1�� NNN3 03/28 10:35 ＣＯＢＯＬプログラムでＲＤＢファイルをＳＥＬＥＣＴ命令 で使用するとＳＹＳ＠ＷＫ１を使用してしまう為に他のＳＹ Ｓ＠ＷＫ１を使用しているプログラムがファイル使用中で止 まってしまいます。 ------------------------------------------------------ 上記の概念で言うと同じプログラムが、２個以上動かない 見たいですけど、実際は、同時に数本動きます。 別の原因があるのでは．．．．．．．．．．． −−−−−−−−−−−−−−−−−−−−−−−−−−− テストで ＣＯＢＯＬプログラムでＲＤＢファイルをＳＥＬＥＣＴ命令 のプログラムの実行と裏で#SORTでSYS@WK1を利用してＳＯＲＴ を実行しても 特に 変わったことは、ないけど．．．．．．．． 3:Re:SELECTSYS@WK1�� Tama 03/28 11:13 �� �� �� �� 4:Re:SELECTSYS@WK1�� NNN3 03/28 12:18 Express640xi SYS@WK1がなくても動作します。 DEALOCATEして実行してみました。 実行時にSYS@WK2が生成されて動いています。 400,000件分データをCOBOLでSELECTを何本も実行しても 何でもないです。 5:Re:SELECTSYS@WK1�� NNN3 03/28 12:32 DEALOCATE-->DEALLOCATEのスペル間違っていました。 6:Re:SELECTSYS@WK1�� 03/28 12:37 私も、NNN3の意見に賛成です。 原因は別のところにあると思います。 SELECT命令を使用しているプログラムを同時に実行しても全く問題ありません。 「空き容量の問題とか」、「同一プログラムで同時にSORTを使用しているがTEMPORARYになっていないとか」が考えられますが。 ちなみに、エラーメッセージはどんなエラーメッセージでしたか? 7:Re:SELECTSYS@WK1�� NNN3 03/28 12:50 ディスクの未使用領域が、足らないとか 連続した未使用領域が ないとかありませんか．．．．．．．？？？ 特にＭＳＤ０００．．．．．． 8:Re:SELECTSYS@WK1�� Tama 03/28 13:29 ＭＳＤ０００には２０万セクターが連続した空き領域があり ます。 下記のメッセージが表示されました。 I L1090: ファイルは使用中です;MSD000/AVX000/SYS@WK1 . 今までのお話を伺いますとコーディングに問題がありそうな気がしますのでマニュアルを見直してみることにします。 単純なミスを犯しているような気がしてきました、お騒がせして申し訳ありません。 9:自己レス：解決しました Tama 04/06 10:38 あれからソースを見直していたのですが、８インチフロッピーやＭＴＵに入っていてソースが取り出せなかったりと時間がかかってしまいましたが、結論から申しますと私の早とちりでしたお騒がせしまして大変申し訳ございませんでした。 SELECt命令に問題があると思い込んでいたのですがSORT命令が原因でした。 SYS@WK1を一時ファイルに指定することでファイルの使用中はおこらなくなりました。 COBOL85プログラム手引書の4.5.2整列ファイルの項にもきちんと「整列プログラムを複数起動する場合は、整列用ファイルを一時ファイルとして使用することをお勧めします」と書いてありました、もう一度マニュアルを読んで勉強しなおすことにします。 |