|
Hola Isratol!
te paso este ejemplo a ver si te puede ayudar.
RP-UPDATE datos_antiguos datos_nuevos.
Un ejemplo sería:
REPORT ZPRUEBA .
TABLES: PERNR.
* Definimos una tabla interna llamada OLD/NEW con la misma estructura
* que 0001.
INFOTYPES: 0001 NAME OLD,
0001 NAME NEW.
START-OF-SELECTION.
GET PERNR.
* Cuando se efectura el GET las tablas internas OLD y NEW están llenas
* con el resultado de la búsqueda
PROVIDE * FROM OLD BETWEEN PNPBEGDA AND PNPENDDA.
WRITE:/, OLD-PERNR, 'OLD-PERSK':, OLD-PERSK.
* Ponemos el nuevo valor a la tabla NEW
NEW-PERSK = '22'.
WRITE:/ 'NEW-PERSK':, NEW-PERSK.
* Modificamos la tabla interna, no insertamos porque ya esta llena
MODIFY NEW INDEX SY-TABIX.
ENDPROVIDE.
* Llamamos a la macroinstrucción RP-UPDATE pasando la tablas interna
* con los viejos y nuevos datos.
RP-UPDATE OLD NEW.
|