iweb RPG による Web アプリケーション構築

iweb RPG による Web アプリケーション構築
サンプルプログラム（得意先照会）１．＠ＷＥＢツールを使用せずに作成２．＠ＷＥＢツールを使用して作成３．＠ＷＥＢツールのＨＴＭＬ作成補助　　ツールを使用して作成 01

得意先照会の動き

全ての処理がＨＴＴＰサーバを介して処理が行われる。
ｉｗｅｂＲＰＧの簡単な処理の流れ通常、キー画面・明細画面の表示という処理をＲＰＧで作成する際、１本のプログラムで全て処理されますが、ＷＥＢＲＰＧの場合、キー画面表示用プログラム・明細画面表示用プログラムと、２本に分けなければなりません。それはプログラムからＷＥＢ表示処理させるときに、ＨＴＴＰサーバは単独処理として処理が行われるので、次の処理を行う場合は別プログラムを呼び出さなくてはならないのです。よって、処理画面が増えるたびにプログラム本数も合わせて増えることになります。ＲＰＧプログラムからＷＥＢ画面表示させる場合は、『標準出力』という特別な領域にデータを送る必要があります。これは、ＩＢＭ標準のサービスプログラムで処理を行うことが可能です。ＷＥＢ画面からＲＰＧプログラムへデータを受け取る場合は、『環境変数』と『標準入力』という２つの特別な領域からデータを受け取ることになります。これも、『環境変数』で受け取るか『標準入力』で受け取るかは、ＨＴＭＬ側の命令文で決まります。『環境変数』は、get メソッドを指定します。データはＵＲＬの後ろについてきます。 Ex. /cgi-bin/AP0020.PGM?TOKUCD=000001 通常、キーワードを送って結果を返すような処理の場合に使用されます。『標準入力』は、postメソッドを指定します。送信範囲のＷＥＢのデータそのものが送られます。通常、メッセージの書き込みや、新規データの登録などに使用されます。今回は『環境変数』を使って処理を行います。ＷＥＢブラウザＨＴＴＰサーバプログラムキー画面表示処理ＰＧＭＨＴＭＬキー画面ＰＧＭ０１標準出力処理 ① <FORM name="FORM1" method="GET" ･･･ ② 明細画面表示処理ＰＧＭＨＴＭＬ明細画面ＰＧＭ０２環境変数取得処理 ③ 標準出力処理全ての処理がＨＴＴＰサーバを介して処理が行われる。 <FORM name="FORM1" method="GET" action=" この部分を“POST”にすると標準入力でデータを受け取ることが出来ます。 02

プログラム解説 03

１．＠ＷＥＢツールを使用せずにプログラムを作成
04

処理の流れこのプログラムはブラウザから６桁の得意先コードを受け取り、ＡＳ４００上の得意先マスタから得意先名・住所を取得し、ブラウザに表示します。得意先マスタになかった場合は、エラー表示します。 ASCII EBCDIC 得意先コードを入力し実行ＡＳ４００　ＣＧＩプログラムユーザー作成のプログラム（ＩＬＥＲＰＧ）ＩＢＭ提供のサービスプログラムキー画面表示ＨＴＴＰサーバ　（Ｃｏｍｍｏｎ　Ｇａｔｅｗａｙ　Ｉｎｔｅｒｆａｃｅ） ① 標準出力環境変数取得 CALLB QtmhWrStout ② QtmhGetEnv 明細画面表示 ② 環境変数 CALLB QtmhGetEnv 標準入力取得したコードで得意先マスタを読む入力結果 ③ QtmhRdStin CHAIN TOKUI2R 出力準備 ① 標準出力標準出力 ⑤ ④ QtmhWrStout CALLB QtmhWrStout 得意先マスタ TOKUI2 得意先コード得意先名得意先住所 05

＠ＷＥＢツールを使用せずにＣＧＩプログラムを作成（キー画面）
************************************************************************** * データ構造（ＤＳ） D* コンパイル時配列 DHTM S DIM(52) PERRCD(1) CTDATA D* 改行コード DNL C x'15' * ＡＰＩの定義 * D* 標準出力ＡＰＩ 'QtmhWrStout' 用 DOUT S A INZ DOUTLN S B 0 INZ(2048) * ユーザースペースエラーコード /COPY QSYSINC/QRPGLESRC,QUSEC * メイン * ◆ＨＴＭＬ文作成◆ C DO i C EVAL OUT = %TRIM(OUT) + %TRIM(HTM(i)) + C %TRIM(NL) * ◆標準出力◆ C CALLB 'QtmhWrStout' C PARM OUT C PARM OUTLN C PARM QUSEC C CLEAR OUT C ENDDO * ◆終了◆ C SETON LR C RETURN ＨＴＭＬ文は、コンパイル時配列を使って記述します。標準出力に書き出すデータの１行あたりの長さは、１２０バイト以下、行の最後には EBCDIC の改行文字を入れるという条件があります。ＩＢＭ提供のサービスプログラムを使用します。 QtmhWrStoutは標準出力するＡＰＩです。このプログラムを介してＨＴＭＬがＷＥＢ上に表示されます。 “OUT”パラメータには、配列にて記述されているＨＴＭＬ文をセットします。 “OUTLIN”パラメータは標準出力の実際の文字列の長さを定義します。ここでは２０４８バイトで設定しています。 “QUSEC”パラメータには /COPY にて QSYSINC/QRPGLESRC を取り込んでください。 “ＯＵＴ”パラメータにＨＴＭＬ文をセットしていきます。 “ＯＵＴ”パラメータにデータをセットし、標準出力のＡＰＩをＣＡＬＬＢしてＨＴＭＬ文を書き出します。コンパイル時配列は次頁 06

