RosettaCodeData/Task/String-append/PL-I/string-append.pli

Cat: procedure options (main);
   declare s character (100) varying;
   s = 'dust ';
   s ||= 'bowl';
   put (s);
end Cat;