#include <stdio.h>                                                              
#include <recio.h>                                                              
#include <string.h>                                                             
#include <stdlib.h>                                                             
                                                                                
#define  PF03     2                                                             
#define  IND_OFF  '0'                                                           
#define  IND_ON   '1'                                                           
                                                                                
_SYSindara ind_area; /* 標識エリア */                                           
                                                                                
int main(void)                                                                  
{                                                                               
    _RFILE   *fp;    /* ファイル・ポインタ                           */         
    _RIOFB_T *rfb;   /*Pointer to the file's feedback structure      */         
    _XXIOFB_T *iofb; /* Pointer to the file's feedback area          */         
    char    buf[10], in_buf[10], out_buf[44];                                   
                                                                                
    if (( fp = _Ropen ( "PYTHON/@SHOHIN", "ar+,indicators=Y" )) == NULL ){      
        printf ( "> Could not open DSPF\n" );                                   
        exit ( 1 );                                                             
    }                                                                           
    _Rindara ( fp, ind_area );                                                  
    _Rformat ( fp,"DSPHEAD" ); /* 初期画面フォーマットをょ設定 */               
                                                                                
    _Rwrite ( fp, "", 0 );     /* DSPF のセットアッブ */                        
    /*( 出力レコードの初期化 )*/                                                
    memset(out_buf, ' ', sizeof(out_buf));                                      
    memcpy(out_buf, " 表示         ", 14);                                      
    memcpy(&out_buf[14], "DSPHEAD   ", 10);                                     
    memcpy(&out_buf[24], "SHOHIN    ", 10);                                     
    memcpy(&out_buf[34], "          ", 10);                                     
    while(ind_area[PF03] != IND_ON){/*while*/                                   
      rfb = _Rwrread ( fp, &in_buf, sizeof(in_buf), &out_buf, sizeof(out_buf)); 
      if (ind_area[PF03] == IND_ON){/* 機能キーの検査 */                        
        _Rclose ( fp );                                                         
        exit(0);                                                                
      }/* 機能キーの検査 */                                                     
     memcpy(&out_buf[34],  in_buf, 10);/* ｦd･7｣ﾌ｣ｨ｣ｰ｣ﾙ｣ﾎｨ'､ｦ･r･7｣ﾚ｣ｺ｣ｰ｣ﾎ､ﾆ�_･ｷ､ｽ
    }/*while*/                                                                  
    _Rclose ( fp );                                                             
    exit(0);                                                                    
}