|
|
A call to BKERROR returns a message corresponding to the
status value.
CALL BKERROR (status, message)
Call this procedure in order to get a printable string of characters that
describes the condition that corresponds to the value of the
status parameter. The string of ASCII characters returned
in message can be printed as an error message.
- status
A four-character string variable to which is returned a numeric value
in printable form following execution of any of the procedures described
in this section. The value in status is used to derive
the text in message.
(Required parameter)
- message
A string variable which will contain the text describing the error
whose code has been returned to status. This parameter
should be dimensioned to at least 72 characters in length. If the message
length exceeds the dimensioned length of message, a
truncated text is provided. (Required parameter)
The following example illustrates the use of BKERROR. Two strings are
dimensioned for message; one (M$) is sufficiently long, the
other (N$) causes truncation of the message. Assume that the status code in S$
is the value 22.
10 DIM S$(4),M$(72),N$(24)
20 REM..S$ IS THE STATUS STRING
30 REM..M$ IS A SUFFICIENTLY LARGE STRING
40 REM..N$ IS TOO SMALL FOR THE MESSAGE
50 REM..ASSUME S$ CONTAINS THE VALUE "22"
60 REM..
.
.
.
100 CALL BKERROR (S$,M$)
110 PRINT "ERROR";S$(1;1);"DETAIL";S$(2);"";M$
120 CALL BKERROR (S$,M$)
130 PRINT "ERROR "S$(1;1);"DETAIL";S$(2);"";N$
RUN
ERROR 2 DETAIL 2 INVALID KEY VALUE. DUPLICATED KEY VALUE
ERROR 2 DETAIL 2 INVALID KEY VALUE. DUPL
In another example, BKERROR is called to retrieve the message
corresponding to the MPE file system error code returned when the first
character of status is 9.
10 DIM S$(4),M$(72)
.
.
.
50 IF S$(1;1)="9" THEN DO
60 CALL BKERROR(S$,M$)
70 PRINT"FILE ERROR";S$(2);"MEANS";M$
80 DOEND
Suppose the value returned in status is 9172. The routine above
prints the following message when the program is run:
FILE ERROR 172 MEANS KEY NOT FOUND; NO SUCH KEY VALUE
|