/* */
call rxfuncadd 'Sys2LoadFuncs', 'RXUTILEX', 'Sys2LoadFuncs'
call Sys2LoadFuncs

hp = Sys2CreateNamedPipe("\PIPE\RNPTEST", 0, 100 )
if hp == "" then say SYS2ERR
else do
    ok = Sys2ConnectNamedPipe( hp )
    if ok == 0 then say SYS2ERR
    else do
        PARSE VALUE Sys2CheckNamedPipe( hp ) WITH _cb _state
        say _cb 'bytes waiting'
        data = Sys2Read( hp, _cb )
        say 'Data: "'data'"'
        ok = Sys2DisconnectNamedPipe( hp )
        if ok == 0 then say SYS2ERR
    end
    ok = Sys2Close( hp )
    if ok == 0 then say SYS2ERR
end

call Sys2DropFuncs
exit 0