RosettaCodeData/Task/Conditional-structures/PL-I/conditional-structures-3.pli

select; /* select first matching condition */
  when (i = 4);
    do;
      statement(s)
    end;

  when (this = that)
    do;
      statement(s)
    end;

  when (string = 'ABCDE')
    do;
      statement(s)
    end;

  other
    do;
      statement(s)
    end;
end;