Rev 8142 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 8142 | Rev 9598 | ||
---|---|---|---|
Line 2... | Line 2... | ||
2 | !distribute items $wims_read_parm into r_ |
2 | !distribute items $wims_read_parm into r_ |
3 | !if $r_ isitemof 5 |
3 | !if $r_ isitemof 5 |
4 | !distribute items $wims_read_parm into |
4 | !distribute items $wims_read_parm into r_,date_,option_ |
5 | !goto $r_ |
5 | !goto $r_ |
6 | !endif |
6 | !endif |
7 | !if $r_ isitemof 6 |
7 | !if $r_ isitemof 6 |
8 | !distribute items $wims_read_parm into r_,parm_hour,parm_min |
8 | !distribute items $wims_read_parm into r_,parm_hour,parm_min |
9 | !goto $r_ |
9 | !goto $r_ |
Line 35... | Line 35... | ||
35 | 35 | ||
36 | :5 |
36 | :5 |
37 | !let day=!char 7 to 8 of $date_ |
37 | !let day=!char 7 to 8 of $date_ |
38 | !let month=!char 5 to 6 of $date_ |
38 | !let month=!char 5 to 6 of $date_ |
39 | !let year=!char 1 to 4 of $date_ |
39 | !let year=!char 1 to 4 of $date_ |
40 | !if |
40 | !if withyear isin $option_ |
41 | $year/$month/$day |
41 | $year/$month/$day |
42 | !else |
42 | !else |
43 | $month/$day |
43 | $month/$day |
44 | !endif |
44 | !endif |
45 | !exit |
45 | !exit |