MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 90
before: output:
setvar j 0 a xx bbbbbb xx
while setvar(j,j+1) < 4 do aa xx bbbb xx
setvar a rpt(“a”, j) aaa xx bb xx
setvar b rpt(“b”, (4-j)*2)
echo !a xx !b xx
endwhile
after:
while
setvar a ; setvar bsame way a xx bbbbbb xx
echo !a ![rpt(“ “, 3-len(a))]xx & aa xx bbbb xx
![rpt(“ “, 6-len(b))] !b xx aaa xx bb xx
endwhile
Columnar output