package AnPackage;
use vars qw(@ISA);
@ISA = qw(Exporter SOAP::Server::Parameters);

sub createRequestRequest {
 my $self          = shift;
 my $envelope      = pop;
 my @RequestParams = $envelope->paramsin;
 my $RequestNumber = "1-13";
 return SOAP::Data->name('createRequestResponse')->value(
   SOAP::Data->name( 'requestNumber' => $RequestNumber)
   );
}
1;
__END__

##</code><code>##

 return SOAP::Data->name('createRequestResponse')->type(undef)->value(
     SOAP::Data->name('requestNumber')->type(undef)->value($RequestNumber)
    );