S
PL_
PL_
PL_MSGREAD{WTHEN\ELSE}
*
      S$ = CALLFN(             \
                  '04':OCONV(1950,'MCDX')'R%4': \
                  {*FNR.76}:                    \ ;* Function code
                  STR(NUL,1950)                 \
                  )
*
      IF S$[7,4] = IPX.SOCKET.NO THEN
         RES = OCONV(S$[11,4],'MCXD')
         IF RES > 32768 THEN
            RES = RES - 65536
         END
         IF RES <= 0 THEN
            S$ = ''
         END ELSE
            S$ = S$[15,RES]
         END
         ERR = 0
      END ELSE
         ERR = 1
         RES = 0
      END
*
      IF NOT(ERR) AND RES >= 0 {%1}
