REPORT z_prueba .
types: BEGIN OF t_cdhdr,
changenr TYPE cdhdr-changenr,
username TYPE cdhdr-username,
udate TYPE cdhdr-udate,
END OF t_cdhdr.
types: BEGIN OF t_cdpos,
objectid TYPE cdpos-objectid,
changenr TYPE cdpos-changenr,
value_new TYPE cdpos-value_new,
value_old TYPE cdpos-value_old,
END OF t_cdpos.
data: it_cdhdr type table of t_cdhdr with header line,
it_cdpos type table of t_cdpos with header line.
SELECT-OPTIONS: s_udate FOR sy-datum.
SELECT changenr username udate
FROM cdhdr
INTO TABLE it_cdhdr
WHERE udate IN s_udate.
PERFORM bajar_a_txt.
*&---------------------------------------------------------------------*
*& Form BAJAR_A_TXT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM bajar_a_txt.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = 'C:\prueba.txt'
filetype = 'ASC'
TABLES
data_tab = IT_CDHDR
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
OTHERS = 5.
IF sy-subrc = 0.
WRITE: 'archivo bajado exitosamente'.
ELSE.
WRITE: 'ARCHIVO NO BAJADO'.
ENDIF.
ENDFORM. " BAJAR_A_TXT
PD: Una aclaracion, el subrc es 3 (gui_refuse_filetransfer), pero no se que pasa, muchas gracias!!
|