Re: Where to post ideas for RPG

And if you don’t have SQL?


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Aug 17, 2016, at 3:52 PM, CRPence <crpbottle@xxxxxxxxx> wrote:

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 )
;


--
Regards, Chuck

--
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: 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.

Please contact support@xxxxxxxxxxxx for any subscription related questions.