JC/400 技術情報　開発ノウハウお教えします

Size: px

Start display at page:

Download "JC/400 技術情報　開発ノウハウお教えします"

さあしゃおおふさ
5 years ago
Views:

1 セッション No.3 J/400 技術情報開発ノウハウお教えします株式会社ミガロ. システム事業部松尾悦郎

2 アジェンダ当セッションでは J/400 に備わっている便利な機能を紹介しアプリケーションに実装するための実践テクニックを事例を交えながらご説明いたしますログオンメニュー別ウィンドウでの個別機能起動 Excel 出力 (Office 機能 )

3 ログオンメニュー

4 J/400 の基本的な画面遷移ログオン画面から各機能画面の遷移ログオンメニュー機能 1 機能 2 同じウィンドウで遷移機能 3 それぞれ別ウィンドウで起動

5 PGM-O405JTPU TIMW 機能 3 OPT サフシステム / ショフユーサータイフ PU % 機能状況 JAI400 QSYS SBS.

5 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

6 ログオン J/400のログオンの方法 1 通常のログオンユーザー名パスワード入力必要 2 オートログオンユーザー名パスワード入力不要

7 ログオン通常のログオン IBMi の USRPRF でログオン IBMi にセッションが確立する URL: サーバ名 )/jaci400/exec/jacilogon.html

8 ログオンオートログオン用意されている WebServer 上の signon.txt に IBMi の USRPRF とパスワードを設定しその ID でログオンを行う URL: サーバ名 )/jaci400/exec/jaciautologon.html

9 ログオンオートログオン 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()">

10 メニュー J/400 で用意されているメインメニュー画面構成は固定されるがデザインはカスタマイズ可能全体画面 :jaci400.html トップ画面 :top2.html メニュー画面 : jacimenu.html 右画面 : right.html 全体画面 : メニュー画面全体を構成するファイルトップ画面 : 見出し画面のファイルメニュー画面 : メニューを表示するファイル右画面 : 自由にデザインするファイル

: 順序オプションを入力し実行キーを押して下さい 2= 変更 3= コピー 4= 削除 5= 表示 OPT 順序見出し 1 第 13 回テクニカルセミナー 2 第 12

11 メニューメニューの設定 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

12 メニュー 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

13 メニュー実装方法 1. メニューの登録画面で 1 機能のみメニューに登録します 2. JAi400 Servlet Engine Admin でメニューなしの単一アプリケーションを選択します JA ケ 400 : ユーザーメニューオプションの処理 USER PROFILE : TE2 位置指定. : 順序オプションを入力し実行キーを押して下さい 2= 変更 3= コピー 4= 削除 5= 表示 OPT 順序見出し 1 ミガロテクニカルセミナー F3= 終了 F5= 再表示 F6= 追加 F12= 取消し

14 メニューメニューのカスタマイズ例画像配置ボタン配置リンク設定ツリービュー Etc

15 オートログオンとメニュースキップの組み合わせアプリケーションを全てカスタマイズで構築可能ですログオン J/400 メニューログオン画面 IBMi への接続は signon.txt に設定している USRPRF で行いシステムへのログオンは IBMi のユーザーデータで管理しているユーザーマスタ等で行いますメニュー

16 別ウィンドウでの個別機能起動

17 別ウィンドウでの個別機能起動別ウィンドウで個別機能を起動します J/400 のアプリケーションは通常同一ウィンドウで画面を遷移しますその為別ウィンドウでアプリケーションを起動するには J/400 のメニューから起動します今回はメニューを使わずにアプリケーションを起動するテクニックをご紹介します通常今回ご紹介する手法メニューから起動手法 1 手法 2 1 ウィンドウ URL を指定し直接起動 1 ウィンドウ 1 ウィンドウ 1 ウィンドウ

18 別ウィンドウでの個別機能起動 J/400 ではメニュー登録をしなくても個別機能 ( 画面 ) を起動する画面 (html) が用意されています入力値 1. ユーザー ID 2. パスワード 3. 起動プログラム 4. プログラムライブラリー 5. 環境設定プログラム 6. 環境設定プログラムライブラリー 7. 項目 3 のプログラムのパラメーター URL: サーバ名 )/jaci400/exec/startpgm.html

19 別ウィンドウでの個別機能起動起動プログラムを応用して別ウィンドウで表示します URL: サーバ名 )/jaciservlet/jaci400.logon? xxxx 上記 URL の引数として画面で入力した項目を付加して呼び出し元画面からリクエストを投げます例 : サーバ名 ) /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 環境プログラムオブジェクトライブラリ名 : 引数

20 別ウィンドウでの個別機能起動実行時の考慮点ホストにログオンする為に URL 中にユーザー及びパスワードを指定する必要がありますのでセキュリティについて十分配慮してください直接 URL で呼び出した場合ブラウザの戻るボタンが利用可能な状態で表示されますこの戻るボタンを使用すると J/400 のアプリケーションが正しく動作しなくなるためブラウザの戻るボタンを表示させないようにする必要がありますその為には JavaSclipt の window.open メソッドから URL を起動できるようにする等して対応します

21 Excel 出力 (Office 機能 )

22 Office 機能の実装 J/400 は画面から IBMi のデータを office の機能を使って Excel や Word の形式で編集出力できます

