MPE CI Programming for 7.0

July 22, 2008
Page 26
hp e3000
strategy
• alter priority of job just streamed:
PARM job=!HPLASTJOB; pri=CS “Altp” script
altproc job=!job; pri=!pri
• Aligned fields for output:
PARM cnt=5 “Align” script
setvar i 0
while setvar(i,i+1) <= !cnt do
setvar a rpt('a',i)
setvar b rpt('b',!cnt-i+1)
echo xx ![rpt(' ',!cnt-len(a))]!a xx ![rpt(' ',!cnt-len(b))]!b xx
endwhile
• Example:
:align 4
xx a xx bbbb xx
xx aa xx bbb xx
xx aaa xx bb xx
xx aaaa xx b xx
more examples