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.