{ 
   my ($error_buff_p, $connection_id, $transaction_id); 
   my $init_done = 0; 
   sub get_val {return ($error_buff_p, $connection_id, $transaction_id, $init_done);}; 
   sub set_val { ($error_buff_p, $connection_id, $transaction_id, $init_done) = @_;}; 
}