/* */

npipe = '\PIPE\RNPTEST'
RC_PIPE_BUSY = '231'

PARSE UPPER VALUE STREAM( npipe, 'C', 'OPEN READ') WITH state ':' rc .
IF state <> 'READY' THEN DO
    IF rc == RC_PIPE_BUSY THEN
        rc = SysWaitNamedPipe( npipe, 0 )
    IF rc <> 0 THEN DO
        SAY 'Error' rc 'opening pipe'
        RETURN
    END
END
data = ''
DO WHILE CHARS( npipe ) > 0
    data = data || CHARIN( npipe )
END
CALL STREAM npipe, 'C', 'CLOSE'
SAY "Data:" data

RETURN 0