H DFTNAME(TESTUNI) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F******** IFS への UNICODE 出力 ***************************************                        
     F*                                                                                             
     F*   CRTRPGMOD QTEMP/TESTUNI SRCFILE(PGMRLIB/QRPGLESRC) AUT(*ALL)                              
     F*   CRTPGM    OBJLIB/TESTUNI MODULE(QTEMP/TESTUNI)                                            
     F*               SRVPGM(QSYS/QP0LLIB1) AUT(*ALL)                                               
     F*                                                                                             
     F**********************************************************************                        
     D FD              S             10I 0                                                          
     D DATA            S           1000C   CCSID(1200)                                              
                                                                                                    
     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 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(' オープン・エラーです ')                            
                                                                                                    
      /FREE                                                                                         
          FD = OPEN_(%ADDR(PATH):                                                                   
                    O_CREAT + O_TRUNC + O_CCSID + O_WRONLY :                                        
                    S_IWUSR + S_IRUSR :                                                             
                    1200);                                                                          
         IF (FD < 0);                                                                               
            PERROR_(%ADDR(MSG));                                                                    
            RETURN;                                                                                 
         ENDIF;                                                                                     
         DATA = %UCS2('ｸｵﾂﾂﾅ UNICODE');                                                             
         WRITE_(FD : %ADDR(DATA) : %LEN(%TRIMR(DATA)) * 2);                                         
         CLOSE_(FD);                                                                                
         *INLR = *ON;                                                                               
      /END-FREE