Example 1
Reads a specified item from a temporary storage queue.
| result x |
result := CICS readqts
queue: 'TSQUEUE';
item: 10;
exec.
x := result set.
Example 2
Reads the next item in a temporary storage queue and assigns the NUMITEMS result.
| result x |
result := CICS readqts
queue: 'TSQUEUE';
next;
exec.
x := result numitems.