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 |