Inquire after the TD queue named TDQ1 and, if the queue is disabled, enable it.
| result enable | result := CICS inquiretdqueue tdqueue: 'TDQ1'; exec. result enablestatus = CVDA_DISABLED ifTrue: [enable := CICS settdqueue tdqueue: 'TDQ1'; enablestatus: CVDA_ENABLED; exec]