Re: MODS in subprocedures

In your case, the return parameter should return success or failure.

Pass the procedure the Address of the data structure.  If the function
can't, for some reason, load the data structure, return an error condition,
such as 1, and for success return a 0.

For example:
C             If       LoadDS('T': SomeVal: %Addr(MyDS))
C   error condition here, write to log, send message to QSYSOPR, whatever
C             Return
C             EndIf

Otherwise, if you don't care to use an error condition, don't pass a return
parameter.

C             CallP   LoadDS('T': SomeVal: %Addr(MyDS))

Regards,

Jim Langston

Phil wrote:
> 
> Jon,
> 
> What I am passing back is a result set of records.  Usually I define it as
> an external ds.  I just kept my example simple which I shouldn't have done.
> Sorry for the confusion
> 
> I know if I define the pointer outside of the subprocedure that it will work
> and I understand why (I understood that before but somehow didn't see what I
> did wrong).  I now understand also that if I define the pointer as static
> that I can define it within the subprocedure.
> 
> What I am working on understanding now is the merits between passing the
> pointer to the subprocedure versus returning the pointer to the calling
> subprocedure.  For that matter, what are the merits of using a return
> argument at all?
> 
> Phil
> 
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.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
> +---

-- 


Regards,

Jim Langston

Me transmitte sursum, Caledoni!
+---
| 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
+---