Subversion Repositories wimsdev

Rev

Rev 5252 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5252 Rev 8142
Line 8... Line 8...
8 
  !distribute items $wims_read_parm into r_,parm_hour,parm_min
 8 
  !distribute items $wims_read_parm into r_,parm_hour,parm_min
9 
  !goto $r_
 9 
  !goto $r_
10 
!endif
 10 
!endif
11 
 
 11 
 
12 
!distribute items $wims_read_parm into r_,parm_day,parm_month,parm_year
 12 
!distribute items $wims_read_parm into r_,parm_day,parm_month,parm_year
- 
 
 13 
  !let jyear=!char 1 to 4 of $jour_begin
- 
 
 14 
  !let jmonth=!char 5 to 6 of $jour_begin
- 
 
 15 
  !let jday=!char 7 to 8 of $jour_begin
- 
 
 16 
 
13 
 
 17 
 
14 
!goto $r_
 18 
!goto $r_
15 
:1
 19 
:1
16 
!formselect $parm_day from 1 to 31
 20 
!formselect $parm_day from 1 to 31
17 
!formselect $parm_month from 1 to 12 prompt $months
 21 
!formselect $parm_month from 1 to 12 prompt $months