ALV - Reflect layout change into internal table

I have an ALV :
CALL METHOD grid1->set_table_for_first_display
            EXPORTING I_STRUCTURE_NAME = 'Z_ALV_STRUCTURE_01'
                      IS_VARIANT = GS_VARIANT
                      I_SAVE = X_SAVE
            CHANGING IT_OUTTAB = itab
                     IT_FIELDCATALOG = gt_fieldcat_lvc1[].
This internal table itab has for example the fields: matnr, plant, stock, vendor
If for example the user changes the sequence of the columns in the ALV grid display into: stock, plant, vendor, matnr
Is there an easy way to get the layout change reflected in my internal table or is the only possibility to built dynamically a new internal table based on the front end field catalog?
Kind regards
Frank

Hi
Can't u use the std icone to create an excel file?
Anyway in this case you should use the method get_frontend_fieldcatalog in order to get the status of the catalog and so fill the table for the excel in the right way.
I believe the problem should be on how to create the table for the excel, i.e. you need to consider the sequence of the fields in ordert to create the table for the excel.
Max

Similar Messages

Get ALV Report's Result Into Internal Table

Hello everyone,
is there a way to get a alv reports result into an internal table?
For example: is it possible to get the values from transaction S_ALR_87012078.
I mean i want to write a function an it will give you the alv reports result as internal table, so you won't have to dig the reports code in.
thanks to any answers from now. bye.

Hi
This is a wrapper program which will execute the standard program and capture the output as we are using list to memory
Then after we will be using LIST_FROM_MEMORY and 'LIST_TO_ASCI'
submit rhrhaz00 exporting list to memory
and return
with pchplvar = pchplvar
with pchotype = pchotype
with pchobjid in pchobjid
with pchsobid in pchsobid
with pchseark = pchseark
with pchostat = pchostat
with pchistat = pchistat
with pchztr_d = pchztr_d
with pchztr_a = pchztr_a
with pchztr_z = pchztr_z
with pchztr_m = pchztr_m
with pchztr_p = pchztr_p
with pchztr_y = pchztr_y
with pchztr_f = pchztr_f
with pchobeg = pchobeg
with pchoend = pchoend
with pchtimed = pchtimed
with pchbegda = pchbegda
with pchendda = pchendda
* with pchwegid = pchwegid
* with pchsvect = pchsvect
* with pchdepth = pchdepth
with infty in infty
with subty in subty
with vdata = vdata
with info = info.
data: list like abaplist occurs 0 with header line.
data: txtlines(1024) type c occurs 0 with header line.
clear list.
refresh list.
clear tbl_reportlines.
refresh tbl_reportlines.
call function 'LIST_FROM_MEMORY'
tables
listobject = list
exceptions
not_found = 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.
call function 'LIST_TO_ASCI'
* EXPORTING
* LIST_INDEX = -1
* WITH_LINE_BREAK = ' '
* IMPORTING
* LIST_STRING_ASCII =
* LIST_DYN_ASCII =
tables
listasci = txtlines
listobject = list
exceptions
empty_list = 1
list_index_invalid = 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.
else.
tbl_reportlines[] = txtlines[].
call function 'LIST_FREE_MEMORY'.
endif.
Here is the simple example program
*Example Code (Retrieving list from memory)
DATA BEGIN OF itab_list OCCURS 0.
INCLUDE STRUCTURE abaplist.
DATA END OF itab_list.
DATA: BEGIN OF vlist OCCURS 0,
filler1(01) TYPE c,
field1(06) TYPE c,
filler(08) TYPE c,
field2(10) TYPE c,
filler3(01) TYPE c,
field3(10) TYPE c,
filler4(01) TYPE c,
field4(3) TYPE c,
filler5(02) TYPE c,
field5(15) TYPE c,
filler6(02) TYPE c,
field6(30) TYPE c,
filler7(43) TYPE c,
field7(10) TYPE c,
END OF vlist.
SUBMIT zreport EXPORTING LIST TO MEMORY.
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = itab_list
EXCEPTIONS
not_found = 4
OTHERS = 8.
CALL FUNCTION 'LIST_TO_ASCI'
EXPORTING
list_index = -1
TABLES
listasci = vlist
listobject = itab_list
EXCEPTIONS
empty_list = 1
list_index_invalid = 2
OTHERS = 3.
IF sy-subrc NE '0'.
WRITE:/ 'LIST_TO_ASCI error !! ', sy-subrc.
ENDIF.
Re: alv to internal table

How to get editable data into internal table

Hi ABAPers,
I am displaying REUSE_ALV_GRID_DISPLAY report with one editable field and i have post button in report. Once i select post button i need to get editable data to internal table which i passed to REUSE_ALV_GRID_DISPLAY.
actually i am writing below code but data is not coming to internal table.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                          = sy-repid
     i_callback_pf_status_set                  = 'PF-STATUS'
     i_callback_user_command               = 'USER_COMMAND '
     it_fieldcat                                        = t_field[]
     i_default                                          = 'X'
    TABLES
      t_outtab                          =   <fs_display1>.       "t_display
FORM user_command USING g_ucomm LIKE sy-ucomm
               rs_selfield TYPE slis_selfield.
g_test1 = g_ucomm.
CASE g_ucomm.
    WHEN 'POST'.
      READ TABLE <fs_display1> ASSIGNING <fsw_display1> INDEX 1.    "Just for testing index 1
      IF sy-subrc = 0.
        w_display = <fsw_display1>.
        APPEND w_display TO t_display.
        CLEAR : w_display.
      ENDIF.
      PERFORM v1.
      PERFORM bapi_call.
ENDCASE.
ENDFORM.                    "USER_COMMAND
Please help me how to get.
Regards,
Raju.

