RE: File/Service Program/Data Structure Problem...

Brad,

        How is the DS defined in SRVPGM1?  Is it defined within the
subprocedure?  If so, it is a local definition and 'hiding' the global
definition of the field names which is where the fields from the file are
defined.  You can move the DS definition outside the subprocedure so it is
defined globally to the service program then the fields are the same as
those from the file.  When you define a externally defined DS inside a
subprocedure the fields defined because of it are not the same as those
defined from the file (they have the same names but are not the same field).
Hope this description isn't confusing, I have run into this before and the
first time had me puzzled for awhile.

Scott Mildenberger

> -----Original Message-----
> From: Stone, Brad V (TC) [SMTP:bvstone@taylorcorp.com]
> Sent: Thursday, May 11, 2000 3:55 PM
> To:   'RPG400-L@midrange.com'
> Subject:      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
+---