#include <stdio.h>                                                              
#include <stdlib.h>                                                             
#include <string.h>                                                             
#include <recio.h>                                                              
                                                                                
#define TRUE         0                                                          
#define FALSE       -1                                                          
#define MAX_LEN     45                                                          
/*****************************************/                                     
/*      外部記述ファイルの定義           */                                     
/*****************************************/                                     
#pragma mapinc("shohin", "QTRFIL/SHOHIN(SHOHINR)", "input key", "d",,"")        
  #include "shohin"                                                             
SHOHINR_i_t shohin_rec; /* SHOHIN レコード・バッファー */                       
                                                                                
void main(void){                                                                
     _RFILE *fp;                                                                
     _RIOFB_T *iofb;                                                            
     int shtank;                                                                
     char buff[256];                                                            
                                                                                
     printf("** TESTEXREC: 外部記述のレコード単位の読取り **\n");               
     getchar();                                                                 
     fp = _Ropen("QTRFIL/SHOHIN", "rr");                                        
     if(fp == NULL){                                                            
          printf("Open failed for open file\n");getchar();                      
     }                                                                          
     while(1){/*while*/                                                         
          iofb = _Rreadn(fp, &shohin_rec, MAX_LEN, __DFT);                      
          if(iofb->num_bytes == EOF) break;                                     
          sprintf(buff, "%07.07s", shohin_rec.SHTANK);                          
          shtank = atoi(buff);                                                  
          printf("%10.10s %24.24s %7d %04.04s\n",                               
             shohin_rec.SHCODE, shohin_rec.SHNAME, shtank, shohin_rec.SHSCOD);  
     }/*while*/                                                                 
     _Rclose(fp);                                                               
    getchar();                                                                  
}