MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 41
Production version
PARM fileset=@.@.@
# Reports NM and CM program files which have PM capability. Since two LISTFILEs
# are done to get the full list of NMPRG and PROG files the final output will
# not be in alphabetic order. Note: HFS syntax is not supported by VERSION.
if word(fsyntax('!fileset')) = "POSIX" then
echo POSIX syntax names are not supported by the VERSION utility
return
endif
# build the MSG files to hold LISTFILE and VERSION output
purge progf >$null
purge versf >$null
build progf;msg;rec=-80,,f,ascii
build versf;msg;rec=-80,,f,ascii
file x=progf,old
file y=versf,old
# first list NM program files to a MSG file
errclear
continue
listfile !fileset,6;seleq=[code=NMPRG] >*x
if hpcierr > 0 then
# print progf which contains the error
print *x
return
elseif hpcierr < 0 then
# hide warning and erase the contents of progf (the warn text).
print *x >$null
errclear
endif
...