Hi,
Try the following:
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_pf_status_set = 'PF-STATUS'
i_callback_user_command = 'USER_COMMAND '
it_fieldcat = t_field[]
i_default = 'X'
TABLES
t_outtab = <fs_display1>. "t_display
FORM user_command USING g_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
g_test1 = g_ucomm.
CASE g_ucomm.
WHEN 'POST'.
* to reflect the data changed into internal table
      DATA : ref_grid TYPE REF TO cl_gui_alv_grid. "new
      IF ref_grid IS INITIAL.
        CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
          IMPORTING
            e_grid = ref_grid.
      ENDIF.
      IF NOT ref_grid IS INITIAL.
        CALL METHOD ref_grid->check_changed_data.
      ENDIF.
READ TABLE <fs_display1> ASSIGNING <fsw_display1> INDEX 1. "Just for testing index 1
IF sy-subrc = 0.
w_display = <fsw_display1>.
APPEND w_display TO t_display.
CLEAR : w_display.
ENDIF.
PERFORM v1.
PERFORM bapi_call.
ENDCASE.
ENDFORM. "USER_COMMAND
Hope it helps.
Regards,
Gilberto Li

Editable ALV-No change in internal table

Hello Experts,
   I have an ALV output, in which I have a column as editable. I have generated the output using 'REUSE_ALV_GRID_DISPLAY'. I got to know that after changing the editable cell's value, if we double click the cell or if operate with any PF-status components, the value will automatically get changed in internal table also. For double click I am getting the expected result. But If I click a button the value doesn't get changed in internal table. Is there any other change I have to do for this. If I have checkbox in ALV will it be rectified. But my requirement is when I click the button only It has to be modified in the database table.
Thanks and regards,
Venkat.

Hi Venkat,
In your form for User Command
write following
DATA ref1 TYPE REF TO cl_gui_alv_grid.
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
        IMPORTING
          e_grid = ref1.
      CALL METHOD ref1->check_changed_data.
Case 'User-Command'.
Endcase.
or
data : i_grid_settings type lvc_s_glay.
"Calling ALV grid for display
call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program             = sy-repid
      i_callback_user_command   = i_callback_user_command
      i_grid_settings                    = i_grid_settings
      is_layout                            = is_layout
      it_fieldcat                           = it_fieldcat
    tables
      t_outtab                             = it_final
"for call back values from editable grid cells
i_grid_settings-edt_cll_cb = 'X'.
Hope it helps you,
Pratik

OO ALV displaying without Values despite Internal table contains

My   below OO ALV displaying without Values despite Internal table contains the values ...
Help please ...
REPORT zsd_concession1 NO STANDARD PAGE HEADING
                        LINE-SIZE 285
                        LINE-COUNT 64
                        MESSAGE-ID zz.
Program Description ******************************
This report is to Calculate consession against Quotations
complying standards for enhanced Performance, Readability &
Maintenance.
Change Log *********************************
Remedy # /       Who       When        Why / What
Transport #
CLASS lcl_event_handler DEFINITION DEFERRED.
*&      Data Definitions .
DATA: BEGIN OF vbap_wa,
            vbeln               TYPE vbak-vbeln,           "Quotation#
            erdat               TYPE vbak-erdat,           "Quot date
            knumv               TYPE vbak-knumv,           "Cond Rec#
            posnr               TYPE vbap-posnr,           "Line Item
            matnr               TYPE vbap-matnr,           "Mat#
            zansicat            TYPE zmarall-zansicat,     "AnsiCat#
            zansigrd            TYPE zmarall-zansigrd,     "Grade
            zcurrvaltnarea      TYPE zco002-zcurrvaltnarea,"Val Area
            zcurrcstusd         TYPE zco002-zcurrcstusd,   "Cost$
            zzbrndnm            TYPE mara-zzbrndnm,        "Brand
            zqedscgrp           TYPE zglbprc-zqedscgrp, "QE Disc Grp
            mstav               TYPE mara-mstav,        "Status
            kwmeng              TYPE vbap-kwmeng,       "Qty
            lprc                TYPE konv-kbetr, "List Price ZBP1
            sprc                TYPE konv-kbetr, "Std Pric ZNAA,ZNAX
            netpr               TYPE vbap-netpr, "Quot price
            mrgn                TYPE konv-kbetr, "margin%
       END   OF vbap_wa,
       BEGIN OF konv_wa,
            knumv               TYPE konv-knumv, "Cond#
            kposn               TYPE konv-kposn, "Cond Item#
            kappl               TYPE konv-kappl, "Applic
            kschl               TYPE konv-kschl, "Cond Typ
            kbetr               TYPE konv-kbetr, "Price ZBP1,ZNAA,ZNAX
       END   OF konv_wa,
       BEGIN OF vbpa_wa,
            vbeln               TYPE vbpa-vbeln, "Quot#
            posnr               TYPE vbpa-posnr, "Item#
            parvw               TYPE vbpa-parvw, "Prt Fn
            kunnr               TYPE vbpa-kunnr, "Cust#
       END   OF vbpa_wa,
       BEGIN OF result_wa,
            posnr               TYPE vbap-posnr,           "Line Item
            matnr               TYPE vbap-matnr,           "Mat#
            zansicat            TYPE zmarall-zansicat,     "AnsiCat#
            zansigrd            TYPE zmarall-zansigrd,     "Grade
            zcurrvaltnarea      TYPE zco002-zcurrvaltnarea,"Val Area
            zcurrcstusd         TYPE zco002-zcurrcstusd,   "Cost$
            zzbrndnm            TYPE mara-zzbrndnm,        "Brand
            zqedscgrp           TYPE zglbprc-zqedscgrp, "QE Disc Grp
            mstav               TYPE mara-mstav,        "Status
            kwmeng              TYPE vbap-kwmeng,       "Qty
            lprc                TYPE konv-kbetr, "List Price ZBP1
            sprc                TYPE konv-kbetr, "Std Pric ZNAA,ZNAX
            netpr               TYPE vbap-netpr, "Quot price
            mrgn                TYPE konv-kbetr, "margin%
       END   OF result_wa.
