http://hoboweb.blog25.fc2.com/blog-entry-18.html
cgi.pdf(462)
環境
一般サーバー構成(拡張タブ)
- サーバーエリア
- グローバル構成
- サーバCCSID
- 5035
- クライアントCCSID
- 942
動的コンテンツおよび CGIの(拡張タブ)
サーバーエリア:CGIが置いてあるディレクトリ
- 変換モード
- %%MIXED/MIXED%%
- CGIジョブ CCSID
- 5035
- クライアントCCSID
- 942
ソース作成
エミュレータのホスト・コード・ページを
939 日本語英数小文字拡張
に変更する。また、
CHGJOB CCSID(5035)
にてCCSIDを変更しておく
CCSID=5035のソースファイルを作成します。作成するメンバーはILE-RPGですのでRPGLEソースを作ります。
> CRTSRCPF FILE(MYLIB/QRPGLESRC) RCDLEN(112) IGCDTA(*YES) CCSID(5035)
ライブラリー MYLIB にファイル QRPGLESRC が作成された。
コンパイル
> CRTRPGMOD MODULE(MYLIB/T0101) SRCFILE(MYLIB/QRPGLESRC) DBGVIEW(*ALL)
モジュール T0101 がライブラリー MYLIB に入れられました。最高の重大度は
00 。 04/04/17 の 09:00:00 に作成されました。
> CRTPGM PGM(MYLIB/T0101) BNDSRVPGM(QTCP/QTMHCGI)
プログラム T0101 がライブラリー MYLIB に作成された。
サンプルソース
D HTML S 80 DIM(8) PERRCD(1) CTDATA D RECBUF S 512A D OUTLEN S 9B 0 INZ(512) D CRLF C X'15' /COPY QSYSINC/QRPGLESRC,QUSEC C 1 DO 8 N 4 0 C MOVEL HTML(N) RECBUF C CAT CRLF:0 RECBUF C ' ' CHECKR RECBUF OUTLEN C*----------------------------------------------------+ C CALLB 'QtmhWrStout' C PARM RECBUF C PARM OUTLEN C PARM QUSEC C*----------------------------------------------------+ C END C* DSPLY C 3 C SETON LR C RETURN ** CTDATA HTML CONTENT-TYPE: TEXT/HTML <HTML><HEAD><TITLE>TEST</TITLE></HEAD><BODY> HELLO WORLD 1234567890あいうえお abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ </BODY></HTML>
サーバの停止と実行
問題が発生してサーバを落とす場合
ENDTCPSVR SERVER(*HTTP)
起動
STRTCPSVR SERVEr(*HTTP) HTTPSVR(*ADMIN '-fsccsid 5035')[カテゴリ: OS > AS400]
[通知用URL]
Tweet
最終更新時間:2009年05月20日 10時39分17秒