----- Original Message -----
Sent: Wednesday, July 07, 2004 7:39
PM
Subject: [RBG7-L] - Re: Tracking
Intermediate errors
David.. Well, this is the another time when the code gets chopped
off. I'm going to fuss big time with Comcast over this. They
don't even give any options to send messages in plain text..
They have been bragging about all the new features they added,
and it's about time to put a little dose of reality back into their
vision.
I will resend this from another account.
Jim
--------------
Original message --------------
I've been think a bit here lately
of polishing it a bit with a
way to be able to return to the
line after the code. Here's
what I have so far.. Rough
Draft..
ET
VAR vy_labelcount INTEGER = 0
SET ERROR VARIABLE errvar
SET VAR vy_errnum INTEGER = NULL
SET VAR vy_log INTEGER = 0
SET VAR vy_errsection TEXT = NULL
SET VAR vy_errcritical INTEGER = 0
--other code
--likely
problem section or one I want to log
--Defined Section information
goes here
SET VAR
vy_errsection
= 'So and So View inop'
--CODE
GOES HERE
CREATE VIEW
junkieview
SELECT
ALL
FROM
junkietable
SET
VAR
vy_errnum
=
.errvar
IF
vy_errnum
<>
0 THEN
SET VAR vy_errmsg = 'Error
Creating view'
SET VAR vy_errnum = .errvar
SET VAR vy_errcritical = 0 --Non Critical Error
SET VAR vy_labelcount
Jim
--------------
Original message --------------
> That is slick code, jim!!
>
> David
>
> David Blocker
>
[EMAIL PROTECTED]
> 781-784-1919
> Fax:
781-784-1860
> Cell: 339-206-0261
> ----- Original Message
-----
> From: "Jim Limburg" <[EMAIL PROTECTED]>
> To:
"RBG7-L Mailing List" <[EMAIL PROTECTED]>
> Sent: Friday, July 02,
2004 3:38 PM
> Subject: [RBG7-L] - Re: Tracking Intermediate errors
>
>
> > What about writing the to a log
>
>
> >
> > SET ERROR VARIABLE errvar
> >
SET VAR vy_errnum INTEGER = NULL
> > SET VAR vy_log INTEGER = 0
> > SET VAR vy_errsection TEXT = NULL
> >
>
> --other code
> >
> > --likely problem section or
one I want to log
> > --Defined Section information goes here
> > SET VAR vy_errsection = 'So and So View inop'
> >
--CODE GOES HERE
> > IF errvar <> 0 THEN
> > SET
VAR vy_errmsg = 'Error Creating view'
> > SET VAR vy_errnum =
.errvar
> > RUN errhndler IN invsum.x2r
> > GOTO
getout1
> > ENDIF
> >
> >
> >
RETURN
> > $COMMAND
> > errhndler
> > OUTPUT
SCREEN
> > SET VAR vy_errmess TEXT = ('ERROR: # ' +
(CTXT(.vy_errnum)) + +
> > ' Msg = ' + .vy_errmsg)
> >
PAUSE 1 USING .vy_errmess AT CENTER CENTER
> > IF vy_log = 1
THEN
> > OUTPUT mylogfile.log APPEND
> > WRITE
'**************************************'
> > WRITE
.vy_errsection
> > WRITE .vy_errmess
> > WRITE
'**************************************'
> > OUTPUT SCREEN
> > ENDIF
> > OUTPUT SCREEN
> > SET VAR
vy_errsection TEXT = NULL
> > SET VAR vy_log = 0
> >
CLEAR VAR vy_errnum, vy_errmess
> > RETURN
> >
> > Jim
> >
> > Charles Parks wrote:
> >
> > >What are some good strategies for tracking
and fixing errors that do not
> consistently repeat?
> >
>
> > >
> > >
> > >
>
>
> >
>
