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 |
||
11 | |||
12 | !distribute items $wims_read_parm into r_,parm_day,parm_month,parm_year |
||
8142 | guerimand | 13 | !let jyear=!char 1 to 4 of $jour_begin |
14 | !let jmonth=!char 5 to 6 of $jour_begin |
||
15 | !let jday=!char 7 to 8 of $jour_begin |
||
5252 | bpr | 16 | |
2241 | bpr | 17 | !goto $r_ |
2199 | bpr | 18 | :1 |
5252 | bpr | 19 | !formselect $parm_year from $creyear to $expyear |
20 | !formselect $parm_month from 1 to 12 prompt $months |
||
21 | !formselect $parm_day from 1 to 31 |
||
2199 | bpr | 22 | !exit |
23 | |||
24 | :3 |
||
5252 | bpr | 25 | !formselect $parm_year from $creyear to $expyear |
26 | !formselect $parm_month from 1 to 12 prompt $months |
||
27 | !formselect $parm_day list 0,$v prompt ---,$v |
||
5247 | bpr | 28 | !exit |
2199 | bpr | 29 | |
30 | :4 |
||
5252 | bpr | 31 | !formselect $parm_year list 0,$v1 prompt ---,$v1 |
32 | !formselect $parm_month from 0 to 12 prompt ---,$months |
||
33 | !formselect $parm_day list 0,$v prompt ---,$v |
||
2241 | bpr | 34 | !exit |
35 | |||
36 | :5 |
||
37 | !let day=!char 7 to 8 of $date_ |
||
38 | !let month=!char 5 to 6 of $date_ |
||
39 | !let year=!char 1 to 4 of $date_ |
||
9598 | guerimand | 40 | !if withyear isin $option_ |
2241 | bpr | 41 | $year/$month/$day |
42 | !else |
||
43 | $month/$day |
||
44 | !endif |
||
5247 | bpr | 45 | !exit |
46 | |||
47 | :6 |
||
5252 | bpr | 48 | !formselect $parm_hour list 08,09,10,11,12,13,14,15,16,17,18,19,20 |
49 | !formselect $parm_min list 00,05,10,15,20,25,30,35,40,45,50,55 |
||
5247 | bpr | 50 | !exit |