H DFTNAME(TESTSBT) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F********** 効果的な組込み関数 %SUBST の使い方 ************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG PGM(OBJLIB/TESTSBT) SRCFILE(SRCLIB/QRPGLESRC) DFTACTGRP(*NO)                      
      * ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                                     
                                                                                                    
     D SHCODE          S             10A                                                            
     D CDR             S             10A   DIM(256)                                                 
     D MKR             S              1A   DIM(256)                                                 
     D N               S              4S 0                                                          
     D NAME            S              6A                                                            
     D FAMILY          S              6A                                                            
     D STRING          S             48A                                                            
                                                                                                    
     C                   EVAL      STRING = 'JOHN   LENNON'                                         
     C                   EVAL      NAME = %SUBST(STRING:1:6)                                        
     C                   EVAL      %SUBST(STRING: 1: 6) = 'JULIAN'                                  
      /FREE                                                                                         
            STRING = 'JOHN  LENNON';                                                                
            NAME = %SUBST(STRING:1:6);                                                              
            %SUBST(STRING:1:6) = 'JULIAN';                                                          
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN