Select Code to Download

{ 
   my ($error_buff_p, $connection_id, $transaction_id); 
...
   sub get_val {return ($error_buff_p, $connection_id, $transaction_id
+, $init_done);}; 
   sub set_val { ($error_buff_p, $connection_id, $transaction_id, $ini
+t_done) = @_;}; 
}