トップ 差分 一覧 ソース 置換 検索 ヘルプ PDF RSS ログイン

AS400でCGIを動かす

http://hoboweb.blog25.fc2.com/blog-entry-18.html
cgi.pdf(48)

 環境

一般サーバー構成(拡張タブ)

サーバーエリア
グローバル構成
サーバ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]



  • Hatenaブックマークに追加
  • livedoorクリップに追加
  • del.icio.usに追加
  • FC2ブックマークに追加

最終更新時間:2009年05月20日 10時39分17秒