表示装置ファイル (DSPF) のオブジェクト内部を検索することのできる API : QDFRTVFD が
IBM によって提供されている。
IBM API 解説書の中でも QDFRTVFD の解説は 70ページにも及ぶ壮大な記述であり
データベース・ファイル記述API( QDBRTVFD ) と並ぶ莫大な API である。

QDFRTVFD API は弊社にとってまちがいなく最も重要な API である。
QDFRTVFD がなぜ弊社にとって重要であるかと言うと、このAPI を使えば DSPF オブジェクトの
内容をすべて調べることができるからである。
DSPF ソースは全く必要ない。 この API によってDSPFオブジェクトの表示レコード、
使用フィールド、編集、 ... などをすべて取得することができる。
仮に DSPFソースがアクセス可能であったてしてもソースの場合はユーザーによって記述の方法が
個々に個性があり、到底すべてのパターンを扱うことができないからでもある。
またオブジェクトの解析であれば、すべて同一のパターンで生成されており、
なおかつ高速にアクセスすることができる。

ところが QDFRTVFD API は扱うには非常に困難である。
IBM サイトには、わずか一本のサンプル・ソースがあるが参考程度と言えるものである。
DSPFオブジェクトは、DDSソースの通りに単純に構成されているわけではない。
ありとあらゆるケースに備えて徹底的に無駄なく圧縮されて、極めて合理的に組み立てられている
のである。
QDFRTVFD API によって DSPF の構造を調べるのには C言語に精通している開発者でも、
丹念に調べてこのAPIを理解するまでは、恐らくは数ケ月〜数年は要するであろう。
しかも単純な変数の組み立てではなく構造体のポインターによるキャストを理解していなければ
ならない。
C言語としてもかなり洗練された技術と知識が必要となってくるのである。
さすがに QDFRTVFD API に関しては米国誌を始めとして、世界中のサイトにもサンプルや
例や解説すら皆無である。それほど難易度は高い。
ここまでやってくると参考は世界中のサイトのどこにも見当たらない。

弊社では QDFRTVFD API は HTMLドライバーとして RPG# や TONAKAI/2.0 での
HTML とのインターフェースに利用している。
HTML とのインターフェースのオブジェクトとして DSPF を参照用として生成して、
HTMLドライバーが DSPF オブジェクトの内部をリアルタイムで参照しながら、
HTML への読み書きを行うのに利用している。
いわば、この HTMLドライバーが RPG# と TONAKAI/2.0 の心臓部でもある。

それほど重要な HTMLドライバーであるが、合理的に全く無駄なく構成された DSPFオブジェクトの
中身を見ていくと、最初にこれをアイデアとして設計した人間が IBM にいるはずであり、
恐らくかなりの超優秀な人間が、それもかなりの大人数でこの DSPF の構成にあたったはずであろうと
容易に想像することができる。
複雑なように見えるが実は将来の拡張にも備えた非常に緻密な計算が考慮がされるていることが伺える。
全くスゴイ人間がそれもかなりの人数で開発に当たったことを、この API が物語っている。

前置きが長くなったが、それではこの宇宙のように莫大な構造を持つAPIの使用方法の入り口を
紹介してみよう。

#include <QDFRTVFD.h>
   :
#define FORMAT_SIZE   181256 
int     format_size;         
char formatBuf[FORMAT_SIZE + 1];  /* QDFRTVFD の結果を入れる作業域 */
char DSPFFLIB[21]                 /* DSPF + DSPFLIB = DSPFの名前とライブラリー名 */
QDFFBASE_t  *qdffbase;     /* 基本ファイル・セクション */          
QDFFINFO_t  *qdffinfo;    /* ファイル見出しセクション */           
QDFWFLEI_t  *qdfwflei;    /* 使用するファイル構造 28-154 */        
QDFFDPDD_t  *qdffdpdd;     /* ファイル・レベル装置依存セクション */
QDFARFTE_t  *qdfarfte;    /* レコード様式テーブル */               
QDFFRINF_t  *qdffrinf;    /* レコード見出しセクション */           

   :
/* QDFRTVFD :  表示装置ファイル記述の検索 */                             
QDFRTVFD((char*)formatBuf, format_size, "DSPF0100",  DSPFFLIB, &errcode);
   :
/*[ 基本ファイル・セクション ]*/                                
qdffbase = (QDFFBASE_t*)(char*)formatBuf;                       
m_record_su = qdffbase->WDFFRCS;      /* レコード数を取得 */    
if(qdffbase->WDFFDPAT.WDFFSEPI != 0) m_FIL_INDARA = TRUE;       
                                                             
/*[ ファイル見出しセクション ]*/                                
qdffinfo = (QDFFINFO_t*)(formatBuf + qdffbase->WDFFINOF);       
                                                             
/* 使用するファイル構造 */                                      
qdfwflei = (QDFWFLEI_t*)((char*)qdffinfo + qdffinfo->WDFFWUOF); 
                                                             
/*[ ファイル装置依存セクション ]*/                              
qdffdpdd = (QDFFDPDD_t*)((char*)qdffinfo + qdffinfo->WDFFXDOF); 
                                                             
/*[ レコード様式テーブル ]*/                                    
qdfarfte = (QDFARFTE_t*)((char*)qdffinfo +qdffinfo->WDFFDFLO);  
   :
   :

【 解説 】

qdffbase = (QDFFBASE_t*)(char*)formatBuf;

m_record_su = qdffbase->WDFFRCS;      /* レコード数を取得 */

/*[ ファイル見出しセクション ]*/
qdffinfo = (QDFFINFO_t*)(formatBuf + qdffbase->WDFFINOF);

ソース・メンバー : QSYSINC/H(QDFRTVFD)