＠ＷＥＢツールを使用せずにＣＧＩプログラムを作成（キー画面の続き）
コンパイル時配列の内容 ** CTDATA HTML *************************************************************80 CONTENT-TYPE: TEXT/HTML <HTML> <HEAD> <TITLE> 得意先照会 </TITLE> </HEAD> <BODY bgcolor="lightGrey"> <FORM name="FORM1" method="GET" action=" <! タイトルの表示 --> <CENTER> <TABLE border="3"> <TR><TD bgcolor="navy"> <P align="center"><B><FONT size="4" color="White"> 得意先照会 </FONT></B></P> </TD></TR> </TABLE> </CENTER><BR><BR> <! ボディの表示 --> <TABLE border="0"> <TR> <TD><FONT size="2"> 得意先 </TD> <TD><INPUT type="TEXT" name="TOKUCD" maxlength="6"></TD> </TR> <TR><TD><INPUT type="SUBMIT" value=" 実行 "></TD></TR> </CENTER> </FORM> </BODY> </HTML> ここで“ＧＥＴ”と記述することで環境変数としてＣＧＩプログラムにデータが渡されます。ボタンを押した後のＣＧＩプログラムを指定します。 <FORM> ～ </FORM> の間にある <INPUT>タグで指定したフィールドの変数値が渡されます。ここでは、“ＴＯＫＵＣＤ”の値が渡されます。（イメージ：TOKUCD=入力した値） 07

＠ＷＥＢツールを使用せずにＣＧＩプログラムを作成（明細画面）
ＨＴＭＬ文は、コンパイル時配列を使って記述します。標準出力に書き出すデータの１行あたりの長さは、１２０バイト以下、行の最後には EBCDIC の改行文字を入れるという条件があります。明細画面 3-1 * 得意先マスター FTOKUI2L01 IF E K DISK PREFIX(TK) ************************************************************************** * データ構造（ＤＳ） D* コンパイル時配列 DHTM S DIM(46) PERRCD(1) CTDATA D* 改行コード DNL C x'15' * 外部プログラムの定義 * ＡＰＩの定義 * * 環境変数ＡＰＩ 'QtmhGetEnv' 用 DENBUFF S A INZ DENBUFFLN S B 0 INZ(2048) DENACTLN S B 0 INZ DENVARNAME S A INZ('QUERY_STRING') DENVARLN S B 0 INZ(12) * 標準出力ＡＰＩ 'QtmhWrStout' 用 DOUT S A INZ DOUTLN S B 0 INZ(2048) * ユーザースペースエラーコード /COPY QSYSINC/QRPGLESRC,QUSEC * メイン * ◆ＨＴＭＬ文作成◆ C DO i C EVAL OUT = %TRIM(OUT) + %TRIM(HTM(i)) + C %TRIM(NL) C ENDDO * ◆標準出力◆ C CALLB 'QtmhWrStout' C PARM OUT C PARM OUTLN C PARM QUSEC C CLEAR OUT * ◆環境変数より入力情報取得◆ C CALLB 'QtmhGetEnv' C PARM ENBUFF C PARM ENBUFFLN C PARM ENACTLN C PARM ENVARNAME C PARM ENVARLN ＩＢＭ提供のサービスプログラムを使用します。 QtmhGetEnvは環境変数を取得するＡＰＩです。このプログラムにより、変数項目を取得します。 “ENBUFF“パラメータは、環境変数が保管されます。 “ENBUFFLN”パラメータは、上記パラメータの長さを指定します。　　　　　ここでは２０４８バイトで設定しています。 “ENACTLN”パラメータは環境変数の実際の文字列の長さが入ってきます。 “ENVARNAME”パラメータは、取得する環境変数の名前をセットします。　　　　　環境変数QUERY_STRINGを取得するので固定値でセットします。 “ENVARLN”パラメータは、上記環境変数の名前の長さをセットします。　　　　長さは１２桁なのでこれも固定でセットします。 “QUSEC”パラメータには /COPY にて QSYSINC/QRPGLESRC を取り込んでください。 QtmhWrStoutは標準出力するＡＰＩです。このプログラムを介してＨＴＭＬがＷＥＢ上に表示されます。 “OUT”パラメータには、配列にて記述されているＨＴＭＬ文を２０４８バイトまでセットします。 “OUTLIN”パラメータは標準出力の実際の文字列の長さを定義します。　　　　ここでは２０４８バイトで設定しています。タイトル、見出しなどの共通表示部分を先に書き出しておきます。環境変数取得のＡＰＩにてデータを取得します。 08

