The RPG operation code SELECT as been with us for many years. It is also found in many other languages, including CL (see the post SELECT in CL).
An alternative was introduced in one of the IBM i V5 releases, the IF-ELSEIF operation codes. If the first IF is not true then the first of the ELSEIF is executed, just like the WHEN in the SELECT group.
Below I show two segments of code that do the same thing, on the left column using the SELECT and on the right the IF-ELSEIF:
select ; when (REGCDE = 'ER') ; DESC = 'East region' ; when (REGCDE = 'WR') ; DESC = 'West region' ; when (REGCDE = 'CA') ; DESC = 'Canada' ; other ; DESC = 'Unknown' ; endsl ;
if (REGCDE = 'ER') ; DESC = 'East region' ; elseif (REGCDE = 'WR') ; DESC = 'West region' ; elseif (REGCDE = 'CA') ; DESC = 'Canada' ; else ; DESC = 'Unknown' ; endif ;
Why does he do that? I always type the names of fields from files in capitals, including display and printer files. All of my work fields are in
camel case (mix of upper and lower case). I do this so that someone else looking at my code knows which fields are from files and which are not.
I also put the fields and test in parentheses () for all operations like IF, FOR, DO, WHEN, etc. as I think it makes it easier to tell what goes with what in a complex statement.
As far as I have been able to tell, speedwise, they are the same. I use the IF-ELSEIF just because it takes up one less line in the source member.
Why was the ELSEIF instroduced? Could it be that there is an ELSEIF in PHP and this is part of IBM's way to help move us over to PHP? Or to encourage PHP programmers to try RPG?
You can learn more about the ELSEIF operation code on the IBM website here»
This article was written for IBM i 7.1, and it should work with earlier releases too.