ｉ - ｗｅｂ　ＲＰＧ使用者の手引き

ｉ - ｗｅｂ　ＲＰＧ 使用者の手引き

目　次 Ⅰ．ｉ－ｗｅｂＲＰＧ　とは？Ｐ．３ Ⅱ．導入手順Ｐ．５～ Ⅲ．ｉ－ｗｅｂＲＰＧ　の使用方法Ｐ．９～１．組込関数１－１．#GET_FORM （変数取得）１－２．#OUT_HTML （ＨＴＭＬ書き出し）１－３．ＨＴＭＬの規則１－４．#STD_OUT （ＨＴＭＬ書き出し）２．コマンドＰ．１７～２－１．CRTWEBRPG （コンパイル）２－２．CRTXLSF （エクセルファイル作成）２－３．SENDMAIL （ＡＳ４００からメールの送信）Ｐ．２０～３．ユーティリティー３－１．FILE UPLOAD（ＩＦＳへのファイルアップロード）３－２．UPLOAD TO PF（ファイルをＱＳＹＳへアップロード）３－３．HTMDRV （ＨＴＭＬ作成補助ツール） Ⅳ．サンプルプログラムＰ．２７～１．＠ＷＥＢツールを使用してＣＧＩプログラムを作成１－１．キー画面表示処理１－２．キー画面用ＨＴＭＬソース１－３．明細画面表示処理１－４．明細画面用ＨＴＭＬソース１－５．エラー画面用ＨＴＭＬソースＰ．３３～２．ＨＴＭＬ作成補助ツールを使用してＣＧＩプログラムを作成２－１．ＵＲＬ入力２－２．キー画面用ＨＴＭＬソース２－３．変数項目セット２－４．明細画面用ＨＴＭＬソース

Ⅰ．ｉ－ｗｅｂＲＰＧ　とは？ ＲＰＧだけでｗｅｂプログラムを作成するツールで、Web機能のコンポーネント群です。扱いやすいようにパーツ化(サブルーチン呼出し可能)されており既存プログラムに容易に付け加える (プラグインする)ことが可能です。これによりお客様のアプリケーション資産を素早く、低コストでwebアプリケーションに対応させることができます。 i-web RPGは、複雑なシステムAPIや呼出し手順等を全てカプセル化しておりますので扱い方は簡単です。 Webブラウザへの書出し(HTML書出し)、Excelへの出力、メール送信、等々の機能が 1つ1つコンポーネント化されているので、必要な機能だけを既存プログラムに組み込むことができます。

１．組込関数 　ＲＰＧプログラム内に組込み、ブラウザーとの入出力を行うための関数を提供します。　従来の５２５０画面プログラム、コーディングでの画面に対する、WRITE/READ/EXFMT 命令を　組込関数に置き換えたイメージで、webプログラムを作成できます。　関数は、次の２つです。　■ #GET_FORM READ命令に当たる関数です。ブラウザーからの入力項目を読込みます。　■ #OUT_HTML WRITE命令に当たる関数です。ブラウザーへの書き出しを行います。２．コマンド web適用業務を作成するのに必要ないくつかの機能をコマンド形式で提供します。　■ CRTWEBRPG （コンパイル）　　ＣＧＩプログラムをコンパイルする際に使用すると、便利なコマンドです。　　モジュールの作成とプログラムの作成を一度に行います。　■ CRTXLSF （エクセルファイル作成）　　ＣＳＶファイルよりエクセルファイルをＩＦＳのディレクトリに作成します。　　ＣＳＶファイルはレコード長５０００バイトで作成してください。　■ SENDMAIL （ＡＳ４００からメール送信） IBM 社の AS/400 上で動く、5250 グリーンスクリーン画面で実行可能なメール・クライアントです。　　メールを利用するプログラム開発をサポートするツールです。３．ユーティリティー webアプリケーションを補助するユーティリティーを提供します。　■ CRTXLSF （ＩＦＳへのファイルアップロード） @WEBツールのアップロードサービスプログラムを使用して、ＡＳ４００へのアップロードが可能です。　■ HTMDRV （ＨＴＭＬ作成補助）　　簡単なＷＥＢアプリケーションを作成する際、このツールを使用することにより、　　より簡単にＣＧＩプログラムを作成することが出来ます。

Ⅱ．導入手順 １．ダウンロード ① http://www.axel.ne.jp/i-web/install.htm 　上記のＵＲＬより、i-webRPGのダウンロード（約3M）を行ってください。２．セーブファイルの作成 ① AS400内にＳＡＶＦを作成します。　コマンド：CRTSAVF FILE(QGPL/IWEBRPG) ３．ＦＴＰサーバーの立上げ ① AS400でＦＴＰサーバーを開始させます。　コマンド：STRTCPSVR SERVER(FTP) ４．ＤＯＳプロンプトからのＦＴＰ操作 ① ＤＯＳプロンプトを立上げ、ＦＴＰを用いてアップロードします。　・FTP　貴社のAS400のＩＰアドレス　・（USERに対し、）ユーザーＩＤ　・（PASSWORDに対し、）パスワード　・binary 　・putC:\iwebrpg.savf QGPL/IWEGRPG 　・QUIT ５．ライブラリーの導入 ① AS400で＠ＷＥＢライブラリーを作成します。　コマンド：CRTLIB LIB(@WEB) ② RSTLIB でライブラリー @WEB を復元します。　コマンド：RSTLIB SAVLIB(@WEB) DEV(*SAVF) SAVF(QGPL/SAVF) MBROPT(*ALL) ６．＠ＷＥＢツールのセットアップセットアップにはパスワードが必要です。パスワードは、注文が完了次第お知らせ致します。 ① セットアッププログラムを実行します。　コマンド：@WEB/SETTPWD パスワード入金確認後にもう一度メールでパスワードをお知らせ致します。以下の処理を行ってください。 ① セットアッププログラムを実行します。　コマンド：@WEB/SETPPWD パスワード

