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

Appendix A 223
COBOL Intrinsics
Examples of KSAM File Access
008800 CALL "CKCLOSE" USING FILETABLE, STATUSKEY.
008900 IF STATUS-KEY-1 = "9" THEN
009000 CALL "CKERROR" USING STATUSKEY, RESULT
009100 DISPLAY "CKCLOSE ERROR NO.", RESULT.
009200 STOP RUN.
Output from EXAMP2 Execution:
ALPHABETICAL ORDER:
CARDIN RICK 587-7018 11100 WOLFE ROAD CUPERTINO CA. 94053
ECKSTEIN LEO 287-5137 5303 STEVENS CREEK SANTA CLARA CA. 95050
HOS0DA JOE 227-8214 1180 SAINT PETER CT. LOS ALTOS CA. 94022
NOLAN JACK 923-4975 967 REED AVE. SUNNYVALE CA. 94087
PASBY LINDA 295-1187 TOWN & CNTRY VILLAGE SAN JOSE CA. 94102
ROBERT GERRY 259-5535 12345 TELEGRAPH AVE. BERKELEY CA. 90871
SEELY HENRY 293-4220 1144 LIBERTY ST. EL CERRITO CA. 94053
TURNEWR IVAN 984-8498 22905 EMERSON ST. OAKLAND CA. 98234
WESTER ELDER 287-4598 1256 KINGFISHER ST. SUNNYVALE CA. 43098
WHITE GORDON 398-0301 4350 ASHBY AVE. BERKELEY CA. 91234
PHONE NO. ORDER:
HOSODA JOE 227-8214 1180 SAINT PETER CT. LOS ALTOS CA. 94022
ROBERT GERRY 259-5535 12345 TELEGRAPH AVE. BERKELEY CA. 90871
WESTER ELDER 287-4598 1256 KINGFISHER ST. SUNNYVALE CA. 43098
ECKSTEIN LEO 287-5137 5303 STEVENS CREEK SANTA CLARA CA. 95050
SEELY HENRY 293-4220 1144 LIBERTY ST. EL CERRITO CA. 94053
PASBY LINDA 295-1187 TOWN & CNTRY VILLAGE SAN JOSE CA. 94102
WHITE GORDON 398-0301 4350 ASHBY AVE. BERKELEY CA. 91234
CARDIN RICK 578-7018 11100 WOLFE ROAD CUPERTINO CA. 94053
NOLAN JACK 923-4975 967 REED AVE. SUNNYVALE CA. 94087
TURNEWR IVAN 984-8498 22905 EMERSON ST. OAKLAND CA. 98234
END OF PROGRAM
Random Update
This example reads a set of new data containing update information into the
WORKING-STORAGE SECTION. Each record read is followed by a U for update, a D for
delete, or an A for add. Records to be added are written to the file KSAMFILE using CKWRITE
in random mode. Records to be updated are copied to the appropriate record with
CKREWRITE. Records to be deleted are first read into the WORKING-STORAGE SECTION
with CKREADBYKEY and then deleted with CKDELETE. The file is opened in random mode for
input/output.
The procedures illustrated by this example are:
• CKOPEN
• CKREADBYKEY
• CKDELETE
• CKREWRITE
• CKWRITE
• CKCLOSE