home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / applications / databases / databasepro / auto / auto.rexx < prev   
OS/2 REXX Batch file  |  1995-07-10  |  1KB  |  58 lines
  1. /* Gesamtstatistik */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDRESS DataBase
  6.  
  7. min.1 = 10000
  8. min.2 = 10000
  9. min.3 = 10
  10. min.4 = 100
  11. min.5 = 1000
  12. max.1 = 0
  13. max.2 = 0
  14. max.3 = 0
  15. max.4 = 0
  16. max.5 = 0
  17. sum.1 = 0
  18. sum.2 = 0
  19. sum.3 = 0
  20. sum.4 = 0
  21. sum.5 = 0
  22.  
  23. Display Off
  24. LeftTotal
  25. weiter = 1
  26. DO WHILE weiter = 1
  27.   idx = 2
  28.   DO WHILE idx < 7
  29.     GetData $F || idx
  30.     wert = result
  31.     nr = idx-1
  32.     IF wert < min.nr THEN min.nr = wert
  33.     IF wert > max.nr THEN max.nr = wert
  34.     sum.nr = sum.nr + wert
  35.     idx = idx +1
  36.   END
  37.   RightOne
  38.   IF RC ~= 0 THEN weiter = 0
  39. END
  40. LeftTotal
  41. Display On
  42. Show
  43. Total
  44. anzahl = result
  45. ADDRESS
  46. Open(out,"CON:0/0/500/150/Autostatistik/WAIT/CLOSE/SCREENDataBase",W)
  47. WriteLn(out,"                       Minimal  Maximal  Durchschnitt")
  48. WriteLn(out,"-----------------------------------------------------")
  49. WriteLn(out,"Fahrleistung (Km):    " || RIGHT(min.1,8) || RIGHT(max.1,9) || RIGHT((sum.1 / anzahl),14))
  50. WriteLn(out,"Gesamtpreis (DM):     " || RIGHT(min.2,8) || RIGHT(max.2,9) || RIGHT((sum.2 / anzahl),14))
  51. WriteLn(out,"Preis pro Liter (DM): " || RIGHT(min.3,8) || RIGHT(max.3,9) || RIGHT((sum.3 / anzahl),14))
  52. WriteLn(out,"Verbrauch (Liter):    " || RIGHT(min.4,8) || RIGHT(max.4,9) || RIGHT((sum.4 / anzahl),14))
  53. WriteLn(out,"Zeitraum (Tage):      " || RIGHT(min.5,8) || RIGHT(max.5,9) || RIGHT((sum.5 / anzahl),14))
  54. Close(out)
  55.  
  56. ADDRESS
  57.  
  58.