%ZTMS1 ;SEA/RDS-TaskMan: Submanager, (Loop & Get Task) ;10/07/08 15:46
Source file <ZTMS1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SUBMGR | ;START--outer submanager loop
|
|
| GETTASK | ;SUBMGR--retain the partition; check Waiting Lists every 1 seconds
|
|
| EXIT() | ;GETTASK--decide whether to exit retention loop
|
|
| NO | ;Don't exit, Update status node
|
|
| YES | ;EXIT--Yes ;p446
|
|
| C | ;GETTASK--On C type volume sets, get tasks from Cross-Volume Job List
|
|
| BALANCE() | ;GETTASK--check load balance, and wait while Manager waits
|
|
| JOB | ;GETTASK--search Partition Waiting List
|
|
| J2 | ||
| J3 | ||
| BADTASK | ;JOB--unschedule tasks with bad numbers or incomplete records
|
|
| IOQ | ;GETTASK--search Device Waiting List, Lock IO then DEV.
|
|
| I1() | ;Keep 2 sec apart
|
|
| I2 | ||
| I3 | ||
| I5 | ||
| IOX | ;
|
|
| DEVLK(X,ZIO,TO) | ;1=Lock/-1=unlock the ^%ZTSCH("DEV",ZIO) node.
|
|
| SUB(X) | ;Inc/Dec SUB or return SUB count
|
|
| JCNT(MAXWAIT) | ;See if less that MaxWait tasks in JOB list p446
|
|
| PDIFF(N,O,T) | ;Positive Diff
|
|
| DIFF(N,O,T) | ;Diff in sec.
|
|
| TSKSTAT(CODE,MSG) | ;Update task's status
|
|
| H3(%) | ;Convert $H to seconds.
|
|
| H0(%) | ;Covert from seconds to $H
|
|
| FIRST() | ;See if SM with lowest $J
|
