http://hoboweb.blog25.fc2.com/blog-entry-18.html
cgi.pdf(401)
環境
一般サーバー構成（拡張タブ）
- サーバーエリア
- グローバル構成
- サーバ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秒