CREATE OR REPLACE PACKAGE BODY Pack_Cal
AS
	PROCEDURE CALC (Num1 NUMBER, Num2 NUMBER, Tot OUT NUMBER)
	IS
	BEGIN
		Tot := Num1 + Num2;
	END CALC;
END Pack_Cal;