|
OPEN DATASET FILE FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
* IF sy-subrc NE 0.
* FORMAT COLOR 6 INTENSIFIED OFF.
* ULINE AT (255).
* WRITE: / sy-vline,
* ' No se pudo crear al archivo : ',
* 255 sy-vline.
* FORMAT COLOR 2 INTENSIFIED OFF.
* WRITE: / sy-vline,
* ' ', FILE,
* 255 sy-vline.
* ULINE AT (255).
* EXIT.
* ENDIF.
* LOOP AT T_CORREO.
* LINEA+1 = T_CORREO-ROW2.
* TRANSFER LINEA TO FILE.
* TRANSFER file TO 'U:\txt'.
* ENDLOOP.
*
*
*CLOSE DATASET FILE.
|