Subversion Repositories wimsdev

Rev

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

Rev 20 Rev 16204
Line 1... Line 1...
1 
!if $wims_read_parm!=$empty
 1 
!if $wims_read_parm!=$empty
2 
 !bound wims_read_parm between integer 0 and $currstep-1 default $[$currstep-1]
 2 
  !bound wims_read_parm between integer 0 and $currstep-1 default $[$currstep-1]
3 
 allcases=$(object$wims_read_parm)
 3 
  allcases=$(object$wims_read_parm)
4 
!endif
 4 
!endif
5 
casecnt=!linecnt $allcases
 5 
casecnt=!linecnt $allcases
6 
!if $casecnt<=1
 6 
!if $casecnt<=1
7 
 objects=!translate internal $	$ to $\
 7 
  objects=!translate internal $	$ to $\
8 
$ in $allcases
 8 
$ in $allcases
9 
 !exit
 9 
  !exit
10 
!endif
 10 
!endif
11 
 
 11 
 
12 
caseline=!line 1 of $allcases
 12 
caseline=!line 1 of $allcases
13 
caseline=!translate $	$ to $\
 13 
caseline=!translate $	$ to $\
14 
$ in $caseline
 14 
$ in $caseline
15 
activecase=!line 1 of $caseline
 15 
activecase=!line 1 of $caseline
16 
caseid=!line $activecase+1 of $caseline
 16 
caseid=!line $activecase+1 of $caseline
17 
caseobj=!line $activecase+1 of $allcases
 17 
caseobj=!line $activecase+1 of $allcases
18 
objects=!translate internal $	$ to $\
 18 
objects=!translate internal $	$ to $\
19 
$ in $caseobj
 19 
$ in $caseobj
20 
 
 -