string_fmt.p
| 1 |
define variable fmt as character no-undo. |
|---|---|
| 2 |
define variable valstr as character no-undo. |
| 3 |
define variable val as int no-undo. |
| 4 |
|
| 5 |
put "====" skip. |
| 6 |
|
| 7 |
repeat: |
| 8 |
import unformatted fmt. |
| 9 |
import unformatted valstr. |
| 10 |
put fmt skip. |
| 11 |
put valstr skip. |
| 12 |
val = INTEGER(valstr). |
| 13 |
put string(val, fmt) skip. |
| 14 |
end. |
| 15 |
|
| 16 |
output close. |