前回の記事、「お手軽SQLプログラム (VBS編)」ではVBScriptでWindowsからDB2 for i をアクセスしましたが、この記事ではJavaで同じ事をやってみます。Javaなので、プラットフォーム(OS)に依存せず、LinuxやIBM i などの上でも同じプログラムが動くところがミソです。
Javaの標準APIであるJDBCを使用し、DB2 for i のデータを読み込んで表示させます。
.
Java言語について今更説明は不要でしょう。Javaの開発・実行環境はJDKとして多くのプラットフォームに提供されており、同じプログラム(クラスファイル)を異なるプラットフォーム上で実行することができます。実行環境だけ切り出したものがJREとして配布されていますが、コンパイルも可能なJDKが必要であればSunのDownloadサイトから入手できます。IBM製のJDKもあり、「IBM developer kits」から入手できます。細かい部分でSun版との差異があるようです。
IBM i ではJDKはOSに同梱されているので、通常はGO LICPGMからインストールできます。詳細はIBM i Information Centerの「IBM Developer Kit for Java」あたりをご覧ください。この記事ではすでにIBM i にJDKがインストール済みとします。最近ではWindowsで「Rational Developer for i」を使うのが良いのでしょうが、ここではテキストエディター＋JDKでIBM i 上でJavaプログラムを作成してみます。
DB2 for i にアクセスするには、前述のJDBCが必要になります。IBM i ではJDBCや他のIBM i の資源を利用したり、開発を容易にしたりするクラス群をまとめて「IBM ToolBox for Java」という名前で提供しています。JTOpenというオープンソース版もあり、基本的に同等の機能を提供します。オープンソースであるJTOpenが新しい機能を積極的に取り込み、その成果がToolBox for Javaにフィードバックされます。
前置きが長くなりました。早速Javaプログラムを作ってみましょう。
下記のソースをIBM i の「/tmp/JDBC」ディレクトリーに「JDBC.java」というファイル名で作成します。PCで作成してIBM i のIFSにFTPやNetServerで送るか、あるいは直接5250画面からEDTFコマンドでコピペします。
1 import java.io.*;
2 import java.sql.*;
3 import com.ibm.as400.access.*;
4
5 public class JDBC {
6
7 public static void main(String[] args) throws Exception{
8
9 Connection conn = null;
10
11 try {
12 Class.forName("com.ibm.as400.access.AS400JDBCDriver");
13 conn = DriverManager.getConnection("jdbc:as400:" + args[0] + ";extended metadata=true;trace=false;",
14 args[1], args[2]);
15 }
16 catch (SQLException se) {
17 System.out.println("! SQLException - " + se.getMessage());
18 se.printStackTrace();
19 }
20 catch (Exception e) {
21 System.out.println("! Exception - " + e.getMessage());
22 e.printStackTrace();
23 }
24
25 try {
26
27 Statement stmt = conn.createStatement();
28 ResultSet rs = stmt.executeQuery("select * from ライブラリー名.TOKMSP where TKBANG between '01080' and '02030'");
29
30 ResultSetMetaData rsmd = rs.getMetaData();
31
32 for (int i = 1 ; i <= rsmd.getColumnCount() ; i++) {
33 System.out.print(rsmd.getColumnLabel(i).trim().replaceAll(" ", ""));
34 if (i < rsmd.getColumnCount()) System.out.print("\t");
35 }
36 System.out.println();
37
38 while (rs.next()) {
39 for (int j = 1 ; j <= rsmd.getColumnCount() ; j++) {
40 System.out.print(rs.getString(j).trim());
41 if (j < rsmd.getColumnCount()) System.out.print("\t");
42 }
43 System.out.println();
44
45 }
46 rs.close();
47 stmt.close();
48
49 } finally {}
50 }
51 }
開発・実行環境に使用したIBM i は前の記事と同じくV5R4です。
プログラムでは、13行目でDB2 for i へのコネクションを張り、28行目でSQLを実行、32行目のfor文はCOLHDGを、38行目のfor文はSQLの結果を標準出力に出力しています。 13行目ではCOLHDGを取得するために、「extended metadata=true」を指定しています。引数のチェックをしていないとか、25行目のtryをcatchしていないとか、手抜きしている部分がありますがあしからず。（＾－＾；；；
次の手順でIBM i 上でコンパイルします。
> CHGJOB CCSID(5035) > qsh (以下Qshellでの操作) > cd /tmp/JDBC > ls -la total: 12.648 megabytes drwxrwsrwx 2 XXXXXXX 0 8192 Jan 4 14:45 . drwxrwsrwt 14 QSYS 0 36864 Jan 4 13:12 .. -rw-rw-rw- 1 XXXXXXX 0 1219 Jan 4 14:43 JDBC.java -rwxrwxrwx 1 XXXXXXX 0 4318170 Apr 26 2008 jt400.jar > javac -classpath .:jt400.jar JDBC.java
jt400.jarはToolBox for Java、またはJTOpenのクラスです。ここではJTOpenから最新版をダウンロードして使用しています。
コンパイルでエラーが出なければ、実行してみましょう。
> java -version
java version "1.4.2"
Java(TM) 2 Runtime Environment, Standard Edition (build 1.4.2_19-b04)
Classic VM (build 1.4, build JDK-1.4, native threads, jitc_de)
$
> java -cp .:jt400.jar JDBC IPアドレス ユーザーID パスワード
得意先番号 得意先仮名 得意先漢字 住所１ 住所２
地区コード 郵便番号 電話番号 当月売上高 当年売上高
前年売上高 売掛金残高 信用限度額 最終入金日 締め日コー
ド
01080 ｱｲｶﾜ ｺｳｸｳK.K 相川広告Ｋ．Ｋ 東京都渋谷区 広
尾３?９ 02 150 03-368-6366 318000 1461700 2205800 29
0000 2000000 880214 2
01090 ｱｲｶﾜ ﾃﾞﾝｷK.K 相川電機Ｋ．Ｋ 東京都北区 滝
の川７?１７ 14 114 03-749-6271 877100 4731400 7135500 94
0000 900000 880519 2
01100 ｱｲｶﾜ ｶﾞﾂｷﾃﾝ 相川楽器店 東京都港区 虎
ノ門３?２１ 22 105 03-922-1801 501300 2973300 4800100 59
0000 1300000 880615 6
(中略)
02020 ｱｲｶﾜ ｾｲｻｸｼﾖ 相川製作所 東京都葛飾区 東
立石２?２１ 21 124 03-735-9343 761300 4287700 6982800 21
00000 2300000 880508 5
02030 ｱｲｶﾜ ﾔｸﾋﾝｺｳｷﾞﾖｳK.K 相川薬品工業Ｋ．Ｋ 東京都文京区
仙石２?１ 13 112 03-342-7188 1035500 6018600 93920
00 1200000 1500000 880105 3
$
SQLの実行結果がCOLHDGとともに画面に表示されます。
.
冒頭にも書きましたが、JavaプログラムはJava実行環境(JDK/JRE)があれば他のプラットフォームでも実行できます。IBM i 上でコンパイルしたJavaプログラム、JDBC.classをWindowsで実行してみましょう。
FTPまたはNetServerでJDBC.classとjt400.jarをWindowsの適当なディレクトリーにコピーします。そこでコマンド・プロンプトを開き、cdで現行ディレクトリーをそのディレクトリーにして実行します。
C:\Documents and Settings\Administrator\デスクトップ\JDBC>java -cp .;jt400.jar J DBC IPアドレス ユーザーID パスワード 得意先番号 得意先仮名 得意先漢字 住所１ 住所２ 地区コード 郵便番号 電話番号 当月売上高 当年売上高 前年売上高 売掛金残高 信用限度額 最終入金日 締め日コード 01080 ｱｲｶﾜ ｺｳｸｳK.K 相川広告Ｋ．Ｋ 東京都渋谷区 広尾３－ ９ 02 150 03-368-6366 318000 1461700 2205800 290000 2000000 880214 2 01090 ｱｲｶﾜ ﾃﾞﾝｷK.K 相川電機Ｋ．Ｋ 東京都北区 滝の川７ －１７ 14 114 03-749-6271 877100 4731400 7135500 940000 900000 880519 2 (中略) 02010 ｱｲｶﾜ ｾﾝﾀ- 相川センター 東京都江東区 新木場１ －４ 23 136 03-512-9478 705200 4029900 6183600 2000000 2000000 880501 1 02020 ｱｲｶﾜ ｾｲｻｸｼﾖ 相川製作所 東京都葛飾区 東立石２ －２１ 21 124 03-735-9343 761300 4287700 6982800 2100000 2300000 880508 5 02030 ｱｲｶﾜ ﾔｸﾋﾝｺｳｷﾞﾖｳK.K 相川薬品工業Ｋ．Ｋ 東京都文京区 仙石２－１ 13 112 03-342-7188 1035500 6018600 9392000 1200000 1500000 880105 3
当然ながら同じ結果になります。なお、IBM i とWindowsではクラスパス(-cp)の区切り文字がそれぞれ「:」と「;」で異なることに注意してください。CScriptコマンド同様、結果を標準出力にリダイレクトすればExcelなどで開くことができます。
IBM i 環境でもQshell環境からリダイレクトすれば同様に結果をファイルにできます。
> touch -C 943 結果 .txt $ > java -cp .:jt400.jar JDBC IPアドレス ユーザーID パスワード > 結果 .txt $
※ 「 結果 .txt」の空白はシフト文字を表しています。
なお、RUNJVAコマンドで標準出力をファイルにリダイレクトするため、パラメーターのPROP((os400.stdout 'file:///tmp/JDBC/SQLresult.txt'))を指定すると、出力先ファイル「SQLresult.txt」にはEBCDICのデータが書 き出されるようです。「CPY OBJ('/tmp/JDBC/SQLresult.txt') TOOBJ('/tmp/JDBC/SQLresultASCII.txt') FROMCCSID(5035) TOCCSID(943) DTAFMT(*TEXT) REPLACE(*YES)」のようにコード変換すればシフトJIS(CCSID 943)に変換できます。
.
さて、JDBC編はいかがだったでしょうか。Javaの実行環境さえあれば、UNIX系やメインフレームなどの他のプラットフォームでも動く可能性は高いです。
ToolBox for JavaはJDBCの他にも有用な機能を数多く提供していますので、JavaからIBM i の資源・情報を活用したい場合は一度ご覧になると良いでしょう。また、Javaプログラムに機能を追加して、POIでExcel形式にしたり、iTextでPDFにしたりするのも面白いかもしれません。
ではまた（＾－＾）／
ここに書かれている内容は私の所属する会社、組織とは関係ありません。 内容を誰かが保証する物ではありません。