Ver Mensaje Individual
  #2  
Viejo 13/08/12, 22:44:52
ademar ademar is offline
Member
 
Fecha de Ingreso: oct 2008
Localización: Lima - Perú
Mensajes: 31
Talking

Hola victor2180,
La sentencia APPEND sirve para agregar registros a una tabla interna (por ejemplo).

Copia el siguiente codigo y ejecutalo.

report ZDEMO1 no standard page heading.

types: begin of ydatos,
nombre(30) type c,
edad(5) type c,
end of ydatos.

data: idatos type table of ydatos."tabla interna
data: wdatos like line of idatos."estructura

clear:wdatos."limpia estructura
wdatos-nombre = 'Jose'.
wdatos-edad = '23'.
append wdatos to idatos."agrega los datos de la estructura a la tabla interna

clear:wdatos.
wdatos-nombre = 'Carlos'.
wdatos-edad = '28'.
append wdatos to idatos.

clear:wdatos.
wdatos-nombre = 'Carmen'.
wdatos-edad = '30'.
append wdatos to idatos.

*-Impresion en pantalla
LOOP AT idatos into wdatos.
write:/1 wdatos.
ENDLOOP.


*Fin



- La impresión quedaria algo asi:
Jose 23
Carlos 28
Carmen 30
__________________

------------------------------------
antony.alza@gmail.com
Responder Con Cita