Package Head
<sxh>
CREATE OR REPLACE PACKAGE LoadData
AS
	-- ##############################################################
	-- # PL/SQL package specification
	-- ##############################################################
	PROCEDURE LoadData;
END LoadData;

</sxh>

Package Body

<sxh>
CREATE OR REPLACE PACKAGE BODY LoadData
AS
	-- ###################################################################################
	-- # PL/SQL package body
	-- ###################################################################################
	PROCEDURE LoadData
	AS
	nextIDPassanger integer;
	nextIDReceivedPassanger integer;
	nextPassIDReceived bigint;
	
	BEGIN
	
	if(((select count(*) from received) = 0) and (select count(*) from received_passanger)=0)
	then
	nextIDPassanger := 0;
	nextIDReceivedPassanger := 0;
	nextPassIDReceived := 0;
	
	ELSE 
	nextIDPassanger := (select max(received_id) from received);
	nextIDReceivedPassanger := (select max(received_id) from received_passanger);
	nextPassIDReceived := (select max(received_passenger_id) from received_passanger);
	
	end if;
	
	for i in 1 .. 5000 LOOP
	nextIDPassanger := nextIDPassanger + 1;
	nextIDReceivedPassanger := nextIDReceivedPassanger + 1;
	nextPassIDReceived := nextPassIDReceived + 1;
	
	insert into received(received_id,received_dt,inter_number,message_type) values (nextIDPassanger,(select current timestamp(8) from SYSIBM.SYSDUMMY1),(select SMALLINT(RAND() * 10000+1) from sysibm.sysdummy1),2);
  	insert into received_passanger(received_passenger_id,carrier_code,flight_number,received_id) values(nextPassIDReceived,(select SMALLINT(RAND() * 10000+1) from sysibm.sysdummy1),(select SMALLINT(RAND() * 10000+1) from sysibm.sysdummy1),nextIDReceivedPassanger);
  	
  	if(mod(i,1000)=0) THEN
  		commit work;
  	end if;
	
	
	end loop;




	END LoadData;

END LoadData;
</sxh>