OPEN DATASET Err

vallamuthu_madheswaran2 — Mon, 19 Nov 2007 10:27:32 GMT

Hi Friends,

i am usig the below statement

OPEN DATASET p_file FOR INPUT IN TEXT MODE ENCODING DEFAULT MESSAGE msg.

now i want OPEN DATASET p_file FOR INPUT ." ==> is it correct? i am getting err

i want get EXCEL data(not text or de-limited) from Application server

Thanks & Regards,

vallamuthu.M

Re: OPEN DATASET Err

former_member194152 — Mon, 19 Nov 2007 10:31:42 GMT

hi,

instead of this OPEN DATASET p_file FOR INPUT

use

OPEN DATASET p_file FOR INPUT <b>encoding default.</b>

Re: OPEN DATASET Err

Former Member — Mon, 19 Nov 2007 10:33:14 GMT

before uploading application server. close the open excell file.

chk gui_upload funtion

Re: OPEN DATASET Err

Former Member — Mon, 19 Nov 2007 10:38:10 GMT

see this example code

where i had wrote to transafer data from EXCEL to INTERNAL TABLE and then to APPLICATION server

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 usefull</b>

Re: OPEN DATASET Err

vallamuthu_madheswaran2 — Mon, 19 Nov 2007 11:16:36 GMT

Hi Naresh,

u gave 2 seperate program.

in variable FILE how i get the server path.

P_file has a application server path.

my question is " HOW I GET EXCEL DATA FROM SERVER PATH"

Thanks & Regards,

vallamuthu.m

topic OPEN DATASET Err in Application Development and Automation Discussions

OPEN DATASET Err

Re: OPEN DATASET Err

Re: OPEN DATASET Err

Re: OPEN DATASET Err

Re: OPEN DATASET Err