S
PL_
PL_
PL_TCP_GET_Q{%},{%},{%},{%},{%}{WTHEN\ELSE}
*
      S$ = CALLFN('00':         \
                  {*FNR.66}:                 \ ;* Function code
                  OCONV({%1},'MCDX')'R%4':   \ ;* q_no
                  '00000000':                \ ;* p_no
                  '0000':                    \ ;* msg
                  '0000':                    \ ;* tp
                  '0000'                     \ ;* state
                  )
*
      IF S$[3,4] = IPX.SOCKET.NO THEN
         RES = OCONV(S$[7,4],'MCXD')
         IF RES > 32768 THEN
            RES = RES - 65536
         END ELSE
            {%2} = OCONV(S$[15,8],'MCXD')
            {%3} = OCONV(S$[23,4],'MCXD')
            {%4} = OCONV(S$[27,4],'MCXD')
            {%5} = OCONV(S$[31,4],'MCXD')
         END
         ERR = 0
      END ELSE
         ERR = 1
         RES = 0
      END
*
      IF NOT(ERR) AND RES >= 0 {%6}
