RE: External DS as parm

["Jeff Crosby" <jlcrosby@xxxxxxxxxxxxxxxx>]

Arrgh.  Ignore this.  I resent it to the right list.  And it's not even
Monday.

-- 
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.
 

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx 
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Crosby
> Sent: Tuesday, April 19, 2005 10:42 AM
> To: 'Midrange Systems Technical Discussion'
> Subject: External DS as parm
> 
> 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.
> 
> 
> 
> --
> This is the Midrange Systems Technical Discussion 
> (MIDRANGE-L) mailing list To post a message email: 
> MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change 
> list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, 
> please take a moment to review the archives at 
> http://archive.midrange.com/midrange-l.
> 
> 
>