RosettaCodeData/Task/Copy-a-string/PL-I/copy-a-string.pli

   declare (s1, s2) character (20) varying;
   s1 = 'now is the time';
   s2 = s1;