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

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

  when (this = that)
    do;
      statement_s;
    end;

  when (mystring = 'ABCDE')
    do;
      statement_s;
    end;

  other
    do;
      statement_s;
    end;
end;