23 Office 機能の実装 office 機能の仕組みクライアント WebServer IBMi 画面 1 Excel 出力画面 1 RPG J/400 Excel 出力 API.csv SV 生成 API SV 用 SV を Excel で取り込んで表示 Excel ファイルをクライアントへコピー SV ファイルをクライアントへエクスポート Excel テンプレート保管

24 Office 機能の実装 office 機能の実装方法 STEP1 STEP2 STEP3 事前準備 Excel ファイル作成 1 テキストファイルのインポート設定 2 Excel レイアウトの作成 3 Excel ファイルを IBMi へアップロードプログラム作成 RPG 実装 1 Office 機能の API を利用 JAIOFK JAIOFF JAIOFO JAIOFW JAIOF JAIOFD プログラム実行 OFFIELisner 利用 1 専用ページからのログオン

25 Office 機能の実装 Excel ファイル作成 Excel に出力する内容を SV で設計します STEP1 Excel ファイルを新規で作成します SV ファイルを外部データとして取り込みますデータタブのテキストファイルを選択します

26 Office 機能の実装 Excel ファイル作成 Excel で読み込む SV ファイルの出力先を決定します今回は : JOFFIE DATA.SV ファイルを読み込みます STEP1

27 Office 機能の実装 Excel ファイル作成テキストファイルウィザードで内容を編集します STEP1

28 Office 機能の実装 Excel ファイル作成 STEP1 内容を編集後プロパティを設定しファイル名を指定して Excel を保存します (TE013.xlsx) ファイルを開くときにデータを更新するセル書式を保持する既存のセルを新規データで上書きし使用されていないセルはクリアする

29 Office 機能の実装 Excel ファイル作成 STEP1 作成した Excel ファイルを IBMi の J/400 ライブラリーにアップロードしますコマンドプロンプトから FTP ユーティリティを使って Excel ファイルをアップロードしてください拡張子を.FILE にします

.... オプションを入力して, 実行キーを押してください 2= 変更 3= コピー 4= 削除 5= 表示 7= 名前の変更 8= 記述の表示 9= 保管 10= 復元 11= 移動.

30 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 終わり物理ファイルとして保管されます

31 Office 機能の実装プログラムの実装プログラム構成 STEP2 メインの画面 RPG ALL Excel ファイル作成の RPG PGM:WEXEL ALL SV ファイル作成の RPG PGM:WSV

32 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)

33 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)

34 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)

35 Office 機能の実装 Excel ファイルの作成 WEXEL H*===============================================================* H* PROGRAM 名 : WEXEL H* PROGRAM 見出 : EXEL ファイルダウンロードと起動 H*===============================================================* E* < EXEL ファイル定義 > *==============================================================* * 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

36 Office 機能の実装 MOVEL'TE013' EXFILE 10 MOVEL'JTE13' LIB 10 MOVEL'TE013' MBR 10 Z-ADD23 PFLEN 50 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 ファイル作成プログラムの呼び出しクライアントにコピーしたファイルを開く

37 Office 機能の実装 *===============================================================* * SBEND 終了処理 *===============================================================* SBEND BEGSR * < 終了処理を行なう > SETON LR * RETRN ENDSR : JOFFIE TE013.XLS STEP2

38 Office 機能の実装 SV ファイルの作成 WSV H*===============================================================* H* PROGRAM 名 : WSV H* PROGRAM 見出 : SVファイル作成 H*===============================================================* F* FILE F*===============================================================* F* < 降水量ファイル > FJ400P01IF E K DISK F*==============================================================* E* <SVファイル定義 > E* <OFFIEコマンド > *==============================================================* * MAIN ROUTINE *==============================================================* * < 初期設定ルーチン > EXSR SBINZ * <SV 出力処理 > EXSR SBMAIN * < 終了処理ルーチン > EXSR SBEND *==============================================================* * SBINZ 初期設定サブルーチン *==============================================================* SBINZ BEGSR * < 初期化 > MOVEL'0' *IN90 ENDSR STEP2

MOVEL@SV,1 DATA 80 ALL 'JAIOFO' PARM DATAQK PARM DTALEN PARM DATA PARM RETURN 2 * WRITE HEADER MOVEL*BLANK HDATA 72 EXSR SB0010

39 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

40 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

41 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 : JOFFIE DATA.SV SV ファイルを閉じる STEP2

42 Office 機能の実装 OFFIELisnerを利用してログオン OFFIE 機能を利用するには専用のログオンページからログオンします OFFIE 機能利用時アプレットが自動的に立ち上がります < 専用ログオン > URL: サーバ名 )/jaci400/exec/jacilogonoffie.html STEP3

43 ご清聴ありがとうございました

monologue Sound Librarian 取扱説明書

monologue Sound Librarian 取扱説明書 J 3 目次はじめに... 2 monologue Sound Librarian とは?... 2 使用上のご注意... 2 動作環境... 2 インストール... 3 Mac へのインストール... 3 Windows へのインストール... 3 クイックスタート... 4 monologue Sound Librarian を起動する... 4 monologue Sound Librarian

JC/400 技術情報 開発ノウハウお教えします

JC/400 技術情報　開発ノウハウお教えします