home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / misc / tlog.lha / Test.tlog < prev    next >
Encoding:
Text File  |  1992-04-26  |  1.1 KB  |  63 lines
  1. /* simple AREXX test for TLog that prints the first and last records */
  2.  
  3. options results
  4.  
  5. address 'TLOG'
  6.  
  7. 'opendb'
  8. 'firstrec'
  9. say "First Record"
  10. say result
  11.  
  12.     /* After the date, the fields in a record are delineated by spaces */
  13. parse var result '"' dbdate '"' dbheart dbdist dbtime dbweight dbtemp dbkey
  14.  
  15. say "First Record fields "
  16. say "date  "   dbdate
  17. say "heart "  dbheart
  18. say "dist  "   dbdist
  19. say "time  "   dbtime
  20. say "weight" dbweight
  21. say "temp  " dbtemp
  22. say "key   " dbkey
  23. currenttime
  24. say "time in seconds" result
  25. say " "
  26.  
  27.  
  28. 'lastrec'
  29. say "Last Record"
  30. say result
  31.  
  32.     /* the fields in a record are delineated with verticle bars '|' */
  33. parse var result dbdate '|' dbheart '|' dbdist '|' dbtime '|' dbweight '|' dbtemp '|' dbkey
  34.  
  35. say "Last Record fields "
  36. say "date  "   dbdate
  37. say "heart "  dbheart
  38. say "dist  "   dbdist
  39. say "time  "   dbtime
  40. say "weight" dbweight
  41. say "temp  " dbtemp
  42. say "key   " dbkey
  43. currenttime
  44. say "time in seconds" result
  45. say " "
  46.  
  47.  
  48. getdateformat
  49. oldformat = result
  50.  
  51. say "The various date Formats"
  52.  
  53. say "The original format " oldformat
  54.  
  55. do i = 1 to 7
  56.     dateformat i
  57.     currentdate
  58.     say result
  59. end
  60.  
  61. dateformat oldformat
  62.  
  63.