CIC-WRITEQ-TS

Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.

Target:

CICS

Syntax:

CIC-WRITEQ-TS QUEUE(name) FROM(dataarea)
... LENGTH(value) [SYSID(name)]
... [ITEM(dataarea) [REWRITE] [CICSoptions]
... [NOSUSPEND]
... [ERROR(errorpara)]

Parameters:

`CICSoptions`	Valid CICS option. See your CICS reference manual for more information.
ERROR (`errorpara`)	User-defined error routine to perform when an abnormal condition occurs.
FROM (`dataarea`)	Data area to be acted on.
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).
NOSUSPEND	Return to the program without waiting for resources to become available.
QUEUE(`name`)	Queue name; can be a literal (maximum 8 characters), or COBOL data name (maximum 30 characters) defined as X(4).
REWRITE	Overwrite existing record in queue with data contained in data area.
SYSID(`name`)	Remote system name; can be a literal or a COBOL data name (maximum 4 characters).

Example:

Write a record to a temporary storage queue in auxiliary storage, where the queue name is in QUEUE-NAME.

CIC-WRITE-TS QUEUE(QUEUE-NAME)
... FROM(WS-TS-RECORD)
... LENGTH(WS-TS-LENGTH)
... ITEM(WS-TS-ITEM-NO)
... ERROR(ERROR-PARA)