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

Appendix A 209
COBOL Intrinsics
CKREWRITE
DISPLAY "CKREWRITE ERROR, STATUS =", STAT.
IF STATUS-KEY-1 = "9" THEN
CALL "CKERROR" USING STAT, RESULT
DISPLAY "CKERROR NO.=", RESULT.
GO TO FINISH.