Rewrites a record in a KSDS file.
| recordRead result |
result := CICS read
file: 'KSDSF1';
keylength: 20;
ridfld: ('Record' abrPadWithBlanks: 20);
update;
exec.
recordRead := MyKsdsFile copyFromOSMemory: (result set).
recordRead city: 'UpdateCounty'.
result := CICS rewrite
file: 'KSDSF1';
from: recordRead;
length: 80;
exec.