--	Test long blocks of data
package longsub is

	type long_sequence is sequence(2030) of rpc_long;
	type huge_sequence is sequence(2500) of rpc_long;

procedure in_out_long(
	in_param:	IN	long_sequence;
	out_param:	OUT	long_sequence);

procedure in_out_huge(
	in_param:	IN	huge_sequence;
	out_param:	OUT	huge_sequence);

end longsub;