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.