transfering the data using OPEN DATASET

[Former Member]

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

[Former Member]

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:

1

2

3

4

5

10

20

30

40

50

[Former Member]

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

[Former Member]

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.

[Former Member]

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.

[Former Member]

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.

[Former Member]

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.