S
PL_
PL_
PL_TCP_OPEN_UNL {%},{%},{%},{%},{%}{WTHEN\ELSE}
*
      T1$$$ = OCONV(FIELD({%1},'.',1),'MCDX') 'R%2' : OCONV(FIELD({%1},'.',2),'MCDX') 'R%2' : OCONV(FIELD({%1},'.',3),'MCDX') 'R%2' : OCONV(FIELD({%1},'.',4),'MCDX') 'R%2'
      T2$$$ = OCONV(FIELD({%3},'.',1),'MCDX') 'R%2' : OCONV(FIELD({%3},'.',2),'MCDX') 'R%2' : OCONV(FIELD({%3},'.',3),'MCDX') 'R%2' : OCONV(FIELD({%3},'.',4),'MCDX') 'R%2'
*
      S$ = CALLFN('00':         \
                  {*FNR.64}:                 \ ;* Function code
                  T1$$$:                     \ ;* LocalIP
                  OCONV({%2},'MCDX')'R%4':   \ ;* LocalPort
                  T2$$$:                     \ ;* RemoteIP
                  OCONV({%4},'MCDX')'R%4':   \ ;* RemotePort
                  OCONV({%5},'MCDX')'R%4':   \ ;* Port Number 
                  OCONV(218,'MCDX')'R%4'      \ ;* BW_OTH
                  )
*
      IF S$[3,4] = IPX.SOCKET.NO THEN
         RES = OCONV(S$[7,4],'MCXD')
         IF RES > 32768 THEN
            RES = RES - 65536
         END
         ERR = 0
      END ELSE
         ERR = 1
         RES = 0
      END
*
      IF NOT(ERR) AND RES >= 0 {%6}