＠ＷＥＢツールを使用せずにＣＧＩプログラムを作成（明細画面の続き）
明細画面 3-2 * * ◆データのデコード◆ * * アスキーコードデータからＥＢＣＤＩＣコードデータに変換する C MOVEL(P) ENBUFF QCHR C Z-ADD ENACTLN QLEN C MOVEL(P) '5035' CP C CALLB '#DECODE' C PARM QCHR C PARM QLEN C PARM CP C MOVEL(P) QCHR W_BUFF * ◆変数の取得◆ * ＥＢＣＤＩＣコードデータとキーを渡し、変数を取得する * 得意先コード C MOVEL(P) W_BUFF ENBUFF C MOVEL(P) 'TOKUCD' KEY C CALLB '#EXT_KVAL' C PARM ENBUFF C PARM KEY C MOVEL(P) ENBUFF W_TOKUCD * ◆得意先マスターより情報を取得◆ C W_TOKUCD CHAIN TOKUI2R C IF *IN90 = *ON C EXSR #ERR C ELSE C EXSR #OK C ENDIF * ◆標準出力◆ C CALLB 'QtmhWrStout' C PARM OUT C PARM OUTLN C PARM QUSEC * ◆終了◆ C SETON LR C RETURN デコードプログラムにて（今回は＠ＷＥＢツールを使用）アスキーコードからＥＢＣＤＩＣコードに変換をかけます。変数取得プログラムにて（今回は＠ＷＥＢツールを使用）得意先コードを取得します。取得した得意先コードより、得意先マスタを読み込みデータセットの処理を行います。標準出力ＡＰＩにてＷＥＢに書き出します。 09

明細明細画面 3-3 ************************************************************** * エラー用ＨＴＭＬ文作成 C #ERR BEGSR * * ◆ＨＴＭＬ文作成◆ C DO i C EVAL OUT = %TRIM(OUT) + %TRIM(HTM(i)) + C %TRIM(NL) C ENDDO C ENDSR * ＨＴＭＬ文作成 C #OK BEGSR C DO i * 得意先名 C EVAL OUT = %TRIM(OUT) + %TRIM('<TD>') + C %TRIM(TKTOKNAM) + C %TRIM('</TD>') + %TRIM(NL) * 得意先住所 C %TRIM(TKTOKADR) + C DO i 得意先マスターが読めなかった場合、エラーメッセージを表示するＨＴＭＬ文を作成します。得意先マスターが読めた場合、得意先名と住所を表示させるＨＴＭＬ文を作成します。コンパイル時配列は次頁 10

コンパイル時配列の内容 ** CTDATA HTML *************************************************************** CONTENT-TYPE: TEXT/HTML <HTML> <HEAD> <TITLE> 得意先照会 </TITLE> </HEAD> <BODY bgcolor="lightGrey"> <! タイトルの表示 --> <CENTER> <TABLE border="3"> <TR><TD bgcolor="navy"> <P align="center"><B><FONT size="4" color="white"> 得意先照会 </FONT></B></P> </TD></TR> </TABLE> </CENTER><BR><BR> <! ボディの表示 --> <TABLE border="1" cellspacing="0"> <TR bgcolor="#6666FF"> <TD><P align="center"><B><FONT color="white"> 得　意　先 </FONT></B></TD> <TD><P align="center"><B><FONT color="white"> 住　　　所 </FONT></B></TD> </TR> <TR bgcolor="white"> </CENTER> </BODY> </HTML> ================= ここからはエラータグ ===================== 35 <HR SIZE="3" WIDTH="360"> <TABLE border="0"> <TR><TD><FONT size="3"> 入力された得意先がありません </TD></TR> <! ボディの表示 -->の下にある<CENTER> まで同じ文でいけるので、最初にここまでのＨＴＭＬ文を標準出力させています。通常得意先マスタが読み込めた場合は、矢印の部分（ <TR bgcolor=“white”> と</TR> の間）に得意先名と住所を表示するＨＴＭＬ文が入り、 </HTML>までの残りのＨＴＭＬ文を標準出力します。ここに変数値が入る通常得意先マスタが読み込めなかった場合は、３５配列より下の部分が置き換えられて標準出力されます。 11

２．＠ＷＥＢツールを使用してプログラムを作成
12

処理の流れこのプログラムはブラウザから６桁の得意先コードを受け取り、ＡＳ４００上の得意先マスタから得意先名・住所を取得し、ブラウザに表示します。得意先マスタになかった場合は、エラー表示します。 ASCII EBCDIC 得意先コードを入力し実行ＡＳ４００　ＣＧＩプログラムユーザー作成のプログラム（ＩＬＥＲＰＧ）ユーザー作成のＨＴＭＬファイル＠ＷＥＢツールキー画面表示ＨＴＴＰサーバ　（Ｃｏｍｍｏｎ　Ｇａｔｅｗａｙ　Ｉｎｔｅｒｆａｃｅ）キー画面表示用ＨＴＭＬファイル ① 標準出力環境変数取得 CALLB #OUT_HTML ② #GET_FORM 明細画面表示 ② 環境変数 #GET_FORM 明細表示用ＨＴＭＬファイル標準入力取得したコードで得意先マスタを読む入力結果 ③ #POST_FORM CHAIN TOKUI2R 出力準備 ① エラー表示用ＨＴＭＬファイル標準出力標準出力 ⑤ ④ #OUT_HTML CALLB #OUT_HTML 得意先マスタ TOKUI2 得意先コード得意先名得意先住所 13

