($title_img_alt)

こちらからの投稿は、先頭に表示されているコメントへの返信になります。
RPG DELET でのエラー HIROX さん [ 6月6日(水) 18時13分 ]
もし、同じような症状に合われた方、何かわかるよ!という方がいらっしゃれば
教えて頂きたく。

ある物理ファイルを単純にREAD した後に DELET 命令でレコードをDELETしよ
うとした時に、
RPGがこけてしまいます。
ステップなどで見てみると、DELET命令時に標識がONで正常削除が出来ていな
く、次のREAD時に
RPGがこけています。

ジョブログのエラーでは、
「機械命令内での機能エラーX'1716'。内部ダンプ識別コード(ID)はです。
ライブラリー●●●LIBファイル▲▲▲▲Pの装置またはメンバー▲▲▲▲Pに障害が
 ある。                                                              
ライブラリー●●●LIBファイル▲▲▲▲Pのプログラム装置またはメンバー▲▲▲▲P
 にエラーがあるために,入出力操作を使用することができない。
(C G S D F) ▲▲▲▲PでCPF5129入出力エラーが検出された。   」

とあります。
色々調査はしてみたのですが、お手上げです。

復旧は物理ファイルを削除の後、ファイルを切り直しで対応しようと思ってい
ますが、
その前に何かできること、情報などがあればご教授願いたく。

よろしくお願いします。

AS400バージョン:V7R1M0    
RE:RPG DELET でのエラー IKD さん [ 6月14日(木) 8時2分 ]
エラー・メッセージからすると事態は深刻なように
見えます。

          READ FILE             50
 N50      DELETE @RECORD

 のようにレコードの削除命令はREADが成功したときだけに
 条件づけられていますか?
 もし無条件に DELETE 命令を実行していると
 予測できないことが起こる可能性があります。
 必ず READが成功しているときだけの削除が必要です。
 まさかバッチ・プログラムで削除してるってことは
 ないですよね?
RE:RPG DELET でのエラー HIROX さん [ 6月14日(木) 12時39分 ]
お返事ありがとうございます。

もちろん、READが成功した時だけDELET命令がされるようになっています。
その辺りには問題がないことだけは確認済みです。

そもそもがRPGのPGMによるエラーではないと考えています。
物理ファイルに対して何かできないことはないのかな?と考えていました。

ですが、下手にいじるよりは・・・と思い、データを逃がして物理ファイルを
リネームし再度きりなおし、データを戻して対応しました。

アクセスパスが何かおかしいまではわかったのですが、これ以上は無理かなーと
思っています。

停電 HJ さん [ 6月18日(月) 10時58分 ]
ファイルのアクセス中に、停電すると、たまに損傷が起こる。
到着順だと、データは、取り出せる。

お名前

パスワード

メールアドレス

タイトル

ホームページ

アドレス

項目