Data commit

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

@@ -0,0 +1,4 @@
+declare s character (20) varying initial ('alphaBETA');
+
+put skip list (uppercase(s));
+put skip list (lowercase(s));

Task/String-case/PL-I/string-case-2.pli

@@ -0,0 +1,5 @@
+/* An alternative to the above, which might be used if some */
+/* non-standard conversion is required, is shown for        */
+/* converting to upper case:                                */
+put skip list ( translate(s, 'abcdefghijklmnopqrstuvwxyz',
+                             'ABCDEFGHIJKLMNOPQRSTUVWXYZ') );