Rev 1755 | Rev 2559 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 1755 | Rev 2413 | ||
---|---|---|---|
Line -... | Line 1... | ||
- | 1 | !distribute items $wims_read_parm into record,_year,_month,_day |
|
- | 2 | ||
1 | !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 | !goto $record |
|
- | 5 | ||
- | 6 | :date |
|
- | 7 | !set c_date=!nospace __$_year/$_month/$_day __ |
|
- | 8 | !set c_date=!replace internal __/ by in $c_date |
|
- | 9 | !set c_date_out=!replace internal /__ by in $c_date |
|
- | 10 | !set c_date_out=!replace internal __ by in $c_date_out |
|
- | 11 | ||
- | 12 | !set l_m=!item $_month of $months |
|
- | 13 | !set l_date_out=$_year, $l_m, $_date |
|
- | 14 | ||
- | 15 | !exit |
|
- | 16 | ||
- | 17 | :months |
|
- | 18 | !exit |
|
- | 19 | ||
- | 20 | ||
2 | 21 |