DATA: ikonv      LIKE STANDARD TABLE OF konv_wa,
      ivbap      LIKE STANDARD TABLE OF vbap_wa,
      ivbpa      LIKE STANDARD TABLE OF vbpa_wa,
      iresult    LIKE STANDARD TABLE OF result_wa.
*Work storage
DATA: BEGIN OF ws,
         vbeln       TYPE vbak-vbeln,
         ok_code     TYPE sy-ucomm,
         alv_save    TYPE c,   "ALV save
         alv_variant TYPE disvariant, "ALV Variant
         alv_sort    TYPE lvc_t_sort, "Sort table
      END OF ws.
*Data declarations for ALV Main list
DATA : ty_lay1        TYPE        lvc_s_layo,
       it_fieldcat    TYPE        lvc_t_fcat ,
       ty_fieldcat    TYPE        lvc_s_fcat ,
       l_smenu        TYPE REF TO cl_ctmenu,
       c_alv1         TYPE REF TO cl_gui_alv_grid,
       c_cont1        TYPE REF TO cl_gui_custom_container,
       e_dclick       TYPE REF TO lcl_event_handler.
*Data declarations for ALV Interactive list
DATA : ty_lay2        TYPE        lvc_s_layo,
       it_fcat        TYPE        lvc_t_fcat ,
       ty_fcat        TYPE        lvc_s_fcat ,
       c_alv2         TYPE REF TO cl_gui_alv_grid,
       c_cont2        TYPE REF TO cl_gui_custom_container.
*Field-Symbols
FIELD-SYMBOLS:
      <konv> LIKE   konv_wa,
      <vbap> LIKE   vbap_wa.
*Constants
CONSTANTS:
      c_end_row    TYPE i VALUE 65000.
*CLASS lcl_event_receiver DEFINITION
CLASS lcl_event_handler DEFINITION.
PUBLIC SECTION.
    METHODS:
     handle_double_click
     FOR EVENT double_click OF cl_gui_alv_grid IMPORTING e_row.
ENDCLASS. "lcl_event_handler DEFINITION
*CLASS lcl_event_receiver IMPLEMENTATION
CLASS lcl_event_handler IMPLEMENTATION.
METHOD handle_double_click.
    DATA: sec_wa LIKE LINE OF iresult.
*Reading the selected data into a variable
    READ TABLE iresult INDEX e_row-index INTO sec_wa.
*Select the field details of the selected table
SELECT * FROM dd03l INTO CORRESPONDING FIELDS OF TABLE it_dd03l
WHERE tabname EQ ls_dd02l-tabname.
*Calling the ALV containing the field values
    CALL SCREEN 101.
ENDMETHOD. "handle_double_click
ENDCLASS. "lcl_event_handler IMPLEMENTATION
*&      SELECTION-SCREEN.
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.
SELECT-OPTIONS:
    s_vbeln FOR ws-vbeln DEFAULT '2002354788' OBLIGATORY.
SELECTION-SCREEN END OF BLOCK a.
INITIALIZATION.
PERFORM setup_screen_defaults.
START-OF-SELECTION.
PERFORM gather_report_data.
END-OF-SELECTION.
PERFORM create_output.
*&      Form initialization
FORM setup_screen_defaults.
CLEAR: ws, konv_wa, vbap_wa, vbpa_wa.
REFRESH: ivbpa, ikonv, ivbap, iresult.
ENDFORM.                    " setup_screen_defaults
*&      Form gather_report_data
FORM gather_report_data.
SELECT vbeln posnr parvw kunnr
           INTO TABLE ivbpa
           FROM vbpa
           WHERE vbeln IN s_vbeln
           AND ( parvw = 'SP' OR "SoldTO
                 parvw = 'WE' OR "ShipTo
                 parvw = 'ZT' ). "Top Parent
SELECT vkvbeln vkerdat vkknumv vpposnr vp~matnr
          z1zansicat z1zansigrd z2~zcurrvaltnarea
          z2zcurrcstusd m1zzbrndnm zg~zqedscgrp
          m1mstav vpkwmeng vp~netpr
    INTO CORRESPONDING FIELDS OF TABLE ivbap
    FROM vbak AS vk
    INNER JOIN vbap AS vp
       ON vpvbeln = vkvbeln
    INNER JOIN zmarall AS z1
       ON z1matnr = vpmatnr
    INNER JOIN zco002 AS z2
       ON z2matnr = vpmatnr
    INNER JOIN zglbprc AS zg
       ON zgmatnr = vpmatnr
    INNER JOIN mara AS m1
       ON m1matnr = vpmatnr
    WHERE vk~vbeln IN s_vbeln
    AND    vk~auart = 'AG'."AG = Quot
SORT ivbap BY posnr matnr.
SELECT kvknumv kvkposn kvkappl kvkschl kv~kbetr
          INTO TABLE ikonv
          FROM konv AS kv
          FOR ALL ENTRIES IN ivbap
          WHERE kv~knumv = ivbap-knumv
          AND    kv~kposn = ivbap-posnr
          AND    kv~kappl EQ 'V'
          AND    ( kv~kschl EQ 'ZBP1'
               OR kv~kschl EQ 'ZNAX'
               OR kv~kschl EQ 'ZNAA' ).
