Missing else if in RPG

From Try-AS/400
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                   […]

Weblinks

Retrieved from "http://try-as400.pocnet.net/index.php?title=Missing_else_if_in_RPG&oldid=167"