Temporaries being reset (bit long, sorry)

[Mike Palandri]

Kevin,

When I've used a temp in a cluster, I've always had it occur with the file, and used no reset.  Also I'm not sure whether you changed the find proc just to add the call to the internal, if so, you could retain the generated find and load the field temps in postfind, perhaps something like this:

Scr REQ2POC Activities Find

File POMAS      Primary
  Select if POREQST = T-POREQST
File REQ-TO-PO  Designer
File POFIL      Detail     Occurs 6

Temp T-POLINE   Num*05 occurs with POFIL



Cluster Occurs with POFIL
Align (,,5)(,,15)
Field T-POLINE          NoId NoLabel
Field PN of POFIL       NoId NoLabel
Cluster

;Procedure Internal SETPOFIL
;Begin
;  Let T-POLINE = POLINE / 100
;  Display T-POLINE
;End

;Procedure Detail Find
;Begin
;  For Missing POFIL
;    Begin
;      Get POFIL Via PO using PO of POMAS Opt
;      Do Internal SETPOFIL
;    End
;End


procedure postfind
begin
  for POFIL
  begin
    Let T-POLINE = POLINE / 100
    Display T-POLINE
  end
end





At 12:24 PM 03/27/2001 +0100, Kevin O'Sullivan wrote:
>Hi Ray,
>
>tks for the response.
>
>Having tried your code, the zero's are all now replaced by 5 (the last value
>in the field for the last record retrieved).
>
>What i really really want, is the each record should show its own value.
>
>1
>2
>3
>4
>5
>
>hmmm, drawing board again.
>
>Regards,
>
>Kevin
>
>-----Original Message-----
>From: Ray Bailey [mailto:Ray.Bailey@Lightsout.co.uk]
>Sent: 27 March 2001 12:12
>To: kosullivan@cosworth-racing.co.uk; 'Powerhouse List Group'
>Subject: RE: Temporaries being reset (bit long, sorry)
>
>
>Kevin
>
>The screen seems to be working correctly as the sixth record does not exist
>and so the calc will be 0. If however you want the temp to keep the value of
>the last calculation then try the code below.
>
>Procedure Detail Find
>Begin
>  For Missing POFIL
>    Begin
>      Get POFIL Via PO using PO of POMAS Opt
>      IF ACCESSOK
>      THEN Do Internal SETPOFIL
>    End
>End
>
>
>
>********************************************************************************
>This email and any files transmitted with it are confidential and
>intended solely for the use of the individual or entity to whom they
>are addressed. If you have received this email in error please notify
>the email administrator - mailadmin@cosworth-racing.co.uk
>********************************************************************************
>
>= = = = = = = = = = = = = = = = = = = = = = = = = = = =
>Mailing list: powerh-l@lists.swau.edu
>Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
>Unsubscribe: "unsubscribe" in message body to powerh-l-request@lists.swau.edu
>http://lists.swau.edu/mailman/listinfo/powerh-l
>This list is closed, thus to post to the list you must be a subscriber.
>

Mike
.