⋮
*********************************************************************** 
*                                                                     * 
*        Issue SIOCGPARTNERINFO IOCTL to retrieve connection          * 
*        routing information and the security credentials             *
*        of a partner.                                                *
*                                                                     * 
*********************************************************************** 
*
          USING PARTNERINFO,R6                                           
          MVI   PI_Version,PI_VERSION_1 
          MVC   PI_ReqType,=A(PI_REQTYPE_PARTNER_USERID+PI_REQTYPE_PARTNX
                ER_UTOKEN)
          MVC   PI_TIMEOUT,=A(PI_TIMEOUT_MAXIMUM)
          MVC   PI_BUFLEN,=A(PI_FIXED_SIZE+PI_UTOKEN_EXT_SIZE)
 *                                                                       
          EZASMI TYPE=IOCTL,       Issue Macro                          X
                S=SOCDESCA,        ACCEPT SOCKET                        X
                COMMAND='SIOCGPARTNERINFO',                             X
                REQARG=PARTNERINFO,                                     X
                RETARG=PARTNERINFO,                                     X
                ERRNO=ERRNO,       (Specify ERRNO field)                X
                RETCODE=RETCODE,   (Specify RETCODE field)              X
                REQAREA=REQAREA,   IN CASE WE ARE DOING EXITS OR ECBS   X
                ERROR=ERROR        Abend if Macro error              
*              
⋮
          EZBPINFA DSECT=NO        SIOCGPARTNERINFO ioctl structure