H DFTNAME(RPGIFSWRT) DATEDIT(*YMD/) BNDDIR('QC2LE')                                            
     F********** 最も簡単な IFS 出力 ***************************************                        
     F*                                                                                             
     F**********************************************************************                        
      /COPY QSYSINC/QRPGLESRC,IFS                                                                   
      *-------------------------------------------------------------------*                         
      *  2017/10/06 : 作成                                                                          
      *-------------------------------------------------------------------*                         
      *( 作業変数 )                                                                                 
     D FD              S             10I 0                                                          
     D EBC_CCSID       S             10I 0 INZ(5035)                                                
     D ASC_CCSID       S             10I 0 INZ(819)                                                 
     D DATA            S             50A                                                            
                                                                                                    
      /FREE                                                                                         
        FD = ﾅﾆｵﾄ('/ﾎﾃﾆ/ｸｵﾂﾂﾅ.ﾎﾒﾎ': O_CREAT + O_TRUNC + O_WRONLY +                                  
        O_CCSID : O_RDWR : EBC_CCSID);                                                              
        IF (FD < 0);                                                                                
           //  エラーの処理をここに入れる。                                                         
        ENDIF;                                                                                      
        DATA = 'Hｵﾂﾂﾅ Wﾅﾈﾂｴ!' + X'0ｴ25';                                                            
        ｳｱﾂﾂﾆ ﾑﾈｹﾎｵ(FD: %ADDR(DATA): %LEN(%TRIMR(DATA)));                                           
        ｳｱﾂﾂﾆ ｳﾂﾅﾍｵ(FD);                                                                            
        *INLR = *ON;                                                                                
      /END-FREE