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