%ZTM ;SEA/RDS-TaskMan: Manager, Part 1 (Main Loop) ;10/02/08 09:00
Source file <ZTM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOOP | ;Taskman's Main Loop
|
|
| CHECK | ;LOOP--Check Status And Update Loop Data
|
|
| STATUS(ST,MSG) | ;Record TM status
|
|
| TLOCK(M) | ;Lock/unlock the SCHQ node
|
|
| SCHQ | ;LOOP--Check Schedule List
|
|
| S1 | ||
| S2 | ||
| SEND | ;Send Task To Submanager
|
|
| SCHX | ;Clear all locks
|
|
| IDLE | ;LOOP--DEV Node Maintenance; Backup JOB Commands
|
|
| IDLE1 | ;only proceed with idle work if 60 seconds since last check
|
|
| I1 | ;clear out old DEV nodes
|
|
| I2 | ;job new submanagers cross-volume for each unfinished C list
|
|
| MON | ;Set Next %ZTMON each Hour
|
|
| NEWJOB(ZTUCI,ZTDVOL,ZTNODE) | ;Start a new Job
|
|
| DIFF(N,O,T) | ;Diff in sec.
|
|
| OOS(BV) | ;Check if Box-Volume is Out Of Service, Return 1 if OOS.
|
|
| H3(%) | ;Convert $H to seconds.
|
|
| H0(%) | ;Covert from seconds to $H
|
|
| SUBOK() | ;Check if sub's are starting, return 1 if OK
|
|
| NEWSUB() | ;See if we need a new submanager
|
|
| TSKSTAT(CODE,MSG) | ; Update task's status
|
|
| DETACH | ;Do slow work in background job
|
|
| I5 | ;Clean up %ZTSCH
|
|
| I6 | ;Check on persistent jobs, Locks can take time, Called from %ZTM0 at start.
|
