|
|
A call to CKCLOSE terminates file processing for the specified KSAM
file.
CALL "CKCLOSE" USING filetable, status
When processing is completed, a KSAM file should be closed
with a call to CKCLOSE. No further processing is allowed on the file
until a CKOPEN procedure call opens the file.
CKCLOSE can be executed only for a file that is open.
- filetable
An 8 halfword record containing: the name of the file, its
input/output type, access mode, the file number given the file when it
was last opened, and a code indicating whether the previous operation on
the file was successful and if so what it was. (Refer to Filetable
Parameter discussion earlier in this section.)
- status
One-halfword (two 8-bit characters) set to a pair of values upon
completion of the call to CKCLOSE. It indicates whether or not
the file was successfully closed and if not, why not. The left character
is set to 0 if CKCLOSE is successful, to 9 if not. The right
character is set to 0 if CKCLOSE is successful, to the file
system error code if not. (Refer to Status Parameter discussion earlier
in this section.)
Upon successful completion of CKCLOSE, the file identified by
filetable is no longer available for processing. Note that
a KSAM file can be closed and then reopened in order to specify
a different access mode or input/output type.
FINISH.
CALL "CKCLOSE" USING FILETABLE, STAT.
IF STATUS-KEY-1 = "9" THEN
CALL "CKERROR" USING STAT, RESULT
DISPLAY "CKCLOSE ERROR NO. ", RESULT;
ELSE DISPLAY "CKCLOSE SUCCESSFUL".
|