TGAL Manual

TGAL Procedures
Tailoring TGAL
4–4 060865 Tandem Computers Incorporated
ERROR^MESSAGE
Procedure
The ERROR^MESSAGE procedure provides the text for error messages. You can
change the standard error message text to print your own error message. The error
messages cannot exceed 60 characters. In the TGALUPS file, the ERROR^MESSAGE
procedure is:
PROC error^message(msgnum, buf, messlen);!
INT msgnum; ! the error number !
STRING .buf; ! place message here !
INT .messlen; ! return message length, max 60!
BEGIN ! !
STRING ! !
.sp; ! end-of-string pointer !
! !
CASE msgnum-1 OF ! branch on message type !
BEGIN ! !
buf ':=' "LOOK-AHEAD EXCEEDED" -> @sp;! !
buf ':=' "FILE READ ERROR" -> @sp; ! !
buf ':=' "FILE FORMAT ERROR" -> @sp; ! !
buf ':=' "FILE SEQUENCE ERROR" -> @sp;! !
buf ':=' "LINE TOO LONG" -> @sp; ! !
buf ':=' "COMMAND ERROR" -> @sp; ! !
buf ':=' "WARNING: TEXT EXCEEDS BOX SIZE" -> @sp;! !
buf ':=' "IN FILE MUST BE A TERMINAL, PROCESS, OR DISC FILE"! !
-> @sp;!!
OTHERWISE ! !
buf ':=' "**** UNKNOWN ERROR NUMBER ****"-> @sp;! !
END; ! end of cases !
messlen := @sp '-' @buf; ! compute message length !
! !
END; ! end of error^message proc !