PowerPoint プレゼンテーション

ｉ - ｗｅｂＲＰＧ
使用者の手引き
目次
Ⅰ．ｉ－ｗｅｂＲＰＧ
とは？
Ｐ．３
Ｐ．５～
Ⅱ．導入手順
Ⅲ．ｉ－ｗｅｂＲＰＧ
の使用方法
Ｐ．９～
１．組込関数
１－１．#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つコンポーネント
化されているので、必要な機能だけを既存プログラムに組み込むことができます。
3
１．組込関数
ＲＰＧプログラム内に組込み、ブラウザーとの入出力を行うための関数を提供します。
従来の５２５０画面プログラム、コーディングでの画面に対する、WRITE/READ/EXFMT 命令を
組込関数に置き換えたイメージで、webプログラムを作成できます。
関数は、次の２つです。
■ #GET_FORM
READ命令に当たる関数です。ブラウザーからの入力項目を読込みます。
■ #OUT_HTML
WRITE命令に当たる関数です。ブラウザーへの書き出しを行います。
２．コマンド
web適用業務を作成するのに必要ないくつかの機能をコマンド形式で提供します。
■ CRTWEBRPG （コンパイル）
ＣＧＩプログラムをコンパイルする際に使用すると、便利なコマンドです。
モジュールの作成とプログラムの作成を一度に行います。
■ CRTXLSF （エクセルファイル作成）
ＣＳＶファイルよりエクセルファイルをＩＦＳのディレクトリに作成します。
ＣＳＶファイルはレコード長５０００バイトで作成してください。
■ SENDMAIL （ＡＳ４００からメール送信）
IBM 社の AS/400 上で動く、5250 グリーンスクリーン画面で実行可能なメール・クライアントです。
メールを利用するプログラム開発をサポートするツールです。
３．ユーティリティー
webアプリケーションを補助するユーティリティーを提供します。
■ CRTXLSF （ＩＦＳへのファイルアップロード）
@WEBツールのアップロードサービスプログラムを使用して、ＡＳ４００へのアップロードが可能です。
■ HTMDRV
（ＨＴＭＬ作成補助）
簡単なＷＥＢアプリケーションを作成する際、このツールを使用することにより、
より簡単にＣＧＩプログラムを作成することが出来ます。
4
Ⅱ．導入手順
１．ダウンロード
① 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
・put C:\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 パスワード
5
７．作業ファイルの削除
① セーブファイルの削除を行います。
コマンド：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/*
を追加。
次頁に参考として記述があります。
6
参考テキスト（一部だけ記述）
#-----------------------------------------------------# 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)
これで追加、変更した設定が有効になります。
7
１０．その他導入及び初期作業での注意点
１０－１．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 日本語英数ｶﾅの表示切替が可能です。
8
Ⅲ．ｉ－ｗｅｂＲＰＧの使用方法
１．組込関数
１－１．#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
D
D
PR
2000
10
1
EXTPROC('#GET_FORM')
VALUE
9
Ｃ仕様書にて使用する際以下のように使用します。
例
ＨＴＭＬファイルでのフィールド名を CODE とする。
フィールド長は４バイトとする。
ＷＥＢにて入力された値は ‘0001’ とする。
C
C
C
C
CLEAR
field
10
CLEAR
option
1
MOVEL(P) ‘CODE'
field
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=ＡＸＥＬ商店
③
対象のプログラムを、通常のプログラムをデバッグするのと同じように処理を行ってください。
注：この機能は、ＱＴＭＨＨＴＴＰ以外のユーザーでなければ働きません。
10
１－２．#OUT_HTML （ＨＴＭＬ書き出し）
プログラム外部で定義されたＨＴＭＬファイルを読み込み、ブラウザーに書き出します。
この際、ＨＴＭＬファイル内に置換の指定がある場合、
プログラム内の変数の値で置き換えてから、書き出します。
次の形式で使用します。
CALLB
PARM
PARM
PARM
PARM
‘#OUT_HTML’
LIB
FIL
MBR
DATA
10
10
10
2000
ＨＴＭＬライブラリー
ＨＴＭＬファイル
ＨＴＭＬメンバー
置換定義
実際のコーディングは以下の様に記述します。
Ｃ仕様書にて使用する際以下のように使用します。
例
出力対象のＨＴＭＬファイルは、
ライブラリー：QCGILIB
ファイル
：QHTMSRC
メンバー
：AP0010H
とする。
ＷＥＢに出力する変数項目は、
得意先名 'TOKUNM'
住所
‘TOKADR’ とする。
C
C
C
C
C
C
C
C
C
EVAL
CALLB
PARM
PARM
PARM
PARM
DATA = 'TOKUNM=' + %TRIM(TKTOKNAM) +
%TRIM('&') +
'ADR='
+ %TRIM(TKTOKADR) +
%TRIM('&')
'#OUT_HTML'
'CGILIB’
LIB
10
'QHTMSRC’
FIL
10
‘AP0010H’
MBR
10
DATA
2000
DATA パラメーターには、変数の名前＝変数＆
とセットします。
11
ＨＴＭＬ文は以下のように記述します。
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 の値がそれぞれ入ります。
置換項目は &&変数名で記述してください。
12
１－３．ＨＴＭＬの規則
ｉ－ｗｅｂＲＰＧでは、ブラウザーに出力されるＨＴＭＬをプログラムの外部に、
ソースファイルの形式で定義します。
そして、そのソースファイル内のＨＴＭＬの一部をプログラムの変数で置換して
最終的に、ブラウザーに出力します。
このため、通常のＨＴＭＬのルールのほかに、幾つかのルールが追加されています。
このルールは、ｉ－ｗｅｂＲＰＧ内だけの特別なルールです。
１－３－１．単純な変数置換
ＨＴＭＬ文は以下のように記述します。
プログラム内変数
TOKUNM=“あいうえお”
ＨＴＭＬファイル
得意先名は&&TOKUNM
#OUT_HTML
書き出されるＨＴＭＬ
得意先名は“あいうえ
お”
＆＆変数名で記述した部分は、変数の内容に置換されます。
１－３－２．代替変数置換
リテラルを記述する事により、リテラルの部分が、変数の内容で置換されます。
プログラム内変数
TOKUNM=“あいうえお”
ＨＴＭＬファイル
＜TD＞＜FLD=“TOKUNM"＞AB9876＜/FLD＞
#OUT_HTML
書き出されるＨＴＭＬ
＜TD＞あいうえお
13
１－３－３．変数置換の範囲
変数置換処理は、
＜!-- FLDREP START --＞と、
＜!-- FLDREP END --＞
の間に挟まれた部分に対してのみ行われます。
これは、置換処理がコンピューターの資源を大量に必要とするので、
置換処理の範囲を最低限に留める為です。
置換処理をＨＴＭＬに使用する場合、十分に配慮をする必要があります。
１－３－４．＃ＯＵＴ＿ＨＴＭＬが無視
＜!-- IGNORE START --＞
＜!-- IGNORE END --＞
と、
の間に挟まれた部分は、ブラウザーには書き出されません。
１－３－５．コマンドの実行
＜!-- #EXEC CMD=“コマンド” --＞と記述されると、記述された場所で、
コマンドが呼び出され実行されます。
例えば、＜!-- #EXEC CMD=“CALL DTLSET” --＞と記述すると、
プログラム DTLSET が実行されます。この機能を用いて、行数が可変なテーブルの出力などを
行う事が出来ます。
１－３－６．コマンドの実行２
＜!-- #EXEC CMD2=“コマンド” --＞と記述されると、記述された場所で、
コマンドが呼び出され実行されます。コマンドにパラメーターがあり、そのパラメーターが
変数を使用する場合に使用します。
例えば、＜!-- #EXEC CMD2=“CALL DTLSET PARM(‘&&CODE’)” --＞と記述すると、
変数 &&CODE の値が置換わり、プログラム DTLSET が実行されます。
14
１－３．#STD_OUT （ＨＴＭＬ書き出し）
プログラム中にて作成されたＨＴＭＬ文を、ブラウザーに書き出します。
次の形式で使用します。
CALLB
PARM
‘#STD_OUT’
OUT
2048
文字列
実際のコーディングは以下の様に記述します。
Ｃ仕様書にて使用する際以下のように使用します。
例
ＷＥＢに出力する変数項目は、
得意先名 'TOKUNM'
住所
‘TOKADR’ とする。
D* コンパイル時配列
DHTM
S
D* 改行コード
DNL
C
* ◆ＨＴＭＬ文作成◆
C
DO
C
EVAL
C
* ◆標準出力◆
C
IF
C
C
CALLB
C
PARM
C
CLEAR
C
ENDIF
C
ENDDO
C
SETON
C
RETURN
80
DIM(52) PERRCD(1) CTDATA
x'15'
52
i
3 0
OUT = %TRIM(OUT) + %TRIM(HTM(i)) +
%TRIM(NL)
i = 25 OR
i = 52
'#STD_OUT'
OUT
OUT
2048
LR
コンパイル時配列は次頁へ
#STD_OUT は、一度に2048バイト分までのＨＴＭＬ文を出力することが出来ます。
例では、途中まで OUT パラメーターにＨＴＭＬ文をためて出力させています。
一行のＨＴＭＬ文の最後に必ず、改行コードをセットしてください。
15
コンパイル時配列
** 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>
16
２．コマンド
２－１．CRTWEBRPG （コンパイル）
ＣＧＩプログラムをコンパイルする際に使用すると、便利なコマンドです。
モジュールの作成とプログラムの作成を一度に行います。
パラメーター
プログラム . . . . . .
ライブラリー . . . .
ソースファイル . . . .
ライブラリー . . . .
モジュール . . . . . .
ライブラリー . . . .
バインドディレクトリー
ライブラリー . . . .
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
>
>
>
>
>
>
>
>
PGMID
LIB
SRCFILE
SRCLIB
MODNAME
MODLIB
BNDDIR
@WEB
名前
名前
名前
名前
名前
名前
名前
名前
, *LIBL
, *LIBL
, *PGM
, *LIBL , *CURLIB
, *LIBL , *CURLIB
上から順に
プログラム：作成するプログラム名称
ライブラリー：作成するプログラムのライブラリー
ソースファイル：コンパイルするプログラムソース
ライブラリー：ソースファイルのライブラリー
モジュール：モジュールの名称
ライブラリー：モジュールのライブラリー
バインドディレクトリ：バインドするバインドディレクトリ名
ライブラリー：バインドディレクトリのライブラリー
17
２－２．CRTXLSF （エクセルファイル作成）
ＣＳＶファイルよりエクセルファイルをＩＦＳのディレクトリに作成します。
ＣＳＶファイルはレコード長５０００バイトで作成してください。
パラメーター
ＣＳＶＦ . . . . . . . . .
ライブラリー . . . . . .
メンバー . . . . . . . .
ＸＬＳＦのパス . . . . . .
タイトル . . . . . . . . .
見出し . . . . . . . . . .
値の続きは＋
.
.
.
.
.
.
.
.
.
.
.
.
CSVFILE
*LIBL
*FIRST
名前
名前 , *LIBL
名前 , *FIRST
（８０バイト）
（５０バイト）
（２０バイト）
（５０項目まで可）
上から順に
ＣＳＶＦ：対象のＣＳＶファイル名
ライブラリー：ＣＳＶファイルのライブラリー
メンバー：ＣＳＶファイルのメンバー名
ＸＬＳＦのパス：エクセルファイル名を含めたのＩＦＳパスを指定
タイトル：エクセル画面表示の際のタイトルをセット
見出し：エクセル画面表示の際の見出しをセット
注）このコマンドで作成されたファイルをウェブブラウザに表示させるのは
EXCEL97以上で推奨しております。
18
２－３．SENDMAIL （ＡＳ４００からメール送信）
IBM 社の AS/400 上で動く、5250 グリーンスクリーン画面で実行可能なメール・クライアントです。
メールを利用するプログラム開発をサポートするツールです。
パラメーター
宛先 . . . . . . . . . . . . .
（８０桁）
件名 . . . . . . . . . . . . .
（８０桁）
メール本文ファイル
ライブラリー . .
メンバー . . . .
発信元 . . . . . .
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
*LIBL
*FIRST
メールサーバー . . . . . . . .
添付ファイル . . . . . . . . .
名前
名前 , *LIBL
名前 , *FIRST
（８０桁）
*NONE
（８０桁）
上から順に
宛先：メール送信先の E-MAIL アドレスを指定してください。
件名：メールに件名が表示されます。
メール本文ファイル：送信するメンバーを含むソースファイル名をいれてください。
ソースファイルは９２バイトのレコード長で作成してください。
ライブラリー
メンバー
発信元：ご自身の E-MAIL アドレスを指定してください。
メールサーバー：メールサーバーのアドレスをいれてください。
添付ファイル：メールに添付したい IFS 上のファイルをパス付きで入れてください。
未入力の場合は *NONE が表示されます。
注意！
このコマンドを使用する際は、実行環境のＣＣＳＩＤが５０３５であるのをご確認ください。
件名が文字化けする恐れがあります。
19
３．ユーティリティー
３－１．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’の
下位レベルにて作成されるディレクトリの名称をここで入力します。
ネーミングはＡＳ４００での物理ファイル名やライブラリー名などの名前をつける時の
ルールに準じます。頭は半角英文字にて入力して下さい。
キー桁見出しは、次画面のキー項目を表示する際の見出しになります。
実行ボタンを押すと次画面が表示されます。
20
③
明細画面ではキー入力項目、ファイル名（パス）＊３、備考＊３が表示されます。
キー項目には、キーになる変数を入力して下さい。
ファイル名は、参照ボタンを押すとファイルの選択画面が表示されるので、
そこから選択してください。
備考は、必須入力ではありません。
実行ボタンを押すと、ファイルがＡＳ４００のＩＦＳディレクトリ ‘UPLD’の
指定ディレクトリにアップロードされます。
21
３－１．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
上記の画面が出力されます。
22
送信元の設定を行います。
①
ＰＣファイルのパスを入力します。参照ボタンでファイルの選択が可能です。
送信先（ＡＳ）の設定を行います。
①
ファイル：既存もしくは新規の名前を入力してください。
ソースファイルの場合は、アップロード用のソースファイルを予め用意しておきます。
例）
コマンド：CRTSRCPF FILE(TESTLIB/QUPLDSRC) RCDLEN(240) IGCDTA(*YES)
TEXT(‘ アップロード用ソースファイル ’)
ファイルを作成したら、WEKOBJ ライブラリー名/ファイル名を実行します。
オプション‘２’で権限の編集を行います。
ユーザー‘*PUBLIC’のオブジェクト権を‘*ALL’に変更してください。
ＨＴＴＰサーバーの権限は最小限なので、既存のソースファイルへアップロードをかけようとしても、
うまくいきません。予めアップロード用のソースファイルを作成しておく必要があります。
② ライブラリー：既存のライブラリー名を入力して下さい。
③
メンバー：既存もしくは新規の名前を入力してください。データの場合、ファイル名と同じ名前の場合は
‘*FIRST’でもかまいません。
④
テキスト：テキストをここで入力します。
23
⑤
ソース仕様タイプ：ソースとしてアップロードする場合、入力して下さい。
例）TXT,HTM
⑥
ファイル形式：ソース、データどちらかを選択します。
データの場合は、ＡＳ側には５０００バイトのレコード長でファイルが作成されます。
それ以上の長さになるデータがあった場合は、途中でデータが欠落しますのでご了承ください。
⑦
データの置換え：既存のデータの後ろから追加したい場合は、‘追加’、置換の場合は
‘置換’を選択してください。新規作成の場合は、どちらで選択しても作成されます。
⑧
入力が完了したら、『送信』ボタンを押してください。アップロードが開始されます。
アップロードが終了したら、完了画面が表示されます。
24
３－３．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” と入力して下さい。
その他の部分は、通常のＨＴＭＬルールに従ってコーディングしてください。
25
ユーザープログラム（例）
* 得意先マスター
FTOKUF
IF E
* パラメーター
C
*ENTRY
C
C
*
C
C
C
C
C
C
W_TOKUCD
C
C
C
C
C
C
K DISK
PREFIX(TK)
PLIST
PARM
PARM
CALL
PARM
PARM
PARM
MOVEL(P)
CHAIN
EVAL
SETON
RETURN
P_KEY
P_RTDATA
1000
2000
キー群
返し変数
LRKB
KEY
RTDATA
W_TOKUCD
1
1000
1000
10
ＬＲ区分
キー群
返し変数
'EXTKEY'
P_KEY
RTDATA
TOKUFR
90
P_RTDATA = 'TOKUNM=' + %TRIM(TKTOKNAM) +
%TRIM('&') +
'ADR='
+ %TRIM(TKTOKADR) +
%TRIM('&')
LR
得意先名
住所
補助ツールからパラメーターが渡ってくるので指定します。
1000 バイトのキー値が入ってくるパラメーターと
2000 バイトの補助ツールに返す変数のパラメーターを指定します。
キーの抜き出し処理は、EXTKEY というプログラム（＠ＷＥＢ提供プログラム）で行います。
ＬＲ区分パラメーターは、データの終了時に ‘E’ がセットされます。
通常は、ブランクをセットしておきます。
キー群パラメーターは補助ツールから取得したキー群データを最初にセットしておきます。
２回目以降は、セットしません。
返し変数パラメーターは、取得したキーデータがセットされます。
キーが複数ある場合は、このプログラムを繰り返しＣＡＬＬして下さい。
一つずつＨＴＭＬの記述順にキーデータが取得できます。
パラメーターセット方法は、変数の名前=変数値& です。
複数セットする場合は、’&’の後ろに続けてセットしてください。
ユーザープログラムから渡された変数を使用して表示するＨＴＭＬファイルの名称は、
ユーザープログラム名称と同じにしてください。
EX)ユーザープログラムが『PGM01』の場合、ＨＴＭＬは『PGM01』
・開発環境について
ＨＴＭＬ作成補助ツールを使用する場合は、ライブラリーは CGILIB で開発してください。
ＨＴＭＬファイルは、 CGLIB/QHTMSRC で作成してください。
ＨＴＭＬ作成補助ツールは固定で、ＣＧＩＬＩＢのプログラムと QHTMSRC で作成された
ＨＴＭＬファイルを探しにいきます。
26
Ⅳ．サンプルプログラム
ｉ－ｗｅｂＲＰＧのサンプルを入れてあるので、参考にして下さい。
得意先照会がサンプルとして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”パラメータはここでは使用しません。
変数データをセットする際に使用します。
27
１－２．キー画面用ＨＴＭＬソース
必ず記述してください
この後にはブランク行を入れてください。
ＨＴＭＬソース（ＳＰ００１０Ｈ）
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=" 実行
</TABLE>
</CENTER>
</FORM>
</BODY>
</HTML>
"></TD></TR>
<FORM> ～ </FORM> の間にある <INPUT>タグで
指定したフィールドの変数値が渡されます。
ここでは、“ＴＯＫＵＣＤ”の値が渡されます。
（イメージ：TOKUCD=入力した値）
28
１－３．明細画面表示処理
明細画面プログラム：ＳＰ００２０
* 得意先マスター
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バイトのパラメータは入力パラメータです。
返ってくる変数値のパターンをここで指定します。
今回は、ブランクをセットします。
29
明細画面プログラム：ＳＰ００２０
**************************************************************************
* メイン
**************************************************************************
* ◆環境変数より入力情報取得◆
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
ここで得意先コードを取得します。
*
データがなかったらエラー画面表示
Fieldに‘TOKUCD’とセットします。
C
IF
*IN90 = *ON
Optionは今回はブランクです。
C
MOVEL(P) 'AP9999'
@@PGMID
W_TOKUCDに変数値がセットされます。
*
データがあれば変数を置き換えるパラメータにセット
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
＠ＷＥＢツールの#OUT_HTMLのパラメータ
“DATA”に変数定義をセットします。
データ上はこうなります。
TOKUNM=（株）○○システム&ADR=○○市○区
２－○－３&
変数の名前=変数& というルールです。
複数項目の場合は、& の後に続けてセット
してください。
30
１－４．明細画面用ＨＴＭＬソース
ＨＴＭＬソース（ＳＰ００２０Ｈ）
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>
斜体の部分 &&TOKUNM と&&ADR が
</BODY>
＠ＷＥＢツールの#OUT_HTMLの “DATA” パラメータに
セットし、置換処理が行われるフィールドです。
</HTML>
置換処理が行われる範囲は、
と の
間です。置換対象は &&変数名で記述します。
例えば…
&&TOKUNM は（株）○○システム
&&ADR
は ○○市○区２－○－３
実際は上記のように置き換わります。
とは
ＷＥＢのＨＴＭＬ文には記述されません。
31
１－５．エラー面用ＨＴＭＬソース
ＨＴＭＬソース（ＳＰ９９９９Ｈ）
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>
32
２．ＨＴＭＬ作成補助ツールを使用してＣＧＩプログラムを作成
２－１．ＵＲＬ入力
ＵＲＬを入力しキー画面を出力させる
http://xxx.xxxx.xx.xx/xxxx/QHTMDRV.PGM?PGMID=AP0030H
ＨＴＭＬ作成補助ツール名
キー画面出力ＨＴＭＬファイル名
33
２－２．キー画面用ＨＴＭＬソース
ＨＴＭＬソース（ＳＰ００３０Ｈ）
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>
34
ＨＴＭＬ作成補助ツールからパラメータが渡ってきます。
２－３．変数項目セット
プログラム：ＳＰ００４０
キー群パラメータは、１つもしくは複数のキーの値が入っています。
今回は、得意先コードのみが入っています。
返し変数パラメータは、ＨＴＭＬ作成補助ツールに渡す
パラメータです。変数項目を渡します。
* 得意先マスター
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
変数値をセットしていきます。
セット方法は＠ＷＥＢツールの
#OUT_HTML（標準出力）プログラムの
DATA パラメータのセット方法と同じです。
キー群
返し変数
終了区分
キー群
返し変数
得意先名
住所
ここで、キー取得のプログラムを使用して１つづつキーの
値を取得します。今回は得意先コードのみなので
一回しか呼び出していません。
終了区分パラメータは、データの終了時に ‘E’がセットされます。
通常はブランクをセットします。
キー群パラメータはＨＴＭＬ作成補助ツールから取得した
キー群データを最初にセットしておきます。２回目以降は、
セットしません。
返し変数パラメータは、取得したキーデータがセットされます。
35
２－４．明細画面用ＨＴＭＬソース
ＨＴＭＬソース（ＳＰ００４０）
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>
ＳＰ００２０Ｈと記述は同じです。
36

Download Report