[RBG7-L] - Re: Tracking Intermediate errors

[David M. Blocker]

Sorry Jim, I  can't tell what part of the original code this in intended to replace, or where it's added in.   David Blocker [EMAIL PROTECTED] 781-784-1919 Fax: 781-784-1860 Cell: 339-206-0261 ----- Original Message ----- From: [EMAIL PROTECTED] To: RBG7-L Mailing List Sent: Tuesday, July 06, 2004 8:39 PM Subject: [RBG7-L] - Re: Tracking Intermediate errors 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..   SET VAR vy_labelcount INTEGER = 0 SET ERROR VARIABLE errvar SET VAR vy_errnum INTEGER = NULL SET VAR vy_log INT! EGER = 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 FROMJim -------------- 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 SC! REEN > > 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? > > > > > > > > > > > > > > > > >