HPlogo Using KSAM XL and KSAM 64 > Appendix A COBOL Intrinsics

CKUNLOCK

MPE documents

Complete PDF
Table of Contents
Index

E0300 Edition 4 ♥
E0394 Edition 3

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 be done only by calling CKOPENSHR to open the file, not CKOPEN.

Parameters

filetable

An 8 halfword 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.

status

One halfword (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 set 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.

Operation Notes

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.

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.



CKSTART

CKWRITE