nsmcp::QuestionService method jobWatch (protected)

 <instance of nsmcp::QuestionService> jobWatch record

Defined in /usr/local/ns/tcl/nsmcp/question-service.tcl

Parameters:

record (required)

Testcases:

No testcase defined.

Source code:

set handles [:continuationJobs $record]
if {$handles eq {} && [dict get $record status] in {queued running cancelling}} {
    set entry [lindex [dict get $record turns] end]
    if {[dict exists $entry jobs]} {set handles [dict keys [dict get $entry jobs]]}
}
set observed {}
set waiting false
set ready [expr {$handles ne {} && [dict get $record status] eq "complete"}]
set unseen false
foreach handle $handles {
    set job {}
    foreach entry [lreverse [dict get $record turns]] {
        if {[dict exists $entry jobs $handle]} {set job [dict get $entry jobs $handle]; break}
    }
    set job [:observeJob $record $handle $job]
    dict set observed $handle $job
    if {![:dict getdef $job live false]} {set ready false; continue}
    set status [dict get $job status]
    if {$status in {queued running}} {set waiting true}
    if {$status ne "complete"} {set ready false}
    if {![dict exists $record automaticJobs $handle]} {set unseen true}
}
return [dict create observed $observed waiting [expr {$waiting && [dict get $record status] eq "complete"}]  ready [expr {$ready && $unseen}]]

XQL Not present:

Generic, PostgreSQL, Oracle