Re: prototype with different type

You could pass a data structure with various types overlaid at position 1

dcl-ds parm2_t Qualified Template;
packedfield Packed(5:2);
charfield Char(250);
end-ds

dcl-proc writeb;
dcl-pi *n;
parm1 Char(50) const;
parm2 LikeDs(parm2_t) const;
end-pi;

end-proc;

Only issue with this, you can only pass character strings as a literal
value. Anything else would have to be passed inside a data structure. The
other option you would have is to pass the data in a special format like
XML or JSON, but once again, you can't pass just a number, or just a
character string as a literal.

On Wed, Jan 24, 2018 at 2:26 PM, tim <iseriesstuff@xxxxxxxxx> wrote:

I use the following:

P writeb b
d writeb pi
d desc 50 const
d val 250 const

/free
write arec;
/end-free

P e

is it possible to define this so that it take any "type" as a second parm.
Then within the routine, determine what that parm type is and proceed as
needed.

writeb('desc1' : 'this is a string');
writeb('desc2' : 123.24);

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD