[RBG7-L] - Re: Create Error Code Table

[A. Razzak Memon]

At 12:38 PM 3/17/2005, Claudine Robbins wrote:

Hi everyone,

I'm looking for the error code for "record not found" or
something like that to trap in a form.

Claudine,

Here's how:

01. -- CRobbins.EEP
    CLEAR VAR vRows, vCaption, vPauseMsg
    SET VAR vRows INTEGER = 0
    SET VAR vCaption ' Just for fun!'
    SET VAR vPauseMsg = 'Record(s) Not Found!'
    SELECT COUNT(*) INTO vRows INDIC ivRows FROM TableName +
    WHERE whereclause ...
    IF vRows = 0 THEN
       CLS
       PAUSE 2 USING .vPauseMsg +
       CAPTION .vCaption +
       ICON STOP +
       BUTTON 'Press any key to continue ...' +
       OPTION BACK_COLOR WHITE +
       |MESSAGE_COLOR WHITE +
       |MESSAGE_FONT_COLOR RED +
       |BUTTON_COLOR WHITE
       GOTO TheEnd
    ELSE
      -- Do what you have to here ..
    ENDIF
    LABEL TheEnd
    CLEAR VAR iv%, vRows, vCaption, vPauseMsg
    RETURN

02. To suppress the:

    <WARNING> No rows exist or satisfy the clause

    Use the following technique:

    SET ERROR MESSAGE 2059 OFF
    SELECT selectclause FROM tableviewname ... +
    WHERE whereclause ...
    SET ERROR MESSAGE 2059 ON

Hope that helps!

Very Best R:egards,

Razzak.