CIC-READQ-TS

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)