Re: calling rpg3 programs from tomcat on another box? -- WEB400

On Tue, 20 Mar 2007, Joe Pluta wrote:

The Java Toolbox (JTOpen) will allow a Java program on any machine
(including a servlet under Tomcat) to call a program on the iSeries.  The
machine has to be at V4R4 or above, I believe, but that's pretty much the
only issue.

Ok, I've been reading and re-reading the javadocs on how to do this. Ithink I have it mostly correct, but when I try to load a page that uses myclass the page never finishes loading and appears to never return fromprogram.run(). Could some kind soul look at my code below and tell mewhat I've done wrong?


The RPG program *entry plist:

C     *entry        plist
C                   parm                    customer          5 0
C                   parm                    discountcode      2

C parm linecode 2C parm part 18

C                   parm                    quantity          7 0
C                   parm                    price             9 4

The first five parms are all input, the last is returned.

The relavent portion of my class:

(here customer.getDiscountCategory(), supplier, and formatted are allStrings, price is a Double)


ProgramCall program = new ProgramCall(newConn1);
try {
    // Initialize the name of the program to run.
    String programName = "/QSYS.LIB/DSTCUST.LIB/TCGETPRCIR.PGM";
    // Set up the 6 parameters.
    ProgramParameter[] parameterList = new ProgramParameter[6];
    // First parameter is customer number (5,0)
    AS400PackedDecimal custnum = new AS400PackedDecimal(5, 0);
    //parameterList[0] = new 
ProgramParameter(custnum.toBytes(customer.getId()));
    parameterList[0] = new ProgramParameter(custnum.toBytes(60600.0));
    // Second parameter is discount code (2)
    AS400Text disctext = new AS400Text(2);
    parameterList[1] = new 
ProgramParameter(disctext.toBytes(customer.getDiscountCategory()));
    // Third parameter is line code (2)
    AS400Text linetext = new AS400Text(2);
    parameterList[2] = new ProgramParameter(linetext.toBytes(supplier));
    // Fourth parameter is part (18)
    AS400Text parttext = new AS400Text(18);
    parameterList[3] = new ProgramParameter(parttext.toBytes(formatted));
    // Fifth parameter is quantity (7,0)
    AS400PackedDecimal qtynum = new AS400PackedDecimal(7, 0);
    parameterList[4] = new ProgramParameter(qtynum.toBytes(1));
    // Sixth parameter is price (9,4)
    AS400PackedDecimal pricepd = new AS400PackedDecimal(9, 4);
    parameterList[5] = new ProgramParameter(pricepd.toBytes(0.0));
    // Set the program name and parameter list.
    program.setProgram(programName, parameterList);
    // Run the program.
    if (program.run() != true) {
        // Report failure.
        System.out.println("Program failed!");
        // Show the messages.
        AS400Message[] messagelist = program.getMessageList();
        for (int i = 0; i < messagelist.length; ++i) {
            // Show each message.
            System.out.println(messagelist[i]);
        }
        // Else no error, get output data.
    } else {
        AS400PackedDecimal priceresult = new AS400PackedDecimal(9, 4);
        price = priceresult.toDouble(parameterList[5].getOutputData());
        System.out.println("Price obtained");
    }
} catch (Exception e) {
    System.out.println("Program " + program.getProgram() + " issued an 
exception!");
    e.printStackTrace();
}
// Done with the server.
system.disconnectAllServices();
// Return connection to pool.

testPool1.returnConnectionToPool(newConn1);


James Rich

It's not the software that's free; it's you.
        - billyskank on Groklaw