Temporaries being reset (bit long, sorry)

[Ray Bailey]

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


Ray Bailey
Leicester
England


-----Original Message-----
From: Kevin O'Sullivan [mailto:kosullivan@cosworth-racing.co.uk]
Sent: 27 March 2001 11:58
To: 'Powerhouse List Group'
Subject: Temporaries being reset (bit long, sorry)


Hi all,

Firstly, Cognos Bob, if you're reading this, thanks for insight into my
previous problem, It works a treat!

Next on the agenda :-

How do I stop temporary items being reset ?

I've tried the
	Temp BLAH char*10 Reset at Mode
and
	Temp BLAH char*10 Reset at Startup
to no avail.

Given the following excerpt,

----------------------------begin cut----------------------------

Scr REQ2POC Activities Find

Temp T-POLINE   Num*05 RESET AT MODE

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

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

----------------------------end cut----------------------------

I have 5 records (for instance) to be retrieved, and if I compile and run in
debug mode,  I can see that the fields POLINE and T-POLINE are being
allotted
the correct values from the detail find. After the fifth is fetched, the
detail find runs once more and after failing to find any more entries, I
find
the temp T-POLINE has all zeros on the screen.

I have come across this before, but unfortunately cannot remember how to fix
it.

Thanks for all and any assistance.

Regards,

Kevin

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
- Kevin O'Sullivan                        Cosworth Racing Limited,  -
- Systems Administrator                   The Octagon,              -
- Business Information Systems            St James Mill Road,       -
-                                         Northampton, England,     -
-                                         NN5 5RA.                  -
-                                         Tel: +44 (0) 1604 598488  -
- mailto:kosullivan@cosworth-racing.co.uk Fax: +44 (0) 1604 598506  -
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
The views expressed above are mine entirely and in no way represent
those of my employer.



****************************************************************************
****
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.