シーケンシャルファイルの最後の3レコードを削除する方法

Question

私のシーケンシャルファイルにnレコードがあり、COBOLプログラムを使用してシーケンシャルファイルの最後の3レコードを削除する必要があります。これどうやってするの？

Answer 1

はい、トリックはありますが、異なるCobolコンパイラと異なるOSバージョンを移植するものはありません。

完全に移植可能なCobolスタイルで実行する場合は、一度に3つのレコードをバッファリングするファイル全体を読み取り、バッファから落ちるごとに各レコードを書き込みます。ファイルの終わりに達すると、バッファリングされたレコードの書き込みを停止し、最後の3つを削除します。

いくつかの擬似COBOLは、次のようになります。

Perform Fill-Buffer 
    Perform until End-Of-File 
     Perform Write-Buffer 
     Perform Fill-Buffer 
    End-Perform 
    . 

Write-Buffer. 
    Write OUTPUT-FILE 
    from The-Buffer (TOP-OF-BUFFER) 
    End-Write 
    . 

Fill-Buffer. 
* Do reads to fill a 3 position ring buffer 
* and adjust TOP-OF-BUFFER to the current record... 
    . 

これは実際にはより良いSORTのように、ユーティリティを使用して行われるものです。しかし、あなたはCobolでそれを行うことができます。

Answer 2

あなたが読んでいるファイルの数を知っていますか、またはプログラムを実行するたびに変更されますか？

カウントを知らなくても簡単な方法はありません。それ以外の場合は、ファイルを2回、1回はカウントに、2回目には新しい更新レコードを保存する必要があります。

スペースとメモリが大きな問題でない場合は、作業記憶域にファイル全体を表にしてから、最後の3レコードを差し引いたファイルをテーブルから書き戻します。その結果、1回だけファイルが読み込まれ、余分な読み書きは行われません。

Answer 3

以下に示すように、dfssortユーティリティを使用すると、非常に効率的かつ高速にこの作業を行うことができます。これは単なる例です。レコードの長さなどのパラメータを適宜変更してください。また、ここで手動でレコード数を数える必要があります。

//SORTT001 EXEC PGM=SORT            00100003 
//SYSOUT DD SYSOUT=*             00110003 
//SORTIN DD DSN=INPUT.FILE,DISP=SHR         00160003 
//SORTOUT DD DSN=OUTPUT.FILE,           00170003 
//    SPACE=(2790,(5376,1075),RLSE),       00180003 
//    UNIT=SYSSF,            00190003 
//    DCB=(RECFM=FB,LRECL=0080,BLKSIZE=0),      00200003 
//    DISP=(NEW,CATLG,DELETE)         00210003 
//SYSIN DD *              00220003 
SORT FIELDS=COPY,STOPAFT=100           00230003 
/*  

レコードの数を数えて、それに応じて「STOPAFT = 100」を更新してください。一般化されたソリューションをご希望の場合はお知らせください。