16. Effectuer des comparaisons multivoies avec SELECT/WHEN/OTHERWISE (V5R3)

Les blocs de code IF/ELSE profondément imbriqués sont difficiles à lire et source d’erreurs. De plus, ils peuvent aboutir à une déplaisante accumulation de ENDDO à la fin du groupe. La nouvelle combinaison SELECT/WHEN/OTHERWISE de commandes est généralement une structure meilleure et plus polyvalente :

Select

    When (&Name = *Cmd) Do
        …
    Enddo

    When (&Int = 1 *And &Name = *Pgm) Do
        …
    Enddo

    Otherwise Do
        …
    Enddo
Endselect