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.