COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

If you run out of disk space, the corrupt bit is set, the program terminates abnormally, and
you cannot open the file. If the file is entry-sequenced, use FUP to clear the corrupt bit. If the
file is not entry-sequenced, the file is unusable.
An auxiliary block buffer can be shared by two files in a program as long as both are not
open at the same time. The space is allocated as part of the open operation and deallocated
as part of the close operation. The SAME AREA clause has no effect on space allocation or
deallocation.
Example 29 contains two simple sequential files:
◦ An input file that the COBOL program recognizes as MASTER1-IN and to the operating
system as NAMEFILE in a subvolume name SUB1 on a disk drive named $BULK.
◦ An output file that the COBOL program recognizes as REPORT-OUT and to the Guardian
environment as a DEFINE named =ROSTER-PRINTER.
Example 29 FILE-CONTROL Paragraph for Sequential File
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MASTER1-IN
ASSIGN TO "$BULK.SUB1.NAMEFILE"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
SELECT REPORT-OUT
ASSIGN TO "=ROSTER-PRINTER"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
...
DATA DIVISION.
FILE SECTION.
FD MASTER1-IN
LABEL RECORDS ARE OMITTED.
...
FD REPORT-OUT
LABEL RECORDS ARE OMITTED.
...
File-Control Entries for Line Sequential Files
Line sequential files are available only in the OSS environment.
Input-Output Section 125