BBushley
Active Member
RE: RPG call from One World
This is the event rule I used in the "DO Section" to execute RPG AS400
programs
Variable
rpt_RunRPG
Properties
Data Item : DESC
Data Type : SZCHAR
Size : 30
Edit Rule :
Display Decimals : 0
VA rpt_RunRPG = concat("CALL PGM(ITDLIB/",concat([PO szCallFrom],")"))
//NOTE: ITDLIB would be your AS400 library
// THIS COMMAND RUNS AN AS400 RPG PROGRAM TO UPDATE THE SUPPLEMENTAL
DATABASE
//Function Name : ExecuteExternalProgram
//Function Description : Execute External Program
//Source Module : B34A1030 Data Structure : D34A1030
Execute External Program
This is the event rule I used in the "DO Section" to execute RPG AS400
programs
Variable
rpt_RunRPG
Properties
Data Item : DESC
Data Type : SZCHAR
Size : 30
Edit Rule :
Display Decimals : 0
VA rpt_RunRPG = concat("CALL PGM(ITDLIB/",concat([PO szCallFrom],")"))
//NOTE: ITDLIB would be your AS400 library
// THIS COMMAND RUNS AN AS400 RPG PROGRAM TO UPDATE THE SUPPLEMENTAL
DATABASE
//Function Name : ExecuteExternalProgram
//Function Description : Execute External Program
//Source Module : B34A1030 Data Structure : D34A1030
Execute External Program