Rev 2413 | Rev 14298 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 2413 | Rev 2559 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !distribute items $wims_read_parm into record,_year,_month,_day |
1 | !distribute items $wims_read_parm into record,_year,_month,_day |
2 | - | ||
- | 2 | !bound record within date,months default $ |
|
3 | !set months=Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sept,Oct,Nov,Dec |
3 | !set months=Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sept,Oct,Nov,Dec |
- | 4 | !if $record=$empty |
|
- | 5 | !exit |
|
- | 6 | !endif |
|
- | 7 | ||
4 | !goto $record |
8 | !goto $record |
5 | 9 | ||
6 | :date |
10 | :date |
7 | !set c_date=!nospace __$_year/$_month/$_day __ |
11 | !set c_date=!nospace __$_year/$_month/$_day __ |
8 | !set c_date=!replace internal __/ by in $c_date |
12 | !set c_date=!replace internal __/ by in $c_date |