H DATEDIT(*YMD/) COPYRIGHT('(C) OｶｶｹｳｵQﾏｱﾎﾎﾈｲ Cﾅ,.Lﾎｴ Jｱﾆｱﾄ 2016-')                            
     F********** %REPLACE のテスト *****************************************                        
     F*                                                                                             
     F**********************************************************************                        
     D VALUE           S             40A                                         小数               
     D POS             S              4S 0                                       小数               
                                                                                                    
      *(1) ABC を 12345 に変更する )                                                                
     C                   MOVEL(P)  'TEST ABCDEF 'VALUE                                              
     C     VALUE         DSPLY                   ANS               1                                
     C                   EVAL      POS = %SCAN('ABC':VALUE)                                         
     C                   IF        POS > 0                                                          
     C                   EVAL      VALUE = %REPLACE('12345':VALUE:POS:3)                            
     C     VALUE         DSPLY                   ANS               1                                
     C                   ENDIF                                                                      
      *(2) ABC を 12345 に変更する )                                                                
      /FREE                                                                                         
        VALUE = 'TEST ABCDEF ';                                                                     
        VALUE = %REPLACE('12345':VALUE:%SCAN('ABC':VALUE):3);                                       
      /END-FREE                                                                                     
     C     VALUE         DSPLY                   ANS               1                                
     C                   SETON                                        LR                            
     C                   RETURN