セッション No.3 J/400 技術情報 開発ノウハウお教えします 株式会社ミガロ. システム事業部松尾悦郎
アジェンダ 当セッションでは J/400 に備わっている便利な機能を紹介し アプリケーションに実装するための実践テクニックを 事例を交えながらご説明いたします ログオン メニュー 別ウィンドウでの個別機能起動 Excel 出力 (Office 機能 )
ログオン メニュー
J/400 の基本的な画面遷移 ログオン画面から各機能画面の遷移 ログオン メニュー 機能 1 機能 2 同じウィンドウで遷移 機能 3 それぞれ別ウィンドウで起動
J/400 の基本的な画面遷移 画面と IBMi のジョブセッション ログオン メニュー 機能 1 機能 2 IBMi のジョブセッションが確立 OPT サフ システム / シ ョフ ユーサ ー タイフ PU % 機能 状況 O405JTP QSYS SBS.0 DEQW O405JSVR QUSER ASJ.0 PGM-SERVSOKET TIMW P0A8006B TE BH.5 PGM-O405JTPU TIMW 機能 3 OPT サフ システム / シ ョフ ユーサ ー タイフ PU % 機能 状況 JAI400 QSYS SBS.0 DEQW JAIMSGW QUSER ASJ.0 PGM-JAIMSG MSGW JAITE TE BH.0 PGM-ALLER DEQW JAITE TE BH.0 PGM-ALLER DEQW JAITE TE BH.0 PGM-ALLER DEQW
ログオン J/400のログオンの方法 1 通常のログオン ユーザー名 パスワード入力必要 2 オートログオン ユーザー名 パスワード入力不要
ログオン 通常のログオン IBMi の USRPRF でログオン IBMi にセッションが確立する URL:http://( サーバ名 )/jaci400/exec/jacilogon.html
ログオン オートログオン 用意されている WebServer 上の signon.txt に IBMi の USRPRF とパスワードを設定し その ID でログオンを行う URL:http://( サーバ名 )/jaci400/exec/jaciautologon.html
ログオン オートログオン signon.txt : 保管先 : Program Files IBM WebSphere AppServer profiles AppSrv01 installedapps PVVPN ode01ell jaci400_war.ear jaci400.war WEB-INF classes jaci400 AutoLogon ではユーザー / パスワードが省略されるだけで ログオン画面自体が省略されるわけではありません ログオン画面を省略する方法としては jaciautologon.html に javascript を独自に組込みます jaciautologon.html が起動時に submit させることでログオン画面を起動せずにメニュー画面を起動することが可能です 例 ) jaciautologon.html 1form に name を設定します <FORM method="post" name="autologonfrm"> 2body に onload イベントを追記し submit を行います <BODY bgcolor="#ffffff" onload = "document.autologonfrm.submit()">
メニュー J/400 で用意されているメインメニュー 画面構成は固定されるが デザインはカスタマイズ可能 全体画面 :jaci400.html トップ画面 :top2.html メニュー画面 : jacimenu.html 右画面 : right.html 全体画面 : メニュー画面全体を構成するファイル トップ画面 : 見出し画面のファイル メニュー画面 : メニューを表示するファイル 右画面 : 自由にデザインするファイル
メニュー メニューの設定 IBMi の USRPRF ごとにメニューを設定します 設定した内容がメニュー画面 : jacimenu.html にツリー形式で表示されます < メニューの登録画面 > JAi400 : ユーザーメニューオプションの処理 USER PROFILE : TE 位置指定. : 順序 オプションを入力し 実行キーを押して下さい 2= 変更 3= コピー 4= 削除 5= 表示 OPT 順序 見出し 1 第 13 回テクニカルセミナー 2 第 12 回テクニカルセミナー SV 機能 3 第 6 回テクニカルセミナー WEB API 連携 4 第 3 回テクニカルセミナー J/400 開発 5 J/400 MIGARO.HOMES 6 J/400 チュートリアル F3= 終了 F5= 再表示 F6= 追加 F12= 取消し
メニュー J/400 で用意されているメニューのスキップ ログオン J/400 メニュー 個別機能画面 メニューを表示せずに個別の機能を最初に起動します カスタマイズメニューを作成し利用することができます ログオンユーザーのジョブが単一セッションに限定される OPT サフ システム / シ ョフ ユーサ ー タイフ PU % 機能 状況 O405JTP QSYS SBS.0 DEQW O405JSVR QUSER ASJ.0 PGM-SERVSOKET TIMW P0A8006B TE2 BH.0 PGM-O405JTPU TIMW JAI400 QSYS SBS.0 DEQW JAIMSGW QUSER ASJ.0 PGM-JAIMSG MSGW JAITE2 TE2 BH.0 PGM-ALLER DEQW
メニュー 実装方法 1. メニューの登録画面で 1 機能のみメニューに登録します 2. JAi400 Servlet Engine Admin で メニューなしの単一アプリケーション を選択します JA ケ 400 : ユーザーメニューオプションの処理 USER PROFILE : TE2 位置指定. : 順序 オプションを入力し 実行キーを押して下さい 2= 変更 3= コピー 4= 削除 5= 表示 OPT 順序 見出し 1 ミガロテクニカルセミナー F3= 終了 F5= 再表示 F6= 追加 F12= 取消し
メニュー メニューのカスタマイズ例 画像配置 ボタン配置 リンク設定 ツリービュー Etc
オートログオンとメニュースキップの組み合わせ アプリケーションを全てカスタマイズで構築可能です ログオン J/400 メニューログオン画面 IBMi への接続は signon.txt に設定している USRPRF で行い システムへのログオンは IBMi のユーザーデータで管理しているユーザーマスタ等で行います メニュー
別ウィンドウでの個別機能起動
別ウィンドウでの個別機能起動 別ウィンドウで個別機能を起動します J/400 のアプリケーションは通常同一ウィンドウで画面を遷移します その為 別ウィンドウでアプリケーションを起動するには J/400 のメニューから起動します 今回はメニューを使わずにアプリケーションを起動するテクニックをご紹介します 通常 今回ご紹介する手法 メニューから起動 手法 1 手法 2 1 ウィンドウ URL を指定し 直接起動 1 ウィンドウ 1 ウィンドウ 1 ウィンドウ
別ウィンドウでの個別機能起動 J/400 ではメニュー登録をしなくても 個別機能 ( 画面 ) を起動する画面 (html) が用意されています 入力値 1. ユーザー ID 2. パスワード 3. 起動プログラム 4. プログラムライブラリー 5. 環境設定プログラム 6. 環境設定プログラムライブラリー 7. 項目 3 のプログラムのパラメーター URL:http://( サーバ名 )/jaci400/exec/startpgm.html
別ウィンドウでの個別機能起動 起動プログラムを応用して 別ウィンドウで表示します URL:http://( サーバ名 )/jaciservlet/jaci400.logon? xxxx 上記 URL の引数として 画面で入力した項目を付加して呼び出し元画面からリクエストを投げます 例 :http://( サーバ名 ) /jaciservlet/jaci400.logon?userid=te&passwd=te&pgmapp=smp010 &LIBAPP=JTE13&PGMENV=SETENV&LIBENV=JTE13 URL パラメータに指定できる内容は以下になります USERID PASSWD PGMAPP LIBAPP PGMENV LIBENV PARM : ユーザープロファイル : ユーザープロファイルパスワード : J/400 RPGプログラム名 : J/400 RPGオブジェクトライブラリ名 : J/400 環境プログラム名 : J/400 環境プログラムオブジェクトライブラリ名 : 引数
別ウィンドウでの個別機能起動 実行時の考慮点 ホストにログオンする為に URL 中にユーザー及びパスワードを指定する必要がありますので セキュリティについて十分配慮してください 直接 URL で呼び出した場合 ブラウザの 戻る ボタンが利用可能な状態で表示されます この 戻る ボタンを使用すると J/400 のアプリケーションが正しく動作しなくなるため ブラウザの 戻る ボタンを表示させないようにする必要があります その為には JavaSclipt の window.open メソッドから URL を起動できるようにする等して対応します
Excel 出力 (Office 機能 )
Office 機能の実装 J/400 は 画面から IBMi のデータを office の機能を使って Excel や Word の形式で編集出力できます
Office 機能の実装 office 機能の仕組み クライアント WebServer IBMi 画面 1 Excel 出力 画面 1 RPG J/400 Excel 出力 API.csv SV 生成 API SV 用 SV を Excel で取り込んで表示 Excel ファイルをクライアントへコピー SV ファイルをクライアントへエクスポート Excel テンプレート保管
Office 機能の実装 office 機能の実装方法 STEP1 STEP2 STEP3 事前準備 Excel ファイル作成 1 テキストファイルのインポート設定 2 Excel レイアウトの作成 3 Excel ファイルを IBMi へアップロード プログラム作成 RPG 実装 1 Office 機能の API を利用 JAIOFK JAIOFF JAIOFO JAIOFW JAIOF JAIOFD プログラム実行 OFFIELisner 利用 1 専用ページからのログオン
Office 機能の実装 Excel ファイル作成 Excel に出力する内容を SV で設計します STEP1 Excel ファイルを新規で作成します SV ファイルを外部データとして取り込みます データ タブの テキストファイル を選択します
Office 機能の実装 Excel ファイル作成 Excel で読み込む SV ファイルの出力先を決定します 今回は : JOFFIE DATA.SV ファイルを読み込みます STEP1
Office 機能の実装 Excel ファイル作成 テキストファイルウィザードで内容を編集します STEP1
Office 機能の実装 Excel ファイル作成 STEP1 内容を編集後 プロパティを設定し ファイル名を指定して Excel を保存します (TE013.xlsx) ファイルを開くときにデータを更新する セル書式を保持する 既存のセルを新規データで上書きし 使用されていないセルはクリアする
Office 機能の実装 Excel ファイル作成 STEP1 作成した Excel ファイルを IBMi の J/400 ライブラリーにアップロードします コマンドプロンプトから FTP ユーティリティを使って Excel ファイルをアップロードしてください 拡張子を.FILE にします
Office 機能の実装 Excelファイル作成 STEP1 作成した Excel ファイルを IBMi の J/400 ライブラリーにアップロードします PDM を使用したオブジェクトの処理 MIGAROI5 ライブラリー.. JTE13 位置指定......... タイプの位置指定..... オプションを入力して, 実行キーを押してください 2= 変更 3= コピー 4= 削除 5= 表示 7= 名前の変更 8= 記述の表示 9= 保管 10= 復元 11= 移動... OPT オフ シ ェクト タイフ 属性 テキスト SMP01001O *FILE PF-DTA SMP010.HTML SMP01002O *FILE PF-DTA SMP010.HTML SMP01003O *FILE PF-DTA SMP010.HTML TE013 *FILE PF-DTA 終わり 物理ファイルとして保管されます
Office 機能の実装 プログラムの実装 プログラム構成 STEP2 メインの画面 RPG ALL Excel ファイル作成の RPG PGM:WEXEL ALL SV ファイル作成の RPG PGM:WSV
Office 機能の実装 プログラムの実装 J/400 で用意されている API を利用します STEP2 API JAIOFK JAIOFF 概要 dataq key を取得する他の API を呼ぶ前にこの API を一度だけ呼びだします PARM Dataq key (26 A) データベースファイルを送る P にデータベースのファイルを送ります PARM Dataq key, 26 characters データベースファイル名 (10 A) ライブラリ名 (10 A) メンバー名 (10 A) P ファイル名の長さ (5,0 P) P ファイル名 (80 A) EBDI ASII に変換 (1 A) Y/N 返却コード (2 A)
Office 機能の実装 プログラムの実装 J/400 で用意されている API を利用します STEP2 API JAIOFO JAIOFW 概要 P 上に新しいファイルを作る / 開く P に存在しているファイルを開いたり 新しいファイルを作成することができます これは JAIOFW の前に呼ぶ必要があります PARM Dataq key (26 A) P ファイル名の長さ (5,0 P) P ファイル名 (80 A) 返却コード (2 A) 開いたファイルを編集する JAIOFO によって開いたファイルにレコードを書きだします PARM Dataq key (26 A) P ファイル名の長さ (5,0 P) P ファイル名 (80 A) 返却コード (2 A)
Office 機能の実装 プログラムの実装 J/400 で用意されている API を利用します STEP2 API JAIOF JAIOFD 概要 P 上のファイルを閉じる開かれた P ファイルを閉じます PARM Dataq key (26 A) 返却コード (2 A) P ファイルの実行 / 開く P ファイルを実行したり ドキュメントを開いたりすることができます PARM Dataq key (26 A) P ファイル名の長さ (5,0 P) P ファイル名 (80 A) 返却コード (2 A)
Office 機能の実装 Excel ファイルの作成 WEXEL H*===============================================================* H* PROGRAM 名 : WEXEL H* PROGRAM 見出 : EXEL ファイルダウンロードと起動 H*===============================================================* E* < EXEL ファイル定義 > E @EX 1 2 30 *==============================================================* * MAIN ROUTINE *==============================================================* * < 初期設定ルーチン > EXSR SBINZ * < エクセルダウンロード起動 > EXSR SBMAIN * < 終了処理ルーチン > EXSR SBEND *==============================================================* * SBINZ 初期設定サブルーチン *==============================================================* SBINZ BEGSR * < 初期化 > MOVEL'0' *IN90 ENDSR *===============================================================* * SBMAIN メイン処理 *===============================================================* SBMAIN BEGSR ALL 'JAIOFK' PARM DATAQK 26 ** STEP2 : JOFFIE TE013.XLS と定義 Office 機能利用時の初期処理
Office 機能の実装 MOVEL'TE013' EXFILE 10 MOVEL'JTE13' LIB 10 MOVEL'TE013' MBR 10 Z-ADD23 PFLEN 50 MOVEA@EX,1 PFILE 80 MOVE 'N' VT 1 ALL 'JAIOFF' PARM DATAQK PARM EXFILE PARM LIB PARM MBR PARM PFLEN PARM PFILE PARM VT PARM RETURN 2 * WRITE SV ALL 'WSV' * Excel 起動 Z-ADD23 DTALEN 50 MOVEA@EX,1 DATA 80 * ALL 'JAIOFD' PARM DATAQK PARM DTALEN PARM DATA PARM RETURN 2 ENDSR STEP2 IBMi の excel ファイルをクライアントへコピー SV ファイル作成プログラムの呼び出し クライアントにコピーしたファイルを開く
Office 機能の実装 *===============================================================* * SBEND 終了処理 *===============================================================* SBEND BEGSR * < 終了処理を行なう > SETON LR * RETRN ENDSR ** @EX : JOFFIE TE013.XLS STEP2
Office 機能の実装 SV ファイルの作成 WSV H*===============================================================* H* PROGRAM 名 : WSV H* PROGRAM 見出 : SVファイル作成 H*===============================================================* F* FILE F*===============================================================* F* < 降水量ファイル > FJ400P01IF E K DISK F*==============================================================* E* <SVファイル定義 > E @SV 1 2 30 E* <OFFIEコマンド > E* @OF 1 1 10 *==============================================================* * MAIN ROUTINE *==============================================================* * < 初期設定ルーチン > EXSR SBINZ * <SV 出力処理 > EXSR SBMAIN * < 終了処理ルーチン > EXSR SBEND *==============================================================* * SBINZ 初期設定サブルーチン *==============================================================* SBINZ BEGSR * < 初期化 > MOVEL'0' *IN90 ENDSR STEP2
Office 機能の実装 *===============================================================* * SBMAIN メイン処理 *===============================================================* SBMAIN BEGSR ALL 'JAIOFK' PARM DATAQK 26 ** Z-ADD80 DTALEN 50 MOVEL@SV,1 DATA 80 ALL 'JAIOFO' PARM DATAQK PARM DTALEN PARM DATA PARM RETURN 2 * WRITE HEADER MOVEL*BLANK HDATA 72 EXSR SB0010 Z-ADD72 DTALEN ALL 'JAIOFW' PARM DATAQK PARM DTALEN PARM HDATA PARM RETURN * WRITE DATA DO *HIVAL READ J400PR 41 *IN41 IFEQ *ON LEAVE ENDIF Office 機能利用時の初期処理 SV ファイルを作成 STEP2 SV ファイルに書き込む
Office 機能の実装 MOVELPAKR05 TSKR05 5 P ( 中略 ) MOVELPAKR12 TSKR12 5 P *<SVレコードの作成 > MOVELPANMKK WDA 10 WDA AT ',':0 WDA0 11 WDA0 AT TSKR05:0 WDA1 16 WDA1 AT ',':0 WDA2 17 WDA2 AT TSKR06:0 WDA3 22 WDA3 AT ',':0 WDA4 23 WDA4 AT TSKR07:0 WDA5 28 WDA5 AT ',':0 WDA6 29 WDA6 AT TSKR08:0 WDA7 34 WDA7 AT ',':0 WDA8 35 WDA8 AT TSKR09:0 WDA9 40 WDA9 AT ',':0 WDA10 41 WDA10 AT TSKR10:0 WDA11 46 WDA11 AT ',':0 WDA12 47 WDA12 AT TSKR11:0 WDA13 52 WDA13 AT ',':0 WDA14 53 WDA14 AT TSKR12:0 WDA15 58 * MOVELWDA15 DATA P Z-ADD58 DTALEN ALL 'JAIOFW' PARM DATAQK PARM DTALEN PARM DATA PARM RETURN * ENDDO SV ファイルに書き込む STEP2
Office 機能の実装 * LOSE ALL 'JAIOF' PARM DATAQK PARM RETURN * ENDSR *===============================================================* * SBEND 終了処理 *===============================================================* SBEND BEGSR * < 終了処理を行なう > SETON LR RETRN * ENDSR *---------------------------------------------------------------- * SVファイルヘッダー行の作成 * SB0010 *---------------------------------------------------------------- SB0010 BEGSR MOVEL',' HF 1 P HF AT '2005 年 'HF0 9 HF0 AT ',' HF1 10 ( 中略 ) HF13 AT '2012 年 'HF14 72 MOVELHF14 HDATA P * ENDSR ** @SV : JOFFIE DATA.SV SV ファイルを閉じる STEP2
Office 機能の実装 OFFIELisnerを利用してログオン OFFIE 機能を利用するには 専用のログオンページからログオンします OFFIE 機能利用時 アプレットが自動的に立ち上がります < 専用ログオン > URL:http://( サーバ名 )/jaci400/exec/jacilogonoffie.html STEP3
ご清聴ありがとうございました