HP 3000 Manuals

HP COBOL II/XL Programmer's Guide

Appending to Files 

To append records to a file, you must include the EXTEND phrase in the
OPEN statement.  You can add new records until the space originally
allocated to the file is filled.

Example 

The following program appends records to a file.

       IDENTIFICATION DIVISION.
       PROGRAM-ID. FILE-EX3.
     * This program appends records to a file.
     * File ifile will be concatenated to the end of ofile.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT IFILE             ASSIGN "IFILE".
           SELECT OFILE             ASSIGN "OFILE".
       DATA DIVISION.
       FILE SECTION.
       FD  IFILE.
       01  IREC                     PIC X(80).
       FD  OFILE.
       01  OREC                     PIC X(80).
       PROCEDURE DIVISION.
       P1.
          OPEN INPUT IFILE EXTEND OFILE.
          PERFORM WITH TEST AFTER UNTIL IREC = ALL "9"
              READ IFILE
                  AT END MOVE ALL "9" TO IREC
                  NOT AT END WRITE OREC FROM IREC
                  END-READ
              END-PERFORM
          CLOSE IFILE OFILE
          STOP RUN.

MPE/iX 5.0 Documentation