HTML で定義する変数名を DB2/400 のデータベースのフィールド名と同じ名前にしておけばデータベースのレイアウトを外部 DSで定義することによってカンタンにデータベースのレイアウトに変換することができる。

FSHOHIN    IF   E           K DISK    USROPN            
 *( API : QtmhCvtDb のための変数の定義                  
D RcvDta          S           1024                      
D RcvDtaLn        S              9B 0 INZ(1024)         
D CvtResp         S              9B 0                   
D DBFile          DS                                    
D  DBFilName              1     10    INZ('SHOHIN    ') 
D  DBLibName             11     20    INZ('QTRFIL    ') 
D DBFmtLn         S              9B 0 INZ(1024)         
D GBKDS         E DS                  EXTNAME(SHOHIN)   
 /COPY QSYSINC/QRPGLESRC,QUSEC                          
C*  Parameter list for the QtmhCvtDB API:               
C     CVTDB         PLIST                               
C                   PARM                    DBFile      
C                   PARM                    RcvDta      
C                   PARM                    RcvDtaLn    
C                   PARM                    GBKDS       
C                   PARM                    DBFmtLn     
C                   PARM                    CvtResp     
C                   PARM                    CvtLen      
C                   PARM                    QUSEC       
C* D/B のレイアウトに変換                               
C                   CALLB     'QtmhCvtDb'   CVTDB    80