Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!csd4.csd.uwm.edu!gem.mps.ohio-state.edu!ginosko!uunet!dgis!jkrueger
From: jkrueger@dgis.daitc.mil (Jonathan Krueger)
Newsgroups: comp.databases
Subject: Re: resuming to a new field in form.
Message-ID: <43@dgis.daitc.mil>
Date: 24 Aug 89 07:03:26 GMT
References: <0Ywdlvy00WB7Q1l6BZ@andrew.cmu.edu>
Organization: DTIC Special Projects Office (DTIC-SPO), Alexandria VA
Lines: 73

The following example builds and executes correctly on INGRES 5.0/04a
(vax.u43/02) and 5.0/05a (pyr.u42/04), which are the most recent releases
of INGRES that RTI sells for Berkeley UNIX on VAX and Pyramid
respectively.  It demonstrates one way to use the resume construct without
terminating a retrieve loop.  It needs a related form, database, table;
construction of them should be evident from the code.  If not, mail me and
I'll send you a shell archive with everything you need.

-- Jon

#define	NAMESIZE	20

main()
{
	startup();
	run();
	cleanup();
}

##startup()
##{
##	ingres mydb
##	forms
##	forminit myform
##}

##cleanup()
##{
##	endforms
##	exit
##}

##run()
##{
##	char	c_name[NAMESIZE + 1];

##	retrieve (c_name = mytable.mycol)
##	{
##		display myform read
##		initialize
##		{
##			putform (name = c_name)
##		}
##		activate menuitem "Next":
##		{
##			breakdisplay
##		}
##		activate menuitem "Resume"
##		{
##			resume
##		}
##		activate menuitem "Name":
##		{
##			resume field name
##		}
##		activate menuitem "Department"
##		{
##			resume field department
##		}
##		activate menuitem "Other":
##		{
##			resume next
##		}
##		activate menuitem "Menu"
##		{
##			resume menu
##		}
##	}
##}
-- 
Jonathan Krueger    jkrueger@dgis.daitc.mil   uunet!dgis!jkrueger
Isn't it interesting that the first thing you do with your
color bitmapped window system on a network is emulate an ASR33?