H DFTNAME(TEST1208) DATEDIT(*YMD/) BNDDIR('QC2LE')                                             
     H DFTACTGRP(*NO)                                                                               
     F********** CCSID 1208 で IFS へ出力 **********************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG PGM(TEST.COM/TEST1208) SRCFILE(R610SRC/QRPGLESRC) DFTACTGRP(*NO)                  
      *   ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                                   
                                                                                                    
      /COPY QSYSINC/QRPGLESRC,IFS                                                                   
     D FD              S             10I 0                                                          
     D DATA            S           1000C   CCSID(1200)                                              
     D ANS             S              1A                                                            
                                                                                                    
      /FREE                                                                                         
         UNLINK('/TEST/TEST1208.TXT');                                                              
         FD = ﾅﾆｵﾄ('/TEST/TEST1208.TXT'                                                             
                  : O_CREAT + O_TRUNC + O_CCSID + O_WRONLY                                          
                  : S_IWUSR + S_IRUSR                                                               
                  : 1208                                                                            
                  : 1200);                                                                          
         Iｶ (FD < 0);                                                                               
           DSPLY ' 作成に失敗しました。 ' '' ANS;                                                   
           *INLR = *ON;                                                                             
           RETURN;                                                                                  
         ENDIF;                                                                                     
         DATA = %UCS2('HELLO WORLD' + X'0D25');                                                     
         CALLP WRITE(FD: %ADDR(DATA): %LEN(%TRIMR(DATA)) + 2);                                      
         CALLP CLOSE(FD);                                                                           
         DSPLY ' 作成に成功しました。 ' '' ANS;                                                     
         *INLR = *ON;                                                                               
      /END-FREE