RPGユーザーが C/400を学習すると SETLL & READE や CHAIN は C/400ではどのように
行うのか気になるところである。
一般に C言語では RPGの SETLL や CHAIN というものは無い。
C/400 においてもこれは同じことであるが、RPGに慣れ親しんでいる場合は同じことを C/400で
再現する方法を知りたいものである。
ここからは RPGでのこれらのレコード制御の命令を C/400で再現する方法を紹介しよう。
それらの方法は IBMの解説書にも RPGと対応した方法としては解説されていないのでこれが初めての
解説となるはずである。
これらの手法は EnterpriseServer の DB2エンジンに使用されている。

次の例は QTRFIL/LSHOHINS という4桁の品種コード別の論理ファイルを同じ品種コード='0001' だけを
SETLL & READE を行っている例である。

0001.00 #include <stdio.h>
0002.00 #include <stdlib.h>
0003.00 #include <string.h>
0004.00 #include <recio.h>
0005.00                                                                  
0006.00 #define TRUE         0                                           
0007.00 #define FALSE       -1                                           
0008.00 #define MAX_LEN 3000                                             
0009.00 #define MAX_KEY_LEN 256                                          
0010.00                                                                  
0011.00 void main(void){                                                 
0012.00     _RFILE *fp;                                                  
0013.00    _RIOFB_T *iofb;                                               
0014.00     char key[MAX_KEY_LEN];                                       
0015.00     unsigned int key_len;                                        
0016.00     char record[128];                                            
0017.00     int i;                                                       
0018.00     unsigned long rrn =0;                                        
0019.00                                                                  
0020.00     if((fp = _Ropen("QTRFIL/LSHOHNS", "rr+ blkrcd=Y")) == NULL){ 
0021.00        printf("cannot open\n"); return;                                
0022.00     }                                                                  
0023.00     memset(key, 0, sizeof(key));                                       
0024.00     strcpy(key, "0001");                                               
0025.00     key_len = 4;                                                       
0026.00     _Rlocate(fp, &key, key_len, __KEY_LT);  /*[ SETLL ]*/              
0027.00                                                                        
0028.00     /*[ 以下は READE による読み取り ]*/                                
0029.00   for(i=0; i< 99999; i++){/*for-loop*/ 
0030.00     if(i == 0)                                                         
0031.00       iofb = _Rreadk(fp, record,MAX_LEN, __KEY_NEXTUNQ, &key, key_len);
0032.00     else                                                               
0033.00       iofb = _Rreadk(fp, record,MAX_LEN, __KEY_NEXTEQ, &key, key_len); 
0034.00     if(iofb->num_bytes == EOF || iofb->rrn == rrn ||
0035.00              strncmp(iofb->key, key, key_len) != 0){
0036.00        break;                                                          
0037.00     }                                                                  
0038.00        printf("record = %s\n", record);                                
0039.00        rrn = iofb->rrn;
0040.00     }/*for-loop*/                                                      
0041.00     _Rclose(fp);                                                       
0042.00     getchar(); 
0043.00 }

まず _Rlocate(fp, &key, key_len, __KEY_LT); は指定したキーの位置をセットして
指定したキーより小さな位置にセットしているので、これが SETLL の役割 を果たしている。

次に _Rreadk で読み取るわけであるが、最初だけは __KEY_NEXTUNQ で読み取って
２回目以降は __KEY_NEXTEQ で読み取る。
注意しなければならないのは、READE を終えた後も実際は 物理的なレコードが存在している場合には
EOFはセットされない。
RPGの場合は READE で EOF標識が ON になるが C/400の場合に EOF が使えるのは物理的なファイルの
終わりのときだけである。
よって同じレコードが読み込まれていないかを RRN を記憶しておいて EOF の検出に利用している点に
注意されたし。