force a FIND?

[Ken Langendock]

Anytime...just check with me first before using any
ghost screens...lol

And btw. The old univac and burroughs machines used
Eagle drives (I think), large 6 platter "portable
drives" that were larger than 6 LP records stacked up
with 1 inch spacing between the platters for the heads
to move around in.

ooo, talk about memory.

Anyone remember the air conditioners that they had to
have? I think the were about 1/4 of a car garage bay
in size. I remember the schedule of removing one of
them. They had to remove the glass from the building
and crane them out. there was so much gold in there
the company removed them for free, just to melt them
down and sell the gold.


--- roger32909@bellsouth.net wrote:
> OK, Ken, you are right again.
> This screen already had a custom path procedure:
> 
> PROCEDURE PATH
>    BEGIN
> 
> ...
>     IF T-CNUM NE " "
> 	THEN LET PATH = 1
>     ...
> 
> So, I removed the extra LET statement and everything
> still works fine.
> 
> Thanks again,
> Roger
> > 
> > From: Ken Langendock <ken.langendock@rogers.com>
> > Date: 2005/04/25 Mon AM 10:14:03 EDT
> > To: roger32909@bellsouth.net,  Martin McDonough
> <martin.mcdonough@rosebys.com>
> > CC: powerh-l@lists.sowder.com
> > Subject: Re: RE: force a FIND?
> > 
> > Glad to here your success. 
> > 
> > I could be wrong...:), but I think the LET PATH =
> 1
> > statement does nothing. As soon as you restart the
> > PATH procedure... It should reset the Path to 0. 
> > 
> > Enjoy.
> > Ken
> > 
> >  --- roger32909@bellsouth.net wrote: 
> > > Thanks Ken and Martin.
> > > 
> > > I added this at the end of the designer
> procedure
> > > that calls the subscreen:
> > > 
> > >    ;Upon return, find record again because it
> may
> > > have been updated;
> > >    ;display and recompute remaining (see
> postfind
> > > proc)
> > > 
> > >     LET T-CNUM = T-CNUM-PASS           ;load a
> temp
> > > with desired key value
> > >     LET PATH   = 1	                           
> ;this
> > > PATH finds the record via key using T-CNUM
> > >     PUSH FIND
> > > 
> > > I added this to the POSTFIND procedure:
> > > 
> > >     LET T-CNUM = " "	                           
> > > ;blank it for next (F)ind
> > > 
> > > And now the screen works as I believe it should:
> 
> > > The updated record is displayed to the user with
> no
> > > intervention.
> > > 
> > > Roger
> > > 
> > 
> > 
> 
> -- 
> = = = = = = = = = = = = = = = = = = = = = = = = = =
> = =
> Mailing list: powerh-l@lists.sowder.com
> Subscribe: "subscribe" in message body to
> powerh-l-request@lists.sowder.com
> Unsubscribe: "unsubscribe &lt;password&gt;" in
> message body to powerh-l-request@lists.sowder.com
> http://lists.sowder.com/mailman/listinfo/powerh-l
> This list is closed, thus to post to the list you
> must be a subscriber.
>