File/Service Program/Data Structure Problem... -Reply

You may need to use save fields, even though your doing an I/O on the
DB, it's still using the same data because the fields are the same in the
DS, no?  It is essentially looping....I may be off on this but it seems I ran
into this a few years down the road.

>>> "Stone, Brad V (TC)" <bvstone@taylorcorp.com> 05/11/00 02:54pm
>>>
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
+---
+---
| 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
+---