これまでの学習で C/400で iSeries400のデータ・ベースの読み取りの方法につていは

理解して頂けたものと思う。

C 言語は C言語が使えるプラット・フォームでは 最も高速に動作する。

C/400で大量のデータ・ベースを処理すればこれまでよりかなり速くなるであろうと

期待するのも当然である。

いきなり期待を裏切るわけではないが、実際、C/400で大量のデータ・ベースの読み取りを

行ってみれば驚くことがある。

なんと C/400の読み取りのほうが RPGより遅いのである！

OS/400も C/400で書かれているはずなのだから C/400が RPGより速くて当然なのではないだろうかと

思われるのも無理はない。

実は iSeries400におけるレコードの読み取りは、OS/400にレコードの読み取りを指示すると一旦、

OS/400がシステム・バッファーに読み取ってそれをプログラムのバッファーに送出する

という仕組みになっている。

RPG のバッファーや C/400のバッファーに送出するのだがこれが遅さの原因になっている。

ところが C/400では自分の読み取りバッファーには入れないでシステム・バッファーを

直接読み取ることができる。

このようにシステム・バッファーの読み取りに変更すると、C/400の読み取り速度は余計なI/Oが無い分、

格段に速くなり、RPGの読み取り速度の 150% 以上の速度で処理される。

この手法は EnterpriseServer の DB2エンジンに採用されている。

特に効果を発揮するのは WebScript の部分である。どのようにユーザーが RPGを組んだところで必ず

EnterpriseServer のデータ・ベース読み取りのほうが速いと断言できるのはこの原理にある。

それではその手法を紹介しよう。

これまでであれば

iofb = _Rreadn(fp, record, MAX_LEN, __DFT);

のようにして レコードの読み取りバッファーを record に入れるように指示してきたが、これを

iofb = _Rreadn(fp, NULL, MAX_LEN, __DFT);

のように書き換えて NULL の指定によってレコード・バッファーの読み取りを拒否する。

しかし、この直後には

memset(record, 0, sizeof(record));                     
memcpy(record, (char*)(*(fp->in_buf)), fp->buf_length);
recordf[fp->buf_length] = 0x00;   

によって自分でシステム・バッファーを直接、読んで record に入れるのである。

これによって C/400の読み取り速度はやはり RPG よりも圧倒的に速くなる。