Subversion Repositories wimsdev

Rev

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