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

hp = Sys2CreateNamedPipe("\PIPE\RNPTEST", 100, 0,,,, 'O')
if hp == "" then say SYS2ERR
else do
    ok = Sys2ConnectNamedPipe( hp )
    if ok == 0 then say SYS2ERR
    else do
        ok = Sys2Write( hp, "Hello client")
        if ok == 0 then say SYS2ERR
        else say ok 'bytes written.'
        ok = Sys2SyncBuffer( hp )
        if ok == 0 then say SYS2ERR
        ok = Sys2DisconnectNamedPipe( hp )
        if ok == 0 then say SYS2ERR
    end
    ok = Sys2Close( hp )
end

call Sys2DropFuncs
exit 0