H        1   Y/                                                      TESTCA
     F**********  文字列の結合 ****************************************         
     F*                                                                         
     F*****************************************************************         
     E                    AUT     1   1 32                見出し                
     I            DS                                                            
     I                                        1  10 PGM                         
     I                                       11  20 OBJLIB                      
     I                                       21  30 SRCF                        
     C                     MOVEL'CRTRPG ' CMD   128                             
     C                     CAT  OBJLIB:1  CMD                                   
     C                     CAT  '/':0     CMD                                   
     C                     CAT  PGM:0     CMD                                   
     C                     MOVEL'SRCFILE' SRCF#  10                             
     C                     CAT  SRCF#:0   CMD                                   
     C                     CAT  '/':0     CMD                                   
     C                     CAT  SRCF:0    CMD                                   
     C                     CAT  AUT,1:0   CMD                                   
     C                     SETON                     LR                         
     C                     RETRN                                                
** AUT                                                                          
AUT(*ALL)