HP 3000 Manuals HP 3000 Manuals
CKUNLOCK
A call to CKUNLOCK unlocks a KSAM file dynamically locked by CKLOCK.
CALL "CKUNLOCK" USING filetable, status
A file locked by CKLOCK is released for use by other users with a call to
CKUNLOCK. (If you log off from any connection with the system, the file
is also unlocked.) Since dynamic locking takes place during shared
access to the same file by more than one user, it is important that any
file locked by CKLOCK be unlocked as soon as possible by CKUNLOCK.
To use CKUNLOCK, the file must be opened for shared access with dynamic
locking allowed. This can only be done by calling CKOPENSHR to open the
file, not CKOPEN.
PARAMETERS
filetable an 8-word record containing the number and name of the
file, its input-output type, access mode, and a code
indicating whether the previous operation was successful
and if so, what it was. (Refer to Filetable Parameter
discussion earlier in this section.)
status one-word (two 8-bit characters) set to a pair of values
upon completion of the call to CKUNLOCK. It indicates
whether or not the file was successfully unlocked and if
not, why not. The status word is to"00" if the file was
unlocked successfully; to "31 "if the file was not
locked; or to "9n" where n is a binary file system error
code if the call fails for any other reason. (Refer to
Status Parameter discussion earlier in this section.)
USING CKUNLOCK
After calling CKUNLOCK, you should always check the status parameter to
make sure that the procedure was executed successfully. When successful,
the file locked by CKLOCK is again made available for access by other
users. If the file was not locked by CKLOCK, when CKUNLOCK is called,
status is set to "31."
EXAMPLES
The following example unlocks a file previously locked by CKLOCK. (Refer
to the CKLOCK example.)
DATA DIVISION.
.
.
.
77 RESULT PICTURE 9(4) VALUE 0.
01 STATUSKEY.
02 STATUS-KEY1 PICTURE X VALUE " ".
02 STATUS-KEY2 PICTURE X VALUE " ".
01 FILETABLE.
02 FILENUMBER PICTURE S9(4) COMP VALUE 0.
02 FILENAME PICTURE X(8) VALUE "KSAMFILE".
02 I-O-TYPE PICTURE S9(4) COMP VALUE 0.
02 A-MODE PICTURE S9(4) COMP VALUE 0.
02 PREV-OP PICTURE S9(4) COMP VALUE 0.
PROCEDURE DIVISION.
.
.
.
CALL "CKUNLOCK" USING FILETABLE, STATUSKEY.
IF STATUSKEY ="00"
THEN DISPLAY "CKUNLOCK IS OK"
ELSE IF STATUSKEY ="31"
THEN DISPLAY="FILE NOT PREVIOUSLY LOCKED BY THIS PROCESS"
ELSE IF STATUS-KEY1 ="9"
THEN CALL"CKERROR" USING STATUSKEY, RESULT
DISPLAY "ERROR NO.", RESULT.