Server Guide

Example

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]


[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]