Each I/O file that is opened should be closed when you have finished reading from or writing to it. Closing the file releases the channel for use with another I/O operation. It also makes the file available to be accessed by some other process.
The syntax for closing an input file:
Close_Input [channel {channel-num.}]
And the syntax for closing an output file is:
Close_Output [channel {channel-num.}]
Where: