ActiveX AS/400 Objects

ActiveX AS/400 Objects - Program

ActiveX AS/400 Objects - Program

Use this class to interface with a native AS/400 program. A program can be called and one or more ANSI string parameters may be passed.

Contains read/write properties:

Name	Type	Description
ApplicationName	String	Used within logs and messages. Not required.
AutoMessages	Boolean	Set True to halt and display error messages. Default = false
LibraryName	String	Name of AS/400 library containing program. *LIBL if blank.
Parms	ProgramParms	A collection of parameters passed to program.
ProgramName	String	Name of AS/400 program to call. Required.
SystemName	String	Name of AS/400 system. Defaults if blank.
Tag	String	User within logs and messages. Not required.

Contains read-only properties:

Name	Type	Description
Message	String	Most recent diagnostic message generated.
RC	Long	Most recent CA/400 dll return code.

Contains method returning a result:

Name	Type	Description
Run	Boolean	Calls AS/400 programs and passes parameters. Returns True if completed normally.

VB, VBA Program example:

Dim oPgm As ActiveX_AS400.Program

Set oPgm = new ActiveX_AS400.Program

oPgm.LibraryName = "QGPL"

oPgm.ProgramName = "AppPgm"

oPgm.Parms.Add "Test", 10 ’10 byte parameter

If not oPgm.Run Then MsgBox oPgm.Message

MsgBox "oPgm.Parms(1).Value" & oPgm.Parms.Item(1).Value

2003 - Chouinard & Myhre, Inc.