RosettaCodeData/Task/Collections/PL-I/collections.pli

   declare countries character (20) varying controlled;
   allocate countries initial ('Britain');
   allocate countries initial ('America');
   allocate countries initial ('Argentina');