-- Anonymous PL/SQL block

declare

cust_no customers.cno%type;
emp_no employees.eno%type;
part_no parts.pno%type;
order_no orders.ono%type;
quant odetails.qty%type;
i positive;
j positive;

begin

 emp_no := 1000;     -- use emp_no = 1000 thru 1010
 part_no := 10510;   -- use part_no = 10510 thru 10558
 quant := 1;         -- use quant = 1 thru 5
 order_no := 1024;   -- start with order_no = 1024

for j in 1..4 loop   -- loop thru customers 4 times

  -- start with cust_no = 4000 and stop with cust_no = 4027
 for cust_no in 4000..4027 loop
	add_order (order_no, cust_no, emp_no, null);
	
    for i in 1..3 loop  -- 3 items per order
	 add_order_details (order_no, part_no, quant);
	    if (quant < 5) then
	       quant := quant + 1; -- variety!
	    else
	       quant := 1;  -- start over
	    end if;
	   
	    if (part_no < 10558) then
	       part_no := part_no + 1;   -- variety!
	    else
	       part_no := 10510;   -- start over
	    end if;
	end loop;
	 
	order_no := order_no + 1;  -- next order number
	if (emp_no < 1010) then
	   emp_no := emp_no + 1;  -- round robin => next employee
	else
	   emp_no := 1000;   -- start over
	end if;
 end loop;
end loop;
end;
/
show errors