/* */

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

data = "Hello server"

PARSE UPPER VALUE STREAM( npipe, 'C', 'OPEN WRITE') WITH state ':' rc .
IF state <> 'READY' THEN DO
    IF rc == RC_PIPE_BUSY THEN
        rc = SysWaitNamedPipe( npipe, 0 )
    IF rc <> 0 THEN RETURN
END
CALL CHAROUT npipe, data
CALL STREAM npipe, 'C', 'CLOSE'

RETURN 0