RE: Call RPG from Java using ToolBox - run on PC and fail on AS400

["Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>]

My first guess would be that you are running two different versions of the
toolbox... the one on your PC doesn't seem to match the one on the AS/400.

Regardless, you might want to try setting the parameters with a zero-length
array of ProgramParameters:

pgm.setParameterList(new ProgramParameter[0]);

I haven't tried it, since I've never run into the problem.  Let us know what
you find out!

Joe

> -----Original Message-----
> From: owner-java400-l@midrange.com
> [mailto:owner-java400-l@midrange.com]On Behalf Of Bruce Jin
> Sent: Wednesday, January 17, 2001 3:36 PM
> To: JAVA400-L@midrange.com
> Subject: Call RPG from Java using ToolBox - run on PC and fail on AS400
>
>
>  Hello:
>
> I wrote a simple java program to call a simple RPG program. The
> RPG program
> is called TEST1 and it has no *ENTRY PLIST in it.  The code is
> listed below.
> The java class runs OK on PC (it prompts system, name user, password). The
> RPG is called correctly. The output on the VAJ console is like this:
>
> AS400 obj created...
> pgm.run() = true
> Call completed.
>
>
> When I copied this class to AS400 and run it in Qshell, the class ran but
> the call failed and I get the following output:
>
> > java CallRPG2
>    AS400 obj created...
>    error=java.lang.NullPointerException: parameterList
>    Call completed.
>    $
>
> Any ideas?
> TIA. Bruce
>
>
> import com.ibm.as400.access.*;
>
> class CallRPG2 {
>
>     public static void main(java.lang.String[] args) {
>
>    boolean pgmrun;
>
>    AS400 as400 = new AS400();
>    System.out.println("AS400 obj created..." );
>
>    ProgramCall pgm = new ProgramCall(as400);
>    try{
>      pgm.setProgram(QSYSObjectPathName.toPath("BRUCELIB", "TEST1",
> "PGM"),null);
>      pgmrun = pgm.run();
>      System.out.println("pgm.run() = " + pgmrun);
>      if (pgmrun != true)  {
>       AS400Message[] msgList = pgm.getMessageList();
>         for (int i=0; i<msgList.length; i++)
>          System.out.println(msgList[i].getText());
>    }
>
>  } catch (Exception e) {
>   System.out.println("error=" + e);
>  }
>
>  System.out.println("Call completed." );
>  as400.disconnectService(AS400.COMMAND);
>  System.exit(0);
>   }
>
> }
>
>
> +---
> | This is the JAVA/400 Mailing List!
> | To submit a new message, send your mail to JAVA400-L@midrange.com.
> | To subscribe to this list send email to JAVA400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> JAVA400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner: joe@zappie.net
> +---
>

+---
| This is the JAVA/400 Mailing List!
| To submit a new message, send your mail to JAVA400-L@midrange.com.
| To subscribe to this list send email to JAVA400-L-SUB@midrange.com.
| To unsubscribe from this list send email to JAVA400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner: joe@zappie.net
+---