topic Re: open dataset output in Application Development and Automation Discussions

open dataset output

Former Member — Fri, 16 Nov 2007 13:25:05 GMT

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

Re: open dataset output

Former Member — Fri, 16 Nov 2007 13:27:54 GMT

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

Re: open dataset output

former_member187255 — Fri, 16 Nov 2007 13:30:24 GMT

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.

Re: open dataset output

Former Member — Mon, 19 Nov 2007 09:30:05 GMT

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.

Re: open dataset output

Former Member — Mon, 19 Nov 2007 09:34:48 GMT

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>