＠ＷＥＢツール #GET_FORMと#OUT_HTML
ＷＥＢからのデータは、ＡＳ４００ＨＴＴＰサーバを介して環境変数という領域に入ってきます。 #GET_FORM は、環境変数（ QUERY_STRING）から、入力項目ごとにデータを取得するプログラムです。得意先コード：０００００１ＨＴＴＰサーバ提供の環境変数ユーザープログラム QUERY_STRING SERVER_NAME TOKUCD=000001 フィールド名：ＴＯＫＵＣＤをセット SERVER_NAME EVAL W_TOKUCD = GET_FORM(field:option) を取得オプションはブランク QUERY_STRING は、フォームから入力されたフィールド名及びフィールド値が入ってきます。 #OUT_HTML ＡＳ４００からＷＥＢへデータを出力する場合、標準出力という領域からＡＳ４００ＨＴＴＰサーバを介してデータが出力されます。 #OUT_HTML は、ＡＳ４００上のＨＴＭＬファイルを変数パラメータで置き換え、標準出力に出力するプログラムです。ユーザープログラム #OUT_HTML 明細 DATA パラメータ TOKUNM=（株）○○システム& ADR=名古屋市中村区名駅２－３－３& EVAL DATA = 'TOKUNM=' + %TRIM(TKTOKNAM) + %TRIM('&') + 'ADR=' %TRIM(TKTOKADR) + %TRIM('&') #OUT_HTMLのパラメータＨＴＭＬファイル CALLB '#OUT_HTML' PARM 'CGILIB' LIB PARM 'QHTMSRC' FIL PARM MBR PARM DATA 変数値を反映 <TD>&&TOKUNM</TD> <TD>&&ADR</TD> 14

＠ＷＥＢツールを使用してＣＧＩプログラムを作成（キー画面）
キー画面プログラム：ＡＰ００１０ ************************************************************************** * データ構造（ＤＳ） * プログラム状況データ構造 D SDS D ﾌﾟﾛｸﾞﾗﾑID * * メイン * ◆標準出力◆ C CALLB '#OUT_HTML' C PARM 'CGILIB' LIB ライブラリ名 C PARM 'QHTMSRC' FIL ファイル名 C PARM MBR メンバー名 C PARM DATA 変数 * ◆終了◆ C SETON LR C RETURN システムより自分自身のメンバー名を取得します。＠ＷＥＢツール提供の標準出力プログラムをＣＡＬＬＢにて呼び出します。 “LIB”パラメータには、ＨＴＭＬ文が書かれたソースが入っているライブラリを指定します。ここではＣＧＩＬＩＢというライブラリを指定しています。 “FIL”パラメータは、ＨＴＭＬ文が書かれたソースが入っているファイル名を指定します。ここではＱＨＴＭＳＲＣというファイル名を指定しています。 “MBR”パラメータには、ＨＴＭＬ文が書かれたメンバー名を指定します。ここでは、ＣＧＩプログラムと同じ名前で指定しています。 “DATA”パラメータはここでは使用しません。変数データをセットする際に使用します。 15

＠ＷＥＢツールを使用してＣＧＩプログラムを作成（キー画面用ＨＴＭＬソース）
ＣＧＩＬＩＢ／ＱＨＴＭＳＲＣにて作成されたＨＴＭＬ文です。ＨＴＭＬソース（キー画面用） CONTENT-TYPE: TEXT/HTML <HTML> <HEAD> <TITLE> 得意先照会 </HEAD> <BODY bgcolor="lightGrey"> <FORM name="FORM1" method="GET" action=" <! タイトルの表示 --> <CENTER> <TABLE border="3"> <TR><TD bgcolor="navy"> <P align="center"><B><FONT size="4" color="White"> 得意先照会 </FONT></B></P> </TD></TR> </TABLE> </CENTER><BR><BR> <! ボディの表示 --> <TABLE border="0"> <TR> <TD><FONT size="2"> 得意先 </TD> <TD><INPUT type="TEXT" name="TOKUCD" maxlength="6"></TD> </TR> <TR><TD><INPUT type="SUBMIT" value=" 実行 "></TD></TR> </CENTER> </FORM> </BODY> </HTML> このファイルは、ライブラリＣＧＩＬＩＢファイルＱＨＴＭＳＲＣメンバーＡＰ００１０として作成しています。ボタンを押した後のＣＧＩプログラムを指定します。ここで“ＧＥＴ”と記述することで環境変数としてＣＧＩプログラムにデータが渡されます。 <FORM> ～ </FORM> の間にある <INPUT>タグで指定したフィールドの変数値が渡されます。ここでは、“ＴＯＫＵＣＤ”の値が渡されます。（イメージ：TOKUCD=入力した値） 16

