home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / tools.zip / TOOLS.COM / GETERROR.FUN < prev    next >
Text File  |  1988-10-22  |  461b  |  21 lines
  1. GETERROR FUNCTION(TYPE,FIELDNUM,FILEIN)
  2.  
  3. TYPE       STRING(1)
  4. FIELDNUM   LONG
  5. FILEIN       EXTERNAL
  6.  
  7.   CODE
  8.  
  9.   CASE TYPE           !WHICH OPTION
  10.  
  11.     OF 'E'            !GET ERROR MESSAGE
  12.       MSG:MSGNUM = FIELDNUM    !GET MESSAGE NUM
  13.       MSG:MSGTYPE = 'E'     !SET TO ERROR MESSAGE
  14.       SET(MSG:MSGKEY,MSG:MSGKEY)
  15.       GET(MSGFILE,MSG:MSGKEY)    !GET RECORD
  16.       IF ERROR() THEN
  17.     RETURN('NO MESSAGE FOUND')
  18.       ELSE
  19.     RETURN(CLIP(MSG:MSGTEXT))
  20.    .  .             !END IF
  21.