S
PL_
PL_
PL_PRCHECKSTATE{%},{%},{%},{%},{%}TIMEOUT{%}{WTHEN\ELSE}
*
      S$ = CALLFN( '120050':                \
                  {*FNR.79}:                                 \
                  OCONV({%6},'MCDX')'R%4':                   \
                  '00000000                                  \
                   00000000                                  \
                   0000                                      \
                   0000':                                    \
                  NUL80                                      \
                  )
*
      IF S$[7,4] = IPX.SOCKET.NO THEN
         RES = OCONV(S$[11,4],'MCXD')
         IF RES > 32768 THEN
            RES = RES - 65536
         END ELSE
            {%1} = OCONV(S$[19,8],'MCXD')
            {%2} = OCONV(S$[27,8],'MCXD')
            {%3} = OCONV(S$[35,4],'MCXD')
            {%4} = OCONV(S$[39,4],'MCXD')
            {%5} = FIELD(S$[43,80],NUL,1)
         END
         ERR = 0
      END ELSE
         ERR = 1
         RES = 0
      END
*
      IF NOT(ERR) AND RES >= 0 {%7}
