*COPY FREEE 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').FRE01 00001400
PRINT OFF,NOGEN 00001600
.FRE01 ANOP 00001800
FREEE DSECT 00002000
SPACE 1 00003000
*** FREEE - FREE QUEUE ELEMENT 00004000
* 00005000
* 0 +-----------------------------------------------+ 00006000
* | FREENEXT | 00007000
* 4 +-----------------------------------------------+ 00008000
* | | 00009000
* | | 00010000
* | | 00011000
* C | +-----------+ 00012000
* | | FREEID | 00013000
* 10 +-----------------------------------------------+ 00014000
* 00015000
*** FREEE - FREE QUEUE ELEMENT 00016000
SPACE 1 00017000
FREENEXT DS 1F NEXT FREE ELEMENT 00018000
FREESPAR DS CL11 SPARE 00019000
FREEID DS 1X STANDARD TASK ID OFFSET 00020000
* -- ID=X'00' => FREE ELMENT 00021000
EJECT 00022000
POP PRINT 00023000
SPACE 00024000