File/Service Program/Data Structure Problem...

This is a tough one to explain, so bare with me.

Ok... 

I have PGMA.  It is using FILE1. 
I have SRVPGMA that contains a procedure that passes me back the value of
the field that I pass it.  For example, I say:

eval value = #RtvValue('FIELDNAME':Field@)

Field@ is a pointer to a data structure that is defined in PGMA as an
external data structure using FILE1.  This is so they have the same field
names and the data is loaded into the DS automatically when I read a record.

I do this so that I pass the service program the values in the file, the
service program does a big SELECT statment, and returns the value of the
'FIELDNAME' parameter.

Now, in SRVPGM1, I accept the field name and the pointer to the DS that
contains the value.  In SRVPGM1, I have another external DS defined from
FILE1, same as in PGM1.

The DS is SRVPGM1 gets the data just fine, etc... etc...

Now the tricky part.

In SRVPGM1, I also have an option to retrieve the *NEXT value (like for a
detail file.)  So, I do a SETGT on FILE1 in SRVPGM1 to position to the next
record, then read.  The key list is made up of the fields in the DS.

Now, because the DS is created from FILE1, it has the same field names as
the DS.  This is what I want.  So, when I read the file, the fields in the
DS will automatically contain the "NExt" record.

But, after the read, the values do not change in the DS.  I watched the file
pointer and everything moves fine, even does an IO on the read and is
positioned on the RRN of the records I expect it to read.  But the data
stays the same as when I passed it in with the pointer, and doesn't change
to the values of the current record I read in the file.

Hard to follow, yes.  But, if anyone has any ideas why the values of the
fields in the DS aren't changing, that would be great.

Brad
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---