Server Guide

Example

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.


[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]