Call iSeries CLP from domino agent

Is there a way to call a CLP and pass parameters from within a domino agent. Domino is running on Wintel server.

Subject: call iSeries CLP from domino agent

If you have a current version of iSeries Access installed on your Domino box (I’m running V5R3 w/ SI20055). You can use code like I’ve pasted below (Note, the command I’m running imports documects that I’ve FTPed to my 400 into Content Manager OnDemand)

It’s pretty well documented in the programmers tooklit.

Dim systemNames As Variant

Dim as400 As Variant

Dim cmd As Variant



Set systemNames = CreateObject("cwbx.systemNames")

Set as400 = CreateObject("cwbx.AS400System")

Set cmd = CreateObject("cwbx.Command")



as400.Define(systemNames.DefaultSystem)

as400.userid = "username"

as400.password = "password"

Call cmd.run(|qsh cmd(‘arsload -I “QUSROND” -a “appname” -g “goupname” -v /qibm/userdata/ondemand/qusrond/Domino/’)|)

Subject: RE: call iSeries CLP from domino agent

Thanks for the quick response, will try ASAP