MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 37
The quick solution
purge progf
purge versf
build progf;msg;rec=-80,,f,ascii
build versf;msg;rec=-80,,f,ascii
file x=progf,old
file y=versf,old
listfile @.@.@,6; seleq=[code=PROG] >*x
listfile @.@.@,6; seleq=[code=NMPRG] >>*x
setvar peof finfo('*x','eof')
while setvar(peof,peof-1) >= 0 do
input progname <*x
version !progname >*y
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 has PM capabilty
endif
endif
endwhile
endwhile