JSPからRPGを実行 
かんたんなRPGのサンプルにて使用したRPGプログラムをJSPから呼び出すサンプルです。
実行ページ(as10.jsp)と実行結果表示ページ(as11.jsp)です。
pcmlファイルも用意してWEB-INF/srcに配置してください。
実行ページ(as10.jsp)と実行結果表示ページ(as11.jsp)です。
pcmlファイルも用意してWEB-INF/srcに配置してください。
as10.jsp
<%@ page language="java" contentType="text/html; charset=windows-31j"
pageEncoding="windows-31j"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-31j">
<title>AS400のプログラムを実行</title>
</head>
<body>
<H2>AS400のプログラムを実行</H2>
CALL PRIMULA/SAMPLE00<BR>
<form action=as11.jsp method=POST>
<input type=submit value="実行" name=btn1>
</form>
</body>
</html>
as11.jsp
<%@ page language="java" contentType="text/html; charset=windows-31j"
pageEncoding="windows-31j" import="com.ibm.as400.access.*,com.ibm.as400.data.*"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-31j">
<title>AS400のプログラムを実行しました</title>
</head>
<body>
<H2>プログラムの実行が終了しました</H2>
AS400にQSECOFRにてサインオンして以下のコマンドにてスプールが作成されているか確認してください<BR>
<FONT COLOR="BLUE">WRKSPLF SELECT(*CURRENT *ALL *ALL SAMPLE00)</FONT><BR><BR>
<%
try {
AS400 as400 = new AS400("SHUFFLE","QSECOFR","PASSWORD");
ProgramCallDocument testPCML = new ProgramCallDocument(as400,"SAMPLE00");
if(testPCML.callProgram("SAMPLE00")) {
out.println("SAMPLE00:実行完了<br>");
}
} catch (Exception ex) {
ex.printStackTrace();
}
%>
</body>
</html>
実行結果
コメントをかく