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

226 AppendixA
COBOL Intrinsics
Examples of KSAM File Access
Input to EXAMP3:
NOLAN JACK 923-4975 1 ANY STREET. SUNNYVALE CA. 94O87U
SMITH JOHN 555-1212 102 FIRST ST. OUR TOWN CA. 94099A
ECKSTEIN LEO D
CARDIN RICK 257-7000 11100 WOLFE ROAD CUPERTINO CA. 94041U
PASBY LINDAL D
JANE MARY 565-9090 1776 BICENTENNIAL ST. AMAHEIM CA. 91076A
ROBERT GERRY 259-5535 12345 TELEGRAPH AVE. BERKELEY CA. 94704U
TURNEW IVAN D
FORD GERALD 555-1976 1600 PENNSYLVANIA WASHINGTON DC. 20001U
WESTER ELDER 287-4598 1256 KINGFISHER ST. SUNNYVALE CA. 94309A
Output from Execution of EXAMP3:
NOLAN JACK 923-4975 1 ANY STREET. SUNNYVALE CA. 94087
UPDATED
SMITH JOHN 555-1212 102 FIRST ST. OUR TOWN CA. 94099
ADDED
ECKSTEIN LEO 287-5137 5303 STEVENS CREEK SANTA CLARA CA. 95050
DELETED
CARDIN RICK 257-7000 11100 WOLFE ROAD CUPERTINO CA. 94014
UPDATED
PASBY LINDA 295-1187 TOWN & CNTRY VILLAGE SAN JOSE CA. 94102
DELETED
JANE MARY 565-9090 1776 BICENTENNIAL ST. ANAHEIM CA. 91076
ADDED
ROBERT GERRY 259-5535 12345 TELEGRAPH AVE. BERKELEY CA. 94704
UPDATED
CKREADBYKEY ERROR, STATUS = 23; KEY = TURNEW IVAN
CKREADBYKEY ERROR, STATUS = 23; KEY = FORD GERALD
CKWRITE ERROR, STATUS = 22
WESTER ELDER 287-4598 1256 KINGFISHER ST. SUNNYVALE CA. 94309
NOTE Note that the input contains data that results in error messages. The name
IVAN TURNEW is spelled incorrectly and cannot be found. The name
GERALD FORD does not exist in the original file and also cannot be found.
On the other hand, the name ELDER WESTER already exists in the file and
cannot be added since it is a primary key for which duplicates are not
allowed.