MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 95
PRNT - print file based on HPPATH
PARM filename
# This command file prints the first MPE filename found in HPPATH.
setvar _prnt_i 0
setvar _prnt_match false
while not (_prnt_match) and &
setvar(_prnt_tok,word(“!hppath”,',; ',setvar(_prnt_i,_prnt_i+1)))<>””do
if delimpos(_prnt_tok,'./') <> 1 then
# skip HFS path elements, we have an MPE syntax element
setvar _prnt_match (finfo("!filename.!_prnt_tok",'exists'))
endif
endwhile
if _prnt_match then
setvar _prnt_f fqualify("!filename.!_prnt_tok")
echo !_prnt_f
continue
print !_prnt_f,!out ;page=22
else
echo ![ups("!filename")] was not found in your HPPATH.
endif