Procedure create_system
 
	    l_return_status                	VARCHAR2(1);
	    p_clev_rec_type                     okc_contract_pub.clev_rec_type;
    	    x_clev_rec_type    			okc_contract_pub.clev_rec_type;
    	    l_msg_count 			NUMBER;
	    l_msg_data 				VARCHAR2(2000);
	    l_msg_index_out 			NUMBER;
	    t_output 				VARCHAR2(2000);
	    t_msg_dummy 			NUMBER;
    	    
 begin
 	
 	p_clev_rec_type.id := NULL;                          
 	p_clev_rec_type.sfwt_flag :='N';
	p_clev_rec_type.name :='XXX';
	p_clev_rec_type.item_description:='XXYYXX';
 	p_clev_rec_type.object_version_number := NULL;
 	p_clev_rec_type.cle_id := 199910455228418908390030833701004990256;
 	p_clev_rec_type.lse_id :=11;
 	p_clev_rec_type.dnz_chr_id:=397605;
 	p_clev_rec_type.chr_id :=NULL ;
 	p_clev_rec_type.sts_code := 'ENTERED';
 	p_clev_rec_type.exception_yn := 'N';
 	p_clev_rec_type.display_sequence :=1;
 	p_clev_rec_type.line_renewal_type_code := 'FUL';
 	p_clev_rec_type.start_date := TO_DATE('');
 	p_clev_rec_type.end_date := TO_DATE(''); 	
 	---Now call the stored procedure
 	--dbms_output.put_line('call the stored procedure'); 
 	
 	okc_contract_pub.create_contract_line(
	    p_api_version        =>1.0,
	    p_init_msg_list      => 'F',
	    x_return_status       => l_return_status,
	    x_msg_count           => l_msg_count,
	    x_msg_data             => l_msg_data ,
	    p_restricted_update	   =>'F',
	    p_clev_rec             => p_clev_rec_type ,
   	    x_clev_rec             => x_clev_rec_type ) ;
   	  	     	if l_msg_count > 0
	then
	for j in 1 .. l_msg_count loop
	fnd_msg_pub.get
	( j
	, 'F'
	, l_msg_data
	, t_msg_dummy
	);
	t_output := ( 'Msg'|| To_Char( j)|| ': '|| l_msg_data);
	
	end loop;
	end if;
		
	COMMIT;
	
END;