H DFTNAME(TESTRPL3) DATEDIT(*YMD/) BNDDIR('QC2LE')                                             
     F**********  %REPLACE のテスト ****************************************                        
     F*                                                                                             
     F**********************************************************************                        
     D USER            S             10A   INZ('MN00      ')                                        
     D PASS            S             10A   INZ('MN99      ')                                        
     D SRCDTA1         S            128A   INZ('123<USER>4567890')                                  
     D SRCDTA2         S            128A   INZ('123ﾗUSERﾝ4567890')                                  
     D POS             S              4S 0                                                          
                                                                                                    
      *( 置換え )                                                                                   
      /FREE                                                                                         
         POS    = %SCAN('<USER>':SRCDTA1);                                                          
         IF POS > 0;                                                                                
           SRCDTA1 = %SUBST(SRCDTA1:1:POS-1) + USER +                                               
                       %SUBST(SRCDTA1:POS+6);                                                       
         ENDIF;                                                                                     
      /END-FREE                                                                                     
      *( 上書き )                                                                                   
      /FREE                                                                                         
          POS = %SCAN('ﾗUSERﾝ':SRCDTA2);                                                            
          IF POS > 0;                                                                               
            SRCDTA2 = %REPLACE(USER:SRCDTA2:POS);                                                   
          ENDIF;                                                                                    
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN