cobol - cobol を使用して個々のレコードを削除するにはどうすればよいですか?

Question

商品番号: XXXXXX

製品説明:

製品数量

製品価格

このレコードを削除しますか?

ID を入力するだけで、その情報にアクセスして、レコードを削除するかどうかを尋ねることができます。

誰でも私を助けることができますか？私はCobolで少し新しいです。私は 1985 cobol を使用しており、Windows Vista OS で実行しています。

score 1 · Accepted Answer

ファイルがシーケンシャルに開かれている場合は、そのレコードをプログラムに READ した後、DELETE ステートメントを実行します。

ファイルがランダムまたは動的に開かれている場合は、RELATIVE KEY または RECORD KEY を削除するレコードに設定して DELETE ステートメントを使用します (削除前にレコードを読み取る必要はありません)。

どちらの場合も、ステートメントの最小限のコーディングは次のようになります。

ファイル名を削除します。

score 1 · Accepted Answer

から現在のレコードを削除する場合は、次のようにします。

DELETE file
     ON INVALID KEY 
          what to do 
     NOT ON INVALID KEY
          what to do
END-DELETE

ファイル自体を削除するには、JCL またはローカルの同等のファイル (例: os) に含めます。

2 に答える 2