MPE CI Programming for 7.0

July 22, 2008
Page 78
hp e3000
strategy
LG, LU, LA and LD scripts:
PARM group=@ LG
listgroup !group; format=brief
PARM user=@ LU
listuser !user; format=brief
PARM acct=@ LA
listacct !acct; 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 acct, group, user, dir listings