calling as400 CL/RPGLE program from PC

[mapperkids]

Hi,

Currently, I'm using Client Access components in my VB6 application to call and pass parameters to the AS400, but my company want to get a rid of client access.

Is there any other way / software to do it from VB6 application by calling the AS400 CL/RPGLE program with parameters?

Below is the code we do by using client access

===================================

as400.Define "server01"
as400.WindowHandle = hwnd
as400.UserID = "test1"
as400.Password = "test1"
as400.PromptMode = cwbcoPromptNever
as400.DefaultUserMode = cwbcoDefaultUserIgnore
as400.Signon



ConnectionASTM = "connected"
End If

as400.Connect cwbcoServiceRemoteCmd


Dim pgmDCSLOCK As New cwbx.Program
Dim Parms As New cwbx.ProgramParameters
Dim packedconv As New cwbx.PackedConverter
Dim strcvtr As New cwbx.StringConverter

Set pgmDCSLOCK.System = as400

'Test lib'

pgmDCSLOCK.LibraryName = "TEST"
pgmDCSLOCK.ProgramName = "PROGRAM1"
Parms.Clear


Parms.Append "data_string_sca", cwbrcInout, 939

Parms(1).Value = strcvtr.ToBytes(INPUTSTRING1)

=============================================


Thanks a lot!

[jtemple]

Re: calling as400 CL/RPGLE program from PC

If they are wanting to get rid of CA because of the cost, then what you're doing doesn't require a license. You only have to pay for licenses when you use terminal or printer emulation. Otherwise I don't know of any other method of calling programs without CA.

[mapperkids]

Re: calling as400 CL/RPGLE program from PC

If they are wanting to get rid of CA because of the cost, then what you're doing doesn't require a license. You only have to pay for licenses when you use terminal or printer emulation. Otherwise I don't know of any other method of calling programs without CA.

Thanks jtemple, you are right, it is due to the cost, we switched to Mohca soft for teminal emulation, Will find out with IBM, I think just need the "Selective Install" for just development tool and that may be enough for our application needed.

Thanks a lot!

[littlepd]

Re: calling as400 CL/RPGLE program from PC

An alternative available from HiT Software.
Products to connect to DB2 running on System i5, iSeries and AS/400