最初のページに戻ります。

総合の目次があるページに戻ります。

よく使うマニュアルです

Wiki

updated on 2004.06.23

20.6.異界TCP/IPへの道(4)-HTTPサーバー-

[ Previous ] [ HOME ] [ Upper ] [ Next ]


Workstation Gateway  Server (WSG)

まずは、以下のリンクを辿りました。

マニュアルとしては、V4R3で、AS/400e シリーズ HTTP Server AS/400 用 概説およびセットアップ 資料番号 GD88-5018-01 があります。でも、設定部分はあまり役に立ちません。「AS/400 V3 TCP/IP機能とインターネット」研修用資料の方がいいです。

HTTP (Hypertext Transfer Protocol) サーバーの設定

ここに挙げるのは、WRKHTTPCFGの内容です。スペースを使ってしまうけど、後々役立ちそうなので、修正「前」(工場出荷時?)のソースです(画面コピー)。QUSRSYS/QATMHTTPC(CONFIG)に入っているそうです。これをバックアップしておけば、オリジナルは保管できるんでしょうね、きっと(それをやらないで、いきなり修正してしまいました。)ここでは、画面コピー(印刷はとても見づらかったので)なので、左側がきれている部分があります。行の左端に > が付いています。

追記 2000-1-30 

日本語対訳を作ってみました。へたくそな訳でごめんなさい。

                                HTTP 構成の処理                                 
                                                          システム :   COLOSSUS 
   構成名 . . . . . . . . . . . . . :   CONFIG                                  
                                                                                
 オプションを入力して,実行キーを押してください。                               
   1= 追加   2= 変更   3= コピー   4= 除去   5= 表示   13= 挿入                 
                                                                                
 OPT    順序番号     項目                                                       
                                                                                
         00010      # * * * * * * * * * * * * * * * * * * * * * * * * * * *     
         00020      #               IBM HTTP Server for AS/400                  
         00030      # * * * * * * * * * * * * * * * * * * * * * * * * * * *     
         00040      #                                                           
         00050      #------------------------------------------------------     
         00060      # NOTE:  Lines starting with a "#" are comments.            
         00070      #        Inline comments are not allowed.  For example,     
         00080      #        do not have a "#" on the same line as MAP          
         00090      #        statement.                                         
         00100      #------------------------------------------------------     
         00110      #            *** HOSTNAME DIRECTIVES ***                    
         00120      #                                                           
         00130      # HostName your AS/400 uses when generating references      
         00140      # to itself. This value will be set to the value set in     
         00150      # CFGTCP, Option 12, when not specified here.               
         00160      #                                                           
         00170      # Syntax:                                                   
         00180      #   HostName                 <your.full.host.name>          
         00190      #                                                           
         00200      #-----------------------------------------------------      
         00210      #             *** PORT DIRECTIVES ***                       
         00220      #                                                           
         00230      # The default port for HTTP is 80.  If you change this      
         00240      # use a port number greater than 1024.                      
         00250      #                                                           
         00260      #                                                           
         00270      # Syntax:                                                   
         00280      #   Port                      <port number>                 
         00290      #-----------------------------------------------------      
         00300      #  Port                          80                         
         00310      #                                                           
         00320      #-----------------------------------------------------      
         00330      #             *** METHOD DIRECTIVES ***                     
         00340      #                                                           
         00350      # GET and HEAD are enabled by default.  POST will need    > 
         00360      # be enabled for CGI and Net.Data.                          
         00370      #                                                           
         00380      # Syntax:                                                   
         00390      #   Disable                   <GET ! HEAD ! POST>           
         00400      #   Enable                    <GET ! HEAD ! POST>           
         00410      #------------------------------------------------------     
         00420      #  Enable                     GET                           
         00430      #  Enable                     HEAD                          
         00440      #  Enable                     POST                          
         00450      #                                                           
         00460      #------------------------------------------------------     
         00470      #             *** MAPPING DIRECTIVES ***                    
         00480      #                                                           
         00490      # Mapping to AS/400 IFS library objects requires the        
         00500      # object to have PUBLIC(*RX) authority.                     
         00510      #                                                           
         00520      # Mapping to AS/400 QSYS.LIB library objects requires       
         00530      # the QTMHHTTP user profile to have read access to the      
         00540      # object or the object to have PUBLIC(*USE) authority.      
         00550      #                                                           
         00560      # The <template> is the string used to match the            
         00570      # incoming request or HTML link (URL).  The template is     
         00580      # mapped to replacement location on the server.  Once a     
         00590      # matching Pass, Exec, Redirect, or Fail template is        
         00600      # found, all subsequent rules are ignored.                  
         00610      # A match on Map rule changes the request to the            
         00620      # value in replacement and continues searching for a        
         00630      # Pass, Exec, Redirect or Fail.                             
         00640      #                                                           
         00650      #   - To serve documents or images, use Pass directives   > 
         00660      #   - To run CGI or Net.Data, use Exec                      
         00670      #     directives.                                           
         00680      #   - To send the request to another server, use Redire   > 
         00690      #     directives.                                           
         00700      #   - To prevent access to a particular location that       
         00710      #     a subsequent rule would allow access to, use the      
         00720      #     Fail directive.                                       
         00730      #   - All requests that do not match a template on the      
         00740      #     Pass, Exec or Redirect will Fail by default and       
         00750      #     generate a "403 - Forbidden by rule" error.           
         00760      #                                                           
         00770      # Syntax:                                                   
         00780      #    Map      <template> <replacement>                      
         00790      #    Pass     <template> <replacement>                      
         00800      #    Exec     <template> <replacement>                      
         00810      #    Redirect <template> <replacement>                      
         00820      #    Fail     <template>                                    
         00830      #                                                           
         00840      #  Map   /test/*     /as400/*                               
         00850      #  Pass  /as400/*    /QDLS/400HOME/*                        
         00860      #  Pass  /httpfile/* /QSYS.LIB/AS400LIB.LIB/HTML.FILE/*     
         00870      #  Pass  /doc/*      /QDLS/graphics/*                       
         00880      #  Pass  /file/*     /www/webdata/*                         
         00890      #  Fail  /QIBM/UserData/private/*                           
         00900      #  Pass  /QIBM/UserData/*                                   
         00910      #  Redirect  /wsg    http://hostname:5061/WSG               
         00920      #                                                           
         00930      #  HTTP server CGI programs must find an Exec directive   > 
         00940      #  This Exec directive refers to a path where the CGI       
         00950      #  program is stored.                                       
         00960      #                                                           
         00970      #  Exec  /cgi-bin/*  /QSYS.LIB/MYCGI.LIB/*                  
         00980      #                                                           
         00990      #  The next two Pass directives are shipped in the IBM    > 
         01000      #  Server for AS/400 server configuration in                
         01010      #  V4R3.  The first Pass directive serves a sample file     
         01020      #  called Welcome.html for a request of the form            
         01030      #  http://hostname/. The second Pass directive allows       
         01040      #  image files referenced in the Welcome.html file to       
         01050      #  be served.                                               
         01060      #  To serve your own server home page change the first    > 
         01070      #  directive to point to your welcome page location.        
         01080      #                                                           
         01090         Pass /  /QIBM/ProdData/HTTP/Public/HTTPSVR/HTML/Welcome.html  
         01100         Pass /sample/*  /QIBM/ProdData/HTTP/Public/HTTPSVR/HTML/* 
         01110      #                                                           
         01120      #------------------------------------------------------     
         01130      #                *** WELCOME FILE ***                       
         01140      #                                                           
         01150      # Syntax:                                                   
         01160      #   Welcome                   <file.ext> <ip address>       
         01170      #                                                           
         01180      # To serve a welcome file from QDLS, add:                   
         01190      #   Welcome                   Welcome.htm                   
         01200      #                                                           
         01210      # To serve hello.html to clients with IP addresses          
         01220      # that map to 100.99.* and serve Welcome.html to            
         01230      # all others, add:                                          
         01240      #   Welcome                   hello.html 100.99.*           
         01250      #   Welcome                   Welcome.html                  
         01260      #                                                           
         01270      # When the HTML is an AS/400 source physical file,          
         01280      # the source type of the member must be set to HTML.        
         01290      # The Welcome directive refers to the member name           
         01300      # and the value specified for source type.                  
         01310      #------------------------------------------------------     
         01320      #  Welcome                    Welcome.html                  
         01330      #------------------------------------------------------     
         01340      #             *** DIRECTORY LISTINGS ***                    
         01350      #                                                           
         01360      # Syntax:                                                   
         01370      #   DirAccess                 <Off ! On ! Selective>        
         01380      #   DirShowMaxLen             <Maximum name length>         
         01390      #   DirShowMinLen             <Minimum name length>         
         01400      #   DirReadme                 <Off ! Top ! Bot>             
         01410      #   DirShowData               <Off ! On>                    
         01420      #   DirShowSize               <Off ! On>                    
         01430      #   DirShowByte               <On  ! Off>                   
         01440      #   DirShowOwner              <Off ! On>                    
         01450      #   DirShowDescription        <Off ! On>                    
         01460      #   DirShowMaxDescrLength     <number>                      
         01470      #------------------------------------------------------     
         01480      #  DirAccess                  On                            
         01490      #  DirShowMaxLen              15                            
         01500      #  DirShowMinLen              15                            
         01510      #  DirReadme                  Top                           
         01520      #  DirShowDate                On                            
         01530      #  DirShowSize                On                            
         01540      #  DirShowBytes               On                            
         01550      #  DirShowOwner               On                            
         01560      #  DirShowDescription         On                            
         01570      #  DirShowMaxDescrLength      25                            
         01580      #------------------------------------------------------     
         01590      #                   *** AddIcon ***                         
         01600      #                                                           
         01610      # To represent files with a specific MIME content-type      
         01620      # or encoding type with icons on directory listings,        
         01630      # use AddIcon.  To actually use these, you will need to     
         01640      # enable directory listings using DirAccess and             
         01650      # add a Pass directive that maps the IconPath to            
         01660      # /QIBM/ProdData/HTTP/Protect/HTTPSVR/HTML/ICONS/           
         01670      IconPath /QIBM/HTTPSVR/Icons/                               
         01680      AddIcon text.gif     text  text/*                           
         01690      AddIcon html.gif     html  text/html                        
         01700      AddIcon binary.gif   bin   application/*                    
         01710      AddIcon compress.gif Z     application/x-compress           
         01720      AddIcon compress.gif gzip  application/x-gzip               
         01730      AddIcon image.gif    img   image/*                          
         01740      AddIcon movie.gif    vid   video/*                          
         01750      AddIcon sound.gif    au    audio/*                          
         01760      #------------------------------------------------------     
         01770      #                   *** AddType ***                         
         01780      #                                                           
         01790      # To bind files with a particular suffix to a MIME          
         01800      # type/subtype, use AddType.  Multiple occurrences          
         01810      # are allowed.                                              
         01820      AddType .java text/plain binary 1.0                         
         01830      AddType .html text/html  8bit   1.0                         
         01840      AddType .htm  text/html  8bit   1.0                         
         01850      AddType .gif  image/gif  binary                             
         01860      #------------------------------------------------------     
         01870      #                   *** LOGGING ***                         
         01880      #                                                           
         01890      # To enable access logs to the AS/400 server, use           
         01900      # AccessLog.  To enable logs for HTTP server                
         01910      # errors, use ErrorLog.  AccessLog and ErrorLog             
         01920      # Filenames can be specified in these forms:                
         01930      #                                                           
         01940      # Access Log file, ACCESSLOG, created in QUSRSYS.           
         01950      #  1 - AccessLog ACCESSLOG                                  
         01960      # Access Log file, ACCESSLOG, created in                    
         01970      #    Integrated File System directory, httplog.             
         01980      #  2 - AccessLog /httplog/accesslog                         
         01990      #                                                           
         02000      # Syntax:                                                   
         02010      #   AccessLog                <Access_Log_FileName>          
         02020      #   ErrorLog                 <Error_Log_FileName>           
         02030      #   LogFormat                <DDS ! COMMON>                 
         02040      #   LogTime                  <LocalTime ! GMT>              
         02050      #   NoLog                    <ip address>                   
         02060      #------------------------------------------------------     
         02070      #  AccessLog                 ACCESSLOG                      
         02080      #  ErrorLog                  ERRORLOG                       
         02090      #  LogFormat                 COMMON                         
         02100      #  LogTime                   LocalTime                      
         02110      #------------------------------------------------------     
         02120      #                    *** TIMEOUT ***                        
         02130      #                                                           
         02140      # InputTimeout - Client to send MIME header request.        
         02150      # OutputTimeout - Server to serve a document.               
         02160      # ScriptTimeout - Server to finish a CGI program.           
         02170      #                                                           
         02180      # Syntax:                                                   
         02190      #    InputTimeOut            <number> mins                  
         02200      #    OutputTimeOut           <number> mins                  
         02210      #    ScriptTimeOut           <number> mins                  
         02220      #------------------------------------------------------     
         02230      #  InputTimeOut              2 mins                         
         02240      #  OutputTimeOut             20 mins                        
         02250      #  ScriptTimeOut             5 mins                         
         02260      #------------------------------------------------------     
         02270      #                *** END OF DIRECTIVES ***                  
         02280      #------------------------------------------------------     

ちなみに、#はすべてコメントなので、上記は実質これだけしか、入っていません。

         01090         Pass /  /QIBM/ProdData/HTTP/Public/HTTPSVR/HTML/Welcome.html  
         01100         Pass /sample/*  /QIBM/ProdData/HTTP/Public/HTTPSVR/HTML/* 

         01670      IconPath /QIBM/HTTPSVR/Icons/                               
         01680      AddIcon text.gif     text  text/*                           
         01690      AddIcon html.gif     html  text/html                        
         01700      AddIcon binary.gif   bin   application/*                    
         01710      AddIcon compress.gif Z     application/x-compress           
         01720      AddIcon compress.gif gzip  application/x-gzip               
         01730      AddIcon image.gif    img   image/*                          
         01740      AddIcon movie.gif    vid   video/*                          
         01750      AddIcon sound.gif    au    audio/*                          

         01820      AddType .java text/plain binary 1.0                         
         01830      AddType .html text/html  8bit   1.0                         
         01840      AddType .htm  text/html  8bit   1.0                         
         01850      AddType .gif  image/gif  binary                             

後は、「AS/400 V3 TCP/IP機能とインターネット」研修用資料のHTTPサーバーの構成サンプルを、右から左へ、入力しました。パラメータの意味なんて、わからないや。

         00180      HostName    colossus.co.jp                     
         00300      Port  80                            
         00920      Pass /WWW/*                                                 
         00930      Pass /QDLS/WWW/*                                            
         00940      Pass /QSYS.LIB/QGPL.LIB/WWW.FILE/*                          
         01110      Pass /  /QIBM/ProdData/HTTP/Public/HTTPSVR/HTML/Welcome.html 
         01120      Pass /sample/*  /QIBM/ProdData/HTTP/Public/HTTPSVR/HTML/* 
         01340      Welcome                    index.html                       
         01350      AlwaysWelcome   On                                          
         01400      DirAccess                 On                                
         01700      IconPath /QIBM/HTTPSVR/Icons/                               
         01710      AddIcon text.gif     text  text/*                           
         01720      AddIcon html.gif     html  text/html                        
         01730      AddIcon binary.gif   bin   application/*                    
         01740      AddIcon compress.gif Z     application/x-compress           
         01750      AddIcon compress.gif gzip  application/x-gzip               
         01760      AddIcon image.gif    img   image/*                          
         01780      AddIcon sound.gif    au    audio/*                          
         01850      AddType .java text/plain binary 1.0                         
         01860      AddType .html text/html  8bit   1.0                         
         01870      AddType .htm  text/html  8bit   1.0                         
         01880      AddType .gif  image/gif  binary                             
         02040      AccessLog    ACCESSLOG                                      
         02050      ErrorLog      ERRORLOG                                      
 

ものは試しに、ブラウザからアクセスしてみました。

上記、LINKSを辿る事もできました。これは、表示自体はPCで行っているので(htmlはAS/400上だが、 ブラウザがそれをPCにダウンロードして表示している)、PCがインターネットにアクセスできさえすれば、簡単にリンクへ飛ぶことが可能なわけです。

WSGの開始

CHGWSGAをします。

                            WSG 属性の変更  (CHGWSGA)                           
                                                                                
  選択項目を入力して,実行キーを押してください。                                
                                                                                
  自動開始  . . . . . . . . . . . AUTOSTART      *YES                           
  サーバー当りのクライアント数    NBRCLT         20                             
  非活動タイムアウト  . . . . . . INACTTIMO      10                             
  データ要求タイムアウト  . . . . DTARQSTIMO     10                             
  サイン・オン画面の表示  . . . . DSPSGN       *YES                           
  アクセス・ロギング  . . . . . . ACCLOG         *NO                            
  トップ・バナー URL  . . . . . . TOPBNRURL      *NONE                          
  ボトム・バナー URL  . . . . . . BOTBNRURL      *NONE                          
  ヘルプ・パネル URL  . . . . . . HLPPNLURL      *NONE                          
  コード化文字セット識別子  . . . CCSID          00932                          
 サーバー・マッピング・テーブル:             TBLWSGOUT                                     
   EBCDIC/ASCII テーブル の発信  . .                *CCSID                         
      ライブラリー  . . . . . . .                                               
                                  TBLWSGIN                                      
   ASCII/EBCDIC テーブル の受信  . .                *CCSID                         
      ライブラリー  . . . . . . .                                               
                                                                                
                                                                                
 F3= 終了    F4=プロンプト   F5= 最新表示    F12= 取消し    F13= この画面の使用法  
 F24= キーの続き                                                                

では、さっそくWSGにアクセス。URLは、

と指定します。この環境の場合、まだDNSが活動していないので、IPアドレスで指定しました。サインオン画面の表示*YESなら、下のような画面が出てきます。

うーん、まあ、ブラウザにAS/400の画面が、出てくるのは、画期的です。もちろん、データエントリには向きませんが、照会画面くらいなら、問題なさそうです。サインオンして、DSPDコマンドを試してみました。ほとんど同じイメージです。ちなみに、ユーザー名とパスワードは、小文字ではだめでした。大文字で入れないと、だめです。(環境に依存するのかもしれませんが)

以下で5250のいわゆるGreen Screenの画面とWSGの画面を比較してみましょう。比較が目的なので、サムネイルにしませんでした。

PC5250のイメージ

WSGのイメージ

反転がないのは、そもそもHTMLのタグで、反転が無いからです。まあ、無理すれば、表のセルを使えば、反転出来ますけど、この状況ではちょっと、無理ですね (Style;backgroundを使う手もありますね。)。画面のイメージがそのまま、出るとは限らないので、そう言う部分で、元画面の修正が有るかもしれないですね。

STRSEUでHELPを押してみました。

PC5250イメージ

WSGイメージ

上の画面のHTMLソース

<HTML>
<HEAD>
<TITLE> 編集 </TITLE>
</HEAD>
<BODY>
<FORM METHOD="POST" ACTION="http://192.168.0.4:1076/WSG/004339/QTMTWSG/QTWSG01434">
<INPUT TYPE="HIDDEN" NAME="SESSION" VALUE="/A44B44EA4FB59955/C9381569"><PRE><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*E" VALUE="実行キー"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*U" VALUE="前ページ・キー"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*V" VALUE="次ページ・キー"><INPUT TYPE="RESET" NAME="RESET" VALUE="リセット"><INPUT TYPE="SUBMIT" NAME="SPECIALS" VALUE="クローズ"><INPUT TYPE="SUBMIT" NAME="SPECIALS" VALUE="再新表示"><INPUT TYPE="SUBMIT" NAME="SPECIALS" VALUE="時刻"><INPUT TYPE="SUBMIT" NAME="SPECIALS" VALUE="スタイル"><INPUT TYPE="SUBMIT" NAME="SPECIALS" VALUE="ヒント">
<CENTER><H3> 編集 </H3></CENTER>
<HR>
<SELECT NAME="-概要-" SIZE=1><OPTION SELECTED VALUE="-NONE-">-概要-<OPTION VALUE="*U">前ページ・キー<OPTION VALUE="*V">次ページ・キー<OPTION VALUE="*C">消去<OPTION VALUE="*A*<">レコード・バック<OPTION VALUE="*A*X">PA1<OPTION VALUE="*A*Y">PA2<OPTION VALUE="*A*Z">PA3<OPTION VALUE="*A*T">印刷<OPTION VALUE="*A*C">テスト要求<OPTION VALUE="*S*E">ホスト画面の印刷<OPTION VALUE="*A*Q">アテンション・プログラム<OPTION VALUE="*A*H">システム要求<OPTION VALUE="*A*H90*E">サイン・オフ<OPTION VALUE="*X">F12<OPTION VALUE="*3">F3</SELECT><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*H" VALUE="ヘルプ">
桁 . . . . . : 1 71 <FONT COLOR="FFFFFF"> 編集 </FONT> TKLIB/FTPSRC
SEU==&#62; <FONT COLOR="228B22"><U> </U></FONT> TEST
***************** データの始め **************************************
0001.00 C**N01N02N03AAAAAAAAAA BBBBBBBBBBRESULT9990H&#62; &#60; = ;
0002.00 * N01N02N03XXXXXXJB9999P'             '
0003.00 H Y/
0004.00 H****************************************************************
0005.00 H* PROGRAM ID - SETLSTR2 *
0006.00 H* DESCRIPTION - PROGRAM 名称見出し設定リスト *
0007.00 H* EXPLANATION - PROGRAM 概略 *
0008.00 H* *
0009.00 H* CREATION - XX.XX.XX *
<FONT COLOR="0000FF">..........................................</FONT> XX *
<FONT COLOR="0000FF">:</FONT> <FONT COLOR="FFFFFF"> 原始行?ヘルプ </FONT> <FONT COLOR="0000FF">:</FONT> XX *
<FONT COLOR="0000FF">:</FONT> <INPUT TYPE="PASSWORD" NAME="AFIELD.015-005" VALUE="" SIZE=1 MAXLENGTH=1> <FONT COLOR="000000"> </FONT> <FONT COLOR="000000"> </FONT> <FONT COLOR="0000FF">:</FONT> **********************************
<FONT COLOR="0000FF">:</FONT> これらの行は編集中のメンバーのレコー <FONT COLOR="0000FF">:</FONT> DISK
<FONT COLOR="0000FF">:</FONT> ドです。画面のこの部分に表示されてい <FONT COLOR="0000FF">:</FONT> KINFDS DSINF
<FONT COLOR="0000FF">:</FONT> るレコードを変更するためには,既存の <FONT COLOR="0000FF">:</FONT> PRINTER
<FONT COLOR="0000FF">:</FONT> 情報の上に入力してください。 <FONT COLOR="0000FF">:</FONT> ************************
<FONT COLOR="0000FF">:</FONT> <FONT COLOR="000000"> </FONT> <FONT COLOR="000000"> </FONT> <FONT COLOR="FFFFFF"> 終り </FONT> <FONT COLOR="0000FF">:</FONT> <FONT COLOR="FFFFFF">A B L E ; * </FONT>
<FONT COLOR="0000FF">:</FONT> <FONT COLOR="0000FF">F2= 拡張ヘルプ </FONT> <FONT COLOR="0000FF">F11= 見出し検索 </FONT> <FONT COLOR="0000FF">:</FONT> ************************
<FONT COLOR="0000FF">:</FONT> <FONT COLOR="0000FF">F12= 取消し </FONT> <FONT COLOR="0000FF">F24=キー の続き </FONT> <FONT COLOR="0000FF">:</FONT> 198 1 ;SCALE
<FONT COLOR="0000FF">:</FONT> <FONT COLOR="0000FF">:</FONT> ************************
<FONT COLOR="0000FF">:........................................:</FONT> <FONT COLOR="FFFFFF"> COPYRIGHT IBM CORP. 1981, 1998.</FONT>
<INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*E" VALUE="実行キー"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*U" VALUE="前ページ・キー"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*V" VALUE="次ページ・キー">
<INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*1" VALUE="F01"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*2" VALUE="F02"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*3" VALUE="F03"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*4" VALUE="F04"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*5" VALUE="F05"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*6" VALUE="F06"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*7" VALUE="F07"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*8" VALUE="F08"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*9" VALUE="F09"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*W" VALUE="F10"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*B" VALUE="F11"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*X" VALUE="F12">
<INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*D" VALUE="F13"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*Y" VALUE="F14"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*F" VALUE="F15"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*G" VALUE="F16"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*Z" VALUE="F17"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*I" VALUE="F18"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*J" VALUE="F19"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*K" VALUE="F20"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*L" VALUE="F21"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*M" VALUE="F22"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*N" VALUE="F23"><INPUT TYPE="SUBMIT" NAME="/A44B44EA4FB59955/C9381569/BUTTON.999-999=*O" VALUE="F24">
</PRE>
</FORM>
</BODY>
</HTML>

このソースは、人が見るためのものではないことは、すぐに分かりますね。自動的に、機械的にソースを生成して居るんです。見る気は起きないですね、これでは。

ブラウザでは、画面が変わる度に、このHTMLを生成して、ダウンロードして表示してます。これは、レスポンスが無茶苦茶悪いはずですね。また、高輝度は、無条件にH3になるみたいです。それから、画面下に出るはずのメッセージ行は表示されません。エラーが分からず困りました。また、表示できない画面も有るようです。

これらを考えると、今までに無いメリットが有るものの、かなり制限的に画面を使ってプログラムを作る必要があります。照会画面でも、最終的に目的とする画面を出すまでの画面数は最少にして、なるべく単純な画面にした方がいいと思います。フィールドが、<INPUT>なので、入力フィールドも少ない方がいいと思います。ブラウザで前に戻ると、エラーが出るみたいです。「最新表示」ボタンで復活するらしいです。

制限的にしか使えないものの、今までの資産をうまく利用して、情報照会ができるし、少ない情報ならデータベース入力も出来るのは、画期的で、便利ですね。まあ、これから洗練されていく機能でしょう。何と言っても、OSに標準の機能なんですよね、これって。

新しいDDSのキーワードHTMLは、何か有効な使い道がありそうです。gifファイルへのIMGタグが使えるので、商品の表示などに便利でしょう。

この「5250ストリーム→HTMLソースへの変換ロジック」の詳細が分かれば、その局面、局面で、最も効率の良い5250画面を、作れるのではないでしょうか?

2000-1-27


[ Previous ] [ HOME ] [ Upper ] [ Next ]

You are at K's tips-n-kicks of AS/400

 

SEO [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送