*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