WRITEQ TS command
Stores temporary data (records) in a temporary storage (TS) queue in main or auxiliary storage. In Smalltalk, the parameters of the WRITEQ TS command are contained in two classes: CICSWriteqts and CICSWriteqtsResult. 
See CICS Application Programming Reference for the syntax of the command and a description of its parameters. 
Defined instance methods
Parameters supplied to CICS in CICSWriteqts
 
|  |  |  |  |  | 
| AUXILIARY  | auxiliary  | Input  | Switch  |   | 
| FROM(data-area)  | from:  | Input  | Variable  |   | 
| ITEM(data-area)  | item:  | I/O  | Binary 16  |   | 
| LENGTH(data-value)  | length:  | Input  | Binary 16  |   | 
| MAIN  | main  | Input  | Switch  |   | 
| NOSUSPEND  | nosuspend  | Input  | Switch  |   | 
| QUEUE(name)  | queue:  | Input  | Fixed(8)  |   | 
| REWRITE  | rewrite  | Input  | Switch  |   | 
| SYSID(systemname)  | sysid:  | Input  | Fixed(4)  | Remote systems only  | 
Parameters returned by CICS in CICSWriteqtsResult
 
|  |  |  |  |  | 
| ITEM(data-area)  | item  | I/O  | Binary 16  |   | 
| RESP  | resp  | Output  | Fixed(2)  | Inherited from CICSResult.  | 
| RESP2  | resp2  | Output  | Fixed(2)  | Inherited from CICSResult.  | 
Example
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.
Last modified date: 07/09/2019