Hi all,
I know how to use the &focerrnum to send up a popup box for any error. My question is how do I ignore warnings and still trap 'fatal' errors?
i.e

quote:

(FOC757) WARNING. YOU REQUESTED PRINT * OR COUNT * FOR A MULTIPATH FILE
0 NUMBER OF RECORDS IN TABLE= 18 LINES= 18

Is there an allocated series of numbers that are 'just' warnings?

It would also be nice to trap the actual text from the error message and display that inthe popup, too. That would make troubleshooting easier.

This message has been edited. Last edited by: mpbMDE,

I would suggest that you check the error list for all warning errors.

Then you could do a decode agaist the list to determine the errors to trap.

Code to retrieve the error message text:

-SET &ERR_MSG1 = IF &FOCERRNUM EQ 0 THEN '' ELSE FEXERR(&FOCERRNUM,'A100');

Thanks, Francis! That's what I needed.)

Thanks, Waz...What I'm really asking is if anyone HAS that list of warning messages.

Marilyn

With Francis' sugestion its easy, just check the message for WARNING.

I found an old case which gives you a list with all the messages/warnings. I tweaked it a little.
Hope this helps (this example prints the first 100 messages).

-Fred-

-SET &COUNTER= 0;

TABLE FILE SYSTABLE
HEADING
"Error Messages for FOCUS/WEBFOCUS -- Release <+0>&FOCREL "
" "
  PRINT
    NAME NOPRINT
      COMPUTE ERROR_NUMBER/I5 = ERROR_NUMBER + 1; NOPRINT
      COMPUTE MESSAGE/A72     = FEXERR(ERROR_NUMBER, 'A72'); AS ''
      COMPUTE WARNFLAG/I1     = IF MESSAGE CONTAINS 'WARNING' THEN 1 ELSE 0; NOPRINT
  BY TOTAL WARNFLAG NOPRINT PAGE-BREAK
  ON WARNFLAG SUBHEAD
  "Warnflag: <WARNFLAG"
  IF RECORDLIMIT EQ 1
  ON TABLE SET PAGE-NUM OFF
  ON TABLE NOTOTAL
  ON TABLE SET HTMLCSS ON
  ON TABLE SET LINES 99999
  ON TABLE SET STYLE *
  INCLUDE = ENDEFLT,$
    TYPE=DATA, COLOR=GREEN, WHEN=WARNFLAG EQ 1 ,$
  ENDSTYLE

-:NEXT_ERR
-SET &COUNTER = &COUNTER+ 1;
-IF &COUNTER GE 100 GOTO :END_OF_FEX;
MORE
FILE SYSTABLE
IF RECORDLIMIT EQ 1
-GOTO :NEXT_ERR
-:END_OF_FEX
END

Thanks FreSte!
Could you post the include as well. I'm getting an error message: FOC3294) CANNOT OPEN INCLUDED STYLESHEET AT LINE 1: INCLUDE=ENDEFLT
BYPASSING TO END OF COMMAND
Thanks!!!

Sure, it's just a default stylesheet

type=report,
    color=rgb(66 70 73),
    font='Trebuchet MS',
    size=9,
    squeeze=on,
    grid=off,
$
type=pagenum,
    style=italic,
    size=6,
    justify=right,
$
type=tabheading,
    style=bold+italic,
    size=14,
    justify=center,
$
type=tabfooting,
    style=bold+italic,
    size=12,
    justify=center,
    border-top=heavy,
    border-top-color=rgb(52 55 58),
$
type=heading,
    style=bold,
    size=12,
    justify=center,
$
type=footing,
    style=bold,
    size=10,
    justify=center,
$
type=title,
    backcolor=rgb(102 102 102),
    color=rgb(255 255 255),
    style=-underline+bold,
$
type=data,
    backcolor=(rgb(255 255 255) rgb(235 235 240)),
$
type=acrosstitle,
    border-top=light,
    border-bottom=heavy,
    border-top-color=rgb(52 55 58),
    border-bottom-color=rgb(52 55 58),
    size=9,
    style=-underline+bold,
$
type=acrossvalue,
    backcolor=rgb(218 225 232),
    style=bold,
$
type=subhead,
    size=10,
    style=bold,border-top=heavy,
    border-bottom=light,
    border-top-color=rgb(52 55 58),
    border-bottom-color=rgb(52 55 58),
$
type=subfoot,
    size=10,
    style=bold,
    border-top=light,
    border-bottom=medium,
    border-top-color=rgb(52 55 58),
    border-bottom-color=rgb(52 55 58),
$
type=subtotal,
    backcolor=RGB(200 200 200),
    style=bold,
    border-top=light,
    border-top-color=rgb(66 70 73),
$
type=grandtotal,
    backcolor=rgb(66 70 73),
    color=rgb(255 255 255),
    style=bold,
    border-top=light,
    border-bottom=heavy,
    border-top-color=rgb(66 70 73),
    border-top-style=solid,
    border-bottom-style=double,
$

One more Queston:
The error messages usually come in the format (FOC205) THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: filename
How can I capture the filename with the text? (or fieldname if that's the text after the message?
Thanks!

That's the $10,000 question!

There was a post that shows how to use tracing to capture the output, and then could be processed to get the actual displayed message.

Here is another way that may help.

SET EMGSRV=FILE
-RUN

TABLE FILE CAR
 PRINT *
 ON TABLE HOLD
END

-RUN

SET EMGSRV=ON

-RUN

-TYPE Contents of the EMGSRV to file.
! type emgfile.ftm