H DFTNAME(TESTTRM) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F********** 効果的な組込み関数 %TRIMR の使い方 ************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG PGM(OBJLIB/TESTTRM) SRCFILE(SRCLIB/QRPGLESRC) DFTACTGRP(*NO)                      
      * ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                                     
                                                                                                    
     D IPADDR          S             16A                                                            
     D ADDR            S             48A                                                            
                                                                                                    
      *( 文字列 IPADDR の最後尾に NULL を付加する )                                                 
     C                   EVAL      IPADDR = '192.168.1.15'                                          
     C                   EVAL      IPADDR = %TRIMR(IPADDR) + X'00'                                  
      *( ひとつのフィールドに加算する )                                                             
     C                   EVAL      ADDR   =' 東京都 '                                               
     C                   EVAL      ADDR   = %TRIMR(ADDR) + ' 港区 '                                 
     C                   EVAL      ADDR   = %TRIMR(ADDR) + ' 六本木 '                               
      /FREE                                                                                         
            // 文字列 IPADDR の最後尾に NULL を付加する                                             
            IPADDR = '192.168.1.15';                                                                
            IPADDR = %TRIMR(IPADDR) + X'00';                                                        
            // ひとつのフィールドに加算する                                                         
            ADDR   = ' 東京都 ';                                                                    
            ADDR   = %TRIMR(ADDR) + ' 港区 ';                                                       
            ADDR   = %TRIMR(ADDR) + ' 六本木 ';                                                     
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN