Subversion Repositories wimsdev

!if $wims_read_parm!=$empty
  !bound wims_read_parm between integer 0 and $currstep-1 default $[$currstep-1]
  allcases=$(object$wims_read_parm)
!endif
casecnt=!linecnt $allcases
!if $casecnt<=1
  objects=!translate internal $ $ to $\
$ in $allcases
  !exit
!endif

caseline=!line 1 of $allcases
caseline=!translate $   $ to $\
$ in $caseline
activecase=!line 1 of $caseline
caseid=!line $activecase+1 of $caseline
caseobj=!line $activecase+1 of $allcases
objects=!translate internal $   $ to $\
$ in $caseobj