SORT ikonv BY knumv kposn.
LOOP AT ivbap ASSIGNING <vbap>.
    CLEAR konv_wa.
    READ TABLE ikonv INTO konv_wa WITH KEY
                               knumv = <vbap>-knumv
                               kposn = <vbap>-posnr
                               kschl = 'ZBP1'
                               BINARY SEARCH.
    IF sy-subrc EQ 0.
      <vbap>-lprc = konv_wa-kbetr.
    ENDIF.
    READ TABLE ikonv INTO konv_wa WITH KEY
                               knumv = <vbap>-knumv
                               kposn = <vbap>-posnr
                               kschl = 'ZNAX'
                               BINARY SEARCH.
    IF sy-subrc EQ 0.
      <vbap>-sprc = konv_wa-kbetr.
    ENDIF.
    READ TABLE ikonv INTO konv_wa WITH KEY
                               knumv = <vbap>-knumv
                               kposn = <vbap>-posnr
                               kschl = 'ZNAA'
                               BINARY SEARCH.
    IF sy-subrc EQ 0.
      <vbap>-sprc = konv_wa-kbetr.
    ENDIF.
ENDLOOP.
SORT ivbap BY posnr matnr.
LOOP AT ivbap INTO vbap_wa.
    MOVE-CORRESPONDING vbap_wa TO result_wa.
    APPEND result_wa TO iresult.
    CLEAR: vbap_wa, result_wa.
ENDLOOP.
ENDFORM.                    " gather_report_data
*&      Form create_output
FORM create_output.
CALL SCREEN 100.
FREE: iresult.
ENDFORM.                    " create_output
*&      Module PBO_0100 OUTPUT
      text
MODULE pbo_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '0100'.
IF c_cont1 IS INITIAL.
*Creating object of container
    CREATE OBJECT c_cont1
     EXPORTING
       container_name = 'CCONT1'.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
*Creating object of alv
    CREATE OBJECT c_alv1
       EXPORTING
        i_parent = c_cont1.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
*Alv layout
    PERFORM alv_100_layout.
    PERFORM save_alv_layout.
*Alv field catalogue
    PERFORM alv_100_fieldcat.
*Displaying the ALV grid
    CALL METHOD c_alv1->set_table_for_first_display
      EXPORTING
        is_layout       = ty_lay1
        i_save          = ws-alv_save
        is_variant      = ws-alv_variant
      CHANGING
        it_outtab       = iresult[]
        it_sort         = ws-alv_sort
        it_fieldcatalog = it_fieldcat[].
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
*Create object of the event class
*and setting handler for double click
    CREATE OBJECT e_dclick.
    SET HANDLER e_dclick->handle_double_click FOR c_alv1.
ENDIF.
ENDMODULE.                 " PBO_0100 OUTPUT
*&      Module PAI_0100 INPUT
      text
MODULE pai_0100 INPUT.
ws-ok_code = sy-ucomm.
CASE ws-ok_code.
    WHEN 'BACK'.
      CALL SELECTION-SCREEN 1000.
      CLEAR ws-ok_code.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
      CLEAR ws-ok_code.
      EXIT.
    WHEN 'CANCEL'.
      LEAVE TO SCREEN 0.
      CLEAR ws-ok_code.
      EXIT.
    WHEN OTHERS.
ENDCASE.
ENDMODULE.                 " PAI_0100 INPUT
*&      Form alv_100_layout
      text
--> p1        text
<-- p2        text
FORM alv_100_layout.
ty_lay1-numc_total = 'X'. " Numc total line
ty_lay1-cwidth_opt = 'X'. " Optimal column width
ty_lay1-detailinit = 'X'. " Show values that are initial in
ty_lay1-sel_mode = 'A'. " Column selection mode
ty_lay1-no_merging = 'X'. " No merging while sorting columns
ty_lay1-keyhot     = 'X'.
ty_lay1-grid_title = 'SD Concessions'.
ty_lay1-zebra      = 'X'.
ty_lay1-no_toolbar = ' '.
ENDFORM.                    " alv_100_layout
*&      Form alv_100_fieldcat
      text
--> p1        text
<-- p2        text
FORM alv_100_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 1.
ty_fieldcat-fieldname = 'posnr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Item#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 2.
ty_fieldcat-fieldname = 'matnr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Mat#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 3.
ty_fieldcat-fieldname = 'zansicat'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'AnsiCat#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 4.
ty_fieldcat-fieldname = 'zansigrd'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Grade'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 5.
ty_fieldcat-fieldname = 'zcurrvaltnarea'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Val Area'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 6.
ty_fieldcat-fieldname = 'zcurrcstusd'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Cost $'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 7.
ty_fieldcat-fieldname = 'zzbrndnm'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Brand'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 8.
ty_fieldcat-fieldname = 'zqedscgrp'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'QE'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 9.
ty_fieldcat-fieldname = 'mstav'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Status'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 9.
ty_fieldcat-fieldname = 'kwmeng'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Qty'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 10.
ty_fieldcat-fieldname = 'lprc'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'List Price'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 11.
ty_fieldcat-fieldname = 'sprc'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Discount'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 12.
ty_fieldcat-fieldname = 'netpr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Quot Price'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 13.
ty_fieldcat-fieldname = 'mrgn'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Margin%'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
ENDFORM.                    " alv_100_fieldcat
*&      Module PBO_0101 OUTPUT
      text
MODULE pbo_0101 OUTPUT.
*Check if the Custom container exists.
IF c_cont2 IS INITIAL.
*Creating container object
    CREATE OBJECT c_cont2
      EXPORTING
        container_name = 'CCONT2'.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
*creating ALV grid for interactive list
    CREATE OBJECT c_alv2
      EXPORTING
       i_parent = c_cont2.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
