2 * Test program for Regina 08a
4 * This program tests the new ANSI REXX Time conversion functionality.
9 Say 'This is the output from the "normal" Time() function'
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
)
16 Say 'This is the output from the Time() conversion function'
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'
44 Parse Arg num
,arg1
,arg2
,arg3
47 Say Left("Time('"arg1
"')",30) "===>" Time(arg1
)
51 Say Left("Time('"arg1
"','"arg2
"','"arg3
"')",30) "===>" Time(arg1
,arg2
,arg3
)