BBjOpenFileInfo::forceClose

rem ' Force a file closed via BBjOpenFileInfo

states = unt
open (states)"states.dat"

input "Enter User ID: ",userid$
if userid$ = "" then userid$ = "admin"
input "Enter Password: ",password$
if password$ = "" then password$ = "admin123"
admin! = bbjapi().getAdmin(userid$,password$)
vector! = admin!.getOpenFileInfos()
if vector!.size() then
  for i=0 to vector!.size()-1
    print fill(72,"=")
    info! = vector!.get(i)
    print "File Name: ",info!.getFilename()," (",str(i+1),")"
    print "  Open ID: ",info!.getIDString()
    print "  User ID: ",info!.getUser()
    print "Host Name: ",info!.getHost()
    print "   Locked: ",fnyesno$(info!.isLocked())
    print "Extracted: ",fnumeric$(info!.getExtracted())
    print " Advisory: ",fnyesno$(info!.isAdvisoryLocking())
    print " Readonly: ",fnyesno$(info!.isReadOnly())
    print "Open Type: ",info!.getOpenTypeString()
  next i
endif

print "Force which file closed? (1.."+str(vector!.size())+"): ",
input i
if i and i<=vector!.size() then
   vector!.get(i-1).forceClose()
   print "File ",vector!.get(i-1).getFilename()," was forced closed."
endif

print fid(states)

escape

def fnyesno$(boolean)=iff(boolean,"Y","N")
def fnumeric$(number)=iff(number>=0,str(number),"None")