if ($R_Cinformix)
    {
        foreach $id (keys %$HR_Cwnt)
        {
            if ($id =~ /.*?\.oracle.*?$/)
            {
                delete($$HR_Cwnt{$id});
            }
        }
        foreach $id (keys %$HR_Cunx)
        {
            if ($id =~ /.*?\.oracle.*?$/)
            {
                delete($$HR_Cunx{$id});
            }
        }
        foreach $id (keys %$HR_CScomponent)
        {
            if ($id =~ /.*?ORACLE.*?$/)
            {
                delete($$HR_CScomponent{$id});
            }
        }
        foreach $id (keys %$HR_CWcomponent)
        {
            if ($id =~ /.*?ORACLE.*?$/)
            {
                delete($$HR_CWcomponent{$id});
            }
        }
    }
    elsif ($R_Coracle)
    {
        foreach $id (keys %$HR_Cwnt)
        {
            if ($id =~ /.*?\.informix.*?$/)
            {
                delete($$HR_Cwnt{$id});
            }
        }
        foreach $id (keys %$HR_Cunx)
        {
            if ($id =~ /.*?\.informix.*?$/)
            {
                delete($$HR_Cunx{$id});
            }
        }
        foreach $id (keys %$HR_CScomponent)
        {
            if ($id =~ /.*?INFORMIX.*?$/)
            {
                delete($$HR_CScomponent{$id});
            }
        }
        foreach $id (keys %$HR_CWcomponent)
        {
            if ($id =~ /.*?INFORMIX.*?$/)
            {
                delete($$HR_CWcomponent{$id});
            }
        }
    }