H DFTNAME(TESTCEE) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F**********  親プログラムも終了させる *********************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
     D*( CEETREC  のプロトタイプ宣言 )                                                              
     D CEETREC         PR             4B 0                                                          
     D  CEL_RC_MOD                   10I 0 OPTIONS(*OMIT)                                           
     D  USER_RC                      10I 0 OPTIONS(*OMIT)                                           
                                                                                                    
      /FREE                                                                                         
           *INLR  = *ON;                                                                            
           CEETREC(*OMIT:*OMIT);                                                                    
      /END-FREE                                                                                     
     C                   RETURN