CIC-READQ-TS

Retrieve data from a temporary storage queue in main or auxiliary storage.
Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.

Target:

CICS

Syntax:

CIC-READQ-TS QUEUE(name)
... INTO(dataarea)|SET(linkdataname)
... LENGTH(dataarea) NUMITEMS(dataarea)
... [ITEM(value)|NEXT]
... [SYSID(name)]
... [ERROR(errorpara)]

Parameter:

ERROR (errorpara)

User-defined error routine to perform when an abnormal condition occurs.

INTO (dataarea)

Name of data area where AMB places transient or temporary data.

ITEM (value)

Relative record number in the queue; can be a literal or COBOL data name defined as S9(04)COMP. Required with REWRITE.

LENGTH (value)

Maximum length of data; can be a literal (LINK or XCTL only) or COBOL data name defined as S9(04)COMP. Can also be a partial length (XCTL only).

NEXT

Read next sequential logical record.

NUMITEMS (dataarea)

Number of items in the queue.

QUEUE(name)

Queue name; can be a literal (maximum 8 characters), or COBOL data name (maximum 30 characters) defined as X(4).

SET(linkdataname)

01-level Linkage Section data area identical to the linkdataname in the associated TP-LINKAGE call.

SYSID(name)

Remote system name; can be a literal or a COBOL data name (maximum 4 characters).

Example:

Read the next (or only) record from temporary storage queue `TSAQ' into data area WS-TD-RECORD.
CIC-READQ-TS QUEUE('TSAQ')
... INTO(WS-TD-RECORD) LENGTH(WS-TD-RECLEN)
... ERROR(ERROR-PARA)