sub dispatch_closing
{
    my ($line,$fw,$key,$HR_record,$os)= @_;
    if ($line =~ /SERVICE_APPLICATION_EXECUTION_COMPONENT)
    {
        foreach my $addline(keys %$HR_record)
        {
               print $fw "\tENVIRONMENT_VARIABLE Id=\"$addline\">$$HR_record{$addline}ENVIRONMENT_VARIABLE>\n";
        }
        $$key = undef;
    }
    if ($line =~ /WEB_APPLICATION_EXECUTION_COMPONENT/)
    {
         foreach my $addline(keys %$HR_record)
         {
               print $fw "\tENVIRONMENT_VARIABLE Id=\"$addline\"$$HR_record{$addline}ENVIRONMENT_VARIABLE\n";
         }
         $$key = undef;
    }
    if ($line =~ /UNX/)
    {
        foreach my $addline(keys %$HR_record)
        {
            if ($os eq 'unx')
            {
                my $Uval = $$HR_record{$addline};
                $Uval = substitute($Uval);
                print $fw  "\tRESOURCE Id=\"$addline\" Source=$Uval RESOURCE>}\n";
            }
        }
        $$key = undef;
    }
    if ($line =~ /WNT/)
    {
        foreach my $addline(keys %$HR_record)
        {
            if ($os eq 'win')
            {
                my $Wval = $$HR_record{$addline};
                $Wval = substitute($Wval);
                print $fw  "\tRESOURCE Id=\"$addline\" Source=$addline RESOURCE}\n";
            }
        }
        $$key = undef;
    }
}