To add to a QSAM file, open the file as EXTEND and use the WRITE statement to add records immediately after the last record in the file.
To add records to a file opened as I-O, you must first close the file and open it as EXTEND.
related references
READ statement (Enterprise COBOL Language Reference)
WRITE statement (Enterprise COBOL Language Reference)