334B GetErrorMessage¶
Stub MON 334B (220 decimal) · Mnemonic GETXM · Group: Monitor Calls for Error Handling (manual section 2.8)
Available from: All programs (manual compatibility box)
Emulation source: src/handlers/mon_334B_GetErrorMessage.c
Description¶
Gets a SINTRAN III error message text. Appendix A shows the messages connected to each error number. The error number is input. The program continues.
- This monitor call is convenient for advanced use of the terminal screen. For example, you may output the error message in inverse video at the bottom line.
- Do not input error number 0.
Parameters¶
| Name | Type | Direction | Description |
|---|---|---|---|
ErrorNo |
INTEGER | In | Error number (octal) of message to retrieve. Do not use 0. |
Buffer |
STRING | Out | Buffer to receive error message text (128 chars). |
Direction: In = the program supplies the value, Out = the call returns it, In/Out = both.
See also¶
WarningMessage, ErrorMessage. ErrorMessage writes out the error message, terminates the program
Compatibility¶
| Machines | Users | Programs |
|---|---|---|
| ND-100 and ND-500 | All users | All programs |
The manual's compatibility box for this call, word for word.
Yes/no fields from the YAML extraction (not in the manual's words):
| ND-100 | ND-500 | User programs | RT programs | System programs |
|---|---|---|---|---|
| Yes | Yes | No | No | No |
Examples¶
From the manual (OCR text, not corrected).
INTEGER : ErrorNo
BYTES : Buffer(0:127)
...
ON ROUTINEERROR DO
IF ErrCode > < 0 THEN ...
ENDON
Monitor_Call('GetErrorMessage', ErrorNo, Buffer)
INTEGER ErrorNo
CHARACTER Buffer*128
...
Monitor_Call('GetErrorMessage', ErrorNo, Buffer(1:128))
IF (ErrCode .NE. 0) THEN ...
ErrorNo : INTEGER2;
Buffer : PACKED ARRAY [0..127] OF CHAR;
...
GetErrorMessage(ErrorNo, Buffer);
IF ErrCode <> 0 THEN ...
01 ErrCode COMP.
01 Buffer PIC X(128).
01 ErrorNo COMP.
...
MONITOR-CALL "GetErrorMessage" USING ErrorNo, Buffer.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...
ErrCode : W BLOCK 1
Buffer : W BLOCK 100
ErrorNo : W BLOCK 1
GetErrorMessage : EQU 37B9 + 334B
...
CALLG GetErrorMessage, 2, ErrorNo, Buffer
IF K GO ERROR
...
ERROR : W1 =: ErrCode %ErrorCode in W1 register.
LDA ERRNO %Error number of error message to be printed.
LDX (BUF %Address of buffer to receive the error message.
MON 334 %Monitor call GetErrorMessage.
STA STAT %Returns here if error occurs.
... %Normal return here.
ERRNO, ...
BUF, ...
*+100/
STAT, ...
ndmonlib implementation¶
Stub Registered MON_STATUS_NOT_IMPLEMENTED: the handler is a stub. mon_dispatch() in src/core/mon_dispatch.c reports the call as unimplemented without calling it.
| Handler | mon_334B_GetErrorMessage |
| Code lines | 6 (non-blank, non-comment lines in the file) |
Source¶
SINTRAN III Monitor Calls (ND-860228.2 EN), page 243.