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.