Gracias Ana .... modifique esta linea data : x(16) type x. y me funciono
REPORT ztest_alg .
DATA : varbartextin(18) TYPE c,
largo TYPE i.
varbartextin = '34' .
*saca espacios en blanco
*SHIFT varbartextin LEFT DELETING LEADING space .
largo = varbartextin+0(2) .
largo = largo + 33 .
data: c(16) type c.
data : i type i .
i = largo.
data : x(16) type x.
field-symbols : <fc> type c.
move i to x.
assign x to <fc> casting type c.
move <fc> to c.
write c+15(1).
BREAK-POINT.
|