open dataset output

[Former Member]

Hi sdns,

I want logic for open dataset output.

bcoz my requirement is internal table to (uploaded) applicationserver.

so I need logic and how to declare the path

[Former Member]

Sreedhar,

do like this

data:    gv_file_name           TYPE string VALUE '/tmp/test.txt'.

  OPEN DATASET gv_file_name FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

  LOOP AT itab INTO wa.
    TRANSFER wa TO gv_file_name.
  ENDLOOP.
  CLOSE DATASET gv_file_name.

<b>Reward Points if it helps,</b>

Satish

[former_member187255]

Sreedhar,

Check these...

<a href="http://www.thespot4sap.com/articles/SAP_Mail_UNIX_Example_ABAP.asp">http://www.thespot4sap.com/articles/SAP_Mail_UNIX_Example_ABAP.asp</a>

<a href="http://abap4.tripod.com/Upload_and_Download_ABAP_Source_Code.html">http://abap4.tripod.com/Upload_and_Download_ABAP_Source_Code.html</a>

<a href="http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb3ca6358411d1829f0000e829fbfe/content.htm">http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb3ca6358411d1829f0000e829fbfe/content.htm</a>

Chandra.

[Former Member]

DATA : SFILE TYPE STRING.

OPEN DATASET SFILE FOR OUTPUT IN BINARY MODE .

SELECT LIFNR NAME1 SORTL LAND1 FROM LFA1 INTO TABLE ITAB.

LOOP AT ITAB.

TRANSFER ITAB TO SFILE.

ENDLOOP.

CLOSE DATASET SFILE.

OPEN DATASET SFILE FOR INPUT IN BINARY MODE.

DO.

READ DATASET SFILE INTO ITAB.

IF SY-SUBRC NE 0.

EXIT.

ENDIF.

ENDDO.

CLOSE DATASET SFILE.

[Former Member]

hi

SEE THIS PROGRAM , WHERE I HAD WROTE LOGIC LIKE THIS

EXCEL TO INTERNAL TABLE AND THEN INTERNAL TABLE TO APPLICATION SERVER

*&---------------------------------------------------------------------*
*& Report  ZSD_EXCEL_INT_APP
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZSD_EXCEL_INT_APP.

parameter: file_nm type localfile.

types : begin of it_tab1,
        f1(20),
        f2(40),
        f3(20),
       end of it_tab1.


data : it_tab type table of ALSMEX_TABLINE with header line,
       file type rlgrap-filename.

data : it_tab2 type it_tab1 occurs 1,
       wa_tab2 type it_tab1,
       w_message(100)  TYPE c.


at selection-screen on value-request for file_nm.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
*   PROGRAM_NAME        = SYST-REPID
*   DYNPRO_NUMBER       = SYST-DYNNR
*   FIELD_NAME          = ' '
   STATIC              = 'X'
*   MASK                = ' '
  CHANGING
   file_name           = file_nm
 EXCEPTIONS
   MASK_TOO_LONG       = 1
   OTHERS              = 2
          .
IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


start-of-selection.

refresh it_tab2[].clear wa_tab2.

file = file_nm.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
  EXPORTING
    filename                      = file
    i_begin_col                   = '1'
    i_begin_row                   =  '1'
    i_end_col                     = '10'
    i_end_row                     = '35'
  tables
    intern                        = it_tab
 EXCEPTIONS
   INCONSISTENT_PARAMETERS       = 1
   UPLOAD_OLE                    = 2
   OTHERS                        = 3
          .
IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

loop at it_tab.

  case it_tab-col.

   when '002'.

    wa_tab2-f1 = it_tab-value.

   when '004'.

    wa_tab2-f2 = it_tab-value.

  when '008'.

    wa_tab2-f3 = it_tab-value.

 endcase.

 at end of row.

  append wa_tab2 to it_tab2.
 clear wa_tab2.
  endat.

endloop.

data : p_file TYPE  rlgrap-filename value 'TEST3.txt'.


OPEN DATASET p_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
*--- Display error messages if any.
  IF sy-subrc NE 0.
    MESSAGE e001(zsd_mes).
    EXIT.
  ELSE.

*---Data is downloaded to the application server file path
    LOOP AT it_tab2 INTO wa_tab2.
      TRANSFER wa_tab2 TO p_file.
    ENDLOOP.
  ENDIF.

*--Close the Application server file (Mandatory).
  CLOSE DATASET p_file.

 loop at it_tab2 into wa_tab2.

  write : / wa_tab2-f1,wa_tab2-f2,wa_tab2-f3.

 endloop.

<b>REWARD IF USEFUL</b>