H DATEDIT(*YMD/)  BNDDIR('QC2LE')                                                              
     F********** IFS のオープン ********************************************                        
     F*                                                                                             
     F* COMIPLE:                                                                                    
     F*    CRTRPGMOD QTEMP/TESTIFS SRCFILE(MYSRCLIB/QRPGLESRC) AUT*ALL)                             
     F*    CRTPGM    MYLIB/TESTIFS MODULE(QTEMP/TESTIFS) ACTGRP(*NEW) AUT(*ALL)                     
     F*                                                                                             
     F**********************************************************************                        
     D FD              S             10I 0                                                          
                                                                                                    
     D OPEN_           PR            10I 0 EXTPROC('ﾅﾆｵﾄ')                                          
     D  PATH                           *   VALUE                                                    
     D  FLAG                         10I 0 VALUE                                                    
     D  MODE                         10I 0 VALUE OPTIONS(*NOPASS)                                   
     D  CODEPAGE                     10I 0 VALUE OPTIONS(*NOPASS)                                   
     D  TOPAGE                       10I 0 VALUE OPTIONS(*NOPASS)                                   
                                                                                                    
     D CLOSE_          PR                  EXTPROC('ｳﾂﾅﾍｵ')                                         
     D  FILEID                       10I 0 VALUE                                                    
                                                                                                    
     D TRUE            S             10I 0 INZ(0)                                                   
     D FALSE           S             10I 0 INZ(-1)                                                  
     D PERROR_         PR                  EXTPROC('ﾆｵﾈﾈﾅﾈ')                                        
     D  STR                            *   VALUE                                                    
                                                                                                    
     D O_RDONLY        S             10I 0 INZ(1)                                                   
     D PATH            S             14A   INZ('/A001/TEST.TXT')                                    
     D MSG             S             80A   INZ(' オープン・エラーです ')                            
     D SUCCESS         S             80A   INZ(' 読取り成功です ')                                  
                                                                                                    
      /FREE                                                                                         
          FD = OPEN_(%ADDR(PATH): O_RDONLY);                                                        
         IF (FD < 0);                                                                               
            PERROR_(%ADDR(MSG));                                                                    
            RETURN;                                                                                 
         ELSE;                                                                                      
            PERROR_(%ADDR(SUCCESS));                                                                
         ENDIF;                                                                                     
         CLOSE_(FD);                                                                                
         *INLR = *ON;                                                                               
      /END-FREE