%ZTM1 ;SEA/RDS-TaskMan: Manager, Part 3 (Validate Task) ;07/27/2005 18:13
Source file <ZTM1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAIN | ;
|
|
| LOOKUP | ;
|
|
| ZIS | ;MAIN--Determine Output Device
|
|
| ZISX | ||
| 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
|
|
| V4 | ;reject tasks whose destination volume sets lack link access
|
|
| VSTYP(VS) | ;Get a VS's type
|
|
| UCI | ;MAIN--determine destination UCI
|
|
| U1 | ;
|
|
| U2 | ;
|
|
| U3 | ;
|
|
| U4 | ;
|
|
| U5 | ;
|
|
| STORE | ;Store Validated Data In Task Log, Quit If Needn't Do WAIT
|
|
| IOWAIT | ;If Device has a queue, Put Task On IO Queue.
|
|
| REJCT(MSG) | ;Save reject msg, set flag
|
|
| TSKSTAT(CODE,MSG) | ; Update task's status
|
|
| H3(%) | ;Convert $H to seconds.
|
