RosettaCodeData/Task/String-case/PL-I/string-case-1.pli

declare s character (20) varying initial ('alphaBETA');

put skip list (uppercase(s));
put skip list (lowercase(s));