Server Guide

Examples

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.


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