S
PL_
PL_
PL_CONFIG{WTHEN\ELSE}
*
      S$ = CALLFN('00':             \
                  FNR.CONFIG:                \ ;* Function code
                  '0000                      \ ;* P.NO start
                   0000                      \ ;* Number of ports
                   000000000000              \ ;* Immediate address
                   00000000                  \ ;* Network number
                   000000000000              \ ;* Node    number
                   0000                      \ ;* Socket  number
                   00                        \ ;* Capabilities
                   00                        \ ;* Filler
                   00000000000000000000      \ ;* Name
                   00000000                  \ ;* Serial number
                   00000000                  \ ;* Version number
                   00000000                  \ ;* Retry count
                   00000000                  \ ;* Xmit timeout count
                   00000000                  \ ;* Error disconnect count
                   00000000                  \ ;* Reopen count
                   00000000                  \ ;* Transmit count
                   00000000                  \ ;* Received count
                   00000000                  \ ;* Received Broadcast count
                   00000000                  \ ;* Received Bad count
                   00000000                  \ ;* Avail PLCBs
                   00000000                  \ ;* Avail BUFs
                  ')[3,999999]
*
      IF S$[1,4] = IPX.SOCKET.NO THEN
         ERR = 0
         RES = OCONV(S$[5,4],'MCXD')
         IF RES > 32768 THEN
            RES = RES - 65536
         END
      END ELSE
         ERR = 1
         RES = 0
      END
*
      IF NOT(ERR) AND RES >= 0 {%1}
