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