dim jobs() as CUPSJobMBS = CUPSMBS.GetJobs("", true, CUPSMBS.kWhichJobsActive)

if UBound(jobs)<0 then
  MsgBox "no job"
else
  
  dim j as CUPSJobMBS = jobs(0)
  dim lines(-1) as string
  
  lines.Append "Title: "+j.Title
  lines.Append "User: "+j.User
  lines.Append "Format: "+j.Format
  lines.Append "Dest: "+j.Dest
  lines.Append "ID: "+str(j.ID)
  lines.Append "Priority: "+str(j.Priority)
  lines.Append "Size: "+str(j.Size)
  lines.Append "State: "+str(j.State)
  
  if j.CompletedTime<>nil then
    lines.Append "CompletedTime: "+j.CompletedTime.AbbreviatedDate+" "+j.CompletedTime.longtime
  else
    lines.Append "CompletedTime: nil"
  end if
  
  if j.CreationTime<>nil then
    lines.Append "CreationTime: "+j.CreationTime.AbbreviatedDate+" "+j.CreationTime.longtime
  else
    lines.Append "CreationTime: nil"
  end if
  
  if j.ProcessingTime<>nil then
    lines.Append "ProcessingTime: "+j.ProcessingTime.AbbreviatedDate+" "+j.ProcessingTime.longtime
  else
    lines.Append "ProcessingTime: nil"
  end if
  
  MsgBox join(lines,EndOfLine)
  
end if