Categorias

Comando REPLACE em ABAP

Imagem do avatar de
Publicado por Zeca Barreto

No código abaixo é possível visualizar um exemplo de uso do comando REPLACE.

REPORT ZREPLACE NO STANDARD PAGE HEADING.

DATA: STRING(30),
BEGIN OF T_VALORES OCCURS 0,
VALOR(5),
END OF T_VALORES.

STRING = 'ABC&DEF&GHI&'.

T_VALORES-VALOR = '11111'.
APPEND T_VALORES.
T_VALORES-VALOR = '22222'.
APPEND T_VALORES.
T_VALORES-VALOR = '33333'.
APPEND T_VALORES.

WRITE / STRING.

LOOP AT T_VALORES.
REPLACE '&' WITH T_VALORES-VALOR INTO STRING.
ENDLOOP.

WRITE / STRING.
Tags: