Builds a TD queue using the WRITEQ TD 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 writeqtd queue: 'TDQU'; from: newRecord; length: 80; exec.