＠ＷＥＢツールを使用してＣＧＩプログラムを作成（明細画面）
システムより自分自身のメンバー名を取得します。明細画面プログラム：ＡＰ００２０ * 得意先マスター FTOKUI2L01 IF E K DISK PREFIX(TK) ************************************************************************** * データ構造（ＤＳ） * プログラム状況データ構造 D SDS D ﾌﾟﾛｸﾞﾗﾑID * * ＠ＷＥＢツールの定義 * 変数取得 (GET) D GET_FORM PR EXTPROC('GET_FORM') D VALUE D D field S INZ フィールド名 D option S INZ オプション * メイン * ◆環境変数より入力情報取得◆ * 得意先 C CLEAR W_TOKUCD C MOVEL(P) 'TOKUCD' field C EVAL W_TOKUCD = GET_FORM(field:option) * ◆得意先マスターより情報を取得◆ C W_TOKUCD CHAIN TOKUI2R * データがなかったらエラー画面表示 C IF *IN90 = *ON C MOVEL(P) 'AP9999' * データがあれば変数を置き換えるパラメータをセット C ELSE C EVAL DATA = 'TOKUNM=' + %TRIM(TKTOKNAM) 得意先名 C %TRIM('&') + C 'ADR=' %TRIM(TKTOKADR) 住所 C %TRIM('&') C ENDIF * ◆標準出力◆ C CALLB '#OUT_HTML' C PARM 'CGILIB' LIB ライブラリ名 C PARM 'QHTMSRC' FIL ファイル名 C PARM MBR メンバー名 C PARM DATA 変数 * ◆終了◆ C SETON LR C RETURN ＠ＷＥＢツールを使用します。 GET_FORM は、環境変数を取得し、キーデータを返すプログラムです。 2000バイトのパラメータは出力パラメータです。変数値が返ってきます。 10バイトのパラメータは入力パラメータです。取得したい変数の名前をセットします。 1バイトのパラメータは入力パラメータです。返ってくる変数値のパターンをここで指定します。今回は、ブランクをセットします。ここで得意先コードを取得します。 Fieldに‘TOKUCD’とセットします。 Optionは今回はブランクです。 W_TOKUCDに変数値がセットされます。＠ＷＥＢツールの#OUT_HTMLのパラメータ “DATA”に左記のように変数をセットします。データ上はこうなります。 TOKUNM=（株）○○システム&ADR=名古屋市中村区名駅２－３－３& 変数の名前=変数& というルールです。複数項目の場合は、& の後に続けてセットしてください。＠ＷＥＢツールの#OUT_HTMLで標準出力させます。 17

＠ＷＥＢツールを使用してＣＧＩプログラムを作成（明細画面通常表示用ＨＴＭＬファイル）
ＨＴＭＬソース（通常表示用） CONTENT-TYPE: TEXT/HTML <HTML> <HEAD> <TITLE> 得意先照会 </HEAD> <BODY bgcolor="lightGrey"> <! タイトルの表示 --> <CENTER> <TABLE border="3"> <TR><TD bgcolor="navy"> <P align="center"><B><FONT size="4" color="white"> 得意先照会 </FONT></B></P> </TD></TR> </TABLE> </CENTER><BR><BR> <! ボディの表示 --> <TABLE border="1" cellspacing="0"> <TR bgcolor="#6666FF"> <TD><P align="center"><B><FONT color="white"> 得　意　先 </FONT></B></TD> <TD><P align="center"><B><FONT color="white"> 住　　　所 </FONT></B></TD> </TR> <TR bgcolor="white">  <TD>&&TOKUNM</TD> <TD>&&ADR</TD>  </CENTER> </BODY> </HTML> このファイルは、ライブラリＣＧＩＬＩＢファイルＱＨＴＭＳＲＣメンバーＡＰ００２０として作成しています。斜体の部分 &&TOKUNM と&&ADR が＠ＷＥＢツールの#OUT_HTMLの “DATA” パラメータにセットし、置換処理が行われるフィールドです。置換処理が行われる範囲は、 と の間です。置換対象は &&変数名で記述します。例えば… &&TOKUNM は（株）○○システム &&ADR は名古屋市中村区名駅２－３－３実際は上記のように置き換わります。 とはＷＥＢのＨＴＭＬ文には記述されません。 18

＠ＷＥＢツールを使用してＣＧＩプログラムを作成（明細画面エラー表示用ＨＴＭＬファイル）
ＨＴＭＬソース（エラー表示用） CONTENT-TYPE: TEXT/HTML <HTML> <HEAD> <TITLE> 得意先照会 </HEAD> <BODY bgcolor="LightGrey"> <! タイトルの表示 --> <CENTER> <TABLE border="3"> <TR><TD bgcolor="Navy"> <P align="center"><B><FONT size="4" color="White"> 得意先照会 </FONT></B></P> </TD></TR> </TABLE> </CENTER><BR><BR><BR> <! ボディの表示 --> <HR SIZE="3" WIDTH="360"> <TABLE border="0"> <TR><TD><FONT size="3"> 入力された得意先がありません </TD></TR> </CENTER> </BODY> </HTML> 通常表示用とは別ファイルで作成しておきます。このファイルは、ライブラリＣＧＩＬＩＢファイルＱＨＴＭＳＲＣメンバーＡＰ９９９９として作成しています。 19

両プログラムの比較 20

