*COPY TASKE 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').TAS01 00001400
PRINT OFF,NOGEN 00001600
.TAS01 ANOP 00001800
TASKE DSECT 00002000
SPACE 1 00003000
*** TASKE - TASK ELEMENT 00004000
* 00005000
* 0 +-----------------------------------------------+ 00006000
* | TASKNEXT | 00007000
* 4 +-----------------------------------------------+ 00008000
* | TASKSAVE | 00009000
* 8 +-----------------------------------------------+ 00010000
* | TASKNAME | 00011000
* C +-----------------------+-----------+-----------+ 00012000
* | | TASKSTAT | TASKID | 00013000
* 10 +-----------------------+-----------+-----------+ 00014000
* 00015000
*** TASKE - TASK ELEMENT 00016000
SPACE 1 00017000
TASKNEXT DS 1F NEXT TASK ELEMENT 00018000
TASKSAVE DS 1F TASK'S SYSTEM SAVE AREA 00019000
TASKNAME DS CL4 TASK NAME 00020000
TASKSPAR DS AL2 SPARE 00021000
TASKSTAT DS 1X STATUS FLAGS 00022000
TASKID DS 1X SUPERVISOR SPECIFIED ID 00023000
SPACE 1 00024000
* BITS DEFINED IN TASKSTAT 00025000
WAITING EQU X'80' TASK IS NON-DISPATCHABLE 00026000
LOCKLIST EQU X'40' WAITING ON SYNCH LOCK LIST 00027000
LIMBO EQU X'01' TASK IS BEING TERMINATED 00028000
EJECT 00029000
POP PRINT 00030000
SPACE 00031000