H DFTNAME(TESTRPL) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F********** 効果的な組込み関数 %REPLACE の使い方 **********************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG PGM(OBJLIB/TESTRPL) SRCFILE(SRCLIB/QRPGLESRC) DFTACTGRP(*NO)                      
      * ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                                     
                                                                                                    
     D USER            S             10A   INZ('MN00      ')                                        
     D PASS            S             10A   INZ('MN99      ')                                        
     D SRCDTA          S            128A                                                            
                                                                                                    
     C                   MOVEL(P)  '<USER>123'   SRCDTA                                             
     C                   EVAL      SRCDTA =                                                         
     C                             %REPLACE(USER:SRCDTA:%SCAN('<USER>'                              
     C                             :SRCDTA))                                                        
      /FREE                                                                                         
          SRCDTA = '<USER>123';                                                                     
          SRCDTA =%REPLACE(USER:SRCDTA:%SCAN('<USER>':SRCDTA));                                     
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN