sub createXmlForUpd($$) { my $xmlFile = shift; my $acct_nbr = shift; my $returnCode = SUCCESS; # Generate XML API input file for UpdateAccount API open(INFILE,">$xmlFile")||die "Can not find file $xmlFile\n"; print INFILE '' . "\n"; print INFILE '

' . "\n"; print INFILE '

' . "\n"; print INFILE '' . "\n"; print INFILE '\n"; print INFILE "\n\n"; close(INFILE); return $returnCode; }