regina/demo/timeconv.rexx

   1 /*
   2  * Test program for Regina 08a
   3  *
   4  * This program tests the new ANSI REXX Time conversion functionality.
   5  *
   6  */
   7 Trace o
   8 Say
   9 Say 'This is the output from the "normal" Time() function'
  10 Say
  11 normal_times = "N C O S L M H"
  12 Do i = 1 To Words(normal_times)
  13   Call show_times 1, Word(normal_times,i)
  14 End
  15 Say
  16 Say 'This is the output from the Time() conversion function'
  17 Say
  18 Call show_times 3,'L','12:45:04','N'
  19 Call show_times 3,'S','12:45:04','N'
  20 Call show_times 3,'N','45904','S'
  21 Call show_times 3,'L','12:50am','C'
  22 Call show_times 3,'L','12:50pm','C'
  23 Call show_times 3,'L','00:50am','C'
  24 Call show_times 3,'L','02:50pm','C'
  25 Call show_times 3,'L','10','H'
  26 Call show_times 3,'L','000','H'
  27 Call show_times 3,'L','12','M'
  28 Call show_times 3,'L','121','M'
  29 Call show_times 3,'L','12','S'
  30 Call show_times 3,'L','8192','S'
  31 Call show_times 3,'E','8192','S'
  32 Call show_times 3,'L','12:45:04.345673','L'
  33 Call show_times 3,'N','12:45:04','N'
  34 Call show_times 3,'S','45904','S'
  35 Call show_times 3,'H','10','H'
  36 Call show_times 3,'M','10','M'
  37 Call show_times 3,'C','12:50am','C'
  38 Call show_times 3,'C','12:50pm','C'
  39 Call show_times 3,'C','02:50am','C'
  40 Call show_times 3,'C','02:50pm','C'
  41 Return 0
  42
  43 show_times: Procedure
  44 Parse Arg num,arg1,arg2,arg3
  45 If num = 1 Then
  46   Do
  47     Say Left("Time('"arg1"')",30) "===>" Time(arg1)
  48   End
  49 Else
  50   Do
  51     Say Left("Time('"arg1"','"arg2"','"arg3"')",30) "===>" Time(arg1,arg2,arg3)
  52   End
  53 Return
  54 /**/