Tweet
<pcml version="1.0">
<program name="VAPBIP1" path="/QSYS.lib/VLAWOBJ.lib/VAPBIP1.PGM">
<data name="company" type="char" length="4"
usage="input"/>
<data name="from_date" type="char" length="10"
usage="input"/>
<data name="to_date" type="char" length="10"
usage="input"/>
</program>
</pcml>
here is my "Copied" Java
import com.ibm.as400.data.ProgramCallDocument;
import com.ibm.as400.data.PcmlException;
import com.ibm.as400.access.AS400;
import com.ibm.as400.access.AS400Message;
import java.math.BigDecimal;
public class callapgm
{
// instance variables - replace the example below with your own
private int x;
/**
* Constructor for objects of class callapgm
*/
public callapgm()
{
}
public static void main(String argv[])
{
// Create and instantiate an AS/400 Object
// If you do not enter a user id or password, you will be prompted for each
// AS400 sys = new AS400("url of iSeries", "user id", "password");
System.out.println("Connecting to iSeries...");
AS400 sys = new AS400();
// Create Data Objects
ProgramCallDocument pcml; // com.ibm.as400.data.ProgramCallDocument
BigDecimal sum = new BigDecimal("0"); // RPG program variable
String comment; // RPG program variable
boolean rc = false; // Return code for program call
String msgId, msgText; // Messages returned from AS/400
try
{
// Instantiate the Objects (assign the variables)
pcml = new ProgramCallDocument(sys, "callpgm");
pcml.setValue("program.parameter1", new String("100"));
pcml.setValue("program.parameter2", new String("01-01-2011"));
pcml.setValue("program.parameter3", new String("01-31-2011"));
// Debug statement...Use to view outbound and inbound parms if you need it
//com.ibm.as400.data.PcmlMessageLog.setTraceEnabled(true);
// Call the Program
System.out.println("Calling the program...");
rc = pcml.callProgram("program");
// If return code is false, get messages from the iSeries
if(rc == false)
{
// Retrieve list of AS/400 messages
AS400Message[] msgs = pcml.getMessageList("program");
// Loop through all messages and write them to standard output
for (int m = 0; m < msgs.length; m++)
{
msgId = msgs[m].getID();
msgText = msgs[m].getText();
System.out.println(" " + msgId + " - " + msgText);
}
System.out.println("Call to PROGRAM failed. See messages listed above");
System.exit(0);
}
// Return code was true, call to PROGRAM succeeded - woo-hoo!
else
{
// Process the returned Data
// sum = (BigDecimal) pcml.getValue("program.sum");
// comment = (String) pcml.getValue("program.comment");
//
// System.out.print("5" + " + " + "5.25" + " = " + sum);
// System.out.print("\n");
// System.out.print(comment);
// System.exit(0);
}
}
catch (PcmlException e)
{
System.out.println(e.getLocalizedMessage());
e.printStackTrace();
System.out.println("Call to PROGRAM failed");
System.exit(0);
}
// Disconnect from AS/400
sys.disconnectAllServices();
}
}
try
{
// Instantiate the Objects (assign the variables)
pcml = new ProgramCallDocument(sys, "[COLOR="darkred"]YourPCMLname[/COLOR]");
pcml.setValue("[COLOR="darkred"]VAPBIP1[/COLOR].[COLOR="darkred"]company[/COLOR]", new String("100"));
pcml.setValue("[COLOR="darkred"]VAPBIP1[/COLOR].[COLOR="darkred"]from_date[/COLOR]", new String("01-01-2011"));
pcml.setValue("[COLOR="darkred"]VAPBIP1[/COLOR].[COLOR="darkred"]to_date[/COLOR]", new String("01-31-2011"));
// Debug statement...Use to view outbound and inbound parms if you need it
//com.ibm.as400.data.PcmlMessageLog.setTraceEnabled( true);
// Call the Program
System.out.println("Calling the program...");
rc = pcml.callProgram("[COLOR="darkred"]VAPBIP1[/COLOR]");
/ If return code is false, get messages from the iSeries
if(rc == false)
{
// Retrieve list of AS/400 messages
AS400Message[] msgs = pcml.getMessageList("[COLOR="darkred"]VAPBIP1[/COLOR]");
VAPBIP1 vap = new VAPBIP1();
vap.setCOMPANY("ABC");
vap.setFROM_DATE("2010-10-15");
vap.setTO_DATE("2011-04-15");
vap.invoke();
vap.disconnect();
Comment