parm fileset="*" entry="main"

if "!entry"="main"
  echo
  echo BUSY 1.0 - File In Use Utility - Joe Geiser
  echo Please wait while requested files are parsed...
  echo
endif

setvar fset "!fileset"
setvar busyflag 0
if "!entry"="main"
  if "!fset"="*"
    echo
    echo [BUSY] File to show if a file(set) is being accessed
    echo
    echo Use:  :BUSY [fileset]
    echo
  else
    setjcw cierror,0
    continue
    listf !fset,2 > TEMP
    if cierror = 907
      echo ERROR: No files qualified [!fset]
      echo
    else
      BUSY !fset,"list" < TEMP
      return
    endif
  endif
else
  if "!entry"="list"
    setvar eof finfo("TEMP","EOF")
    setvar rec_count 0
    while rec_count < eof do
      input rec < TEMP
      if len("!rec") > 11
        setvar fname str("!rec",1,9)
        if "!fname"="ACCOUNT= "
          setvar grpname str("!rec",31,8)
          setvar actname str("!rec",11,8)
        endif
        if pos("*","!fname") > 0
          setvar busyflag 1
          setvar fname1 str("!fname",1,8)
          echo File !fname1.!grpname.!actname is currently being accessed
        endif
      endif
    setvar rec " "
    setvar rec_count rec_count + 1
    endwhile
  if !busyflag = 0
    echo File(set) !fset is not currently being accessed.
    setvar fname1 " "
    setvar grpname " "
    setvar actname " "
    BUSY ,"delete"
    return
  endif
else
  if "!entry"="delete"
    deletevar fset,eof,rec_count,fname,fname1,grpname,actname
    return
  endif
 endif
endif