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.