#3
|
|||
|
|||
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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|