Server Guide

Example

Writes data into an KSDS file. MyKsdsFile is a subclass of OsPtr.

| newRecord  result |
 
newRecord  := MyKsdsFile new.
newRecord  lastName: 'Record'.
newRecord  firstName: 'New'.
newRecord  city: 'NewCounty'.
newRecord  state: 'NS'.
 
result := CICS write
               file: 'KSDSF1';
               from: newRecord;
               keylength: 20;
               ridfld: (newRecord  lastName abrPadWithBlanks: 20);
               length: 80;
               exec.


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