*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