%ZTM1 ;SEA/RDS-TaskMan: Manager, Part 3 (Validate Task) ;07/27/2005 18:13
Source file <ZTM1.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| REJCT(MSG) | ;Save reject msg, set flag | |
| ZIS | ;MAIN--Determine Output Device | |
| VSTYP(VS) | ;Get a VS's type | |
| U5 | ; | |
| U4 | ; | |
| STORE | ;Store Validated Data In Task Log, Quit If Needn't Do WAIT | |
| U1 | ; | |
| ZISX | ||
| U2 | ; | |
| VOLUME | ;determine destination volume set | |
| V1 | ;reject tasks with destination volume sets not in Volume Set file | |
| V2 | ;lookup type of volume set, and reject tasks to F or O types | |
| V3 | ;accept tasks with the current volume set as the destination | |
| LOOKUP | ; | |
| U3 | ; | |
| H3(%) | ;Convert $H to seconds. | |
| IOWAIT | ;If Device has a queue, Put Task On IO Queue. | |
| V4 | ;reject tasks whose destination volume sets lack link access | |
| MAIN | ; | |
| TSKSTAT(CODE,MSG) | ; Update task's status | |
| UCI | ;MAIN--determine destination UCI | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^%ZIS(1 - [#3.5] | ZIS+10 | 
| ^%ZIS(14.5 - [#14.5] | V1+1, V1+3, VSTYP+2 | 
| ^%ZIS(14.6 - [#14.6] | U3+2, U5+2 | 
| ^%ZOSF("TEST" | U2+9 | 
| ^%ZOSF("UCICHECK" | U2+4, U4+2 | 
| ^%ZTSCH("IO" | STORE+12 | 
| ^%ZTSK - [#14.4] | LOOKUP+4, LOOKUP+5, LOOKUP+6, LOOKUP+7*, STORE+2, STORE+3*, STORE+4*, STORE+5*, STORE+6*, TSKSTAT+1* | 
| Name | Line Occurrences | 
|---|---|
| $$VSTYP | VOLUME+5 | 
| IOWAIT | STORE+12 | 
| LOOKUP | MAIN+2 | 
| REJCT | ZIS+6, V1+2, V1+4, V2+2, V4+1, U1+2, U2+5, U2+11, U4+3 | 
| STORE | MAIN+2 | 
| TSKSTAT | LOOKUP+3, STORE+2, IOWAIT+1 | 
| UCI | MAIN+5 | 
| VOLUME | MAIN+4 | 
| ZIS | MAIN+3 | 
| ZISX | ZIS+2, ZIS+6 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | STORE+5, STORE+6* | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | VSTYP+1~, VSTYP+2*, VSTYP+3, H3~, H3+1 | 
| >> %ZIS | ZIS+3*, ZIS+4* | 
| %ZTF | STORE+7! | 
| >> %ZTIO | IOWAIT+2* | 
| >> %ZTREJCT | MAIN+3, MAIN+4, MAIN+5, LOOKUP+2*, STORE+1, STORE+2*, STORE+9, IOWAIT+1*, REJCT+1* | 
| >> %ZTVOL | VOLUME+7, VOLUME+8, V3+1, U2+3, U5+2, STORE+10 | 
| >> %ZTYPE | VOLUME+7 | 
| >> A | VOLUME+1*, VOLUME+2, VOLUME+3*, VOLUME+4 | 
| CODE | TSKSTAT~, TSKSTAT+1 | 
| DUZ | REJCT+2, REJCT+4 | 
| IO | ZIS+2*, ZIS+6, ZIS+7*, ZIS+9, STORE+12, IOWAIT+2 | 
| IO(1 | ZIS+5! | 
| IOCPU | ZIS+10*, VOLUME+1, VOLUME+3, STORE+7! | 
| >> IOP | ZIS+3* | 
| >> IOS | ZIS+10, ZIS+11 | 
| IOST | ZIS+9 | 
| >> IOT | ZIS+6, ZIS+7, ZIS+9, STORE+11, IOWAIT+2 | 
| MSG | REJCT~, REJCT+1, REJCT+4, TSKSTAT~, TSKSTAT+1 | 
| >> POP | ZIS+6 | 
| U | ZIS+1, ZIS+3, ZIS+9, ZIS+10, VOLUME+2, VOLUME+4, VOLUME+5, VOLUME+9, V2+1, V4+1 , VSTYP+3, UCI+1, UCI+2, U2+7, U2+8, U2+9, U3+2, U5+4, STORE+1, STORE+5 , REJCT+1, REJCT+5, TSKSTAT+1 | 
| VS | VSTYP~, VSTYP+1, VSTYP+2 | 
| X | U2+4*, U2+9*, U4+2*, STORE+13! | 
| XQA | REJCT+3~ | 
| XQA( | REJCT+4* | 
| XQADATA | REJCT+3~, REJCT+4* | 
| XQAMSG | REJCT+3~, REJCT+4* | 
| XQAROU | REJCT+3~, REJCT+4* | 
| Y | U2+5, U2+6, U4+3, STORE+13! | 
| >> ZT1 | V1+1*, V1+2, V1+3, U5+2*, U5+3 | 
| ZTCPU | REJCT+6~ | 
| >> ZTCVOL | VOLUME+5*, VOLUME+7, VOLUME+8 | 
| >> ZTCVT | VOLUME+5*, VOLUME+7 | 
| ZTDTH | REJCT+6~, REJCT+7* | 
| >> ZTDVOL | VOLUME+4*, VOLUME+6, VOLUME+7*, VOLUME+8*, VOLUME+9, V1+1, V3+1, U2+3, U2+4, U3+2 , U5+2, STORE+10 | 
| >> ZTDVOL(1 | VOLUME+1*, VOLUME+7*, VOLUME+9 | 
| ZTIO | ZIS+1*, ZIS+2, ZIS+3, ZIS+9, VOLUME+3, STORE+8, REJCT+6~, REJCT+7* | 
| ZTIO(1 | ZIS+3*, ZIS+4 | 
| >> ZTIOS | IOWAIT+2* | 
| >> ZTIOT | IOWAIT+2* | 
| >> ZTNODE | VOLUME+2*, VOLUME+9 | 
| ZTREC | LOOKUP+4*, VOLUME+2, VOLUME+4, VOLUME+5, UCI+1, UCI+2, U2+8, U2+9, STORE+3, REJCT+5 , REJCT+6~ | 
| >> ZTREC02 | LOOKUP+5*, VOLUME+9*, U2+7*, U3+2*, U5+4*, STORE+4 | 
| >> ZTREC1 | LOOKUP+5*, STORE+1*, STORE+5, REJCT+1* | 
| >> ZTREC2 | LOOKUP+5*, ZIS+1, ZIS+2*, ZIS+3*, ZIS+9*, STORE+6 | 
| >> ZTREC21 | LOOKUP+6*, ZIS+2*, ZIS+11*, STORE+6, IOWAIT+2 | 
| >> ZTREC25 | LOOKUP+6*, ZIS+2*, STORE+6 | 
| >> ZTRTN | REJCT+7* | 
| >> ZTS | V1+3*, V1+4, V2+1, V4+1 | 
| >> ZTSAVE("XQA*" | REJCT+7* | 
| ZTSK | LOOKUP+4, LOOKUP+5, LOOKUP+6, LOOKUP+7, STORE+2, STORE+3, STORE+4, STORE+5, STORE+6, REJCT+4 , REJCT+6~, TSKSTAT+1 | 
| >> ZTST | ZIS+1 | 
| ZTUCI | UCI+1*, UCI+2*, U1+2, U2+4, U2+6*, U2+7, U3+2, U4+2, U5+2, U5+3* , U5+4, REJCT+3~, REJCT+5* | 
| >> ZTYPE | V2+1*, V2+2 |