Dear fellow listers, In the last few weeks I've posted 2 or 3 versions of a command file that report which volume set each MPE group resides. The attached version has been expanded to allow wildcard characters in the MPE account specification, allow the specification of 'posix' directories and also include in its reporting any existing 'posix' directories. Enjoy it!! Paul H. Christidis --------------------<Start Cut parm select ="?" entry='MaIn' # # Command file: Showvol 1998/03/24 # Author: Paul H. Christidis # Remarks: Shows the Volume Set and Sectors used for each # MPE account, group or posix directory. # if "!entry" = "ReAdIt" then setvar mpexfinfoany 1 setvar _sv_eof finfo(HPSTDIN,"eof") if _sv_wild then setvar _sv_eof _sv_eof - 1 endif setvar _sv_count 0 setvar _sv_acthold '' setvar _sv_dlen 26 echo !_sv_clear echo Sectors Account/Group | Directory Volume Set echo ------- ------------------------- ---------- while setvar(_sv_eof, _sv_eof - 1) >= 0 do input _sv_text setvar _sv_slpos POS("/",_sv_text) if _sv_slpos <> 0 then setvar _sv_text RTRIM(_sv_text) setvar _sv_sectors LFT(_sv_text,10) setvar _sv_slpos POS("/",_sv_text) setvar _sv_directory & STR(_sv_text,_sv_slpos,LEN(_sv_text) - _sv_slpos + 1) setvar _sv_volume finfo(_sv_directory,35) setvar _sv_acct _sv_directory - "/" setvar _sv_acct STR(_sv_acct,1,(POS("/",_sv_acct) - 1)) if _sv_count = 0 then setvar _sv_acthold _sv_acct endif if _sv_acct <> _sv_acthold then echo setvar _sv_acthold _sv_acct endif if LEN(_sv_directory) <= _sv_dlen then setvar _sv_gaplen _sv_dlen - LEN(_sv_directory) echo !_sv_sectors !_sv_directory ![RPT(" ",_sv_gaplen)] & !_sv_volume else echo !_sv_sectors !_sv_directory echo ![RPT(" ",38)] !_sv_volume endif setvar _sv_count _sv_count + 1 endif endwhile if _sv_count = 0 then echo *** No directories qualified *** endif deletevar mpexfinfoany return else setvar _sv_bell CHR(7) if LFT("!select",1) <> "/" then setvar _sv_select "/" + ups("!select") + "/" else setvar _sv_select "!select" endif setvar _sv_wild POS("@",_sv_select) <> 0 OR & POS("#",_sv_select) <> 0 OR POS("?",_sv_select) <> 0 if _sv_select = "/?/" then echo Usage: !_sv_bell echo ![finfo(hpfile,"fname")] [ {Acctname, /posixdir } ] echo echo Acctname - A Valid MPE account name the input will be echo upshifted. echo echo /posixdir - if the input start with a '/' the command echo assumes we are dealing with a posix directory. echo The input is *not* upshifted. echo echo NOTE: The sectors reported correspond to the entire directory echo and thus there maybe some duplication. return endif echo (PHC) Account/Volume Set mapping V98.03.23 !hpdatef, !hptimef echo setvar _sv_clear chr(27)+"&a0c-1R"+chr(27)+"J"+chr(27)+"&a0c-1R" purge xsvfilex,temp > $null file xsvfilex;rec=-80,,f,ascii;disc=100000;temp echo !_sv_bell Getting directory names.... setjcw cierror 0 continue diskuse !_sv_select > *xsvfilex if cierror = 0 then xeq !hpfile _sv_select ;entry="ReAdIt" < xsvfilex else echo echo !_sv_bell **Error: Account "!select" is Invalid... endif reset xsvfilex endif if bound(traceon) then showvar _sv@ else deletevar _sv@ endif ------------------<End Cut