BPX1SOC (socket or socketpair) example

The following code creates a pair of stream sockets in the AF_UNIX domain. For the callable service, see socket or socketpair (BPX1SOC, BPX4SOC) — Create a socket or a pair of sockets. For the data structure, see BPXYSOCK — Map SOCKADDR structure and constants. AMODE 64 callers use BPX4SOC (socket or socketpair) example.
                                              
         CALL  BPX1SOC,              Create a socket pair              +
               (=A(AF_UNIX),         Input: Domain of AF_UNIX          +
               =A(SOCK#_STREAM),     Input: Type of socket stream      +
               =A(0),                Input: Protocol of 0              +
               =A(2),                Input: Dimension of 2 for pair    +
               SOCKETS,              Input: Socket vector for return   +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------