It's only taken 6 years for all you guru's to beat some
sense into this head.. Don't backoff though, I'm still
really green SQL wise. Still workin on your book.
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?
> > >
> > >
> > >
> > >
> >
> >
>
