int rcv_msg(char *query, int readlen, char *testHost, char *testPort, char *prodHost, char *prodPort, char *testMsg, char *prodMsg) 

##</code><code>##

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

#include "const-c.inc"

MODULE = REGTEST                PACKAGE = REGTEST

INCLUDE: const-xs.inc
int
rcv_msg(query,queryLen,testHost,testPort,prodHost,prodPort,testMsg,prodMsg)
        char *query
        int  queryLen
        char *testHost
        char *testPort
        char *prodHost
        char *prodPort
        char *testMsg = NO_INIT
        char *prodMsg = NO_INIT
    OUTPUT:
        testMsg
        prodMsg
        RETVAL

##</code><code>##

use ExtUtils::testlib;
use REGTEST;

local $/ = undef;
my $query = "select symbol from SEC where symbol=\'IBM\'\;";
my $queryLen = split//,$query;
my $testHost = "pisas392";
my $testPort = 50071;
my $prodHost = "pisas392";
my $prodPort = 50071;
my ($prodRes,$testRes);
($testRes,$prodRes) = REGTEST::rcv_msg($query,$queryLen,$testHost,$testPort,$pro
dHost,$prodPort,$testRes,$prodRes);