Alexei Kaigorodov, 06/18/2019 08:40 AM
Download (244 Bytes)
BLOCK-LEVEL ON ERROR UNDO, THROW.
define variable format as character no-undo.
define variable value as character no-undo.
do while true:
import unformatted format.
import unformatted value.
put string(value, format) skip.
end.