Missing else if in RPG
Jump to navigation Jump to search
At least in V4R5, IBM has not implemented the well-known else if conditional for multiple branching.
This is easily overcome by SELECT/WHENxx:
C […] C SELECT C FSTAT WHENEQ 12 C […] C FSTAT WHENEQ 1021 C […] C FSTAT WHENEQ 1218 C […] C OTHER C [… default handler …] C ENDSL C […]
- ILE RPG Reference, PDF