*ALV layout
    PERFORM alv_101_layout.
*ALV fieldcatalogue
    PERFORM alv_101_fieldcat.
*Sorting the output by field position
    SORT iresult BY posnr.
*ALV for display field details
    CALL METHOD c_alv2->set_table_for_first_display
      EXPORTING
        is_layout       = ty_lay2
      CHANGING
        it_outtab       = iresult[]
        it_fieldcatalog = it_fieldcat.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDIF.
ENDMODULE.                 " PBO_0101 OUTPUT
*&      Module PAI_0101 INPUT
      text
MODULE pai_0101 INPUT.
ENDMODULE.                 " PAI_0101 INPUT
*&      Form alv_101_layout
      text
--> p1        text
<-- p2        text
FORM alv_101_layout.
ty_lay2-grid_title = 'Line Details'.
ty_lay2-zebra = 'X'.
ty_lay2-no_toolbar = 'X'.
ENDFORM.                    " alv_101_layout
*&      Form alv_101_fieldcat
      text
--> p1        text
<-- p2        text
FORM alv_101_fieldcat.
REFRESH it_fieldcat.
REFRESH it_fcat.
CLEAR ty_fcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 1.
ty_fieldcat-fieldname = 'posnr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Item#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 2.
ty_fieldcat-fieldname = 'matnr'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Mat#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 3.
ty_fieldcat-fieldname = 'zansicat'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'AnsiCat#'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 4.
ty_fieldcat-fieldname = 'zansigrd'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Grade'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 5.
ty_fieldcat-fieldname = 'zcurrvaltnarea'.
ty_fieldcat-tabname = 'iresult'.
ty_fieldcat-coltext = 'Val Area'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
ENDFORM.                    " alv_101_fieldcat
*&      Form save_alv_layout
      text
--> p1        text
<-- p2        text
form save_alv_layout.
ws-alv_save = 'A'.
ws-alv_variant-report = sy-repid.
endform.                    " save_alv_layout

Hello
Creating fieldcatalogs manually is one of the major error sources in ALV programming.
There is hardly any reason why NOT to use the standard-fm LVC_FIELDCATALOG_MERGE in order to create a proper fieldcatalog.
If you need some modification of the standard fieldcatalog (e.g. renaming of columns, etc.) just do your post-processing after calling the fm.
Regards
Uwe

Function module to get data into internal table from Excel file sheets

Hi,
I have to upload customers from excel file.
we are donloading customer data excel file sheets.
Customer data in 1 sheet, tax data the other sheet of same excel file, Customer master-Credit data in other sheet of same excel file.
so i have 3-4 sheet in one excel file.
now my requirement is to get the data from excel file into internal table.
is there any function module.
Thanks & Regards

I am sending you the idea with an example how you can upload data from an EXCEL file into an internal table. I am not sure if you can take data from different sheet in the same EXCEL file. I think that this is not possible (try it )
Upload the data into an internal table, like the way that I am describing in the above:
DATA: L_MAX_COL_NB TYPE I.
DATA: l_file_name LIKE RLGRAP-FILENAME.
Just to be sure that is the correct type for the FM.
l_file_name = P_FILE_NAME.
L_MAX_COL_NB = 58. "Maximum nb of colums that the FM can read.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
       EXPORTING
            FILENAME                = l_file_name
            I_BEGIN_COL             = 1
            I_BEGIN_ROW             = 2
            I_END_COL               = L_MAX_COL_NB
            I_END_ROW               = 9999
       TABLES
            INTERN                  = PT_EXCEL
       EXCEPTIONS
            INCONSISTENT_PARAMETERS = 1
            UPLOAD_OLE              = 2
            OTHERS                  = 3.
IF SY-SUBRC <> 0.
ENDIF.
Now you should upload the data into your own itab. The Function Module will return to you all the an itab
from all fields and columns. Define the structure of the uploading file into SE11 - Data Dictionary. Then read the fieldcatalog of this structure. In the code that I am sending to you, I am insearting an empty line into the internal table and then I am assigning this line into a corresponding field-symbol. Then I am able to change the working area - so and the line of the itab. Propably you could you the statement APPEND INITIAL LINE TO (your_table_name) ASSIGNING <your_field_symbol>, but the example was written in an old SAP version.
FIELD-SYMBOLS:
                 <F_REC> LIKE WA_UPLOAD_FILE,      "working are of the uploading file
                 <F_FIELD> TYPE ANY.
DATA: COLUMN_INT TYPE I,
        C_FIELDNAME(30) TYPE C.
PERFORM GET_FIELDCATOLG TABLES FIELDCAT
                           USING 'ZECO_CHARALAMBOUS_FILE'.
LOOP AT PT_EXCEL.
    AT NEW ROW.
      ASSIGN WA_UPLOAD_FILE TO <F_REC>.
    ENDAT.
    COLUMN_INT = PT_EXCEL-COL.
    READ TABLE FIELDCAT INTO WA_FIELDCAT INDEX COLUMN_INT.
    CONCATENATE '<F_REC>-' WA_FIELDCAT-FIELDNAME INTO C_FIELDNAME.
    ASSIGN (C_FIELDNAME) TO <F_FIELD>.
    <F_FIELD> = PT_EXCEL-VALUE.
    AT END OF ROW.
      APPEND WA_UPLOAD_FILE TO GT_UPLOAD_FILE.
      CLEAR WA_UPLOAD_FILE.
    ENDAT.
ENDLOOP.
With Regards
George
Edited by: giorgos michaelaris on Mar 4, 2010 3:44 PM

Upload excel data into Internal table

