Use this file- or record-level keyword to send a negative response to the remote program to indicate that your program detected an error in the data received.
NEGRSP[(&field-name)]
The optional parameter, &field-name,; specifies the name of a field that contains sense data to be sent to the remote program with the negative response. The specified field name must exist in the record format, and the field must be a character field with length at least 8, data type A, and usage B or blank.
The NEGRSP keyword must have an option indicator when it applies to a record for which any of the following keywords apply:
| CANCEL |
RSPCONFIRM |
At run time, these keywords are ignored when the NEGRSP keyword is in effect. If a NEGRSP keyword with no option indicator applies to a record for which any of these keywords apply, error messages are issued and these keywords are ignored at creation time.
NEGRSP is ignored at run time when EOS or FAIL is in effect. These keywords must have option indicators if they apply to a record for which NEGRSP applies. If an EOS or FAIL keyword with no option indicator applies to a record for which NEGRSP applies, an error message is issued and the NEGRSP keyword is ignored at creation time.
When you specify NEGRSP at the file level, you cannot specify the field name parameter.
You cannot specify NEGRSP with the TIMER keyword.
Option indicators are valid for this keyword.
The following example shows how to specify the NEGRSP keyword.
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
A R RCD1
A 01 NEGRSP(&FIELDB);
A FIELDA 25A B
A FIELDB 80A B
A
If indicator 01 is on, a write operation to RCD1 will send a negative response and send the first 8 bytes of FIELDB to the remote program. Note that no data from RCD1 other than the sense data will be sent with the negative response.