SNDMSG from VB Program

[Guest.Visitor]

One of the developers in our shop is writing a Visual Basic front end to one of my programs. I would like him to send a message to an AS400 MSGQ. What is the easiest way to do that?

[Guest.Visitor]

You are going to need *REXEC services on the 400 and use RMTCMD on the PC.

[Guest.Visitor]

Charlie, The easiest way to do this is to use the Client Access Remote Command Button ActiveX Control. Just add the control to your form, format the SNDMSG command value into the CommandString property, and execute the control's DoClick method. The control executes the SNDMSG command on the AS/400. Let me know if you need more info. Mark

[Guest.Visitor]

If your VB programmer has access to an FTP control he can use the QUOTE RCMD directive from VB to run remote commands without CA/400 or any other API's. You could also use our Visual Call/Parm API. Visual Call/Parm is an ActiveX DLL which can interface with the AS/400 and run commands or call programs and pass and return up to 20 parameters. If you would like more information on Visual Call/Parm, check out our web site or contact me directly. Regards, Richard Schoen RJS Software Systems "The AS/400 Report Distribution Experts" Email: richard@rjssoft.com Web Site: http://www.rjssoft.com

[trevor.lazarus@ssa.gov]

I wrote a script (that executes using Windows script host) that uses some of the methods in the client access DLLs and IBM said it won't work without CA. Are there any other ways around this? Trevor Here's the script: <job id="sndcmd"> ' Declare variables Set cmd = CreateObject("cwbx.Command") Set as400 = CreateObject("cwbx.AS400System") ' Define the system as400.Define "S65011F" Set cmd.System = as400 ' sign on as TEST and don't prompt as400.UserID = "TEST" as400.Password = "test" as400.PromptMode = cwbcoPromptNever as400.Signon ' send a message to a user on the 400 cmd.Run "SNDMSG MSG('Gudday') TOUSR(Trevor)" </JOB>