Data commit

Task/Tokenize-a-string/PL-I/tokenize-a-string.pli

@@ -0,0 +1,23 @@
+tok: Proc Options(main);
+declare s character (100) initial ('Hello,How,Are,You,Today');
+declare n fixed binary (31);
+
+n = tally(s, ',')+1;
+
+begin;
+   declare table(n) character (50) varying;
+   declare c character (1);
+   declare (i, k) fixed binary (31);
+
+   table = ''; k = 1;
+   do i = 1 to length(s);
+      c = substr(s, i, 1);
+      if c = ',' then k = k + 1;
+      else table(k) = table(k) || c;
+   end;
+
+   /* display the table */
+   table = table || '.';
+   put skip list (string(table));
+end;
+end;