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

◦ Any applicable USE procedure executes.
◦ The file is not closed.
• COBOL and FUP Closing Procedures Are Incompatible (Multiple-Tape File)
When the run-time routine closes a nonfinal reel of a multiple-tape file, it writes an end-of-file
mark, a trash record, and an end-of-file mark. When the File Utility Program (FUP) closes a
multiple-reel tape file, it writes only the two consecutive end-of-file marks. Because these closing
procedures differ, you must not use FUP to copy tapes written by and for COBOL programs.
Instead, write a simple COBOL program to copy such tapes.
• Process Pairs
When the run unit is executing as a process pair, the execution of a CLOSE file-name
also executes an implied statement of this form:
CHECKPOINT FILE file-name
• Repositioning a Sequential File to Its Beginning
Although you can reposition a sequential file to its beginning by closing it and reopening it,
you can do it faster with the routine COBOL_REWIND_SEQUENTIAL_. For information on
these routines, see COBOL_REWIND_SEQUENTIAL_ (page 620).
CLOSE for Relative, Indexed, and Queue Files
file-name
is the name of the relative,indexed, or queue file to be closed.
When more than one file-name appears, the files can have different organization and
access modes and the optional phrases following one file-name are independent of those
following any other file-name.
LOCK
means the file associated with file-name cannot be opened again during the current run.
If the file is dynamically assignable, the LOCK phrase has no effect (see #DYNAMIC (page 835)).
See these usage considerations in CLOSE for Sequential and Line Sequential Files:
• Effects of CLOSE
• File-Status Data Item
• Closing a File Open Under More Than One Name
• Closing Blocked Files
• Process Pairs
COMPUTE
COMPUTE evaluates an arithmetic expression and stores the result in the specified data item or
items.
COMPUTE 307