home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
tools.zip
/
GETERROR.FUN
< prev
next >
Wrap
Text File
|
1988-10-22
|
461b
|
21 lines
GETERROR FUNCTION(TYPE,FIELDNUM,FILEIN)
TYPE STRING(1)
FIELDNUM LONG
FILEIN EXTERNAL
CODE
CASE TYPE !WHICH OPTION
OF 'E' !GET ERROR MESSAGE
MSG:MSGNUM = FIELDNUM !GET MESSAGE NUM
MSG:MSGTYPE = 'E' !SET TO ERROR MESSAGE
SET(MSG:MSGKEY,MSG:MSGKEY)
GET(MSGFILE,MSG:MSGKEY) !GET RECORD
IF ERROR() THEN
RETURN('NO MESSAGE FOUND')
ELSE
RETURN(CLIP(MSG:MSGTEXT))
. . !END IF