H DFTNAME(TESTVAR2) DATEDIT(*YMD/) BNDDIR('QC2LE') DFTACTGRP(*NO)                              
     F**********  可変長ファイルの読取り (2) *******************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      /COPY PGMRLIB/QRPGLESRC,RECIO_H                                                               
                                                                                                    
     D ﾃﾓFｹﾂｵ          DS                  ﾂｹﾁｵｴﾍ(ﾈｶｹﾂｵ_ﾎ)                                          
     D                                     ｲｱﾍｵｴ(ﾆ_ﾃﾓFｹﾂｵ)                                          
     D ﾅﾆｶｲ            DS                  ﾂｹﾁｵｴﾍ(ﾒﾒﾅﾆｶｲ_ﾎ)                                         
     D                                     ｲｱﾍｵｴ(ﾆ_ﾅﾆｶｲ)                                            
     D ｹﾅｶｲ            DS                  ﾂｹﾁｵｴﾍ(RIOFB_T)                                          
     D                                     ｲｱﾍｵｴ(ﾆ_ｹﾅｶｲ)                                            
                                                                                                    
     D ﾈｵｳLｵﾄ          S             10I 0                                                          
     D Dｱﾎｱ            S           5000A                                                            
     D ｴﾍﾆ40           S             40A                                                            
     D ｱﾄﾍ             S              1A                                                            
                                                                                                    
                                                                                                    
      /FREE                                                                                         
        ﾆ_ﾃﾓFｹﾂｵ = Rﾅﾆｵﾄ('QTRFIL/SHOHIN': 'ﾈﾈ');                                                    
        ﾆ_ﾅﾆｶｲ    = Rﾅﾆﾄｶｲﾁ(ﾃﾓFｹﾂｵ);    // オープン・フィードバック域を取得                         
        ﾈｵｳLｵﾄ   = ﾅﾆｶｲ.ﾆｷﾃ_Rｵｳﾅﾈｴ_ﾂｵﾄ; // レコード長を取得                                         
                                                                                                    
        ｴﾅﾑ  *ｹﾄﾂﾈ = *OFF;                                                                          
          ﾆ_ｹﾅｶｲ = Rﾈｵｱｴﾄ(ﾃﾓFｹﾂｵ : Dｱﾎｱ: ﾈｵｳLｵﾄ: ﾈ_DFT);                                            
          ｹｶ (ｹﾅｶｲ.ﾄﾏﾃ_ｲﾓﾎｵﾍ = EOF);    // EOF になったら読取り終了                                 
             ﾂｵｱﾐｵ;                                                                                 
          ｵﾄｴｹｶ;                                                                                    
          ｴﾍﾆ40 = Dｱﾎｱ;                                                                             
          ｴﾍﾆﾂﾓ ｴﾍﾆ40;                                                                              
        ｵﾄｴｴﾅ;                                                                                      
        Rｳﾂﾅﾍｵ(ﾃﾓFｹﾂｵ);                                                                             
        ｴﾍﾆﾂﾓ '*EOF' '' ANS;                                                                        
                                                                                                    
        *ｹﾄLR = *ON;                                                                                
      /END-FREE