Builds a temporary storage queue using the WRITEQ TS command. 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 writeqts queue: 'TSQUEUE'; from: newRecord; length: 80; exec.