|
Thanks David and excuse me while I go Doh! :-) Passing a pointer was the obvious answer. The data structure will be externally defined in both programs so there will be no problem with mis-match of parameters etc. Many thanks Paul Tuohy David Morris wrote: > > Paul, > > If you want to pass a data structure and it will be modified in your > procedure that looks OK. You could achieve the same result by > passing the data structures address. If the DS cannot be modified, > I would add CONST and move the parameter to the DS. I would > only use these techniques if I had no control over the DS definition. > My preference would be to send the subfields as individual parms. > This allows more flexibility, better documents, and validates the > procedure's parameters. > > David Morris > > >>> Paul Tuohy <tuohyp@ibm.net> 03/22/99 03:34PM >>> > Hope someone can help me. I am working on a V4R2 machine and I am > defining a Procedure Interface for a main procedure in a called program. > > Does anyone know of a way of defining a data structure as a parameter in > the PI? the following is the best I could come up with ( excuse the > spacing etc.) > > D PI > D DataPrm > Like(DataDs) > > D DataPtr S * > > D DataDs DS > Based(DataPtr) > > ( definition of subfields) > > C Eval DataPtr = > %Addr(DataPrm) > > Anyone got a better solution? > > TIA > > Paul Tuohy > > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * > * This is the RPG/400 Discussion Mailing List! To submit a new * > * message, send your mail to "RPG400-L@midrange.com". To unsubscribe * > * from this list send email to MAJORDOMO@midrange.com and specify * > * 'unsubscribe RPG400-L' in the body of your message. Questions should * > * be directed to the list owner / operator: david@midrange.com * > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This is the RPG/400 Discussion Mailing List! To submit a new * * message, send your mail to "RPG400-L@midrange.com". To unsubscribe * * from this list send email to MAJORDOMO@midrange.com and specify * * 'unsubscribe RPG400-L' in the body of your message. Questions should * * be directed to the list owner / operator: david@midrange.com * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.