Re: Need Help With SQL*Forms & Looping Within A Block

fgreene_at_hayes.com writes:

   DECLARE
           loop_control NUMBER := 1;
   BEGIN

	   GO_RECORD('1');
	   WHILE loop_control = 1 LOOP



		   (insert your case specific code here)



		   IF :system.last_record = 'TRUE' THEN
		      loop_control := 0;
		   ELSE
		      NEXT_RECORD;
		   END IF;
	   END LOOP;

BEGIN

	GO_RECORD('1');
	LOOP


		   (insert your case specific code here)



		IF :system.last_record = 'TRUE' THEN
		   EXIT;
		END IF;
		NEXT_RECORD;
	END LOOP;

--
-------- Roy Johnson ---- rjohnson_at_shell.com ---- Speaking for myself --------
"When the only tool you have is Perl, the whole | "Hooray for snakes!"
 world begins to look like your oyster." -- Me  |  -- The Simpsons (29 Apr 93)