MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 43
Production version (cont)
# read the combined LISTFILE,6 output and pass each filename to VERSION
while setvar(peof,peof-1) >= 0 do
input progname <*x
setvar progname rtrim(progname)
continue
version !progname >*y
if hpcierr = 0 then
setvar veof finfo('*y','eof')
while setvar(veof,veof-1) >= 0 do
input vrec <*y
if pos("CAPABILITIES:",vrec) = 1 or pos("CAP:",vrec) = 1 then
setvar veof 0
if pos("PM",xword(vrec,':')) > 0 then
echo !progname
setvar pcnt pcnt+1
endif
endif
endwhile
endif
endwhile
echo
echo !pcnt programs have PM