H DFTNAME(TESTVAR1) DATEDIT(*YMD/)                                                             
     F**********  可変長ファイルの読取り ***********************************                        
     FDATAFL    IF   F 9999        DISK    EXTFILE(FILE_LIB)                                        
     F                                     USROPN                                                   
     F**********************************************************************                        
     D FILE_LIB        S             48A                                                            
     IDATAFL    AA  10                                                                              
     I                                  1 9999  DATA                                                
     C                   EVAL      FILE_LIB = 'QTRFIL/SHOHIN'                                       
     C                   OPEN      DATAFL                               99                          
     C     *IN99         IFEQ      *OFF                                                             
     C                   DO        *HIVAL                                                           
     C                   READ      DATAFL                                 50                        
     C   50              LEAVE                                                                      
     C                   MOVEL     DATA          DSP40            40                                
     C     DSP40         DSPLY                                                                      
     C                   END                                                                        
     C                   CLOSE     DATAFL                                                           
     C                   END                                                                        
     C     '*EOF'        DSPLY                   ANS               1                                
     C                   SETON                                        LR                            
     C                   RETURN