|
I want to know if this will work. I have a main program calling a subprogram (XCPRIC) that I am prototyping. The parms are external data structures. The prototype (copied in to main program and subprogram) looks like this: D XCPRIC PR ExtPgm('XCPRIC') D pCustDS LikeDS(CustDS) D pItemDS LikeDS(ItemDS) D pInvDS LikeDS(InvDS) In the calling program(s) I have the following: /Include QProtoSrc,XCPRIC D XCPRIC PI D pCustDS LikeDS(CustDS) D pItemDS LikeDS(ItemDS) D pInvDS LikeDS(InvDS) D CustDS E DS ExtName(DMCUSMST) D ItemDS E DS ExtName(DMITMMST) D InvDS E DS ExtName(ININFODS) And then call it like this: XCPRIC(CustDS:ItemDS:InvDS); In the subprogram XCPRIC I have the following: /Include QProtoSrc,XCPRIC D XCPRIC PI D pCustDS LikeDS(CustDS) D pItemDS LikeDS(ItemDS) D pInvDS LikeDS(InvDS) D CustDS E DS ExtName(DMCUSMST) D ItemDS E DS ExtName(DMITMMST) D InvDS E DS ExtName(ININFODS) /FREE CustDS = pCustDS; ItemDS = pItemDS; InvDS = pInvDS; . . . do whatever . . . pCustDS = CustDS; pItemDS = ItemDS; pInvDS = InvDS; Return; /END-FREE Some of the subfields in InvDS are updated. Will this work? -- Jeff Crosby Dilgard Frozen Foods, Inc. P.O. Box 13369 Ft. Wayne, IN 46868-3369 260-422-7531 The opinions expressed are my own and not necessarily the opinion of my company. Unless I say so.
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.