Rev 20 | Blame | Compare with Previous | Last modification | View Log | RSS feed
!bound wims_read_parm between integer 0 and $currstep default $currstep
caseline=!line 1 of $allcases
caseline=!translate internal $ $ to $\
$ in $caseline
objtmp=!translate internal $\
$ to $ $ in $objects
casesplit=!nonempty lines $casesplit
splittest=!linecnt $casesplit
casecnt=!linecnt $allcases
!if $splittest<=1
!if $casecnt<=1
allcases=$objtmp
casecnt=1
thiscase=-
!else
allcases=!replace line number $activecase+1 by $objtmp in $allcases
thiscase=!line $activecase+1 of $caseline
!endif
object$wims_read_parm=$allcases
!exit
!endif
newobject=!line 1 of $casesplit
!if $casecnt>1
objcases=!line 2 to -1 of $allcases
objcases=!replace line number $activecase by $objtmp in $objcases
caseids=!line 2 to -1 of $caseline
caseid=!line $activecase of $caseids
thiscase=$caseid
!if $caseid!=$empty
caseid=and $caseid
!endif
caseids=!replace line number $activecase by $newobject $caseid in $caseids
!else
activecase=1
caseids=$newobject
caseid=
objcases=$objtmp
thiscase=-
!endif
!if $goalsplit=yes
newObject=< $newobject
!else
newObject=> $newobject
!endif
splitcnt=!linecnt $casesplit
!for i=2 to $splitcnt
l_=!line $i of $casesplit
!if $(splitobject$i) != $empty
o_=!translate internal $\
$ to $ $ in $(splitobject$i)
objcases=!append line $o_ to $objcases
!else
objcases=!append line > $l_ $splitobj to $objcases
!endif
caseids=!append line $l_ $caseid to $caseids
!endif
caseid=!line $activecase of $caseids
caseline=!translate internal $\
$ to $ $ in $activecase\
$caseids
allcases=$caseline\
$objcases
object$wims_read_parm=$allcases
casecnt=!linecnt $allcases