H DFTNAME(TESTUNI) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F******** IFS への UNICODE 出力 ***************************************                        
     F*                                                                                             
     F*   CRTRPGMOD QTEMP/TESTUNI2 SRCFILE(PGMRLIB/QRPGLESRC) AUT(*ALL)                             
     F*   CRTPGM    OBJLIB/TESTUNI2 MODULE(QTEMP/TESTUNI2)                                          
     F*               SRVPGM(QSYS/QP0LLIB1 ASNET.COM/UNI_CODE) AUT(*ALL)                            
     F*                                                                                             
     F**********************************************************************                        
     D FD              S             10I 0                                                          
     D DATA            S            128A                                                            
     D UTF             S            128A                                                            
                                                                                                    
     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 WRITE_          PR            10I 0 EXTPROC('ﾑﾈｹﾎｵ')                                         
     D  DESC                         10I 0 VALUE                                                    
     D  DATA                           *   VALUE                                                    
     D  DTALEN                       10I 0 VALUE                                                    
                                                                                                    
     D CLOSE_          PR                  EXTPROC('ｳﾂﾅﾍｵ')                                         
     D  DESC                         10I 0 VALUE                                                    
                                                                                                    
     D PERROR_         PR                  EXTPROC('ﾆｵﾈﾈﾅﾈ')                                        
     D  STR                            *   VALUE                                                    
                                                                                                    
     D TO_UTF8         PR            10I 0 EXTPROC('ﾎﾅUTF8')                                        
     D  SRCSTR                         *   VALUE                                                    
     D  TGTSTR                         *   VALUE                                                    
     D  CONTRY                       10I 0 VALUE                                                    
                                                                                                    
     D O_CREAT         S             10I 0 INZ(8)                                                   
     D O_TRUNC         S             10I 0 INZ(64)                                                  
     D O_CCSID         S             10I 0 INZ(32)                                                  
     D O_WRONLY        S             10I 0 INZ(2)                                                   
     D S_IWUSR         S             10I 0 INZ(128)                                                 
     D S_IRUSR         S             10I 0 INZ(256)                                                 
     D PATH            S             14A   INZ('/A001/TEST.TXT')                                    
     D MSG             S             80A   INZ(' オープン・エラーです ')                            
                                                                                                    
     D USA             S             10I 0 INZ(0)                                                   
     D JPN             S             10I 0 INZ(1)                                                   
     D CHN             S             10I 0 INZ(2)                                                   
     D HKG             S             10I 0 INZ(3)                                                   
     D KOR             S             10I 0 INZ(4)                                                   
     D TAI             S             10I 0 INZ(5)                                                   
     D GER             S             10I 0 INZ(6)                                                   
     D Sｸｹｶﾎ_JIS       S             10I 0 INZ(7)                                                   
                                                                                                    
     D LEN             S             10I 0                                                          
      /FREE                                                                                         
          FD = OPEN_(%ADDR(PATH):                                                                   
                    O_CREAT + O_TRUNC + O_CCSID + O_WRONLY :                                        
                    S_IWUSR + S_IRUSR :                                                             
                    1208);                                                                          
         IF (FD < 0);                                                                               
            PERROR_(%ADDR(MSG));                                                                    
            RETURN;                                                                                 
         ENDIF;                                                                                     
         DATA = ' こんにちは UTF-8' + X'00';                                                        
         LEN = TO_UTF8(%ADDR(DATA): %ADDR(UTF): JPN);                                               
         IF (LEN > 0);                                                                              
            WRITE_(FD : %ADDR(UTF) : LEN);                                                          
         ENDIF;                                                                                     
         CLOSE_(FD);                                                                                
         *INLR = *ON;                                                                               
      /END-FREE