Subversion Repositories wimsdev

Rev

Rev 20 | Details | Compare with Previous | Last modification | View Log | RSS feed

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