topic Re: transfering the data using OPEN DATASET in Application Development and Automation Discussions

transfering the data using OPEN DATASET

Former Member — Thu, 20 Jul 2006 05:39:22 GMT

Hi all,

I am trying to get the data using OPEN DATASET to down load the data and using TRANSFER i am transfering.

i got strucked while i am downloading.

Please send coding how to use open dataset and transfer.

Thanks in advance

Venkat

Re: transfering the data using OPEN DATASET

Former Member — Thu, 20 Jul 2006 05:44:32 GMT

Hi,

Go through the following code and its output.

DATA FNAME(60) VALUE 'myfile'.

DATA NUM TYPE I.

OPEN DATASET FNAME FOR OUTPUT.

DO 5 TIMES.

NUM = NUM + 1.

TRANSFER NUM TO FNAME.

ENDDO.

OPEN DATASET FNAME FOR INPUT.

OPEN DATASET FNAME FOR APPENDING.

NUM = 0.

DO 5 TIMES.

NUM = NUM + 10.

TRANSFER NUM TO FNAME.

ENDDO.

OPEN DATASET FNAME FOR INPUT.

DO.

READ DATASET FNAME INTO NUM.

IF SY-SUBRC <> 0.

EXIT.

ENDIF.

WRITE / NUM.

ENDDO.

The output appears as follows:

Re: transfering the data using OPEN DATASET

Former Member — Thu, 20 Jul 2006 05:45:33 GMT

OPEN DATASET use for uploading or downloading data in application server....

Re: transfering the data using OPEN DATASET

Former Member — Thu, 20 Jul 2006 05:46:16 GMT

Hi ,

you can try this code frangment.

open the file to be created on application server.

OPEN DATASET app_path FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc NE 0.

MESSAGE e001(zs) .

ELSE.

get header data

PERFORM get_data_header.

*transfer data to application server file.

TRANSFER v_header TO app_path.

get segment data

PERFORM get_data_segment.

*transfer data to application server file.

TRANSFER v_segment TO app_path.

*clear work areas and local variables.

PERFORM clear_local.

get trailer record.

PERFORM get_data_trailer.

*transfer data to application server file.

TRANSFER v_trailer TO app_path.

ENDIF.

CLOSE DATASET app_path.

regards,

Sumit.

Re: transfering the data using OPEN DATASET

Former Member — Thu, 20 Jul 2006 05:47:21 GMT

OPEN DATASET < > for output in TEXT mode.

if sy-subrc = 0.

transfer rec to < >.

endif.

U can actually get the whole syntax in the F1 help....

-Aarthi.

Re: transfering the data using OPEN DATASET

Former Member — Thu, 20 Jul 2006 05:49:00 GMT

OPEN DATASET G_OUTFILE FOR OUTPUT IN TEXT MODE encoding default.

IF SY-SUBRC = 0.

LOOP AT itab.

TRANSFER itab TO G_OUTFILE.

ENDLOOP.

CLOSE DATASET G_OUTFILE.

endif.

Re: transfering the data using OPEN DATASET

Former Member — Thu, 20 Jul 2006 05:50:04 GMT

Hi Venkat,

Do it in this way.

DATA : msg(200). "For holding messages during OPEN DATASET
 
DATA : i_tab LIKE tedata-data.
 
*Lets assume that i_int is your internal table header line.
 
OPEN DATASET w_path FOR INPUT IN TEXT MODE ENCODING DEFAULT MESSAGE msg.
 
 
IF sy-subrc NE 0.
  MESSAGE w_osmsg TYPE 'S' DISPLAY LIKE 'E'.
  LEAVE LIST-PROCESSING.
ENDIF.
 
DO.
  READ DATASET w_path INTO i_tab.
 
  IF sy-subrc EQ 0.
    
    i_int = i_tab.
    APPEND i_int.
    CLEAR  i_int.
    
  ELSE.
 
    EXIT.
  ENDIF.
 
 
ENDDO.
 
  CLOSE DATASET w_path.

Regards,

Arun S.