|
midrange.com
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
One of our programmers is trying to call an RPG program from a Java
servlet. The code uses the ProgramCall class and it's straight from the
InfoCenter code. My knowledge of Java is not sufficient (yet) to be of any
help. According to the documentation we do not need a user profile and
password but the errors in the strerr.txt file seems to indicate that we do.
I've included the Java code and the contents of strerr.txt and strout.txt.
Any help is really appreciated. I apologize for the length of the
e-mail
Java Code
package org.uiaa.www.alumnidirectory;
import javax.servlet.*;
import javax.servlet.http.*;
import com.ibm.as400.access.*;
import com.ibm.as400.access.AS400;
import java.io.*;
import java.sql.*;
import java.util.*;
import java.text.*;
public class LoginServlet extends HttpServlet {
DatabaseAccessBean databaseAccessBean = new
DatabaseAccessBean("jdbc/Facts");
public void doGet(HttpServletRequest request, HttpServletResponse
response) {
performTask(request, response);
}
public void doPost(HttpServletRequest request, HttpServletResponse
response) {
performTask(request, response);
}
public void performTask(HttpServletRequest request,
HttpServletResponse response) {
// Uncomment the following line to aid in debugging DB
servlets.
// This can help isolate problems when the servlet
appears to be unable to make
// a connection to the database. You must recompile,
republish, and then shutdown and
// restart the server for this change to take effect.
// java.sql.DriverManager.setLogStream(System.out);
// Get userID and password from form.
String userID = request.getParameter("userID");
String password = request.getParameter("password");
String returnStr = new String();
try {
UserInfoBean userInfoBean = new UserInfoBean();
try {
ResultSet rs =
databaseAccessBean.executeQuery("SELECT ALEMAIL, ALMSTID, ALFNAME, ALLNAME,
ALISMBR FROM AW@LIB2.AW@P110 WHERE ALLOGIN = '" + userID + "'AND ALPWD = '"
+ password + "'");
if (rs.next()) {
// Persist basic user info
userInfoBean.setEmail(rs.getString("ALEMAIL").trim());
userInfoBean.setUserMSTID(rs.getInt("ALMSTID"));
userInfoBean.setFirstName(rs.getString("ALFNAME").trim());
userInfoBean.setLastName(rs.getString("ALLNAME").trim());
userInfoBean.setUserMEM(rs.getString("ALISMBR"));
// Call RPG program to write record
to AW@P130
//
AS400 system = new AS400("localhost", "*CURRENT", "*CURRENT");
AS400 system = new AS400("REALITY");
System.out.println("Line 1");
ProgramCall program = new
ProgramCall(system);
System.out.println("Line 2");
try {
// Initialize the name of
the program to run.
String programName =
"/QSYS.LIB/AACGITST.LIB/AW@R130.PGM";
System.out.println("Line
3");
// Set up the 1 parameter.
ProgramParameter[]
parameterList = new ProgramParameter[1];
System.out.println("Line
4");
// Parameter is to input a
mstid.
AS400PackedDecimal parameter
= new AS400PackedDecimal(9, 0);
System.out.println("Line
5");
parameterList[0] = new
ProgramParameter(parameter.toBytes(rs.getBigDecimal("ALMSTID")));
System.out.println("Line
6");
// Set the program name and
parameter list.
program.setProgram(programName, parameterList);
System.out.println("Line
7");
// 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]);
}
}
} catch (Exception e) {
System.out.println("Program
" + program.getProgram() + " did not run! " + new java.util.Date());
e.printStackTrace();
}
// Done with the system.
system.disconnectAllServices();
returnStr = "/Options.jsp";
} else {
returnStr = "/Login_Error.jsp";
}
} catch (Exception e) {
e.printStackTrace();
} finally {
databaseAccessBean.closeConnection();
}
if (returnStr.equals("/Options.jsp")) {
try {
Calendar now = new
GregorianCalendar();
java.util.Date date = now.getTime();
DateFormat fm1 = new
SimpleDateFormat("yyyy-MM-dd-HH.mm.ss");
String StrDate = fm1.format(date);
String ChangePWD = "update
AW@LIB2.aw@p110 set alusgtd = '" + StrDate + "' where almstid = " +
userInfoBean.getUserMSTID();
int status =
databaseAccessBean.executeUpdate(ChangePWD);
if (status == 1) {
returnStr = "/Options.jsp";
} else {
returnStr =
"/Login_Error.jsp";
}
} catch (Exception e) {
e.printStackTrace();
} finally {
databaseAccessBean.closeConnection();
}
// Get or create a session.
HttpSession session =
request.getSession(true);
// Place the user info bean in the session.
session.setAttribute("userInfoBean",
userInfoBean);
}
response.sendRedirect(returnStr);
} catch (Exception e) {
e.printStackTrace();
} finally {
databaseAccessBean.closeConnection();
}
}
}
STDERR.TXT
java.io.IOException
com/ibm/as400/access/SocketContainerUnix.getSubstPassword([B[B)[B+8
(SocketContainerUnix.java:97)
com/ibm/as400/access/AS400ImplRemote.getPassword([B[B)[B+34
(AS400ImplRemote.java:909)
com/ibm/as400/access/AS400ImplRemote.getConnection(IZ)Lcom/ibm/as400/access/
AS400Server;+252 (AS400ImplRemote.java:850)
com/ibm/as400/access/RemoteCommandImplRemote.open(Z)V+5
(RemoteCommandImplRemote.java:211)
com/ibm/as400/access/RemoteCommandImplRemote.runProgram(Ljava/lang/String;Lj
ava/lang/String;[Lcom/ibm/as400/access/ProgramParameter;Z)Z+32
(RemoteCommandImplRemote.java:352)
com/ibm/as400/access/RemoteCommandImplNative.runProgram(Ljava/lang/String;Lj
ava/lang/String;[Lcom/ibm/as400/access/ProgramParameter;Z)Z+17
(RemoteCommandImplNative.java:473)
com/ibm/as400/access/ProgramCall.run()Z+148 (ProgramCall.java:563)
org/uiaa/www/alumnidirectory/LoginServlet.performTask(Ljavax/servlet/http/Ht
tpServletRequest;Ljavax/servlet/http/HttpServletResponse;)V+0
(LoginServlet.java:31)
org/uiaa/www/alumnidirectory/LoginServlet.doPost(Ljavax/servlet/http/HttpSer
vletRequest;Ljavax/servlet/http/HttpServletResponse;)V+0
(LoginServlet.java:20)
javax/servlet/http/HttpServlet.service(Ljavax/servlet/http/HttpServletReques
t;Ljavax/servlet/http/HttpServletResponse;)V+136 (HttpServlet.java:760)
javax/servlet/http/HttpServlet.service(Ljavax/servlet/ServletRequest;Ljavax/
servlet/ServletResponse;)V+25 (HttpServlet.java:853)
com/ibm/servlet/engine/webapp/StrictServletInstance.doService(Ljavax/servlet
/ServletRequest;Ljavax/servlet/ServletResponse;)V+21
(ServletManager.java:644)
com/ibm/servlet/engine/webapp/StrictLifecycleServlet._service(Ljavax/servlet
/ServletRequest;Ljavax/servlet/ServletResponse;)V+46
(StrictLifecycleServlet.java:160)
com/ibm/servlet/engine/webapp/ServletInstance.service(Ljavax/servlet/Servlet
Request;Ljavax/servlet/ServletResponse;Lcom/ibm/servlet/engine/webapp/WebApp
ServletInvocationEvent;)V+186 (ServletManager.java:371)
com/ibm/servlet/engine/webapp/WebAppRequestDispatcher.handleWebAppDispatch(L
com/ibm/servlet/engine/webapp/WebAppRequest;Ljavax/servlet/http/HttpServletR
esponse;Z)V+993 (WebAppRequestDispatcher.java:632)
com/ibm/servlet/engine/webapp/WebAppRequestDispatcher.dispatch(Ljavax/servle
t/ServletRequest;Ljavax/servlet/ServletResponse;Z)V+443
(WebAppRequestDispatcher.java:290)
com/ibm/servlet/engine/webapp/WebAppRequestDispatcher.forward(Ljavax/servlet
/ServletRequest;Ljavax/servlet/ServletResponse;)V+258
(WebAppRequestDispatcher.java:189)
com/ibm/servlet/engine/srt/WebAppInvoker.doForward(Ljavax/servlet/http/HttpS
ervletRequest;Ljavax/servlet/http/HttpServletResponse;)V+4
(WebAppInvoker.java:61)
com/ibm/servlet/engine/srt/WebAppInvoker.handleInvocationHook(Ljava/lang/Obj
ect;)V+130 (WebAppInvoker.java:133)
com/ibm/servlet/engine/invocation/CachedInvocation.handleInvocation(Ljava/la
ng/Object;)V+25 (CachedInvocation.java:67)
com/ibm/servlet/engine/srp/ServletRequestProcessor.dispatchByURI(Ljava/lang/
String;Lcom/ibm/servlet/engine/srp/ISRPConnection;)V+839
(ServletRequestProcessor.java:155)
com/ibm/servlet/engine/oselistener/OSEListenerDispatcher.service(Lcom/ibm/se
rvlet/engine/oselistener/api/IOSEConnection;)V+95 (OSEListener.java:300)
com/ibm/servlet/engine/oselistener/SQEventListenerImp$ServiceRunnable.run()V
+155 (SQEventListenerImp.java:230)
com/ibm/servlet/engine/oselistener/SQEventListenerImp.notifySQEvent(Lcom/ibm
/servlet/engine/oselistener/api/ISQEvent;)V+184
(SQEventListenerImp.java:104)
com/ibm/servlet/engine/oselistener/serverqueue/SQEventSource.notifyEvent(Lco
m/ibm/servlet/engine/oselistener/api/SQEventImp;)V+40
(SQEventSource.java:216)
com/ibm/servlet/engine/oselistener/serverqueue/SQWrapperEventSource$SelectRu
nnable.notifyService()V+116 (SQWrapperEventSource.java:354)
com/ibm/servlet/engine/oselistener/serverqueue/SQWrapperEventSource$SelectRu
nnable.run()V+124 (SQWrapperEventSource.java:221)
com/ibm/servlet/engine/oselistener/outofproc/OutOfProcThread$CtlRunnable.run
()V+104 (OutOfProcThread.java:248)
java/lang/Thread.run()V+11 (Thread.java:479)
STROUT.TXT
Line 1
Line 2
Line 3
Line 4
Line 5
Line 6
Line 7
Program /QSYS.LIB/AACGITST.LIB/AW@R130.PGM did not run! Wed Jun 05 15:05:01
GMT+00:00 2002
Guy Murphy
murphyfa@uiuc.edu
UDIS at the University of Illinois
217-333-8670
http://www.heisercoaching.com
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
