Pathway/iTS SCREEN COBOL Reference Manual (G06.24+, H06.03+, Pathway/iTS 1.0+)

Data Division
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
5-69
Clauses in Message Description Entry
The following SEND MESSAGE shows the YIELDS associated with the input
messages when the ON ERROR clause is executed due to an edit error.
SEND MESSAGE MSG-3-OUT-M-1
REPLY CODE FIELD IS WS-MSG-4-IN-FROM-MSG-4-IN-CODE
CODE 1 YIELDS MSG-3-IN,
CODE 2 YIELDS MSG-4-IN,
CODE 3 YIELDS MSG-3-IN,
CODE 4 YIELDS MSG-4-IN,
ON ERROR PERFORM IDS-SERVER-SEND-ERROR.
The following PERFORM statement shows how to use TERMINATION- SUBSTATUS
to decide which input message template to process.
IDS-SERVER-SEND-ERROR.
PERFORM ONE OF
PROC-MSG-3-IN-EDIT-STATUS,
PROC-MSG-4-IN-EDIT-STATUS,
PROC-MSG-3-IN-EDIT-STATUS,
PROC-MSG-4-IN-EDIT-STATUS,
DEPENDING ON TERMINATION-SUBSTATUS.
The following table shows which input message correlates with which
TERMINATION-SUBSTATUS.
For output messages, you know which set of FIELD STATUS data items to interrogate
because only one message template can be specified on output.
Table 5-11
lists the error numbers that can be found in the field error data item.
Message Template TERMINATION-SUBSTATUS
YIELDS MSG-3-IN 1
YIELDS MSG-4-IN 2
YIELDS MSG-3-IN 3
YIELDS MSG-4-IN 4
Table 5-11. Relevant SEND MESSAGE Edit Advisory Error
Numbers (page 1 of 2)
Applies to
Edit Advisory
Error Number Meaning Input Output
4 Length too short Yes No
6 Length longer than field Yes No
7 Alphanumeric editing expected an insertion
character
Yes No
8 Alphanumeric editing expected a digit Yes No
9 Alphanumeric editing expected a blank or
alphabetic character
Yes No