Re: Overloading RPG Subprocedures

Memorial Day weekend 2017 when I was in EAGAN, MN you said you did not have
time for me to stop in for a visit.

Will be close to zero here in DFW TX tonight. Can I fly up and talk C++ on
the AS400?

Nobody will help me put together a "load one page at a time subfile" in C++.

Thomas in TX



On Sun, Jan 14, 2024 at 4:11 PM Brad Stone <bvstone@xxxxxxxxx> 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!
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.