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

218 AppendixA

COBOL Intrinsics

CKWRITE

The second example, using the same DATA DIVISION and the same FINISH procedure,

writes one record to the ﬁle containing "ADAMSON JOHN" as its primary key value.

PROCEDURE DIVISION.

START.

MOVE 1 TO I-O TYPE.<---

output only

MOVE 2 TO A-MODE.<---

random access

CALL "CKOPEN"USING FILETABLE, STAT.

check status

FIND-REC.

READ DATA-FILE INTO DAT;

AT END GO TO FINISH.

IF NAME OF DAT = "ADAMSON JOHN" THEN

GO TO WRlTE-REC;

ELSE GO TO FIND-REC.

WRITE-REC.

MOVE CORRESPONDING DAT TO REC.

CALL "CKWRITE" USING FILETABLE, STAT, REC, RECSIZE.

IF STATUS-KEY-1="0" THEN

DISPLAY REC," RECORD WRITTEN"

GO TO FINISH.

IF STAT = "22" THEN

DISPLAY "DUPLICATE KEY"

GO TO FINISH.

IF STAT = "24" THEN

DISPLAY "NO ROOM IN FILE"

GO TO FINISH.