Hi,
I'm trying to upload excel data into internal table, well the excel file layout will be different on each run of the report.
Excel file will have 60 columns and 500 record limit. I can upload the excel data using 'ALSM_EXCEL_TO_INTERNAL_TABLE' and 'KCD_EXCEL_OLE_TO_INT_CONVERT' but the output table is generates 60 lines for each record i.e.., 60 * 500 = 30,000 which could cause performance.
I try with the FM 'TEXT_CONVERT_XLS_TO_SAP', but this will only work if the file structure is static. It didn't work for dynamic file layout. Even GUI_UPLOAD doesn't work to upload excel file, it will work if I convert the file to Tab delimited file.
Please advise if you know any alternate procedure to upload excel data into internal table.
Thanks,
Kumar.

Moderator message - Cross post locked
Rob

Read info about files in specific folder into internal table

Hi Experts
I need to have last modified date and filename information read into an internal table. I need to read in the information of all files in a specific (UNIX) folder (I do not know the name of the single files).
I really hope someone can help.
Thanks a lot
Kind regards,
Torben

Hi Guys
Thanks a lot for you input.
I managed to get my program to works as follows:
REPORT ZDELETE_ARCHIVING_FILES.
*Step 1: Get the list of files in the directory into internal table :
DATA: DLIST    LIKE EPSFILI OCCURS 0 WITH HEADER LINE,
      DPATH    LIKE EPSF-EPSDIRNAM,
      MDATE    LIKE SY-DATUM,
      MTIME    LIKE SY-UZEIT.
DATA: BEGIN OF FATTR OCCURS 0,
          FILE_NAME LIKE EPSF-EPSFILNAM,
          FILE_SIZE LIKE EPSF-EPSFILSIZ,
          FILE_OWNER LIKE EPSF-EPSFILOWN,
          FILE_MODE LIKE EPSF-EPSFILMOD,
          FILE_TYPE LIKE EPSF-EPSFILTYP,
          FILE_MTIME(12),
      END OF FATTR.
DATA: P_PATH(50) TYPE C.
CONCATENATE '/ARCHIVE/' sy-sysid '/archive' INTO P_PATH.
*        WRITE: / P_PATH.
DPATH = P_PATH.
*Get files in folder - read into internal table DLIST
*if filenames are longer than 40 characters
*then use FM SUBST_GET_FILE_LIST.
CALL FUNCTION 'EPS_GET_DIRECTORY_LISTING'
     EXPORTING
          DIR_NAME               = DPATH
     TABLES
          DIR_LIST               = DLIST
     EXCEPTIONS
          INVALID_EPS_SUBDIR     = 1
          SAPGPARAM_FAILED       = 2
          BUILD_DIRECTORY_FAILED = 3
          NO_AUTHORIZATION       = 4
          READ_DIRECTORY_FAILED = 5
          TOO_MANY_READ_ERRORS   = 6
          EMPTY_DIRECTORY_LIST   = 7
          OTHERS                 = 8.
IF SY-SUBRC EQ 0.
*Step 2: Read the file attributes into an internal table
*Read info about the files (attributes) into the internal table FATTR
*as we need info about the last time it was changed (MTIME)
LOOP AT DLIST.
    CALL FUNCTION 'EPS_GET_FILE_ATTRIBUTES'
         EXPORTING
              FILE_NAME              = DLIST-NAME
              DIR_NAME               = DPATH
         IMPORTING
              FILE_SIZE              = FATTR-FILE_SIZE
              FILE_OWNER             = FATTR-FILE_OWNER
              FILE_MODE              = FATTR-FILE_MODE
              FILE_TYPE              = FATTR-FILE_TYPE
              FILE_MTIME             = FATTR-FILE_MTIME
         EXCEPTIONS
              READ_DIRECTORY_FAILED = 1
              READ_ATTRIBUTES_FAILED = 2
              OTHERS                 = 3.
    IF SY-SUBRC EQ 0.
      FATTR-FILE_NAME = DLIST-NAME.
      APPEND FATTR.
    ENDIF.
ENDLOOP.
SORT FATTR BY FILE_NAME.
DATA: time(10), date LIKE sy-datum.
DATA: months TYPE i.
DATA: e_file TYPE string.
LOOP AT FATTR.
CLEAR: time, months, e_file.
    IF FATTR-FILE_NAME(10) = 'archive_BW'.
*Convert the unix time into readable time
      PERFORM p6_to_date_time_tz(rstr0400) USING FATTR-FILE_MTIME
                                                 time
                                                 date.
*Calculate the number of months between date (MTIME) and current day
*ex 31.03.2009 - 01.04.2009 = 1 month
*ex 01.02.2009 - 01.04.2009 = 2 month
    CALL FUNCTION 'MONTHS_BETWEEN_TWO_DATES'
      EXPORTING
        i_datum_von = date
        i_datum_bis = sy-datum
      IMPORTING
        e_monate = months.
        CONCATENATE DPATH '/' FATTR-FILE_NAME INTO e_file.
*        WRITE: / FATTR-FILE_NAME,
*                 FATTR-FILE_SIZE,
*                 date,
*                 time,
*                 sy-datum,
*                 months,
*                 e_file.
*Step 3: Delete files where months > 1
      IF months > 1.
        OPEN dataset e_file for output in text mode encoding default.
        DELETE dataset e_file.
        CLOSE dataset e_file.
      ENDIF. "months > 1
    ENDIF.
ENDLOOP.
ENDIF.

Collect message into internal table

Hi,
does any one knows how BAPIs or CALL TRANSACTIONs collect messages into internal table.
My problem is that some BI with CALL TRANSACTION doesn't collect right message into return table and I would like to collect this last message after CALL TRANSACTION and therefore be sure that everything went OK.....
thx
mario

