JSPからRPGのサブルーチンを呼び出す 
かんたんなRPGのサンプルにて使用したRPGのサブルーチンをJSPから呼び出すサンプルです。
実行ページ(as20.jsp)と実行結果表示ページ(as21.jsp)です。
pcmlファイルも用意してWEB-INF/srcに配置してください。
実行ページ(as20.jsp)と実行結果表示ページ(as21.jsp)です。
pcmlファイルも用意してWEB-INF/srcに配置してください。
as20.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>
AS/400のサブルーチン(PRIMULA/SAMPLE02)を実行します<BR>
入力パラメータ１:PACK 20,2を入力してください<BR>
<form action=as21.jsp method=POST>
<input type=text size=30 name=PramIn1>
<input type=submit value="実行" name=btn1>
</form>
</body>
</html>
as21.jsp
<%@ page language="java" contentType="text/html; charset=windows-31j"
pageEncoding="windows-31j" import="com.ibm.as400.access.*,com.ibm.as400.data.*,java.math.*"%>
<!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>サブルーチンの実行結果</title>
</head>
<body>
<h2>サブルーチン(LICORICE/SAMPLE01)の実行結果</h2>
<%
request.setCharacterEncoding("windows-31j");
try {
AS400 as400 = new AS400("SHUFFLE","PRIMULA","NERINE");
ProgramCallDocument testPCML = new ProgramCallDocument(as400,"SAMPLE01");
// 入出力のパラメータを作成
BigDecimal in1 = new BigDecimal(request.getParameter("PramIn1"));
BigDecimal out1 = new BigDecimal("0.00");
// パラメータセット
testPCML.setValue("SAMPLE01.IN1", in1);
// 実行
if(testPCML.callProgram("SAMPLE01")) {
out.println("SAMPLE01:実行完了<br>");
out1 = (BigDecimal)testPCML.getValue("SAMPLE01.OUT1");
out.println("入力値："+ in1 + "<br>");
out.println("戻り値："+ out1 + "<br>");
}
} catch (Exception ex) {
ex.printStackTrace();
}
%>
</body>
</html>
実行結果
コメントをかく