* SELECT TOPIC * 履歴 (history) サブファイル (subfile) ＤＢ２／４００ (db2/400) 実行管理 (work mng.) ユーティリティ (utility) やろうぜＡＰＩ (api) ロジック上の注意 (logic) ＢＯＯＫＳ (books) ちょっと技情報 (tips) 標準化案 (standardization) * SELECT TOPIC * ダウンロード (download) FAQコーナー (faq) CLP知ったもん勝ち！ 大事な付録 (appendix) LINKS (links) プログラマー通信 (messages) AS/400予備校 (prep. school) AS/400セットアップ (setup) プログラム部品集 (parts) Colossus (colossus) 掲示板 (bbs)				Wiki
	updated on 2004.06.23

6.5.API基礎講座５ 総称見出しからのデータの取り出し

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

まず、マニュアルを見てみましょう。

パラメーター 
   
 必須パラメーター・グループ：  
  
    1   ユーザー空間修飾名    入力     Char(20) 
    2   開始位置              入力     Binary(4)
    3   データの長さ          入力     Binary(4)
    4   レシーバー変数        出力     Char(*)  

 任意選択パラメーター：

    5   エラー・コード       入出力   Char(*) 
         

単純に言えば、ユーザー・スペースの、どこから、何バイト読むのかを指定すると、その内容が指定した長さ分、戻されるのです。

よく、わからなくなるのは、総称見出しの何バイトからどれくらいを取り出すのか、という点です。この際、じっくり見ておきましょう。

というわけで、ここでQUSRTVUSのRPGソースを掲載します。注に出ているオフセット＋１は覚えておかないと、うまくいきませんよ！
下記は「総称見出し」からデータを取り出す例です。

     H            Y/                                    1
     I******************************************************
     I*     D E F I N E    D A T A  - S T R U C T U R E    *
     I******************************************************
     IUSRSPC      DS
     I                                        1  10 USNAME
     I                                       11  20 USLIB
     IGENHED      DS
     I                                    B   1   40DTLOFS
     I                                    B   5   80LSTSIZ
     I                                    B   9  120NOENTH
     I                                    B  13  160DTLSIZ
     I            DS
     I                                    B   1   40USSIZE
     I                                    B   5   80LENDTA
     I                                    B   9  120STRPOS
     C******************************************************
     C*             M A I N -  R O U T I N E               :
     C******************************************************
     C*                                                    :
     C*総称見出しからデータを取り出す                      :
     C*                                                    :
     C                     CALL 'QUSRTVUS'             95  :
     C                     PARM           USRSPC           :
     C                     PARM 125       STRPOS           :
     C                     PARM 16        LENDTA           :
     C                     PARM           GENHED           :
     C*                                                    :
     C                     MOVE *ON       *INLR            :
     C                     RETRN                           :
    

解説    

総称見出しのレイアウトを見てください。オフセットは16進数の部分省略。（総称見出し全体のレイアウトはこちらです。）

STRPOSに125をセットして、LENDTAに16をセットしているのは、

• オフセット10進数124を始めとして（だから124 + 1で）125、
• 長さ4バイトのフィールドを4っつなので16バイト分

を取り出そうとしてるからです。上記のRPGで、DSのGENHEDに、125桁めから16バイトのデータが、セットされています。このGENHEDはDSで、

1. DTLOFS
2. LSTSIZ
3. ＮOENTH
4. DTLSIZ

に分解されます。（バイナリ定義のフィールド）。この４つが、上記の表に該当します。ここに、この後参照する、リストセクションの大事な情報が入っているのです。

もし、「見出しセクション」も見るのならば、STRPOSには、116+1で117が入って、LENDTAは4X6=24バイトとなります。
簡単でしょう？

よく分かる！これがユーザースペースだ！

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

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