Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
5252 | bpr | 1 | !! some variable are global as expyear, creyear,months, v, v1 |
2 | !distribute items $wims_read_parm into r_ |
||
3 | !if $r_ isitemof 5 |
||
9598 | guerimand | 4 | !distribute items $wims_read_parm into r_,date_,option_ |
5252 | bpr | 5 | !goto $r_ |
6 | !endif |
||
7 | !if $r_ isitemof 6 |
||
8 | !distribute items $wims_read_parm into r_,parm_hour,parm_min |
||
9 | !goto $r_ |
||
10 | !endif |
||
10706 | bpr | 11 | !if $r_ iswordof 1 3 |
12 | !if NaN isin $expyear |
||
13 | !set expyear=!char 1 to 4 of $wims_now |
||
14 | !endif |
||
15 | !if NaN isin $creyear |
||
16 | !set creyear=!char 1 to 4 of $wims_now |
||
17 | !endif |
||
18 | !endif |
||
8142 | guerimand | 19 | !distribute items $wims_read_parm into r_,parm_day,parm_month,parm_year,parm_dday,parm_dmonth,parm_dyear |
20 | !let $parm_day=$[$($parm_day)] |
||
21 | !let $parm_month=$[$($parm_month)] |
||
22 | !let $parm_year=$[$($parm_year)] |
||
5252 | bpr | 23 | |
2241 | bpr | 24 | !goto $r_ |
2199 | bpr | 25 | :1 |
5252 | bpr | 26 | !formselect $parm_day from 1 to 31 |
27 | !formselect $parm_month from 1 to 12 prompt $months |
||
28 | !formselect $parm_year from $creyear to $expyear |
||
2199 | bpr | 29 | !exit |
30 | |||
31 | :3 |
||
5252 | bpr | 32 | !formselect $parm_day list 0,$v prompt ---,$v |
33 | !formselect $parm_month from 1 to 12 prompt $months |
||
34 | !formselect $parm_year from $creyear to $expyear |
||
2199 | bpr | 35 | !exit |
36 | |||
37 | :4 |
||
5252 | bpr | 38 | !formselect $parm_day list 0,$v prompt ---,$v |
39 | !formselect $parm_month from 0 to 12 prompt ---,$months |
||
10706 | bpr | 40 | !formselect $parm_year list 0,$v1 prompt ---,$v1 |
2241 | bpr | 41 | !exit |
42 | |||
43 | :5 |
||
44 | !let day=!char 7 to 8 of $date_ |
||
45 | !let month=!char 5 to 6 of $date_ |
||
46 | !let year=!char 1 to 4 of $date_ |
||
9598 | guerimand | 47 | !if withyear isin $option_ |
2241 | bpr | 48 | $day/$month/$year |
9598 | guerimand | 49 | !else |
2241 | bpr | 50 | $day/$month |
51 | !endif |
||
5247 | bpr | 52 | !exit |
53 | |||
54 | :6 |
||
5252 | bpr | 55 | !formselect $parm_hour list 08,09,10,11,12,13,14,15,16,17,18,19,20 |
56 | !formselect $parm_min list 00,05,10,15,20,25,30,35,40,45,50,55 |
||
5247 | bpr | 57 | !exit |