*COPY IOE                                                               00001000
         PUSH  PRINT                                                    00001200
         AIF   ('&SYSPARM' NE 'SUP').IOE01                              00001400
         PRINT OFF,NOGEN                                                00001600
.IOE01   ANOP                                                           00001800
IOE      DSECT                                                          00002000
         SPACE 1                                                        00003000
***                            IOE  -  I/O ELEMENT                      00004000
*                                                                       00005000
*          0   +-----------------------------------------------+        00006000
*              |                    IONEXT                     |        00007000
*          4   +-----------------------------------------------+        00008000
*              |                    IOSUBQ                     |        00009000
*          8   +-----------+-----------------------------------+        00010000
*              |  IOSTAT   |        IOTABLEA                   |        00011000
*          C   +-----------+-----------+-----------+-----------+        00012000
*              |        IOADDR         | IOSBCHAN  |  IOID     |        00013000
*         10   +-----------------------+-----------+-----------+        00014000
*                                                                       00015000
***                            IOE  -  I/O ELEMENT                      00016000
         SPACE 1                                                        00017000
IONEXT   DS    1F                  NEXT (ACTIVE) I/O ELEMENT            00018000
IOSUBQ   DS    1F                  FIRST (INACTIVE) I/O ELEMENT         00019000
*                                  FOR THIS SUB-CHANNEL                 00020000
IOSTAT   EQU   *                   STATUS FLAGS                         00021000
IOTABLEA DS    1F                  ADDRESS OF I/O REQUEST TABLE         00022000
IOADDR   DS    AL2                 CUU I/O DEVICE ADDRESS               00023000
IOSBCHAN DS    1X                  SUBCHANNEL ADDRESS (RSS STYLE)       00024000
IOID     DS    1X                  ID OF ASSOCIATED TASK                00025000
         SPACE 1                                                        00026000
*        BITS DEFINES IN IOSTAT                                         00027000
SENSING  EQU   X'80'               AUTOMATIC SENSE IS ACTIVE            00028000
CHANDONE EQU   X'40'               SUB-CHANNEL TERMINATION              00029000
         EJECT                                                          00030000
         POP   PRINT                                                    00031000
         SPACE                                                          00032000