How to download program data into application server.

[Former Member]

Hi All,

How to download program data (internal table data) into application server-unix file.

Regards,

Amar

[Former Member]

Hi u can download data in txt file on appln server.

please see code below.

DATA : itab_j_1iexcdtl_1 LIKE j_1iexcdtl OCCURS 0 WITH HEADER LINE.

data : v_file LIKE rlgrap-filename MODIF ID ab .

OPEN DATASET v_file FOR OUTPUT IN TEXT MODE." ENCODING DEFAULT.

IF sy-subrc = 0.

LOOP AT itab_j_1iexcdtl_1.

TRANSFER itab_j_1iexcdtl_1 TO v_file.

ENDLOOP.

ENDIF.

CLOSE DATASET v_file.

ENDIF.

if u want to read data from that file:

IF r1 = 'X'.

DO.

READ DATASET v_file INTO WA_j_1iexcdtl_1.

IF sy-subrc = 0.

APPEND WA_j_1iexcdtl_1 TO ITAB_j_1iexcdtl_1.

ELSE.

EXIT.

ENDIF.

ENDDO.

CLOSE DATASET v_file.

ENDIF.

Hope it wil helpful.

[Former Member]

Hi Amar,

see the code below to transfer intenal table data to application server.

OPEN DATASET dsn "File name in application server or path
             FOR OUTPUT IN TEXT MODE. 
   IF sy-subrc <> 0.  
      WRITE:  'Error opening :', dsn.  
   ENDIF.  
* Moving internal table data to application server
LOOP AT it_doc INTO wa_doc.   
 TRANSFER wa_doc TO dsn.  
  IF sy-subrc <> 0.    
  WRITE /:  'Error writing'.   
 ENDIF. 
 ENDLOOP.

CLOSE DATASET dsn.

Regards,

Prabhudas