RosettaCodeData/Task/Loops-Do-while/PL-I/loops-do-while-2.pli

 dcl value fixed bin(31) init(0);
 do Until(value=6);
   value+=1;
   put Skip list(value);
 end;