report ztest line-size 200 .
data: c1(60) type c value 'Hello World',
c2(60) type c value 'Hello again, World'.
data: length type i.
data: left type i.
data: length_of_field type i.
data: str type string.
describe field c1 length length_of_field IN CHARACTER MODE.
length = strlen( c1 ).
left = length_of_field - length.
translate c1+length(left) using ' %'.
concatenate c1 c2 into str separated by space.
translate str using '% '.
write:/ str.
No comments:
Post a Comment