hi
good
check this
Call Transaction p_trans using ZBDC_Table
                               Mode p_mode
                             Update p_update
                      Messages into p_messages.
     Move sy-subrc to w__subrc.
   Scan the messages in YDCRAISES to see if we need to
   change the message class.
     Loop at p_messages.
          Select single msgtyp
            into w__msgtp
            from zdcraise
           where tcode = p_messages-tcode and
                 msgid = p_messages-msgid and
                 msgnr = p_messages-msgnr.
          If sy-subrc = 0.
             Move w__msgtp to p_messages-msgtyp.
             Modify p_messages.
          EndIf.
     EndLoop.
   Dump the message table ?
     If w__ydcset-dumpmsg = True.
thanks
mrutyun^

How to transfer data of RFC into Internal Table inside a WD4A program?

Hi Experts,
I have created WD4A program. This program calls RFC. The output of RFC has to populate a UI table. THe different cells of the table should have different color based on data.
I have gone through following link:
http://www.sdn.sap.com/irj/scn/index?rid=/library/uuid/707fb792-c181-2d10-61bd-ce15d58b5cf1
The above link fetches data from directly from table. Then it passes the data into internal table.
If I am using RFC, then how I can insert data of RFC into a internal table in WD4A program (se80 In drop down Web Dynpro Comp / Intf)
My motto is to have table ouput whose different cells should have different color based on data.
Please help.
Regards,
Gary
Edited by: Jason Lax on Dec 28, 2011 2:52 PM (Fixed broken link)

Hi Experts,
I have resolved the issue. I have created WD4A program. This WD4A program calls the RFC.
The RFC has a structure as export parameters called 'RESULT_FINAL'. I have altered the associated type of this table export parameter. I added Component 'Color' of component type 'WDUI_TABLE_CELL_DESIGN'.
In the RFC I have added some code. The code is as below:
loop at it_t1.
      select pernr from pa0000 into table it_t2 where pernr = it_t1-pernr and stat2 ='3'
      and begda <= sy-datum AND endda >= sy-datum.
      if sy-subrc = 0.
        result_final-org_unit = result_objec-objid.
        result_final-pernr = it_t1-pernr.
        result_final-name = it_t1-name.
        result_final-color = '02'.       append result_final.
      endif.
    endloop.
The line   result_final-color = '02'.
code returns Color.
In the WD4A program, I have changed the Cell Design property of selected table coloumn to Color.
This resolved the issue.
Thanks every one for the reply.
I have added above information for other SDN users.
I am closing this thread,
Regards,
Gary

Read local folder, return filenames into internal table

Assume I have 3 files in c:\abc folder:
a1.xls
a2.xls
a6.xls
Is there a fm or code sample to pass in folder name (ie c:\abc) and returns a1.xls, a2.xls and a6.xls into internal table?

Use Class CL_GUI_FRONTEND_SERVICES Method DIRECTORY_LIST_FILES to get list of file in a folder . FILE_TABLE will give the table with list of files
data: begin of itab ,
        file(26) type c,
      end of itab.
data: tab type table of itab.
data : cnt type i.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_LIST_FILES
EXPORTING
    DIRECTORY                   = 'C:\temp'
*    FILTER                      = '*.*'
*    FILES_ONLY                  =
*    DIRECTORIES_ONLY            =
CHANGING
    FILE_TABLE                  = tab
    COUNT                       = cnt
* EXCEPTIONS
*    CNTL_ERROR                  = 1
*    DIRECTORY_LIST_FILES_FAILED = 2
*    WRONG_PARAMETER             = 3
*    ERROR_NO_GUI                = 4
*    NOT_SUPPORTED_BY_GUI        = 5
*    others                      = 6
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

How to load text data into internal table

I have a text file to load txt data into internal table. So how to read text data with validation and to load all text data into the internal table?
Say this is the text file:
IO_NAME, IO_TYPE, IO_SHTXT, IO_LONGTEXT, DATATYPE, DATA LENGTH
ZIO_TEST1, CHA, IO TEST1, IO TEST 1, CHAR, 20
ZIO_TEST2, CHA, IO TEST2, IO TEST 2, CHAR, 20
Regards,
Mau

Hi,
U can use GUI_UPLOAD for this...
Declare an internal table like
data: begin of itab occurs 0,
string(1200),
end of itab.
check the sample code:
cange as you need
DATA: DATEI_PC TYPE STRING VALUE 'C:\MATNR.TXT'.
DATA: BEGIN OF ITAB occurs 0,
TXT(1024),
END OF ITAB.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GUI_UPLOAD
EXPORTING
FILENAME = DATEI_PC
FILETYPE = 'ASC'
CHANGING
DATA_TAB = ITAB[]
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_ERROR = 12
ACCESS_DENIED = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
NOT_SUPPORTED_BY_GUI = 17
ERROR_NO_GUI = 18
OTHERS = 19.
IF SY-SUBRC NE 0. WRITE: / 'Error in Uploading'. STOP. ENDIF.
WRITE: / 'UPLOAD:'.
LOOP AT ITAB. WRITE: / ITAB-TXT. ENDLOOP.

Extract the classification data into internal table

Hi all,
I having requirement to extract classification data for material number.
1) Provide the selection option for material number (MATNR).
2) Based on the material number, then extract all that data into internal table as below layout. My problem is how to retrieve the following data from different table based on the MATNR (material number).
Please provide the sample code for select the following data. Thanks.
Classification table
OBJEK (from AUSP table)
MAFID (from AUSP table)
KLART (from AUSP table)
CLASS (from KLAH table)
ATWRT (from AUSP table)
MSEHI (from CABN table)
OBTAB (check if class type=002, set it as MARA)
STDCL (from KSSK table)

