parm howbfset, dopt2="n"
option recursion
##  howbigis - Add up the Size-in-Sectors of a fileset.
##  Mark Wilkinson         Sony Pictures Entertainment.
if "!dopt2"="n" then
   echo Working. Please wait a while....
   file howbgfl;disc=2000;rec=-80,,f,ascii
   listfile !howbfset,2 > *howbgfl
   setvar howbgtot 0
   reset howbgfl
   howbigis !howbfset,y < howbgfl
   echo !howbfset is !howbgtot Sectors in size
   deletevar howbg@
   purge howbgfl,temp
else
   setvar howbgeof false
   while howbgeof = false do
      setvar cierror 0
      continue
      input howbgrec > $null
      if cierror = 0 then
         if "![str(howbgrec,1,1)]" <> " " then
            if "![str(howbgrec,1,9)]" <> "ACCOUNT= " then
               if "![str(howbgrec,1,14)]" <> "FILENAME  CODE" then
                  setvar howbgtot !howbgtot + ![str(howbgrec,56,7)]
               endif
            endif
         endif
      else
         setvar howbgeof true
      endif
   endwhile
endif