BBjOpenFileInfo::isReadOnly

rem ' Retrieve information about all files open in the BBjServices session

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()
    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
def fnyesno$(boolean)=iff(boolean,"Yes","No")
def fnumeric$(number)=iff(number>=0,str(number),"None")