def buffer pp for customer.

for each customer where customer.cust-num < 4:
	output to "nul".

		find pp where recid (pp) = recid (customer).
		display pp.
		display pp.cust-num + 90 @ pp.cust-num.
		create pp.
		assign pp.
	output close.
end.