home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rex22emx.zip / demo / dateconv.rexx < prev    next >
OS/2 REXX Batch file  |  2000-06-26  |  3KB  |  91 lines
  1. #! /local/bin/rexx
  2. /*
  3.  * Test program for Regina 08a
  4.  *
  5.  * This program tests the new ANSI REXX Date conversion functionality.
  6.  *
  7.  */
  8. Trace o
  9. Say
  10. Say 'This is the output from the "normal" Date() function'
  11. Say
  12. normal_dates = "B D E M N O S U W"
  13. Do i = 1 To Words(normal_dates)
  14.   Call show_dates 1, Word(normal_dates,i)
  15. End
  16. Say
  17. Say 'This is the output from the Date() conversion function'
  18. Say
  19. Call show_dates 3,'S','60','D'
  20. Call show_dates 3,'N','03/06/96','E'
  21. Call show_dates 3,'N','06/03/96','U'
  22. Call show_dates 3,'N','96/06/03','O'
  23. Call show_dates 3,'N','19960603','S'
  24. Call show_dates 3,'E','12 Jun 1996','N'
  25. Call show_dates 3,'E','3 Jun 1996','N'
  26. Call show_dates 3,'B','19960603','S'
  27. Call show_dates 3,'B','19960704','S'
  28. Call show_dates 3,'B','00010101','S'
  29. Call show_dates 3,'B','19000101','S'
  30. Call show_dates 3,'B','19890827','S'
  31. Call show_dates 3,'S','726340','B'
  32. Call show_dates 3,'S','0','B'
  33. Call show_dates 3,'S','000','B'
  34. Call show_dates 3,'S','187','D'
  35. Call show_dates 3,'S','1','D'
  36. Call show_dates 3,'S','61','D'
  37. Call show_dates 3,'S','60','D'
  38. Call show_dates 3,'S','59','D'
  39. Call show_dates 3,'S','58','D'
  40. Call show_dates 3,'S','-3','D'
  41. Call show_dates 3,'S','-2','D'
  42. Call show_dates 3,'S','-1','D'
  43. Call show_dates 3,'S','0','D'
  44. Call show_dates 3,'S','456','D'
  45. Call show_dates 3,'S','728715','B'
  46. Call show_dates 3,'S','728716','B'
  47. Call show_dates 3,'S','728717','B'
  48. Call show_dates 3,'S','728718','B'
  49. Call show_dates 3,'S','728719','B'
  50. Call show_dates 3,'E','728685','B'
  51. Call show_dates 3,'E','728686','B'
  52. Call show_dates 3,'E','728687','B'
  53. Call show_dates 3,'E','728688','B'
  54. Call show_dates 3,'E','728689','B'
  55. Call show_dates 3,'B','19960228','S'
  56. Call show_dates 3,'B','19960229','S'
  57. Call show_dates 3,'B','19960301','S'
  58. Call show_dates 3,'B','19960302','S'
  59. Call show_dates 3,'E','728905','B'
  60. Call show_dates 3,'W','728905','B'
  61. Call show_dates 3,'W','728906','B'
  62. Say
  63. Say 'Year 2000 (and beyond) specific examples'
  64. Say
  65. Call show_dates 3,'N','03/06/99','E'
  66. Call show_dates 3,'N','06/03/99','U'
  67. Call show_dates 3,'N','99/06/03','O'
  68. Call show_dates 3,'N','03/06/00','E'
  69. Call show_dates 3,'N','06/03/00','U'
  70. Call show_dates 3,'N','00/06/03','O'
  71. Call show_dates 3,'N','03/06/01','E'
  72. Call show_dates 3,'N','06/03/01','U'
  73. Call show_dates 3,'N','01/06/03','O'
  74. Call show_dates 3,'S','750000','B'
  75. Call show_dates 3,'B','20540607','S'
  76. Call show_dates 3,'N','25250101','S'
  77. Call show_dates 3,'W','25250101','S'
  78. Return 0
  79.  
  80. show_dates: Procedure
  81. Parse Arg num,arg1,arg2,arg3
  82. If num = 1 Then
  83.   Do
  84.     Say Left("Date('"arg1"')",30) "===>" Date(arg1)
  85.   End
  86. Else
  87.   Do
  88.     Say Left("Date('"arg1"','"arg2"','"arg3"')",30) "===>" Date(arg1,arg2,arg3)
  89.   End
  90. Return
  91.