PGM                                                                
             INCLUDE    SRCMBR(CPY_ERR)                                         
                                                                                
             CHKOBJ     OBJ(AAA) OBJTYPE(*FILE)                                 
             RETURN                                                             
                                                                                
             INCLUDE    SRCMBR(CPY_ERR2)                                        
             ENDPGM