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 |