両プログラムを比較（プログラムソース）キー画面を表示するプログラムです。ここで標準出力にてＨＴＭＬ文を書き出していますキー画面表示用
＠ＷＥＢツールを使用しない＠ＷＥＢツールを使用する ************************************************************************** * データ構造（ＤＳ） D* コンパイル時配列 DHTM S DIM(52) PERRCD(1) CTDATA D* 改行コード DNL C x'15' * ＡＰＩの定義 * D* 標準出力ＡＰＩ 'QtmhWrStout' 用 DOUT S A INZ DOUTLN S B 0 INZ(2048) * ユーザースペースエラーコード /COPY QSYSINC/QRPGLESRC,QUSEC * メイン * ◆ＨＴＭＬ文作成◆ C DO i C EVAL OUT = %TRIM(OUT) + %TRIM(HTM(i)) + C %TRIM(NL) * ◆標準出力◆ C IF i = 25 OR C i = 52 C CALLB 'QtmhWrStout' C PARM OUT C PARM OUTLN C PARM QUSEC C CLEAR OUT C ENDIF C ENDDO * ◆終了◆ C SETON LR C RETURN ** CTDATA HTML *************************************************************80 CONTENT-TYPE: TEXT/HTML <HTML> <HEAD> <TITLE> 得意先照会 </TITLE> </HEAD> <BODY bgcolor="lightGrey"> <FORM name="FORM1" method="GET" action=" <! タイトルの表示 --> <CENTER> <TABLE border="3"> <TR><TD bgcolor="navy"> <P align="center"><B><FONT size="4" color="White"> 得意先照会 </FONT></B></P> </TD></TR> </TABLE> </CENTER><BR><BR> <! ボディの表示 --> <TABLE border="0"> <TR> <TD><FONT size="2"> 得意先 </TD> <TD><INPUT type="TEXT" name="TOKUCD" maxlength="6"></TD> </TR> <TR><TD><INPUT type="SUBMIT" value=" 実行 "></TD></TR> </CENTER> </FORM> </BODY> </HTML> ************************************************************************** * データ構造（ＤＳ） * プログラム状況データ構造 D SDS D ﾌﾟﾛｸﾞﾗﾑID * * メイン * ◆標準出力◆ C CALLB '#OUT_HTML' C PARM 'CGILIB' LIB ライブラリ名 C PARM 'QHTMSRC' FIL ファイル名 C PARM MBR メンバー名 C PARM DATA 変数 * ◆終了◆ C SETON LR C RETURN ここで標準出力にてＨＴＭＬ文を書き出していますキー画面表示用ＨＴＭＬファイルＨＴＭＬ記述ファイルの場所をパラメータで指定するだけでＨＴＭＬ文を書き出してくれる。メンテナンスは、ＨＴＭＬ記述のファイルを変更するだけでいい。プログラムソース上でＨＴＭＬ文を記述するので変更するごとにリコンパイルしなければならない。 21

両プログラムを比較（プログラムソース）明細画面を表示するプログラムです。ここで環境変数にてデータを取得していますここで標準出力にて
＠ＷＥＢツールを使用しない＠ＷＥＢツールを使用する * 得意先マスター FTOKUI2L01 IF E K DISK PREFIX(TK) ************************************************************************** * データ構造（ＤＳ） D* コンパイル時配列 DHTM S DIM(46) PERRCD(1) CTDATA D* 改行コード DNL C x'15' * 外部プログラムの定義 * ＡＰＩの定義 * * 環境変数ＡＰＩ 'QtmhGetEnv' 用 DENBUFF S A INZ DENBUFFLN S B 0 INZ(2048) DENACTLN S B 0 INZ DENVARNAME S A INZ('QUERY_STRING') DENVARLN S B 0 INZ(12) * 標準出力ＡＰＩ 'QtmhWrStout' 用 DOUT S A INZ DOUTLN S B 0 INZ(2048) * ユーザースペースエラーコード /COPY QSYSINC/QRPGLESRC,QUSEC * メイン * ◆ＨＴＭＬ文作成◆ C DO i C EVAL OUT = %TRIM(OUT) + %TRIM(HTM(i)) + C %TRIM(NL) C ENDDO * ◆標準出力◆ C CALLB 'QtmhWrStout' C PARM OUT C PARM OUTLN C PARM QUSEC C CLEAR OUT * ◆環境変数より入力情報取得◆ C CALLB 'QtmhGetEnv' C PARM ENBUFF C PARM ENBUFFLN C PARM ENACTLN C PARM ENVARNAME C PARM ENVARLN * ◆データのデコード◆ * * アスキーコードデータからＥＢＣＤＩＣコードデータに変換する C MOVEL(P) ENBUFF QCHR C Z-ADD ENACTLN QLEN C MOVEL(P) '5035' CP C CALLB '#DECODE' C PARM QCHR C PARM QLEN C PARM CP C MOVEL(P) QCHR W_BUFF * ◆変数の取得◆ * ＥＢＣＤＩＣコードデータとキーを渡し、変数を取得する * 得意先コード C MOVEL(P) W_BUFF ENBUFF C MOVEL(P) 'TOKUCD' KEY C CALLB '#EXT_KVAL' C PARM ENBUFF C PARM KEY C MOVEL(P) ENBUFF W_TOKUCD * 得意先マスター FTOKUI2L01 IF E K DISK PREFIX(TK) ************************************************************************** * データ構造（ＤＳ） * プログラム状況データ構造 D SDS D ﾌﾟﾛｸﾞﾗﾑID * * ＠ＷＥＢツールの定義 * 変数取得 (GET) D GET_FORM PR EXTPROC('GET_FORM') D VALUE D D field S INZ フィールド名 D option S INZ オプション * メイン * ◆環境変数より入力情報取得◆ * 得意先 C CLEAR W_TOKUCD C MOVEL(P) 'TOKUCD' field C EVAL W_TOKUCD = GET_FORM(field:option) * ◆得意先マスターより情報を取得◆ C W_TOKUCD CHAIN TOKUI2R * データがなかったらエラー画面表示 C IF *IN90 = *ON C MOVEL(P) 'AP9999' * データがあれば変数を置き換えるパラメータをセット C ELSE C EVAL DATA = 'TOKUNM=' + %TRIM(TKTOKNAM) 得意先名 C %TRIM('&') + C 'ADR=' %TRIM(TKTOKADR) 住所 C %TRIM('&') C ENDIF * ◆標準出力◆ C CALLB '#OUT_HTML' C PARM 'CGILIB' LIB ライブラリ名 C PARM 'QHTMSRC' FIL ファイル名 C PARM MBR メンバー名 C PARM DATA 変数 * ◆終了◆ C SETON LR C RETURN ここで環境変数にてデータを取得していますここで標準出力にてＨＴＭＬ文を書き出しています変数項目は、ＤＡＴＡパラメータにセット明細画面表示用ＨＴＭＬファイルデコード処理やデータ抜き出し処理のプログラムを別途作成しなくてはならない。エラー画面表示用ＨＴＭＬファイル画面ごとでＨＴＭＬファイルを作成すればよいのでメンテナンスや管理が楽。 22

