Re: prototype with different type

[Mark Murphy <jmarkmurphy@xxxxxxxxx>]

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