my $this_appcode = $AppCode{$ID};
$TotCst{ $this_appcode }