Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 645
  • Last Modified:

Strange eval problem - Two variables updated with one EVAL statement - RPG IV

I have a called program which sets two variables with one eval statement.  The compile looks correct.  I have a screen cast which shows the program in debug (values before and after the execution of the statement).  Note the same problem occurs when I type 'Eval ....' on the command line in debug.  Both variables are set to the value.  Sound like a buffer or storage location error, but I don't know where or what to check.   I've attached a compiled listing of the programs and the screencast.  

Thanks you for your help!
Lynn  

lynn-harris-430883.flv
Program.txt
0
lynn_harris
Asked:
lynn_harris
  • 2
  • 2
1 Solution
 
tliottaCommented:
We probably need to see how those are defined. All we can see here is how this program references them.

What does the CALL look like that invokes this program? How are the variables defined back in the calling program? That's where the actual memory is defined. This program references them as being distinct entities, but they are PARMs after all. Reference here may be misleading.

Maybe.

Tom
0
 
lynn_harrisAuthor Commented:
Hi Tom,

I will get all the information together and repost it when I get back to my computer.  It will probably be late tonight.  

Thank you .... more soon.

Lynn
0
 
lynn_harrisAuthor Commented:

Hi Tom,

You were right.  I looked at the calls a number of times, but missed the error until I went back this time.  Sorry to have wasted your time.  (too many hours in front of the screen)  Thank you.  

Lynn  
0
 
tliottaCommented:
No problem. It's never a waste of time if it brings an answer closer.

Tom
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now