Re: Where to post ideas for RPG

[CRPence <crpbottle@xxxxxxxxx>]

On 16-Aug-2016 06:11 -0700, Mark Murphy/STAR BASE Consulting Inc. wrote:
> I have added two new RFE's for your consideration:
>
> [http://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe&CR_ID=93114]
> [http://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe&CR_ID=93115]
>
> These are to add new BIF's to RPG:
>       93114 is for %min(fld1: fld2: ...) and %max(fld1: fld2: ...)
>       93115 is for %right(str: int) and %left(str: int)
>
> Yes I could write my own procedures for %max and %min, but I could
> not write one max or min procedure to handle all cases, and the BIF
> equivalent of %right using %subst is a bit convoluted. %min, %max,
> %right, and %left are more readable, thus more maintainable, and
> generic enough that they should be part of the language.

  Seems easy enough, to just code those using SQL [shown without any 
error checking]:

     exec SQL
        set :min_Val = min( :fld1, …, exp_n, …)
     ;
     exec SQL
        set :max_Val = max( :fld1, …, exp_n, …)
     ;
     exec SQL
        set :str_Suffix = right( :str , :int_exp )
     ;
     exec SQL
        set :str_Prefix = left ( :str , :int_exp )
     ;