Figure 1. IP_MULTICAST_LOOP***********************************************************************
* *
* Issue SETSOCKOPT/GETSOCKOPT - IP_MULTICAST_LOOP ENABLED *
* *
***********************************************************************
EZASMI TYPE=SETSOCKOPT, ISSUE SETSOCKOPT X
S=S, SOCKET DESCRIPTOR X
OPTLEN=OPTLEN1, OPTION LENGTH X
OPTNAME='IP_MULTICAST_LOOP', OPTION NAME X
OPTVAL=OPTVALON, OPTION VALUE X
RETCODE=RETCODE, (SPECIFY RETCODE FIELD) X
ERROR=ERROR ABEND IF MACRO ERROR
BAL R14,RCCHECK --> CHECK IT
*
XC OPTVAL4,OPTVAL4
EZASMI TYPE=GETSOCKOPT, ISSUE GETSOCKOPT X
S=S, SOCKET DESCRIPTOR X
OPTLEN=OPTLEN1, OPTION LENGTH X
OPTNAME='IP_MULTICAST_LOOP', OPTION NAME X
OPTVAL=OPTVAL4, OPTION VALUE X
RETCODE=RETCODE, (SPECIFY RETCODE FIELD) X
ERROR=ERROR ABEND IF MACRO ERROR
BAL R14,RCCHECK --> CHECK IT
***********************************************************************
* *
* Issue SETSOCKOPT/GETSOCKOPT - IP_MULTICAST_LOOP DISABLED *
* *
***********************************************************************
EZASMI TYPE=SETSOCKOPT, ISSUE SETSOCKOPT X
S=S, SOCKET DESCRIPTOR X
OPTLEN=OPTLEN1, OPTION LENGTH X
OPTNAME='IP_MULTICAST_LOOP', OPTION NAME X
OPTVAL=OPTVALOFF, OPTION VALUE X
RETCODE=RETCODE, (SPECIFY RETCODE FIELD) X
ERROR=ERROR ABEND IF MACRO ERROR
BAL R14,RCCHECK --> CHECK IT
XC OPTVAL4,OPTVAL4
EZASMI TYPE=GETSOCKOPT, ISSUE GETSOCKOPT X
S=S, SOCKET DESCRIPTOR X
OPTLEN=OPTLEN1, OPTION LENGTH X
OPTNAME='IP_MULTICAST_LOOP', OPTION NAME X
OPTVAL=OPTVAL4, OPTION VALUE X
RETCODE=RETCODE, (SPECIFY RETCODE FIELD) X
ERROR=ERROR ABEND IF MACRO ERROR
BAL R14,RCCHECK --> CHECK IT