procedure exampl 1

DECLARE
    no1 NUMBER;
    n1 NUMBER;
    n2 NUMBER;
    n3 NUMBER;
    ans NUMBER;
    PROCEDURE t_S(n1 NUMBER,n2 NUMBER,n3 OUT NUMBER)
    IS
    BEGIN
        n3:=n1*n2;
    END t_s;
BEGIN
    no1:=1;
    WHILE no1<5
    LOOP
            SELECT quantity_sold,price_per_unit INTO n1,n2 FROM product WHERE prod_no=no1 ;
            t_S(n1,n2,ans);
            UPDATE product SET total_sale =ans WHERE prod_no=no1;
            no1:=no1+1;
    END LOOP;
END;