両プログラムを比較（プログラムソース）明細画面を表示するプログラムです。ここで標準出力にてＨＴＭＬ文を書き出しています
＠ＷＥＢツールを使用しない * ◆得意先マスターより情報を取得◆ C W_TOKUCD CHAIN TOKUI2R C IF *IN90 = *ON C EXSR #ERR C ELSE C EXSR #OK C ENDIF * * ◆標準出力◆ C CALLB 'QtmhWrStout' C PARM OUT C PARM OUTLN C PARM QUSEC * ◆終了◆ C SETON LR C RETURN ************************************************************** * エラー用ＨＴＭＬ文作成 C #ERR BEGSR * ◆ＨＴＭＬ文作成◆ C DO i C EVAL OUT = %TRIM(OUT) + %TRIM(HTM(i)) + C %TRIM(NL) C ENDDO C ENDSR * ＨＴＭＬ文作成 C #OK BEGSR C DO i * 得意先名 C EVAL OUT = %TRIM(OUT) + %TRIM('<TD>') + C %TRIM(TKTOKNAM) + C %TRIM('</TD>') + %TRIM(NL) * 得意先住所 C %TRIM(TKTOKADR) + C DO i ** CTDATA HTML *************************************************************** CONTENT-TYPE: TEXT/HTML <HTML> <HEAD> <TITLE> 得意先照会 </TITLE> </HEAD> <BODY bgcolor="lightGrey"> ～長くなるので省略します～ </BODY> </HTML> ================= ここからはエラータグ ===================== 35 <HR SIZE="3" WIDTH="360"> <TABLE border="0"> <TR><TD><FONT size="3"> 入力された得意先がありません </TD></TR> </TABLE> </CENTER> ここで標準出力にてＨＴＭＬ文を書き出しています変数表示用のＨＴＭＬ文を記述しなければならない。 23

３．ＨＴＭＬ作成補助ツールを使用してプログラムを作成 24

補助ツールを使用することで、簡単なＷＥＢの画面処理が可能になります。
処理の流れ用意するもの１）ＨＴＭＬファイル２）変数をセットするプログラム以上。補助ツールを使用することで、簡単なＷＥＢの画面処理が可能になります。 ASCII EBCDIC 環境変数や標準出力といったＷＥＢの知識がいらないので簡単にコーディングできます。ＡＳ４００　ＣＧＩプログラムＵＲＬを入力ＨＴＭＬ作成補助ツール @WEB ユーザー作成プログラム CGILIB ① ＨＴＴＰサーバ　（Ｃｏｍｍｏｎ　Ｇａｔｅｗａｙ　Ｉｎｔｅｒｆａｃｅ）環境変数、標準出力、次プログラムへのデータの受け渡し受け取ったキーで、得意先マスターを読み込み、変数項目をセット得意先コードを入力し実行 CHAIN TOKUI2R 得意先マスタ TOKUI2 ⑥ ③ EVAL=TOKUNM+･･･ＱＨＴＭＤＲＶ ⑤ ④ ⑦ パラメータセット得意先コード得意先名得意先住所入力結果 ② ⑧ ⑨ CGILIB 簡単なルールに従ってＨＴＭＬファイルを作成するだけ。キー画面表示用ＨＴＭＬファイル明細表示用ＨＴＭＬファイル 25

ＨＴＭＬ作成補助ツールを使用してＣＧＩプログラムを作成（ＵＲＬ入力）
ＵＲＬを入力しキー画面を出力させるＨＴＭＬ作成補助ツールのプログラムＩＤの後に、？を追加します。それ以降は、パラメータとして認識されます。ＰＧＭＩＤ＝ＨＴＭＬファイル名　と入力します。今回は、ＡＰ００５０というファイル名で入力しています。ＨＴＭＬ作成補助ツール名キー画面出力ＨＴＭＬファイル名 26

