MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 47
PARM fileset=./@ LF
listfile !fileset,6
PARM group=@ LG
listgroup !group; format=brief
PARM user=@ LU
listuser !user; format=brief
PARM dir=./@ LD
setvar _dir !dir
if delimpos(_dir, “./) <> 1 then
# convert MPE name to POSIX name
setvar _dir dirname( fqualify(_dir)) + “/” + basename(_dir)
endif
listfile !_dir, 6; seleq=[object=HFSDIR] ;tree
Brief file, group, user, dir listings