Using KSAM/XL and KSAM 64 (32650-90886)

Appendix A 201
COBOL Intrinsics
CKREAD
The following example provides a sequential read with shared access.
PROCEDURE DIVISION.
START.
.
.
.
MOVE 0 TO I-O-TYPE, A-MODE.
CALL "CKOPENSHR" USING FILETABLE, STAT <--- open file for shared
access
.
.
. <--- test status
FIND-RECORD.
MOVE 2 TO RELOP.
MOVE "000-0000" TO KEYVAL.
MOVE 23 TO KEYLOC,
MOVE 8 TO KEYLENGTH.
MOVE 1 TO LOCKCOND.
CALL "CKLOCK" USING FILETABLE, STAT, LOCKCOND.<--- lock file
unconditionally
CALL "CKSTART" USING FILETABLE,
STAT, RELOP, KEYVAL, KEYLOC, KEYLENGTH.<--- position pointer to
lowest key value
.
.
. <--- test status
READ-RECORD.
CALL "CKREAD" USING FILETABLE, STAT, REC, RECSIZE<--- read record
IF STATUS-KEY-1 ="1"<--- end of file
GO TO END-OF-READ.
IF STATUS-KEY-1 ="0"<--- if successful, display record read
DISPLAY REC.
.
.
. <--- test status for errors
TO TO READ-RECORD.
END-OF-READ.
CALL "CKUNLOCK" USING FILETABLE, STAT.<----- unlock file