dcl value fixed bin (31) init (0);
do forever;
  value = value + 1;

  if mod(value, 6) = 0 then
    leave;

  put list (value);
end;