Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XUSCNT

Package: Kernel

Routine: XUSCNT


Information

XUSCNT ;ISF/RWF - Job counting for GTM ;6/24/04 15:22

Source Information

Source file <XUSCNT.m>

Entry Points

Name Comments DBIA/ICR reference
COUNT(INC,JOB) ;Keep count of jobs
  • ICR #4467
    • Status: Active
    • Usage: Controlled Subscription
    CHECK(JOB) ;Check if job number active
    ; 0 = Job doesn't seem to be running
    ; 1 = Job maybe running
    ; 2 = Job still has Lock out.
    SETLOCK(NLK) ;Set the Lock we will keep
    TOUCH ;Update the time
  • ICR #4467
    • Status: Active
    • Usage: Controlled Subscription
    GETLOCK() ;Get the node to Lock
    CLEAR(DB) ;Check for locks and time clear old ones.
    H3(%H) ;Just seconds
    XREF(X1,V) ;V="S" or "K"

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Current Job Count: ",$$COUNT(0)
    • Line Location: CLEAR+6
    Function Call: WRITE
    • Prompt: !,CNT," Job: ",%J
    • Line Location: CLEAR+9
    Function Call: WRITE
    • Prompt: " Lock Held"
    • Line Location: CLEAR+13
    Function Call: WRITE
    • Prompt: " Lock Fail"
    • Line Location: CLEAR+14
    Function Call: WRITE
    • Prompt: " Current TimeStamp"
    • Line Location: CLEAR+20
    Function Call: WRITE
    • Prompt: " Running Task"
    • Line Location: CLEAR+24
    Function Call: WRITE
    • Prompt: " Not Active: Removed"
    • Line Location: CLEAR+27
    Function Call: WRITE
    • Prompt: !,"New JOB count: ",CNT
    • Line Location: CLEAR+33
    Info |  Source |  Entry Points |  Interaction Calls