Re: RPG naming of overloaded Java methods

[Gene Burns <burns.gene@xxxxxxxxx>]

I resorted to using SQL functions, which can be overloaded.


        exec sql
          set :splitlimit = CSPiValue(:limitidcat, :Split);


        exec sql
                set :rv = CSPiValue(:isst, :zip);


              exec sql
                set :wrk4pos = CSPiValue(:class4pos, :liability, :bus2nd,
                    :blankspace, :blankspace, :blankspace);


limitidcat    = 10A
Split           = 4A
isst            = 2A
zip             = 5S 0
class4pos  = 10A
liability       = 4A
bus2nd       = 2A
blankspace = 1a




On Mon, Jul 27, 2009 at 3:16 PM, Robert Rogerson <rogersonra@xxxxxxxxx>wrote:

>   Since RPG does not allow for procedure overloading I'm wondering what
>   other solutions people have come up with.
>
>   For example, I have....
>
>         *
>         * iText Document Methods
>         *
>        D new_iText_Document...
>        D                 PR                  like(iText_Document)
>        D                                     ExtProc(*JAVA
>        D                                     :'com.lowagie.text.Document'
>        D                                     :*CONSTRUCTOR)
>        D new_iText_Document_Pagesize...
>        D                 PR                  like(iText_Document)
>        D                                     ExtProc(*JAVA
>        D                                     :'com.lowagie.text.Document'
>        D                                     :*CONSTRUCTOR)
>        D pagesize                            like(iText_Rectangle)
>   where the constructor for an new_iText_Document is overloaded.  My
>   solution was to add the Pagesize parameter to the name.
>
>   Does anyone else have any other naming suggestions?
>
>   Thanks,
>
>   Robert Rogerson
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.