QSAM ファイルに追加を行うためには、ファイルを EXTEND としてオープンし、WRITE ステートメントを使用して、ファイルの最後のレコードの直後にレコードを追加します。
I-O としてオープンされたファイルにレコードを追加したい場合には、ファイルをいったんクローズしてから、EXTEND としてオープンしなければなりません。
関連参照
READ ステートメント (Enterprise COBOL 言語解説書)
WRITE ステートメント (Enterprise COBOL 言語解説書)