#include <stdio.h>                                                              
#include <stdlib.h>                                                             
#include <string.h>                                                             
#include <recio.h>                                                              
                                                                                
#define TRUE         0                                                          
#define FALSE       -1                                                          
#define MAX_LEN 3000                                                            
                                                                                
void main(void){                                                                
    _RFILE *fp;                                                                 
   _RIOFB_T *iofb;                                                              
    char record[256];                                                           
                                                                                
    fp = _Ropen("QTRFIL/SHOHIN", "rr+ blkrcd=Y");                               
     if(fp == NULL){                                                            
         printf("Open failed for open file\n");getchar();                       
     }                                                                          
    while(1){                                                                   
      iofb = _Rreadn(fp, record, MAX_LEN, __DFT);                               
      if(iofb->num_bytes == EOF) break;                                         
      _Rupdate(fp, record, 21);                                                 
      printf("Update record = %s\n", record);                                   
    }                                                                           
   _Rclose(fp);                                                                 
    getchar();                                                                  
}