H DFTNAME(TESTCAT) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     H DFTACTGRP(*NO)  ACTGRP(*NEW)                                                                 
     F**********  文字列の結合 *********************************************                        
     F*                                                                                             
     F**********************************************************************                        
     D CMD             S            128A                                                            
     D PGM             S             10A                                                            
     D OBJLIB          S             10A                                                            
     D SRCF            C                   CONST('QRPGLESRC/QTRSRC')                                
     D AUT             C                   CONST('AUT(*ALL)')                                       
                                                                                                    
      /FREE                                                                                         
         CMD ='CRTRPG ' + %TRIMR(OBJLIB) + '/' + %TRIMR(PGM) + ' ' +                                
                SRCF + ' ' + AUT;                                                                   
         *INLR = *ON;                                                                               
      /END-FREE