*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