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