Write a message on the system console.
WRITE OPERATOR >>-WRITE OPERATOR--TEXT(data-value)-----------------------------> >--+------------------------+-----------------------------------> '-TEXTLENGTH(data-value)-' >--+-----------------------------------------------+------------> '-ROUTECODES(data-value)--NUMROUTES(data-value)-' .-EVENTUAL-------------------------------------------------------------------------------------. >--+----------------------------------------------------------------------------------------------+->< +-ACTION(cvda)---------------------------------------------------------------------------------+ +-CRITICAL-------------------------------------------------------------------------------------+ +-IMMEDIATE------------------------------------------------------------------------------------+ '-REPLY(data-area)--MAXLENGTH(data-value)--+------------------------+--+---------------------+-' '-REPLYLENGTH(data-area)-' '-TIMEOUT(data-value)-'
Conditions: EXPIRED, INVREQ, LENGERR
WRITE OPERATOR enables an application to write a message to one or more system consoles and, if necessary, wait for a reply. The command can specify route codes. This is of particular use to application packages that need to issue their own operator messages.
As a result of a change in the way CICS® handles messages sent to the console, text lengths of greater than 113 characters are split into two lines.
None of the variables below can be defined as PL/I variable character strings.
The action code is identical with the descriptor code to be associated with the message. Only one of the descriptor codes 2, 3, or 11 may be specified for this parameter.
The CRITICAL option is equivalent to a specification of ACTION(11). The EVENTUAL option is equivalent to a specification of ACTION(3). The IMMEDIATE option is equivalent to a specification of ACTION(2).
Retained messages can be handled by the console operator in a variety of ways (see the MVS/ESA Operations: System Commands manual). Refer to your system programmer for information about how this command affects the appearance of the console screen to the operator.
If the data value begins with DFHnnnn or DFHaannnn, the message is treated as a CICS message and is reformatted accordingly.
For COBOL programs to be compiled with a Language Environment®-conforming compiler, and translated with the COBOL3 translator option, there is a restriction in the length of data-value, which cannot exceed 160 bytes. If you are using the COBOL2 translator option, you must use a data-area that contains the text to be sent to the operator, and not a data-value.
If the REPLY option is specified, the length is in the range 0–121 bytes.
If the REPLY option is not specified, the length is in the range 0–690 bytes.
If the length of the text is greater than 113, CICS formats the message in a multiline write to operator (WTO); each line has 69 bytes with a maximum of ten lines.
The output is edited in such a way that each line is broken, if possible, at a space character, The next line starts with a non-space character. If there is no room to reformat the data within the overall limit of 690 bytes of ten lines of 69 bytes, the output is not reformatted.
Default action: return the exception condition to the application.
Default action: terminate the task abnormally.
Default action: terminate the task abnormally.