H DFTNAME(TESTSCN) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F********** 効果的な組込み関数 %SCAN の使い方 **************************                       
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG PGM(OBJLIB/TESTSCN) SRCFILE(SRCLIB/QRPGLESRC) DFTACTGRP(*NO)                      
      * ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                                     
                                                                                                    
     D VALUE           S             40A                                         小数               
     D POS             S              4S 0                                       小数               
                                                                                                    
     C                   MOVEL(P)  'TEST ABCDEF 'VALUE                                              
     C                   EVAL      POS = %SCAN('ABC':VALUE)                                         
     C                   IF        POS > 0                                                          
     C                   EVAL      VALUE = %REPLACE('12345':VALUE:POS:5)                            
     C                   ENDIF                                                                      
      /FREE                                                                                         
              VALUE = 'TEST ABCDEF';                                                                
              POS   = %SCAN('ABC':VALUE);                                                           
              IF POS > 0;                                                                           
                VALUE = %REPLACE('12345':VALUE:POS:5);                                              
              ENDIF;                                                                                
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN