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