Hi,
if I understand, you´re trying to get information from the classification system for the material. You can use the following code:
DATA: clases LIKE TABLE OF sclass WITH HEADER LINE,
      datos LIKE TABLE OF clobjdat WITH HEADER LINE.
CALL FUNCTION 'CLAF_CLASSIFICATION_OF_OBJECTS'
     EXPORTING
          class              = 'DESK'               "clase a buscar
          classtype          = '001'                "tipo de la clase
          features           = 'X'
          language           = sy-langu
          object             = 'PM00A000C055'       "Material
          objecttable        = 'MARA'
          key_date           = sy-datum
          initial_charact    = 'X'
          change_service_clf = 'X'
     TABLES
          t_class            = clases
          t_objectdata       = datos
     EXCEPTIONS
          no_classification = 1
          no_classtypes      = 2
          invalid_class_type = 3
          OTHERS             = 4.
loop at datos.
endloop.

Problem to upload the data into internal table record length more than 6000

Hi all
I stuck with this problem from past 3 days. I have to upload the data from excel sheet. iam making it tab delimited and trying to upload from gui_upload. but in the structure of file, we have, one field of 4000 characters, and other fields of 255 characters.
how can i upload this into internal table . From excel sheet or from tab delimeted or any other format? or any special function module is there? while iam doing this its truncating the datat 255 characters and not uploading the other fields also...
can any one of you help me out. ASAP
thnks in advance

from one of the forum iam just pasting code which it is used in lsmw, try the same logic in ur code hope it can work.
you have to create multiple lines with do...enddo loop., like this:
(assuming excel_long_text-text is 924 characters long, 7 lines X 132 char)
__GLOBAL_DATA__
data: offset type i,
text_132(132) type c.
__BEGIN_OF_RECORD__ Before Using Conversion Rules
Rule : Default Settings Modified
Code: /sapdmc/ltxtl = init_/sapdmc/ltxtl.
CLEAR offset.
DO 7 TIMES.
text_132 = excel_long_text-text+offset(132).
offset = offset + 132.
__END_OF_RECORD__ After Using Conversion Rules
Rule : Default Settings Modified
Code: transfer_record.
ENDDO.
also check this
COMMIT_TEXT
To load long text into SAP
READ_TEXT
To load long text into SAP

Issue with uploading XML file from application server into internal table

i Need to fetch the XML file from the application server and place into internal table and i am getting error message while using the functional module   SMUM_XML_PARSE and the error message is "line   1 col   1-unexpected symbol; expected '<', '</', entity reference, character data, CDATA section, processing instruction or comment" and could you please let me know how to resolve this issue?
    TYPES: BEGIN OF T_XML,
             raw(2000) TYPE C,
           END OF T_XML.
DATA:GW_XML_TAB TYPE T_XML.
DATA: GI_XML_TAB TYPE TABLE OF T_XML INITIAL SIZE 0.
DATA:GI_STR TYPE STRING.
data: GV_XML_STRING TYPE XSTRING.
DATA: GI_XML_DATA TYPE TABLE OF SMUM_XMLTB INITIAL SIZE 0.
data:GI_RETURN TYPE STANDARD TABLE OF BAPIRET2.
    OPEN DATASET LV_FILE1 FOR INPUT IN TEXT MODE ENCODING DEFAULT.
    IF SY-SUBRC NE 0.
      MESSAGE 'File does not exist' TYPE 'E'.
    ELSE.
      DO.
* Transfer the contents from the file to the work area of the internal table
        READ DATASET LV_FILE1 INTO GW_XML_TAB.
        IF SY-SUBRC EQ 0.
          CONDENSE GW_XML_TAB.
*       Append the contents of the work area to the internal table
          APPEND GW_XML_TAB TO GI_XML_TAB.
        ELSE.
          EXIT.
        ENDIF.
      ENDDO.
    ENDIF.
* Close the file after reading the data
    CLOSE DATASET LV_FILE1.
    IF NOT GI_XML_TAB IS INITIAL.
      CONCATENATE LINES OF GI_XML_TAB INTO GI_STR SEPARATED BY SPACE.
    ENDIF.
* The function module is used to convert string to xstring
    CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
      EXPORTING
        TEXT   = GI_STR
      IMPORTING
        BUFFER = GV_XML_STRING
      EXCEPTIONS
        FAILED = 1
        OTHERS = 2.
    IF SY-SUBRC <> 0.
      MESSAGE 'Error in the XML file' TYPE 'E'.
    ENDIF.
ENDIF.
IF GV_SUBRC = 0.
* Convert XML to internal table
    CALL FUNCTION 'SMUM_XML_PARSE'
      EXPORTING
        XML_INPUT = GV_XML_STRING
      TABLES
        XML_TABLE = GI_XML_DATA
        RETURN    = GI_RETURN.
ENDIF.
READ TABLE GI_RETURN TRANSPORTING NO FIELDS WITH KEY TYPE = 'E'.
IF SY-SUBRC EQ 0.
    MESSAGE 'Error converting the input XML file' TYPE 'E'.
ELSE.
    DELETE GI_XML_DATA WHERE TYPE <> 'V'.
    REFRESH GI_RETURN.
ENDIF.

Could you please tel me why the first 8 lines were removed, till <Soap:Body and also added the line <?xml version="1.0" encoding="UTF-8"?> in the beggining .
Becuase there will be lot of XML files will be coming from the Vendor daily and that should be uploaded in the application server and should update in the SAP tables based on the data in the XML file.
what information i need to give to vendor that do not add the first 8 lines in the XML file and add the line in the beggining <?xml version="1.0" encoding="UTF-8"?>   ??????
Is there any other way we can do with out removing the lines?

ALV - Reflect layout change into internal table

Similar Messages

Maybe you are looking for