７．作業ファイルの削除 ① セーブファイルの削除を行います。　コマンド：DLTF QGPL/IWEBRPG ② ＰＣ内のファイルを削除します。　ダウンロードファイルを削除してください。８．ライブラリーリストのユーザー部分の変更 ① ＠ＷＥＢライブラリーをライブラリーリストに追加します。　コマンド：WRKSYSVAL QUSRLIBL 　ライブラリーリストの変更が出来るので先頭に＠ＷＥＢを追加してください。　設定後、初期ライブラリーに＠ＷＥＢが追加されます。９．ＨＴＴＰ構成の変更 ① ＨＴＴＰサーバーが稼動中の場合は、サーバーを終了させます。　コマンド：ENDTCPSVR SERVER(*HTTP) 　ＨＴＴＰサーバーが終了します。 ② 既存のファイルに以下のものを追加もしくは変更してください。　すでに定義してあればそのままで結構です。　このファイルにはＨＴＴＰサーバーの動作を規定する命令（ディレクティブ）が書かれます。　コマンド：WRKHTTPCFG 　・CCSID DIRECTIVESを追加します。 DefaultFsCCSID 5035 DefaultNETCCSID 0932 　を追加。　・MAPPING DIRECTIVESを追加します。 Exec /@WEB/* /QSYS.LIB/@WEB.LIB/* 　を追加。　・PASS DIRECTIVESを追加します。 Pass /@WEB-DOC/* /UPLD/* 　を追加。　　次頁に参考として記述があります。

　　参考テキスト（一部だけ記述） #------------------------------------------------------ # AS/400 INTERNET CONNECTION SERVER CONFIGURATION # AXEL CORP,. #------------------------------------------------------ # #*** HOSTNAME DIRECTIVES *** # HostName www.axel-net.co.jp # #*** CCSID DIRECTIVES *** # DefaultFsCCSID 5035 DefaultNETCCSID 0932 # #*** PORT DIRECTIVES *** # Port 80 # #*** METHOD DIRECTIVES *** # Enable GET Enable HEAD Enable POST # #*** MAPPING DIRECTIVES *** # Exec /@WEB/* /QSYS.LIB/@WEB.LIB/* Pass /@WEB-DOC/* /UPLD/* ③ 次にＨＴＴＰサーバーを起動させます。　コマンド：STRTCPSVR SERVER(*HTTP) 　これで追加、変更した設定が有効になります。

１０．その他導入及び初期作業での注意点 １０－１．web適用業務のライブラリーの作成 web適用業務で使うライブラリーでアプリケーションの開発を行いますが、実行環境やＩＦＳパス　の設定を WRKHTTPCFG にて行う必要があります。　例えば、ライブラリー CGILIB を実行環境として登録し、ＩＦＳパス CONTENTS を設定する場合。　①　コマンド：WRKHTTPCFG 　②　#*** MAPPING DIRECTIVES *** に Exec /CGI-BIN/* /QSYS.LIB/CGILIB.LIB/* 　を追加。 /CGI-BIN/ は、本当の構成を web 上に表示させないために仮名として設定します。　③　# Pass /* /HTML/* に Pass /CONT-DOC/* /CONTENTS/*　を追加。 / CONT-DOC / は、本当の構成を web 上に表示させないために仮名として設定します。　以上の設定を行えば、実行プログラムやＩＦＳパスが web 上で使用可能となります。　手順は９．ＨＴＴＰ構成の変更　と同じ方法です。１０－２．ソースファイルの作成　各ＡＰＩは英語大文字・小文字を区別するので、ソースファイル作成時（CRTSRCPF）に　パラメータＣＣＳＩＤで 5035 を指定します。　例。ライブラリー：CGILIB、ソースファイル：QHTMSRC とした場合 CRTSRCPF FILE(CGILIB/QHTMSRC) RCDLEN(112) IGCDTA(*YES) CCSID(5035) １０－３．５２５０エミュレータ（Ｐ－ＣＯＭ）の設定　５２５０エミュレータも英小文字が扱えるように設定（ＰＣ５２５０ではホストコードページとして『939 日本語英数小文字拡張』を指定）　この設定を行うと、半角カナ文字が文字化します。コントロール＋Ｆ３にて 930 日本語英数ｶﾅ　の表示切替が可能です。

Ⅲ．ｉ－ｗｅｂＲＰＧ　の使用方法 １．組込関数１－１．#GET_FORM （変数取得） #GET_FORMは、ブラウザから入力された変数をプログラム内に読込みます。次の形式で使用します。 #GET_FORM(field:option) fieldはHTMLの変数名を指定します。 optionはブランク/１/９を指定します。次の例では、入力項目のＨＴＭＬ上での変数名を、CODE,HINMEIとし変数値はそれぞれ ‘0001’,‘品名’として、パラメータによる戻り値を示します。環境変数には CODE=0001&HINMEI=%B1%B2%B3%B4　というデータが渡ってきます。　　例１）パラメーター : field = 'CODE' / option = *BLANK戻り値　: 0001: 指定された変数名の値のみを EBCDIC に変換して返す例２）パラメーター : field = *BLANK / option = *BLANK戻り値　: CODE=0001&HINMEI= 品名 &: 環境変数で取得した変数を全て EBCDIC に変換して返す例３）パラメーター : field = 'CODE' / option = '1'戻り値　: CODE=0001&: 指定された変数名と変数値 EBCDIC に変換して返す例４）パラメーター : field = *BLANK / option = '9'戻り値　: CODE=0001&HINMEI=%B1%B2%B3%B4: 環境変数で取得した変数を全て無変換で返す例５）パラメーター : field = 'HINMEI' / option = '9'戻り値　: HINMEI=%B1%B2%B3%B4: 環境変数で取得した変数を全て無変換で返す　実際のコーディングは以下のように記述されます。　Ｄ仕様書に以下の文を追加します。 D #GET_FORM PR 2000 EXTPROC('#GET_FORM')D 10 VALUED 1

　Ｃ仕様書にて使用する際以下のように使用します。 　例　ＨＴＭＬファイルでのフィールド名を CODE とする。　　　フィールド長は４バイトとする。　　　ＷＥＢにて入力された値は ‘0001’とする。 C CLEAR field 10C CLEAR option 1C MOVEL(P) ‘CODE' fieldC EVAL W_CODE = #GET_FORM(field:option) field パラメーターに ‘CODE’をセットします。 option パラメーターにはブランクをセットしておきます。 W_CODE には ‘0001’が入ってきます。取得したい変数が複数ある場合は、続けて#GET_FORMを　使用してください。　また開発時にプログラムデバッグする際の機能として、環境変数の替わりにデータエリアから変数　データを取得して、後続処理の確認を行うことが可能です。　使用方法　①　ＱＴＥＭＰに『ＴＳＴＤＴＡ』というデータエリアを作成します。　　　データエリアの長さは２０００バイトです。　　　コマンド：CRTDTAARA DTAARA(QTEMP/TSTDTA) TYPE(*CHAR) LEN(2000) 　②　データエリアに変数を入力します。　　　コマンド：CHGDTAARA 　　　データは、フィールド名＝変数値　となり、複数ある場合は間に‘＆’をつけてください。　　　データ内容（例）　　　得意先コード（TOKUCD）、得意先名（TOKUNM）とする。 TOKUCD=00000001&TOKUNM=ＡＸＥＬ商店　③　対象のプログラムを、通常のプログラムをデバッグするのと同じように処理を行ってください。　　　注：この機能は、ＱＴＭＨＨＴＴＰ以外のユーザーでなければ働きません。

１－２．#OUT_HTML （ＨＴＭＬ書き出し） プログラム外部で定義されたＨＴＭＬファイルを読み込み、ブラウザーに書き出します。この際、ＨＴＭＬファイル内に置換の指定がある場合、プログラム内の変数の値で置き換えてから、書き出します。次の形式で使用します。 CALLB ‘#OUT_HTML’PARM LIB 10 ＨＴＭＬライブラリーPARM FIL 10 ＨＴＭＬファイル PARM MBR 10 ＨＴＭＬメンバーPARM DATA 2000 置換定義　実際のコーディングは以下の様に記述します。　Ｃ仕様書にて使用する際以下のように使用します。例　出力対象のＨＴＭＬファイルは、　　ライブラリー：QCGILIB　　ファイル　　：QHTMSRC　　メンバー　　：AP0010H　　とする。　　ＷＥＢに出力する変数項目は、　　得意先名 'TOKUNM' 　　住所　　‘TOKADR’　とする。 C EVAL DATA = 'TOKUNM=' + %TRIM(TKTOKNAM) +C %TRIM('&') +C 'ADR=' + %TRIM(TKTOKADR) +C %TRIM('&')C CALLB '#OUT_HTML'C PARM 'CGILIB’ LIB 10C PARM 'QHTMSRC’ FIL 10C PARM ‘AP0010H’ MBR 10C PARM DATA 2000 DATA パラメーターには、変数の名前＝変数＆　とセットします。

ＨＴＭＬ文は以下のように記述します。 CONTENT-TYPE: TEXT/HTML <HTML><BODY>　　　　　　（省略）<TABLE> <TR> <TD> 得　意　先 </TD> <TD> 住　　　所 </TD> </TR> <TR> <TD>&&TOKUNM</TD> <TD>&&ADR</TD> </TR></TABLE></BODY></HTML> から の間が　置換操作の対象となります。<TD>&&TOKUNM</TD> には TKTOKNAM の値が入り<TD>&&ADR</TD> には TKTOKADR の値がそれぞれ入ります。　置換項目は &&変数名で記述してください。

１－３．ＨＴＭＬの規則 　　　ｉ－ｗｅｂＲＰＧでは、ブラウザーに出力されるＨＴＭＬをプログラムの外部に、　　　ソースファイルの形式で定義します。　　　そして、そのソースファイル内のＨＴＭＬの一部をプログラムの変数で置換して　　　最終的に、ブラウザーに出力します。　　　このため、通常のＨＴＭＬのルールのほかに、幾つかのルールが追加されています。　　　このルールは、ｉ－ｗｅｂＲＰＧ内だけの特別なルールです。　　　１－３－１．単純な変数置換　　ＨＴＭＬ文は以下のように記述します。プログラム内変数 TOKUNM=“あいうえお” ＨＴＭＬファイル得意先名は&&TOKUNM #OUT_HTML 書き出されるＨＴＭＬ得意先名は“あいうえお” 　　＆＆変数名で記述した部分は、変数の内容に置換されます。　１－３－２．代替変数置換　　リテラルを記述する事により、リテラルの部分が、変数の内容で置換されます。プログラム内変数 TOKUNM=“あいうえお” ＨＴＭＬファイル＜TD＞＜FLD=“TOKUNM"＞AB9876＜/FLD＞ #OUT_HTML 書き出されるＨＴＭＬ＜TD＞あいうえお

　１－３－３．変数置換の範囲 　　変数置換処理は、＜!-- FLDREPSTART --＞　と、＜!-- FLDREPEND --＞　　の間に挟まれた部分に対してのみ行われます。　　これは、置換処理がコンピューターの資源を大量に必要とするので、　　置換処理の範囲を最低限に留める為です。　　置換処理をＨＴＭＬに使用する場合、十分に配慮をする必要があります。　１－３－４．＃ＯＵＴ＿ＨＴＭＬが無視＜!-- IGNORESTART --＞　と、＜!-- IGNOREEND --＞　　の間に挟まれた部分は、ブラウザーには書き出されません。　１－３－５．コマンドの実行＜!-- #EXEC CMD=“コマンド”--＞　と記述されると、記述された場所で、　　コマンドが呼び出され実行されます。　　例えば、＜!-- #EXEC CMD=“CALL DTLSET” --＞と記述すると、　　プログラム　DTLSET　が実行されます。この機能を用いて、行数が可変なテーブルの出力などを　　行う事が出来ます。　１－３－６．コマンドの実行２＜!-- #EXEC CMD2=“コマンド”--＞　と記述されると、記述された場所で、　　コマンドが呼び出され実行されます。コマンドにパラメーターがあり、そのパラメーターが　　変数を使用する場合に使用します。　　例えば、＜!-- #EXEC CMD2=“CALL DTLSET PARM(‘&&CODE’)” --＞と記述すると、　　変数 &&CODE の値が置換わり、プログラム　DTLSET　が実行されます。　　

１－３．#STD_OUT （ＨＴＭＬ書き出し） プログラム中にて作成されたＨＴＭＬ文を、ブラウザーに書き出します。次の形式で使用します。 CALLB ‘#STD_OUT’PARM OUT 2048 文字列　実際のコーディングは以下の様に記述します。　Ｃ仕様書にて使用する際以下のように使用します。例　ＷＥＢに出力する変数項目は、　　得意先名 'TOKUNM' 　　住所　　‘TOKADR’　とする。 D* コンパイル時配列 DHTM S 80 DIM(52) PERRCD(1) CTDATA D* 改行コード DNL C x'15' * ◆ＨＴＭＬ文作成◆ C DO 52 i 3 0 C EVAL OUT = %TRIM(OUT) + %TRIM(HTM(i)) + C %TRIM(NL) * ◆標準出力◆ C IF i = 25 OR C i = 52 C CALLB '#STD_OUT' C PARM OUT 2048 C CLEAR OUT C ENDIF C ENDDO C SETON LR C RETURN 　コンパイル時配列は次頁へ #STD_OUT は、一度に2048バイト分までのＨＴＭＬ文を出力することが出来ます。　例では、途中まで OUT パラメーターにＨＴＭＬ文をためて出力させています。　一行のＨＴＭＬ文の最後に必ず、改行コードをセットしてください。

コンパイル時配列 ** CTDATA HTML ******************************************* CONTENT-TYPE: TEXT/HTML <HTML> <HEAD> <TITLE> 得意先照会 </TITLE> </HEAD> <BODY bgcolor="lightGrey"> <FORM name="FORM1" method="GET" action="HTTP://WWW1.AXEL.NE.JP/CGI-BIN/AP0040.PGM">  <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>  <CENTER> <TABLE border="0"> <TR> <TD><FONT size="2"> 得意先 </TD> <TD><INPUT type="TEXT" name="TOKUCD" maxlength="6"></TD> </TR> </TABLE> </CENTER><BR><BR> <CENTER> <TABLE border="0"> <TR><TD><INPUT type="SUBMIT" value=" 実行 "></TD></TR> </TABLE> </CENTER> </FORM> </BODY> </HTML>

２．コマンド ２－１．CRTWEBRPG （コンパイル）　ＣＧＩプログラムをコンパイルする際に使用すると、便利なコマンドです。　モジュールの作成とプログラムの作成を一度に行います。パラメーター　　プログラム . . . . . . . . . . > PGMID 名前　　ライブラリー . . . . . . . . > LIB 名前 , *LIBL 　　ソースファイル . . . . . . . . > SRCFILE 名前　　ライブラリー . . . . . . . . > SRCLIB 名前 , *LIBL　　モジュール . . . . . . . . . . > MODNAME 名前 , *PGM　　ライブラリー . . . . . . . . > MODLIB 名前 , *LIBL , *CURLIB　　バインドディレクトリー . . . . > BNDDIR 名前　　ライブラリー . . . . . . . . > @WEB 名前 , *LIBL , *CURLIB 　上から順に　プログラム：作成するプログラム名称　ライブラリー：作成するプログラムのライブラリー　ソースファイル：コンパイルするプログラムソース　ライブラリー：ソースファイルのライブラリー　モジュール：モジュールの名称　ライブラリー：モジュールのライブラリー　バインドディレクトリ：バインドするバインドディレクトリ名　ライブラリー：バインドディレクトリのライブラリー

２－２．CRTXLSF （エクセルファイル作成） 　ＣＳＶファイルよりエクセルファイルをＩＦＳのディレクトリに作成します。　ＣＳＶファイルはレコード長５０００バイトで作成してください。パラメーター　　ＣＳＶＦ . . . . . . . . . . . CSVFILE 名前　　ライブラリー . . . . . . . . *LIBL 名前 , *LIBL　　メンバー . . . . . . . . . . *FIRST 名前 , *FIRST　　ＸＬＳＦのパス . . . . . . . . （８０バイト）　　タイトル . . . . . . . . . . . （５０バイト）　　見出し . . . . . . . . . . . . （２０バイト）　　値の続きは＋（５０項目まで可）上から順に　ＣＳＶＦ：対象のＣＳＶファイル名　ライブラリー：ＣＳＶファイルのライブラリー　メンバー：ＣＳＶファイルのメンバー名　ＸＬＳＦのパス：エクセルファイル名を含めたのＩＦＳパスを指定　タイトル：エクセル画面表示の際のタイトルをセット　見出し：エクセル画面表示の際の見出しをセット注）このコマンドで作成されたファイルをウェブブラウザに表示させるのはEXCEL97以上で推奨しております。

宛先 . . . . . . . . . . . . . （８０桁）件名 . . . . . . . . . . . . . （８０桁）メール本文ファイル . . . . . . 名前ライブラリー . . . . . . . . *LIBL 名前 , *LIBL メンバー . . . . . . . . . . *FIRST 名前 , *FIRST 発信元 . . . . . . . . . . . . メールサーバー . . . . . . . . 　　（８０桁）添付ファイル . . . . . . . . . *NONE （８０桁）２－３．SENDMAIL （ＡＳ４００からメール送信） IBM 社の AS/400 上で動く、5250 グリーンスクリーン画面で実行可能なメール・クライアントです。　メールを利用するプログラム開発をサポートするツールです。　パラメーター　上から順に　宛先：メール送信先の E-MAIL アドレスを指定してください。　件名：メールに件名が表示されます。　メール本文ファイル：送信するメンバーを含むソースファイル名をいれてください。　　　　　　　　　　　ソースファイルは９２バイトのレコード長で作成してください。　ライブラリー　メンバー　発信元：ご自身の E-MAIL アドレスを指定してください。　メールサーバー：メールサーバーのアドレスをいれてください。　添付ファイル：メールに添付したい IFS 上のファイルをパス付きで入れてください。　　　　　　　　未入力の場合は *NONE が表示されます。　注意！　　このコマンドを使用する際は、実行環境のＣＣＳＩＤが５０３５であるのをご確認ください。　　件名が文字化けする恐れがあります。

３．ユーティリティー ３－１．FILE UPLOAD（ＩＦＳへのファイルアップロード）　　＠ＷＥＢツールのアップロードサービスプログラムを使用して、ＡＳ４００へのアップロードが可能です。ご使用前に　　まず、ＨＴＭＬファイルを一部修正します。以下のコマンドを入力して下さい。コマンド：STRSEU SRCFILE(@WEB/QHTMSRC) SRCMBR(AP0010) OPTION(2) STRSEU SRCFILE(@WEB/QHTMSRC) SRCMBR(AP0020) OPTION(2) <FORM name="FORM1" method="GET" action="HTTP://XXXXXXXXXXX//@WEB/AP0020.PGM" onSubmit="return inchk()"> 　　この『 XXXXXXXXXXX 』の部分にTCP/IPドメインを入力してください。　　修正したら保存して終了してください。使用方法　ブラウザに以下のＵＲＬを入力して下さい。xxxxxxxxxxx の部分はTCP/IPドメインを入力して下さい。 http://xxxxxxxxxxx/@WEB/AP0010.PGM 　①　第一画面で入力項目が２つあります。　　　ＩＦＳのディレクトリ名称とキー桁見出しです。　　　ＩＦＳのディレクトリ名称は、＠ＷＥＢにて提供のＩＦＳディレクトリ ‘UPLD’の　　　下位レベルにて作成されるディレクトリの名称をここで入力します。　　　ネーミングはＡＳ４００での物理ファイル名やライブラリー名などの名前をつける時の　　　ルールに準じます。　頭は半角英文字にて入力して下さい。　　　キー桁見出しは、次画面のキー項目を表示する際の見出しになります。　　　実行ボタンを押すと次画面が表示されます。

　③　明細画面ではキー入力項目、ファイル名（パス）＊３、備考＊３が表示されます。　　　キー項目には、キーになる変数を入力して下さい。　　　ファイル名は、参照ボタンを押すとファイルの選択画面が表示されるので、　　　そこから選択してください。　　　備考は、必須入力ではありません。　　　実行ボタンを押すと、ファイルがＡＳ４００のＩＦＳディレクトリ ‘UPLD’の　　　指定ディレクトリにアップロードされます。

３－１．UPLOAD TO PF（ファイルをＱＳＹＳへアップロード）　　＠ＷＥＢツールのアップロードサービスプログラムを使用して、　　ＡＳ４００のＱＳＹＳへアップロードが可能です。ご使用前に　　まず、ＨＴＭＬファイルを一部修正します。以下のコマンドを入力して下さい。コマンド：STRSEU SRCFILE(@WEB/QHTMSRC) SRCMBR(AP0060) OPTION(2) <FORM name="FORM1" method="POST“ action="HTTP://XXXXXXXXXXXXXXX/@WEB/AP0070.PGM" ENCTYPE="multipart/form-data" onSubmit="return inchk()"> この『 XXXXXXXXXXX 』の部分にTCP/IPドメインを入力してください。　　修正したら保存して終了してください。使用方法　ブラウザに以下のＵＲＬを入力して下さい。xxxxxxxxxxx の部分はTCP/IPドメインを入力して下さい。 http://xxxxxxxxxxx/@WEB/ULTOPF.PGM 　　　上記の画面が出力されます。

送信元の設定を行います。 ①　ＰＣファイルのパスを入力します。参照ボタンでファイルの選択が可能です。送信先（ＡＳ）の設定を行います。 ①　ファイル：既存もしくは新規の名前を入力してください。　　ソースファイルの場合は、アップロード用のソースファイルを予め用意しておきます。例）コマンド：CRTSRCPF FILE(TESTLIB/QUPLDSRC) RCDLEN(240) IGCDTA(*YES) TEXT(‘アップロード用ソースファイル ’) 　　ファイルを作成したら、WEKOBJ ライブラリー名/ファイル名　を実行します。　　オプション‘２’で権限の編集を行います。　　ユーザー‘*PUBLIC’のオブジェクト権を‘*ALL’に変更してください。　　ＨＴＴＰサーバーの権限は最小限なので、既存のソースファイルへアップロードをかけようとしても、　　うまくいきません。予めアップロード用のソースファイルを作成しておく必要があります。 ②　ライブラリー：既存のライブラリー名を入力して下さい。 ③　メンバー：既存もしくは新規の名前を入力してください。データの場合、ファイル名と同じ名前の場合は　　‘*FIRST’でもかまいません。 ④　テキスト：テキストをここで入力します。

⑤　ソース仕様タイプ：ソースとしてアップロードする場合、入力して下さい。⑤　ソース仕様タイプ：ソースとしてアップロードする場合、入力して下さい。　　例）TXT,HTM ⑥　ファイル形式：ソース、データどちらかを選択します。　　データの場合は、ＡＳ側には５０００バイトのレコード長でファイルが作成されます。　　それ以上の長さになるデータがあった場合は、途中でデータが欠落しますのでご了承ください。　　 ⑦　データの置換え：既存のデータの後ろから追加したい場合は、‘追加’、置換の場合は　　‘置換’を選択してください。新規作成の場合は、どちらで選択しても作成されます。 ⑧　入力が完了したら、『送信』ボタンを押してください。アップロードが開始されます。　　アップロードが終了したら、完了画面が表示されます。

３－３．HTMDRV （ＨＴＭＬ作成補助） 　簡単なＷＥＢアプリケーションを作成する際、このツールを使用することにより、　より簡単にＣＧＩプログラムを作成することが出来ます。　初期画面を表示させる際のＵＲＬ記述 http://xxxx.xxxx.xx.xx/@WEB/HTMDRV.PGM?PGMID=XXXXXXX HTMDRVはＨＴＭＬ作成補助ツール名? から後ろの PGMID=XXXXXXX はキー画面出力ＨＴＭＬファイル名を入力する　このように入力すると、キー画面が表示されます。　ＨＴＭＬ文は以下のように記述します。 CONTENT-TYPE: TEXT/HTML<HTML><BODY><FORM name=”XXXXXX” method=”GET” action=http://xxxx.xxxx.xx.xx/@WEB/HTMDRV.PGM><input type="hidden" name="PGMID" value="XXXXXXXXXX">　　　　　　　　　　　（省略）<TABLE> <TR> <TD> 得意先 </TD> <TD><INPUT type="TEXT" name="KEY" maxlength="6"></TD> </TR></TABLE> action で実行するプログラムのＵＲＬを記述をしますが固定で@WEB/HTMDRV.PGM を入れてください。の下で指定している <input> のvalue には、ユーザーが用意したプログラムを記述してください。　入力項目の部分（例の場合は得意先）の <input> のname は固定で “KEY”と入力して下さい。　その他の部分は、通常のＨＴＭＬルールに従ってコーディングしてください。

ユーザープログラム（例） * 得意先マスターFTOKUF IF E K DISK PREFIX(TK) * パラメーターC *ENTRY PLISTC PARM P_KEY 1000 キー群C PARM P_RTDATA 2000 返し変数 *C CALL 'EXTKEY'C PARM LRKB 1 ＬＲ区分C PARM P_KEY KEY 1000 キー群C PARM RTDATA 1000 返し変数C MOVEL(P) RTDATA W_TOKUCD 10C W_TOKUCD CHAIN TOKUFR 90C EVAL P_RTDATA = 'TOKUNM=' + %TRIM(TKTOKNAM) + 得意先名C %TRIM('&') +C 'ADR=' + %TRIM(TKTOKADR) + 住所C %TRIM('&')C SETON LRC RETURN 補助ツールからパラメーターが渡ってくるので指定します。1000 バイトのキー値が入ってくるパラメーターと2000 バイトの補助ツールに返す変数のパラメーターを指定します。キーの抜き出し処理は、EXTKEYというプログラム（＠ＷＥＢ提供プログラム）で行います。ＬＲ区分パラメーターは、データの終了時に ‘E’がセットされます。通常は、ブランクをセットしておきます。キー群パラメーターは補助ツールから取得したキー群データを最初にセットしておきます。２回目以降は、セットしません。返し変数パラメーターは、取得したキーデータがセットされます。キーが複数ある場合は、このプログラムを繰り返しＣＡＬＬして下さい。一つずつＨＴＭＬの記述順にキーデータが取得できます。パラメーターセット方法は、変数の名前=変数値& です。複数セットする場合は、’&’の後ろに続けてセットしてください。ユーザープログラムから渡された変数を使用して表示するＨＴＭＬファイルの名称は、ユーザープログラム名称と同じにしてください。 EX)ユーザープログラムが『PGM01』の場合、ＨＴＭＬは『PGM01』・開発環境について　ＨＴＭＬ作成補助ツールを使用する場合は、ライブラリーは CGILIB で開発してください。　ＨＴＭＬファイルは、 CGLIB/QHTMSRC で作成してください。　ＨＴＭＬ作成補助ツールは固定で、ＣＧＩＬＩＢのプログラムと QHTMSRC で作成された　ＨＴＭＬファイルを探しにいきます。

Ⅳ．サンプルプログラム ｉ－ｗｅｂＲＰＧのサンプルを入れてあるので、参考にして下さい。得意先照会がサンプルとしてQSMPSRCに入っています。１．＠ＷＥＢツールを使用してＣＧＩプログラムを作成１－１．キー画面表示処理キー画面プログラム：ＳＰ００１０ ************************************************************************** * メイン ************************************************************************** * ◆標準出力◆ C CALLB '#OUT_HTML' C PARM 'XXXXXX' LIB 10 ライブラリ名 C PARM 'XXXXXXX' FIL 10 ファイル名 C PARM 'SP0010H' MBR 10 メンバー名 C PARM DATA 2000 変数 * * ◆終了◆ C SETON LR C RETURN ＠ＷＥＢツール提供の標準出力プログラムをＣＡＬＬＢにて呼び出します。 “LIB”パラメータには、ＨＴＭＬ文が書かれたソースが入っているライブラリを指定します。 “FIL”パラメータは、ＨＴＭＬ文が書かれたソースが入っているファイル名を指定します。 “MBR”パラメータには、ＨＴＭＬ文が書かれたメンバー名を指定します。 “DATA”パラメータはここでは使用しません。変数データをセットする際に使用します。

１－２．キー画面用ＨＴＭＬソース 必ず記述してくださいこの後にはブランク行を入れてください。ＨＴＭＬソース（ＳＰ００１０Ｈ） CONTENT-TYPE: TEXT/HTML <HTML> <HEAD> <TITLE> 得意先照会 </TITLE> </HEAD> <BODY bgcolor="lightGrey"> <FORM name="FORM1" method="GET" action="HTTP://XXX.XXXX.XX.XX/XXXX/SP0020.PGM">  <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>  <CENTER> <TABLE border="0"> <TR> <TD><FONT size="2"> 得意先 </TD> <TD><INPUT type="TEXT" name="TOKUCD" maxlength="6"></TD> </TR> </TABLE> </CENTER><BR><BR> <CENTER> <TABLE border="0"> <TR><TD><INPUT type="SUBMIT" value=" 実行 "></TD></TR> </TABLE> </CENTER> </FORM> </BODY> </HTML> <FORM> ～ </FORM> の間にある <INPUT>タグで指定したフィールドの変数値が渡されます。ここでは、“ＴＯＫＵＣＤ”の値が渡されます。（イメージ：TOKUCD=入力した値）

１－３．明細画面表示処理 明細画面プログラム：ＳＰ００２０ * 得意先マスター FTOKUI IF E K DISK PREFIX(TK) ************************************************************************** * 得意先マスターの構成 * TOKCD 10A COLHDG(' コード ') * TOKNAM 30O COLHDG(' 得意先名 ') * TOKADR 30O COLHDG(' 得意先住所 ') * * キーは TOKCOD ************************************************************************** * データ構造（ＤＳ） ************************************************************************** * ＠ＷＥＢツールの定義 * * 変数取得 (GET) D #GET_FORM PR 2000 EXTPROC('#GET_FORM') D 10 VALUE D 1 ＠ＷＥＢツールを使用します。 GET_FORM は、環境変数を取得し、キーデータを返すプログラムです。 2000バイトのパラメータは出力パラメータです。変数値が返ってきます。 10バイトのパラメータは入力パラメータです。取得したい変数の名前をセットします。 1バイトのパラメータは入力パラメータです。返ってくる変数値のパターンをここで指定します。今回は、ブランクをセットします。

明細画面プログラム：ＳＰ００２０ ************************************************************************** * メイン ************************************************************************** * ◆環境変数より入力情報取得◆ C CLEAR W_TOKUCD 10 C CLEAR field 10 C CLEAR option 1 * 得意先 C MOVEL(P) 'TOKUCD' field C EVAL W_TOKUCD = #GET_FORM(field:option) * * ◆得意先マスターより情報を取得◆ C W_TOKUCD CHAIN TOKUIR 90 * データがなかったらエラー画面表示 C IF *IN90 = *ON C MOVEL(P) 'AP9999' @@PGMID * データがあれば変数を置き換えるパラメータにセット C ELSE C EVAL DATA = 'TOKUNM=' + %TRIM(TKTOKNAM) + 得意先名 C %TRIM('&') + C 'ADR=' + %TRIM(TKTOKADR) + 住所 C %TRIM('&') C ENDIF * * ◆標準出力◆ C CALLB '#OUT_HTML' C PARM 'XXXXXX' LIB 10 ライブラリ名 C PARM 'XXXXXXX' FIL 10 ファイル名 C PARM ‘SP0020H’ MBR 10 メンバー名 C PARM DATA 2000 変数 * * ◆終了◆ C SETON LR C RETURN ここで得意先コードを取得します。 Fieldに‘TOKUCD’とセットします。 Optionは今回はブランクです。 W_TOKUCDに変数値がセットされます。＠ＷＥＢツールの#OUT_HTMLのパラメータ “DATA”に変数定義をセットします。データ上はこうなります。 TOKUNM=（株）○○システム&ADR=○○市○区２－○－３& 変数の名前=変数&というルールです。複数項目の場合は、& の後に続けてセットしてください。

１－４．明細画面用ＨＴＭＬソース ＨＴＭＬソース（ＳＰ００２０Ｈ） 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>  <CENTER> <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>  </TR> </TABLE> </CENTER> </BODY> </HTML> 斜体の部分 &&TOKUNM と&&ADR が＠ＷＥＢツールの#OUT_HTMLの “DATA”パラメータにセットし、置換処理が行われるフィールドです。置換処理が行われる範囲は、 との間です。置換対象は &&変数名で記述します。例えば… &&TOKUNM は（株）○○システム &&ADR は ○○市○区２－○－３実際は上記のように置き換わります。 とはＷＥＢのＨＴＭＬ文には記述されません。

１－５．エラー面用ＨＴＭＬソース ＨＴＭＬソース（ＳＰ９９９９Ｈ） 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><BR>  <CENTER> <HR SIZE="3" WIDTH="360"> <TABLE border="0"> <TR><TD><FONT size="3"> 入力された得意先がありません </TD></TR> </TABLE> <HR SIZE="3" WIDTH="360"> </CENTER> </BODY> </HTML>

２．ＨＴＭＬ作成補助ツールを使用してＣＧＩプログラムを作成２．ＨＴＭＬ作成補助ツールを使用してＣＧＩプログラムを作成２－１．ＵＲＬ入力ＵＲＬを入力しキー画面を出力させる http://xxx.xxxx.xx.xx/xxxx/QHTMDRV.PGM?PGMID=AP0030H ＨＴＭＬ作成補助ツール名キー画面出力ＨＴＭＬファイル名

２－２．キー画面用ＨＴＭＬソース ＨＴＭＬソース（ＳＰ００３０Ｈ） CONTENT-TYPE: TEXT/HTML <HTML> <HEAD> <TITLE> 得意先照会 </TITLE> </HEAD> <BODY bgcolor="lightGrey"> <FORM name="FORM1" method="GET" action="HTTP://xxx.xxxx.xx.xx/@WEB/HTMDRV.PGM">  <input type="hidden" name="PGMID" value=“SP0040">  <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>  <CENTER> <TABLE border="0"> <TR> <TD><FONT size="2"> 得意先 </TD> <TD><INPUT type="TEXT" name="KEY" maxlength="6"></TD> </TR> </TABLE> </CENTER><BR><BR> <CENTER> <TABLE border="0"> <TR><TD><INPUT type="SUBMIT" value=" 実行 "></TD></TR> </TABLE> </CENTER> </FORM> </BODY> </HTML> ＨＴＭＬ作成補助ツールのプログラムを指定します。変数項目セットプログラムを指定します。明細表示ＨＴＭＬファイル名はこの名前と同じにしてください。この部分が、ＨＴＭＬ作成補助ツールのプログラムに渡ります。

ＨＴＭＬ作成補助ツールからパラメータが渡ってきます。ＨＴＭＬ作成補助ツールからパラメータが渡ってきます。キー群パラメータは、１つもしくは複数のキーの値が入っています。今回は、得意先コードのみが入っています。返し変数パラメータは、ＨＴＭＬ作成補助ツールに渡すパラメータです。変数項目を渡します。２－３．変数項目セットプログラム：ＳＰ００４０ * 得意先マスター FTOKUI2L01 IF E K DISK PREFIX(TK) ************************************************************************** * パラメータ ************************************************************************** C *ENTRY PLIST C PARM P_KEY 1000 キー群 C PARM P_RTDATA 2000 返し変数 ************************************************************************** * メイン ************************************************************************** * ◆キー取得◆ C CALL ‘QEXTKEY' C PARM LRKB 1 終了区分 C PARM P_KEY KEY 1000 キー群 C PARM RTDATA 1000 返し変数 C MOVEL(P) RTDATA W_TOKUCD 10 * * ◆得意先マスターより情報を取得◆ C W_TOKUCD CHAIN TOKUI2R 90 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 パラメータのセット方法と同じです。

２－４．明細画面用ＨＴＭＬソース ＨＴＭＬソース（ＳＰ００４０） 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>  <CENTER> <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>  </TR> </TABLE> </CENTER> </BODY> </HTML> ＳＰ００２０Ｈと記述は同じです。

ｉ - ｗｅｂ ＲＰＧ 使用者の手引き