The following code will accept the next conversation.
For the callable service, see
asyncio (BPX1AIO, BPX4AIO) — Asynchronous I/O for sockets.
AMODE 31 callers use
BPX1AIO (asyncio) example.
XC AIO(AIO#LENGTH),AIO Null AIO control block
MVC AIOCMD,=A(AIO#ACCEPT) Command = Accept
MVC AIOFD,FILEDESC File descriptor
MVC AIONOTIFYTYPE,=AL2(AIO#MVS) Notify type = MVS
XC ECB01,ECB01 ECB = 0
LA R15,ECB01 ECB Address
ST R15,AIOECBPTR Null AIO control block
MVC AIOSOCKADDRLEN,=A(SOCK#LEN)
LA R15,SOCKADDR From recvform (see BPX4RFM)
STG R15,AIOSOCKADDRPTR
SPACE ,
CALL BPX4AIO, Asynchronous I/O for Sockets +
(=A(AIO#LENGTH), Input: Time before SIGAIOM +
AIO, Input: Time before SIGAIOM +
RETVAL, Return value: 0 or -1 +
RETCODE, Return code +
RSNCODE), Reason code +
MF=(E,PLIST) ----------------------------------