Rev 2413 | Rev 14298 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
2413 | bpr | 1 | !distribute items $wims_read_parm into record,_year,_month,_day |
2559 | bpr | 2 | !bound record within date,months default $ |
3 | !set months=Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sept,Oct,Nov,Dec |
||
4 | !if $record=$empty |
||
5 | !exit |
||
6 | !endif |
||
2413 | bpr | 7 | |
8 | !goto $record |
||
1755 | bpr | 9 | |
2413 | bpr | 10 | :date |
11 | !set c_date=!nospace __$_year/$_month/$_day __ |
||
12 | !set c_date=!replace internal __/ by in $c_date |
||
13 | !set c_date_out=!replace internal /__ by in $c_date |
||
14 | !set c_date_out=!replace internal __ by in $c_date_out |
||
15 | |||
16 | !set l_m=!item $_month of $months |
||
17 | !set l_date_out=$_year, $l_m, $_date |
||
18 | |||
19 | !exit |
||
20 | |||
21 | :months |
||
22 | !exit |
||
23 | |||
24 | |||
25 |