IBM OS/2 LAN Server REXX Utility DLL

Inf-HTML [About][Toc][Index] 0.9b (c) 1995 Peter Childs

NetMisc(NETMESSAGENAMEFWD)



The function changes the message name table to forward messages to another 
messaging name.   



Syntax 



MyRc = NetMisc(NETMESSAGENAMEFWD, msgName, fwdAction, fwdName, SrvName)




  



Parameters 



The parameters required are: 



msgName           A string specifying the name receiving messages 



fwdAction         A integer specifying the action to take if name forwards 
                  messages to another name. If the value is nonzero, any 
                  previous forwarded name is deleted; if 0, any previous 
                  forwarded name is not deleted and an error is returned 



                  The default value is 0 



fwdName           A string specifying the name to receive msgName 
                  forwarded messages 



SrvName           A server computer name if remote otherwise '' 
  



Example   



/* Forward a message name */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETMESSAGENAMEFWD = 560
msgName           = 'ADMIN04'
fwdAction         = 0
fwdName           = 'USERID'
SrvName           = ''  /* This local computer */

myRc = NetMisc(NETMESSAGENAMEFWD, msgName, fwdAction, fwdName, SrvName)

if myRc <> '0' then do
 say 'Got error from NetMisc() ' myRc
 exitRc = 9
end
else do
 say 'Message name forwarded successfully'
end

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit exitRc




  



Example Output   



Message name forwarded successfully









Inf-HTML End Run - Successful