ＨＴＭＬ作成補助ツールを使用してＣＧＩプログラムを作成（キー画面表示用ＨＴＭＬファイル）
ＨＴＭＬソース（キー画面表示用） CONTENT-TYPE: TEXT/HTML <HTML> <HEAD> <TITLE> 得意先照会（ドライバ使用） </TITLE> </HEAD> <BODY bgcolor="lightGrey"> <FORM name="FORM1" method="GET" <! ユーザープログラム名称 --> <input type="hidden" name="PGMID" value="AP0070"> <! タイトルの表示 --> <CENTER> <TABLE border="3"> <TR><TD bgcolor="navy"> <P align="center"><B><FONT size="4" color="White"> 得意先照会 </FONT></B></P> </TD></TR> </TABLE> </CENTER><BR><BR> <! ボディの表示 --> <TABLE border="0"> <TR> <TD><FONT size="2"> 得意先 </TD> <TD><INPUT type="TEXT" name="KEY" maxlength="6"></TD> </TR> <TR><TD><INPUT type="SUBMIT" value=" 実行 "></TD></TR> </CENTER> </FORM> </BODY> </HTML> このファイルは、ライブラリＣＧＩＬＩＢファイルＱＨＴＭＳＲＣメンバーＡＰ００５０として作成しています。ＨＴＭＬ作成補助ツールのプログラムを指定します。変数項目セットプログラムを指定します。明細表示ＨＴＭＬファイル名はこの名前と同じにしてください。この部分が、ＨＴＭＬ作成補助ツールのプログラムに渡ります。 27

ＨＴＭＬ作成補助ツールを使用してＣＧＩプログラムを作成（変数セットプログラム）
変数項目セットプログラム：ＡＰ００７０ * 得意先マスター FTOKUI2L01 IF E K DISK PREFIX(TK) ************************************************************************** * パラメータ C *ENTRY PLIST C PARM P_KEY キー群 C PARM P_RTDATA 返し変数 * メイン C MOVEL(P) 'AP0020' W_PGMID * ◆キー取得◆ C CALL ‘QEXTKEY' C PARM LRKB 終了区分 C PARM P_KEY KEY キー群 C PARM RTDATA 返し変数 C MOVEL(P) RTDATA W_TOKUCD * * ◆得意先マスターより情報を取得◆ C W_TOKUCD CHAIN TOKUI2R C IF *IN90 = *ON C MOVEL(P) *BLANK TKTOKNAM C MOVEL(P) *BLANK TKTOKADR C ENDIF * ◆変数を置き換えるパラメータをセット◆ C EVAL P_RTDATA = 'TOKUNM=' + %TRIM(TKTOKNAM) 得意先名 C %TRIM('&') + C 'ADR=' %TRIM(TKTOKADR) 住所 C %TRIM('&') * ◆終了◆ C SETON LR C RETURN ＨＴＭＬ作成補助ツールからパラメータが渡ってきます。キー群パラメータは、１つもしくは複数のキーの値が入っています。今回は、得意先コードのみが入っています。返し変数パラメータは、ＨＴＭＬ作成補助ツールに渡すパラメータです。変数項目を渡します。ここで、キー取得のプログラムを使用して１つづつキーの値を取得します。今回は得意先コードのみなので一回しか呼び出していません。終了区分パラメータは、データの終了時に ‘E’がセットされます。通常はブランクをセットします。キー群パラメータはＨＴＭＬ作成補助ツールから取得したキー群データを最初にセットしておきます。２回目以降は、セットしません。返し変数パラメータは、取得したキーデータがセットされます。変数値をセットしていきます。セット方法は＠ＷＥＢツールの #OUT_HTML（標準出力）プログラムの DATA パラメータのセット方法と同じです。 28

ＨＴＭＬ作成補助ツールを使用してＣＧＩプログラムを作成（明細画面表示用ＨＴＭＬファイル）
ＨＴＭＬソース（明細画面表示用） CONTENT-TYPE: TEXT/HTML <HTML> <HEAD> <TITLE> 得意先照会（ドライバ使用） </TITLE> </HEAD> <BODY bgcolor="lightGrey"> <! タイトルの表示 --> <CENTER> <TABLE border="3"> <TR><TD bgcolor="navy"> <P align="center"><B><FONT size="4" color="white"> 得意先照会 </FONT></B></P> </TD></TR> </TABLE> </CENTER><BR><BR> <! ボディの表示 --> <TABLE border="1" cellspacing="0"> <TR bgcolor="#6666FF"> <TD><P align="center"><B><FONT color="white"> 得　意　先 </FONT></B></TD> <TD><P align="center"><B><FONT color="white"> 住　　　所 </FONT></B></TD> </TR> <TR bgcolor="white">  <TD>&&TOKUNM</TD> <TD>&&ADR</TD>  </CENTER> </BODY> </HTML> このファイルは、ライブラリＣＧＩＬＩＢファイルＱＨＴＭＳＲＣメンバーＡＰ００７０として作成しています。 29

iweb RPG による Web アプリケーション構築

Similar presentations

Presentation on theme: "iweb RPG による Web アプリケーション構築"— Presentation transcript:

Similar presentations

About project

フィードバック

ログインする

Auth with social network:

iweb RPG による Web アプリケーション構築

Similar presentations

Presentation on theme: "iweb RPG による Web アプリケーション構築"— Presentation transcript:

Similar presentations

About project

フィードバック