home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / database / informix / 2415 < prev    next >
Encoding:
Internet Message Format  |  1992-11-14  |  3.9 KB
  1. Path: sparky!uunet!ukma!wupost!emory!emory!not-for-mail
  2. From: jerry@jerry.mendota.ingr.com (Jerry Jugovich)
  3. Newsgroups: comp.databases.informix
  4. Subject: Re: tracking execution
  5. Date: 13 Nov 1992 11:28:04 -0500
  6. Organization: Mailing List Gateway
  7. Lines: 92
  8. Sender: walt@mathcs.emory.edu
  9. Distribution: world
  10. Message-ID: <1e0l2kINNsgg@emory.mathcs.emory.edu>
  11. Reply-To: jerry@jerry.mendota.ingr.com (Jerry Jugovich)
  12. NNTP-Posting-Host: emory.mathcs.emory.edu
  13. X-Informix-List-ID: <list.1602>
  14.  
  15. > A company I have been working is having a problem with deadlocks.  We 
  16. > handled this by checking the status variable after executing any critical
  17. > transactions.  If there is a deadlock status returned we call a routine
  18. > to handle this, which does a rollback.  This works fine except we would
  19. > like to know what statement caused it and where in the code it is.
  20. > 
  21. > So basically what we would like to know is if there any globals variables
  22. > or something to return the same information you get when there is an 
  23. > actual error, ie. the module and line number.
  24. > 
  25. > I know we could hardcode them into all the calls but there alot of them
  26. > and they would also have to be changed whenever we change code.
  27. > 
  28. > We are currently running OnLine 4.0, I4GL 4.0 on Intergraph equipment.
  29. > 
  30. > Our current call looks like the following :
  31. > 
  32. >      SOME CRITICAL DATABASE TRANSACTION
  33. >      IF status < 0 THEN
  34. >          CALL handle_warning(status)
  35. >      END IF
  36. > 
  37. > handle_warning then insert the status into a table and send E-mail to the
  38. > programming group that a deadlock happened and restarts the program for the 
  39. > user.
  40. > 
  41. > Any help on how to determine where the program is executing would be 
  42. > appreciated.
  43. > 
  44. >                         Bill Connors
  45. > 
  46.  
  47. I question the restart program functionality this is not all that easy to do
  48. possible but difficult.  Easiest run in a OS shell loop.
  49.  
  50. The error info can be acomplished much easier than you think. Really easy if
  51. you can live with not putting the info in a table.
  52.  
  53. In your main add the following two lines. 
  54.  
  55.              # open a errorlog file  all 4gl errors written on occurence      #
  56.              # consisting of date time source-module name and the line number #
  57.              # The error number and error message. Doc I4gl Ref Vol1 Sec 6    #
  58.              # 4gl Function Library.                                          #
  59.  
  60.              call startlog ( "your_errorlog_file" )
  61.  
  62.              # write a string to error log file # 
  63.              call errorlog ( "Program accesed" )
  64.  
  65.              # just as it says whenever error call this function         # 
  66.              # NOTE it is documented that certain errors aborts program  #
  67.              # completly Tough Luck. Deadlocks are not one of them       #
  68.  
  69.              whenever error call log_err
  70.  
  71.  
  72. And add your log_err function.
  73.  
  74. Write a routine to read the error log file if you really need to insert the
  75. error info into a table. and do the email notification routine.
  76.  
  77. function log_err()
  78.  
  79.     define 
  80.     u_pid_no
  81.     e_str char(70),
  82.     ss2 char(16)
  83.  
  84.         message "Error occured Check error_log file for details" attribute(red)
  85.         sleep 5
  86.         message ""
  87.  
  88.         # gets user pid and user name #
  89.         call get_pid() returning u_pid_no ,ss2   
  90.  
  91.         let e_str = "Error ocurred for User name ",
  92.                      ss2,
  93.                      " Process id = ",
  94.                      u_pid_no using "<<<<<<<<<<"
  95.  
  96.         # This writes to the error log file #
  97.         call errorlog( e_str )        
  98.  
  99. end function
  100.  
  101. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  102.  Mail Path: jerry@jerry.mendota.ingr.com        Jerry Jugovich
  103.  Phone:     612 681-4450                        TIM Application Engineer
  104.                                                 Intergraph Corporation
  105.                                                 Mendota Heights Minnesota
  106. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  107.