Re: Overloading RPG Subprocedures

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Brad,

This seems like an unusual use case, why would you want a routine where 
the caller doesn't need to distinguish between a PO and an invoice?

That said, the code you provided should work.  Are you having problems?

-SK

On 1/14/2024 4:11 PM, Brad Stone wrote:
> So, I decided to start digging into this. It looks pretty cool.  Thanks for
> the examples online (Scott!)
>
> I have yet to find any examples with more than one parameter, so here is my
> question....
>
> Can you overload with multiple parameters where one or two are different?
> Like this to retrieve an invoice or PO:
>
> dcl-pr getInvoice int(10);
>    In_ID char(128) const;
>    Out_Invoice likeds(invoiceDS) options(*exact);
> end-pr;
>
> dcl-pr getPO int(10);
>    In_ID char(128) const;
>    Out_PO likeds(poDS) options(*exact);
> end-pr;
>
> dcl-pr getData int(10) Overload(getInvoice:getPO);
>
> So you could do something like:
>
> dcl-ds thisInvoiceDS like(invoiceDS)  end-ds;
> dcl-ds thisPODS like(poDS)  end-ds;
> dcl-s rc int(10);
>
> rc = getData('10':thisInvoiceDS);
> rc = getData('10':thisPurchaseOrderDS);
>
>  From what I'm reading this should work.
>
> Blizzards are fun.  Downtime = exploring time. :)
>
>
> Bradley V. Stone
> www.bvstools.com
> Native IBM i e-Mail solutions for Microsoft Office 365, Gmail, or any Cloud
> Provider!