How to get the final internal table after the ALV is modified?

Dear experts,
My WebDynpro application allows users to delete row, sort the column. After all this modification, I need to get the final internal table of ALV to generate a csv.file. Are there any methods to get the final interal table content of ALV?
Many thanks!
meer

Hi Friend ,
Please see this link for wiki of WDA Alv Hierarchy : [http://www.sdn.sap.com/irj/scn/index?rid=/library/uuid/c060fcb4-2c62-2b10-d2b2-f32407a5cc6f&overridelayout=true]
Regards,

Similar Messages

HOW TO CREATE A FINAL INTERNAL TABLE FROM 8 OTHER INTERNAL TABLES

I have around 8 internal tables and I need to merge all of them into one final internal table so that I need to pass the new internal table for ALV Grid display

Hi Balram,
Assuming that there are logical links (ie foreign key relationships) between each of these internal tables, on way is to do several loops controlled by a binary search.
eg. we have 2 tables:
types: begin of ty_makt,
            matnr type matnr,
            maktx type maktx,
          end of ty_makt.
types: begin of ty_mara,
            matnr type matnr,
            bismt type bismt,
          end fo ty_mara.
types: begin of ty_output,
            matnr type matnr,
            bismt type bismt,
            maktx type maktx,
          end of ty_output.
data: tbl_mara type table of ty_mara with header line,
        tbl_makt type table of ty_makt with header line,
        tbl_putput type table of ty_output with header line.
sort tbl_makt by matnr.
loop at tbl_mara.
read table tbl_makt with key matnr = tbl_mara-matnr binary search.
if sy-subrc eq 0.
* build tbl_output here
endif.
endloop.
Hope this helps.
Cheers,
Pat.

How to get the alv saved in background mode without modifying the program?

Hi all,
I have to run a standard report(IW39) in background and save the result ALV as excel or text file.
How to get the result saved in excel / text format if I don't want to customize the standard program?
(In the spool, there is an option to save list in file "Spreadsheet", but the saved format is not what we expected.
It is expected the data to be put is separated in each column / tab-delimited in the text file....)
Many Thanks!

I don't have any ready made coding examples, but using the F1 help on SUBMIT statement will help to get you quite a way:
DATA list_tab TYPE TABLE OF abaplist.
SUBMIT 'RIAUFK20'
USING SELECTION-SCREEN
EXPORTING LIST TO MEMORY
              AND RETURN.
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
    listobject = list_tab
EXCEPTIONS
    not_found = 1
    OTHERS     = 2.
IF sy-subrc = 0.
CALL FUNCTION 'WRITE_LIST'
    TABLES
      listobject = list_tab.
ENDIF.
Edited by: Micky Oestreich on May 18, 2009 8:18 AM

How to get data to internal table from function module tr_inspect_objects

How to get data from funtion module to an internal table .
function module name is tr_inspect_objects(code inspectore se10)
how top collect all task request data into one internal table using this fm or we have to create another fm .
If you have already made FM please give us the code .

Hi,
You can use tables E070 or E071 to get data into your internal tables instead of a function module.
Hope this helps.
BR
Dep

How to get the alv grid report in another screen when double click on basic

Hi.
I have created an alv report using class cl_gui_alv_grid.I got another report in the same screen,when double clicked on basic list(using double_click event).I want to get this report in another screen.What i have to do?(In classical reports i worked with sy-lsind = 1 ,but how to do here?)
How to set color to the selected rows in the alv grid report?I worked with change_data_from_inside method of cl_gui_alv_grid.But it didn't work out..
With Regards,
Ramana.

On double click event . you will have to call another screen say 9000.
now within screen 900 PBO.. you will have to prepare the fieldcatalog/layout.. and the table to be displayed there.
in PAI of screen 9000, you can return to the original ALV.
method double_click.
call screen 9000.
endmethod.
" now in PBO create a module display_alv2
module display_alv2.
'prepare the fieldcat/layout info for new alv
'add the data to the new ALV table
'instantiate the grid call.. etc
'call the ALV
endmodule
"in PAI
module exit.
case sy-ucomm.
when 'ENT1'.
leave to screen 0.
endcase.
endmodule
while preparing the field catalog you can mention the EMPHASIZE field, whish will give color to tht column
E.g
*--Service Order
    ls_fieldcat-tabname   = 'IT_FINAL_VALID'.
    ls_fieldcat-fieldname = 'AUFNR'.
    ls_fieldcat-scrtext_m = 'Service Order'.
    ls_fieldcat-ref_table = 'AUFK'.
    ls_fieldcat-ref_field = 'AUFNR'.
    ls_fieldcat-col_pos   = 1.
    ls_fieldcat-outputlen = 12.
    ls_fieldcat-emphasize = 'C400'. "This will add color to the cell
    APPEND ls_fieldcat TO fcat_valid.
Hope this helps.

Getting the final internal table of a transaction VA05

Hi,
Can anyone help me in getting the final internal table of a transaction VA05 when called from a program. I need to use to this internal table for further processing.
Thanks in advance,
Vinay.

Hi,
Not quite sure what you are after but the following may help.
For a start VA05 uses FM RV_SALES_DOCUMENT_VIEW_3 to select it's data. Your program could simply call this. However, if you are doing a CALL TRANSACTION from your program to VA05 and you want to get the results back then you could utilise some 'old style' userexits available in VA05.
Two choices here:
1. At the end of FM RV_SALES_DOCUMENT_VIEW_3 there is a form END_MODIFICATION or
2. When VA05 calls RV_SALES_DOCUMENT_VIEW_3 it performs a user sort MV75AFZ1(MV75AFZ1)
Both of these belong to package VMOD which means you can modify them by simply registering the object in OSS (these are 'old style' exits before SMOD/CMOD and are prevelant in SD)
From either of these you could EXPORT to memory for when control is returned back to your program.
Thanks,
Pete

How to get the field name of an internal table during runtime?

How to get the field name of an internal table during runtime?

Hi Sudhir,
Declare and Use Get Cursor Field in Your Prm to get the field Name of the Intenal Table
Example Code:
    <b> DATA: v_field(60).                        " Insert this code.
     GET CURSOR FIELD v_field.        " Insert this code.</b>
     <b>CHECK v_field = 'ITAB-KUNNR'.    " Insert this code. (or)
Write: v_field.</b>
Regards,
Ramganesan K.

How to get the table with no. of records after filter in webdynpro

Dear Gurus,
How to get the table with no. of records after filter in webdynpro?
Thanks in advance.
Sankar

Hello Sankar,
Please explain your requirement clearly so that we can help you easily.
To get the table records from your context node use method get_static_attributes_table()
data lo_nd_mynode type ref to if_wd_context_node.
data lt_atrributes_table type wd_this->elements_mynode.
lo_nd_mynode = wd_context->get_child_node( name = wd_this->wdctx_mynode ).
lo_nd_mynode->get_static_attributes_table( importing table = lt_atrributes_table ).
Note: You should have already defined your context node as a Dictionary Structure.
BR,
RAM

How to get the link between mara, ausp, cawn and cawnt tables

hello ABAPERS
i have got a requiremet in that i have to get the relation .
how to get the link between mara, ausp, cawn and cawnt tables and also type how can we get link between char value and char description in cawn and cawnt tables through ausp and mara tables.
I would be very thankful for ur help in advance.
Thanks & Regards.
soni

Hi,
Sample report using the linkage between tables;
report batch_char no standard page heading
                          line-size 132
                          line-count 58(1)
                          message-id mm.
       Report by Batch Characteristic                                *
Description          : Report by Batch Characteristic                *
Declaration for Tables
tables: mara,    " Material Master
        mard,    " Storage Location Data for Material
        t001w,   " Plants/Branches
        t001l,   " Storage Locations
        cabn,    " Characteristics
        inob.    " Link between Internal Number and Object
Declaration for Constants
constants : c_klart like ausp-klart value '023',     " Class Type
            c_obtab like inob-obtab value 'MCH1',    " Database Table
            c_flag type c          value 'X',       " Flag
            c_c23   type i          value '23',      " Ratio
Constants for Ratio Categories
            c_13    type p decimals 2 value '13.00', " For Ratio 13
            c_1499 type p decimals 2 value '14.99', " For Ratio 14.99
            c_15    type p decimals 2 value '15.00', " For Ratio 15
            c_1699 type p decimals 2 value '16.99', " For Ratio 16.99
            c_17    type p decimals 2 value '17.00', " For Ratio 17
            c_1899 type p decimals 2 value '18.99', " For Ratio 18.99
            c_19    type p decimals 2 value '19.00', " For Ratio 19
            c_2099 type p decimals 2 value '20.99', " For Ratio 20.99
            c_21    type p decimals 2 value '21.00', " For Ratio 21
            c_2299 type p decimals 2 value '22.99', " For Ratio 22.99
            c_23    type p decimals 2 value '23.00', " For Ratio 23
            c_g23(4) type c value '>=23',            " For Ratio >=23
            c_ratio(5) value 'RATIO',                  " For Ratio
Constants for Storing Selected item field information
            c_cursor1(15) value 'I_OUTPUT1-MEINS',   " For Selected Base
                                                     " Unit of Measure
            c_cursor2(15) value 'I_OUTPUT1-MATNR',   " For Selected Base
                                                     " Material Number
            c_cursor3(15) value 'I_OUTPUT1-MAKTX',   " For Selected Base
                                                     " Material Des.
            c_cursor4(15) value 'I_OUTPUT1-CLABS',   "For Selected Base
                                                     " Stock Value
            c_cursor5(15) value 'I_OUTPUT1-ATFLV',   " For Selected Base
                                                    " Char.Value (Ratio)
            c_cursor6(5) value 'C_G23'.
Declaration for Global Variables
data : g_exit type c,                            " Flag
       g_clabs1(16) type c,                       " Quantity
       g_clabs(18) type c,                       " Quantity
       g_cursor(15) type c,                       " Cursor field name
       g_matnr     type mara-matnr,               " Material Number
       g_werks     type mchb-werks,               " Plant
       g_atinn(30) type c.                        " Character.
Declaration for Internal tables
Internal table to hold Batch Stock data
data : begin of i_mchb occurs 0,
         matnr like mchb-matnr,      " Material Number
         werks like mchb-werks,      " Plant
         lgort like mchb-lgort,      " Storage Location
         charg like mchb-charg,      " Batch Number
         clabs like mchb-clabs,      " Stock Value
         meins like mara-meins,      " Unit of measure
         atflo like ausp-atflv,      " Char.Value (Ratio)
         atflv like ausp-atflv,      " Char.Value (Ratio)
       end of i_mchb.
Internal table to hold Secondary List data
data : begin of i_mchb1 occurs 0,
         werks like mchb-werks,      " Plant
         matnr like mchb-matnr,      " Material Number
         lgort like mchb-lgort,      " Storage Location
         charg like mchb-charg,      " Batch Number
         atinn like ausp-atinn,      " Char.Value
         clabs like mchb-clabs,      " Stock Value
         atflo like ausp-atflv,      " Char.Value (Ratio)
         atflv like ausp-atflv,      " Char.Value (Ratio)
       end of i_mchb1.
Internal table to get the Plant Name
data : begin of i_plant occurs 0,
         werks like t001w-werks,     " Plant
         name1 like t001w-name1,     " Name
       end of i_plant.
Internal table to get the Material Description
data : begin of i_makt occurs 0,
         matnr like makt-matnr,      " Material
         maktx like makt-maktx,     " Description
       end of i_makt.
Internal table to hold AUSP data
data : begin of i_ausp occurs 0,
         objek like ausp-objek,      " Object No
         atinn like cabn-atinn,      " Characteric value
         atflv like ausp-atflv,      " Characteristic Value
       end of i_ausp.
Internal table to hold output data
data : begin of i_output occurs 0,
         atinn like cabn-atinn,      " Characteric value
         werks like mchb-werks,      " Plant
         matnr like mchb-matnr,      " Material Number
         atnam like cabn-atnam,      " Characteristic
         atflv like ausp-atflv,      " Char.Value (Ratio)
         name1 like t001w-name1,     " Plant Description
         maktx like makt-maktx,      " Material Description
         clabs like mchb-clabs,      " Stock Value
         meins like mara-meins,      " Base Unit of Measure
       end of i_output.
Internal table to hold final Output data
data : begin of i_output1 occurs 0,
         atinn like cabn-atinn,      " Characteric value
         werks like mchb-werks,      " Plant
         matnr like mchb-matnr,      " Material Number
         atnam like cabn-atnam,      " Characteristic
         atflv(32) type c,           " Char.Value (Ratio)
         name1 like t001w-name1,     " Plant Description
         maktx like makt-maktx,      " Material Description
         clabs like mchb-clabs,      " Stock Value
         meins like mara-meins,      " Base Unit of Measure
       end of i_output1.
       Selection screen
selection-screen begin of block b1 with frame title text-001.
select-options: s_werks for t001w-werks obligatory, " Plant
                s_lgort for t001l-lgort,             " Stor.Location
                s_matnr for mara-matnr obligatory, " Material No
                s_atinn for cabn-atinn.              " Character.
selection-screen end of block b1.
At selection screen
at selection-screen.
Validation of Selection Screen Fields
perform validate_screen.
Start of selection
start-of-selection.
Get the Material and Batch Stock data from MARA and MCHB Tables
perform get_mat_stock_data.
Get the Material Group Text and Plant Name from T023T and T001W Tables
perform get_plant_grp_data.
Append the data into final Output Internal Table after getting the
Characteristic Values data from INOB and AUSP Tables
perform append_final_data.
Processing if the Characteristics contain 'RATIO'
perform collect_ratio.
End-of-Page
end-of-page.
write /1(125) sy-uline.
End of selection
end-of-selection.
if g_exit <> c_flag.
Display the Report Output data
    perform display_report.
endif.
Top-of-Page
top-of-page.
Write the Report and Column Headings
perform get_headings.
at line-selection
at line-selection.
if sy-lsind = 1.
    perform display_batch.
endif.
Top of page during line-selection
top-of-page during line-selection.
perform heading_seclist.
      Form validate_screen
Validation of Selection Screen fields
form validate_screen.
Validation of Plant
clear t001w.
if not s_werks[] is initial.
    select werks
      into t001w-werks
      from t001w
      up to 1 rows
      where werks in s_werks.
    endselect.
    if sy-subrc <> 0.
      message e899 with 'Enter Valid Plant'(002).
    endif.
endif.
Validation of Material Number
clear mara.
if not s_matnr[] is initial.
    select matnr
      into mara-matnr
      from mara
      up to 1 rows
      where matnr in s_matnr.
    endselect.
    if sy-subrc <> 0.
      message e899 with 'Enter Valid Material'(003).
    endif.
endif.
Validation of Storage Location
clear t001l.
if not s_lgort[] is initial.
    select lgort
      into t001l-lgort
      from t001l
      up to 1 rows
      where lgort in s_lgort.
    endselect.
    if sy-subrc <> 0.
      message e899 with 'Enter Valid Storage Location'(004).
    endif.
endif.
Validation of Characteristic Value
clear cabn.
if not s_atinn[] is initial.
    select atinn
      into cabn-atinn
      from cabn
      up to 1 rows
      where atinn in s_atinn.
    endselect.
    if sy-subrc <> 0.
      message e899 with 'Enter Valid Characteristic Value'(005).
    endif.
endif.
Validation of Plant, Material and Storage Location
clear mard.
select matnr werks lgort
    into (mard-matnr, mard-werks, mard-lgort)
    from mard
    up to 1 rows
    where matnr in s_matnr and
          werks in s_werks and
          lgort in s_lgort.
endselect.
if sy-subrc <> 0.
    message e899 with 'No Data found for the Selection Criteria'(006).
endif.
endform.                          "validate_screen
*&      Form get_headings
Write the Report and Column Headings
form get_headings.
data: l_repid type sy-repid.
l_repid = sy-repid.
call function 'Y_STANDARD_HEADING'
       exporting
            repid    = l_repid
            heading1 = sy-title.
write:/1(125) sy-uline.
format color col_heading on.
write : /1 sy-vline, 2(18)   'Material Number'(008) centered,
          20 sy-vline, 21(40) 'Material Description'(011) centered,
          61 sy-vline, 62(22) 'Ratio'(009) centered,
          84 sy-vline, 85(18) 'Quantity'(010) centered,
         103 sy-vline, 104(20) 'Base Unit of Measure'(015) centered,
         125 sy-vline.
write:/1(125) sy-uline.
format color off.
endform.                    "get_headings
*&      Form get_mat_stock_data
Get the Material and Batch Stock data from MARA and MCHB Tables
form get_mat_stock_data.
clear: i_mchb,i_output, i_output1.
refresh: i_mchb,i_output, i_output1.
select a~matnr       " Material Number
         b~werks       " Plant
         b~lgort       " Storage Location
         b~charg       " Batch Number
         b~clabs       " Stock Value
         a~meins       " Base Unit of Measure
      into table i_mchb
      from mara as a inner join mchb as b
      on amatnr eq bmatnr
      where b~matnr in s_matnr and
            b~werks in s_werks and
            b~lgort in s_lgort.
if sy-subrc <> 0.
    g_exit = c_flag.
    message s899 with 'No Data found for the Selection Criteria'(006).
    stop.
endif.
sort i_mchb by matnr werks lgort charg.
endform.                    " get_mat_stock_data
*&      Form get_plant_grp_data
Get the Material Group Text and Plant Name from T023T and T001W
form get_plant_grp_data.
if not i_mchb[] is initial.
Get the Plant Description from t001w Table
    clear i_plant.
    refresh i_plant.
    select werks      " Plant
           name1      " Name
      into table i_plant
      from t001w
      for all entries in i_mchb
      where werks = i_mchb-werks.
Get the Material Description from MAKT Table
    clear i_makt.
    refresh i_makt.
    select matnr      " Material number
           maktx      " Material Description
      into table i_makt
      from makt
      for all entries in i_mchb
      where matnr = i_mchb-matnr and
            spras = sy-langu.
    sort i_plant by werks.
    delete adjacent duplicates from i_plant comparing werks.
    sort i_makt by matnr.
    delete adjacent duplicates from i_makt comparing matnr.
endif.
endform.                   "form get_plant_grp_data.
*&      Form append_final_data
Append the data into final Internal Table
form append_final_data.
data : l_matbatch(28),
         l_tabix like sy-tabix.
if not i_mchb[] is initial.
    loop at i_mchb.
      l_tabix = sy-tabix.
      clear l_matbatch.
      concatenate i_mchb-matnr i_mchb-charg into l_matbatch.
      move-corresponding i_mchb to i_output.
Get the Plant Description from i_plant Table
        read table i_plant with key werks = i_mchb-werks binary search.
        if sy-subrc = 0.
          i_output-name1 = i_plant-name1.
        endif.
Get the Material Description from i_makt Table
      read table i_makt with key matnr = i_mchb-matnr binary search.
      if sy-subrc = 0.
        i_output-maktx = i_makt-maktx.
      endif.
Get the Characteristic Values data from INOB and AUSP Tables
      clear inob.
      select single cuobj from inob
          into inob-cuobj
          where klart = c_klart and
                obtab = c_obtab and
                objek = l_matbatch.
      if sy-subrc = 0.
        select objek
               atinn
               atflv
           from ausp
           into table i_ausp
           where objek = inob-cuobj and
                 atinn in s_atinn   and
                 klart = c_klart.
        sort i_ausp by objek atinn.
        loop at i_ausp.
          clear cabn.
          select single atinn atnam from cabn
                     into (cabn-atinn,cabn-atnam)
                     where atinn = i_ausp-atinn.
          if sy-subrc = 0.
If the ratio value is between 13-14.99, display 13
            if cabn-atnam cs c_ratio.
              if i_ausp-atflv between c_13 and c_1499.
                i_mchb-atflo = i_ausp-atflv.
                i_mchb-atflv = c_13.
If the ratio value is between 15-16.99, display 15
              elseif i_ausp-atflv between c_15 and c_1699.
                i_mchb-atflo = i_ausp-atflv.
                i_mchb-atflv = c_15.
If the ratio value is between 17-18.99, display 17
              elseif i_ausp-atflv between c_17 and c_1899.
                i_mchb-atflo = i_ausp-atflv.
                i_mchb-atflv = c_17.
If the ratio value is between 19-20.99, display 19
              elseif i_ausp-atflv between c_19 and c_2099.
                i_mchb-atflo = i_ausp-atflv.
                i_mchb-atflv = c_19.
If the ratio value is between 21-22.99, display 21
              elseif i_ausp-atflv between c_21 and c_2299.
                i_mchb-atflo = i_ausp-atflv.
                i_mchb-atflv = c_21.
If the ratio value is greater than or equal to 23, display 23
              elseif i_ausp-atflv >= c_23.
                i_mchb-atflo = i_ausp-atflv.
                i_mchb-atflv = c_23.
              endif.           " Condition for RATIO values
            else.              " If characteristic does contain RATIO
              i_mchb-atflv = i_ausp-atflv.
            endif.
            i_output-atinn = cabn-atinn.
            i_output-atnam = cabn-atnam.
            i_output-atflv = i_ausp-atflv.
            i_mchb1-matnr = i_mchb-matnr.
            i_mchb1-werks = i_mchb-werks.
            i_mchb1-lgort = i_mchb-lgort.
            i_mchb1-charg = i_mchb-charg.
            i_mchb1-clabs = i_mchb-clabs.
            i_mchb1-atinn = i_ausp-atinn.
            i_mchb1-atflo = i_mchb-atflv.
            i_mchb1-atflv = i_ausp-atflv.
            append : i_output, i_mchb1.
            clear i_mchb1.
            modify i_mchb index l_tabix transporting atflo atflv .
          endif.
        endloop.
      endif.
    endloop.
endif.
Checking whether the table is filled or not
if not i_output[] is initial.
    sort i_output by atinn werks matnr atflv.
else.
    g_exit = c_flag.
    message s899 with 'No Data found for the Selection Criteria'(006).
endif.
Delete the records where RATIO is less than 13.
delete i_output where atnam cs c_ratio and atflv lt c_13.
endform.                    "append_final_data
*&      Form display_report
Display the Report Output data
form display_report.
data: l_tabix like sy-tabix.
loop at i_output1.
    l_tabix = sy-tabix.
At new Characteristic
     at new atinn.
      read table i_output1 index l_tabix.
      format color 1 intensified on.
      write: /1 sy-vline, 2(20) 'Characteristic Name:'(007),
             23(40) i_output1-atnam,
             125 sy-vline.
      format color off.
      format color 4 intensified on.
      write: /1 sy-vline, 2(20) 'Plant Name         :'(022),
             23(4) i_output1-werks, 29(30) i_output1-name1,
             125 sy-vline.
      format color off.
      write /1(125) sy-uline.
    endat.
    clear: g_clabs, g_clabs1.
    format color col_normal.
    write :/1 sy-vline, 2(18)   i_output1-matnr,
           20 sy-vline, 21(40) i_output1-maktx,
           61 sy-vline.
    if i_output1-atflv = c_c23.
      write: 62(22) c_g23 centered.
    else.
      shift i_output1-atflv left deleting leading space.
      write: 62(22) i_output1-atflv centered.
    endif.
    write: 84     sy-vline,
           103     sy-vline,
           110(5) i_output1-meins.
If the quantity value is negative
    if i_output1-clabs ge 0.
      write: 85(18) i_output1-clabs unit i_mchb-meins,
            125     sy-vline.
    else.
      i_output1-clabs = - i_output1-clabs.
      write i_output1-clabs unit i_mchb-meins to g_clabs1.
      condense g_clabs1.
      concatenate '(' g_clabs1 ')' into g_clabs separated by space.
      write: 85(18) g_clabs right-justified,
           125 sy-vline.
    endif.
    format color off.
    hide : i_output1.
    new-line.
At end of material
    at end of matnr.
      sum.
      move : i_output1-matnr to g_matnr.
      format color 3 intensified on.
      write /1(125) sy-uline.
      write :/1 sy-vline, 2(25) 'Total for Material      :'(012),
             28(18) g_matnr.
      if i_output1-clabs ge 0.
        write: 85(18) i_output1-clabs unit i_mchb-meins,
        125 sy-vline.
      else.
        i_output1-clabs = - i_output1-clabs.
        write i_output1-clabs unit i_mchb-meins to g_clabs1.
        condense g_clabs1.
        concatenate '(' g_clabs1 ')' into g_clabs separated by space.
        write: 85(18) g_clabs right-justified,
             125 sy-vline.
      endif.
      write: 125 sy-vline.
      format color off.
      write /1(125) sy-uline.
    endat.
At end of plant
    at end of werks.
      sum.
      move : i_output1-werks to g_werks.
      format color 3 intensified off.
      write :/1 sy-vline, 2(25) 'Total for Plant          :'(013),
             28(4) g_werks.
      if i_output1-clabs ge 0.
        write: 85(18) i_output1-clabs unit i_mchb-meins,
        125 sy-vline.
      else.
        i_output1-clabs = - i_output1-clabs.
        write i_output1-clabs unit i_mchb-meins to g_clabs1.
        condense g_clabs1.
        concatenate '(' g_clabs1 ')' into g_clabs separated by space.
        write: 85(18) g_clabs right-justified,
             125 sy-vline.
      endif.
      format color off.
      write /1(125) sy-uline.
    endat.
At end of characteristic
    at end of atinn.
      read table i_output1 index l_tabix.
      sum.
      format color 3 intensified on.
      write :/1 sy-vline, 2(25) 'Total for Characteristic:'(014),
             28(25) i_output1-atnam.
      if i_output1-clabs ge 0.
        write: 85(18) i_output1-clabs unit i_mchb-meins,
        125 sy-vline.
      else.
        i_output1-clabs = - i_output1-clabs.
        write i_output1-clabs unit i_mchb-meins to g_clabs1.
        condense g_clabs1.
        concatenate '(' g_clabs1 ')' into g_clabs separated by space.
        write: 85(18) g_clabs right-justified,
             125 sy-vline.
      endif.
      format color off.
      write /1(125) sy-uline.
    endat.
endloop.
endform.                    " display_report
*&      Form DISPLAY_BATCH
     Display the batch details for the seclected material            *
form display_batch.
Get the batch details for the selected material
get cursor field g_cursor.
if g_cursor = c_cursor1 or
     g_cursor = c_cursor2 or
     g_cursor = c_cursor3 or
     g_cursor = c_cursor4 or
     g_cursor = c_cursor5 or
     g_cursor = c_cursor6.
    format color 3.
    write: /1 sy-vline,
            2(17) 'Material Number :'(020),
           20(17) i_output1-matnr,
           94 sy-vline.
    format color off.
    write /1(94) sy-uline.
    loop at i_mchb1 where matnr = i_output1-matnr and
                          atinn = i_output1-atinn and
                          atflo = i_output1-atflv.
      format color col_normal.
      shift i_mchb1-charg left deleting leading '0'.
      write :/1 sy-vline, 2(16) i_mchb1-lgort centered,
             18 sy-vline, 19(17) i_mchb1-charg centered,
             36 sy-vline.
      if i_output1-atnam cs c_ratio.
        write: 37(29) i_mchb1-atflv
                       exponent 0 decimals 2 centered.
      else.
        write : 37(29) i_mchb1-atflv
                      exponent 0 decimals 0 centered.
      endif.
      write : 66 sy-vline, 67(27) i_mchb1-clabs unit i_mchb-meins,
              94 sy-vline.
      format color off.
    endloop.
    write /1(94) sy-uline.
else.
    message s899 with 'Invalid cursor position'(016).
    exit.
endif.
endform.                    " DISPLAY_BATCH
*&      Form HEADING_SECLIST
      Write the Column Headings for Interactive Report
form heading_seclist.
write /1(94) sy-uline.
format color col_heading on.
write :/1 sy-vline, 2(16) 'Storage Location'(021),
         18 sy-vline, 19(17) 'Batch Number'(017) centered,
         36 sy-vline, 37(29) 'Characteristic Value'(018) centered,
         66 sy-vline, 67(27) 'Quantity'(019) centered,
         94 sy-vline.
write /1(94) sy-uline.
format color off.
endform.                    " HEADING_SECLIST
*&      Form COLLECT_RATIO
      Display the Characteristic ratio data
form collect_ratio.
loop at i_output.
    clear g_atinn.
    i_output1-atinn = i_output-atinn.
    i_output1-atnam = i_output-atnam .
    i_output1-werks = i_output-werks.
    i_output1-name1 = i_output-name1.
    i_output1-matnr = i_output-matnr.
    i_output1-maktx = i_output-maktx.
    i_output1-clabs = i_output-clabs.
    i_output1-meins = i_output-meins.
    call function 'CONVERSION_EXIT_ATINN_OUTPUT'
         exporting
              input = i_output-atinn
         importing
              output = g_atinn.
    if g_atinn cs c_ratio.
If the ratio value is between 13-14.99, display 13
      if i_output-atflv between c_13 and c_1499.
        i_output1-atflv = c_13.
If the ratio value is between 15-16.99, display 15
      elseif i_output-atflv between c_15 and c_1699.
        i_output1-atflv = c_15.
If the ratio value is between 17-18.99, display 17
      elseif i_output-atflv between c_17 and c_1899.
        i_output1-atflv = c_17.
If the ratio value is between 19-20.99, display 19
      elseif i_output-atflv between c_19 and c_2099.
        i_output1-atflv = c_19.
If the ratio value is between 21-22.99, display 21
      elseif i_output-atflv between c_21 and c_2299.
        i_output1-atflv = c_21.
If the ratio value is greater than or equal to 23, display 23
      elseif i_output-atflv >= c_23.
        i_output1-atflv = c_23.
      endif.
      write i_output1-atflv to i_output1-atflv .
    else.
      write i_output-atflv to i_output1-atflv exponent 0 decimals 0.
    endif.
    collect i_output1.
    clear   i_output1.
endloop.
sort i_output1 by atinn werks matnr atflv.
endform.                    " COLLECT_RATIO
Reward if useful..
Regards,
Anji

How to get the data from Pooled Table T157E.

Hi Experts,
How to get the data from Pooled Table T157E.
Any help.
Thanks in Advance,
Ur's Harsha.

create some internal table similar to T157E and pass all data as per SPRAS.
After that use internal table in your program as per the requirement.
Regds,
Anil

How to get the return message after running BD20 tranaction ?

Hi Gurus,
My requirement is to Post vendor invoice through ALE/IDOC ( Inbound IDOC ).
- For that I had generated the IDOC using Function module 'IDOC_INBOUND_WRITE_TO_DB '
- Then I had processed that generated IDOC by calling the standard program rbdapp01(BD20-Tranaction ) using the below statment
SUBMIT rbdapp01 WITH SELECTION-TABLE lt_seltab .
Could any one suggest me how to get the report output of standard program (rbdapp01) to an internal table so that I dispaly as an seperated report like Posted Document number with messages or Error message
Suggest me any Function module or any other standard program to process the IDOC so that I can fulfill my requirement.
Regards
Paul

Use can read the IDOC status after processing...
Eg.
SELECT * FROM edidc INTO TABLE t_idoc_control_tmp
FOR ALL ENTRIES IN t_update WHERE docnum = t_update-docnum.
and then add your own logic IF SY_SUBRC EQ 0.
I hope this will help you.
Regards,
Amey

How to prepare final internal table based on no. of records of individual t

Hi all,
I have to prepare final internal table based on the no. of records of individual table. i.e. I should append the data from the table which has large no of records first. Then I should modify the final table with other individual tables. I have reservation list table(RESB), purchase requisition table(EBAN), purchase order delivery schedules table(EKET) , GRs table (MESG) .I have prepared data for individual tables. We can't say particularly that this table'll have large no. of records always. So how can I append the first table into final internal table ? I have separate work areas for each table in my SMARTFORM.
Edited by: Jayasri P. on Aug 30, 2008 6:02 AM

HI,
DESCRIBE TABLE statement with LINE addition will give you the no of record in an internal table.
For further detail check,
http://help.sap.com/saphelp_nw70/helpdata/en/fc/eb3798358411d1829f0000e829fbfe/content.htm
you can stire the LINE value of each and comare them to get the table with max record.
Regards,
Anirban

To eliminate the duplicate entries while looping into final internal table

Hi friends,
IAam facing the follwoing problem.
Get Shipment for the Delivery number
      SELECT tknum
             vbeln
             INTO TABLE lt_vttp
             FROM vttp
             FOR ALL ENTRIES IN lt_vbfa
             WHERE vbeln = lt_vbfa-vbelv.
    IF sy-subrc EQ 0.
      SELECT vbeln kunnr
             FROM likp
             INTO TABLE lt_likp
             FOR ALL ENTRIES IN lt_vttp
             WHERE vbeln = lt_vttp-vbeln.
endif.
now iam my internal table lt_vttp i have following values
   shipment             delivery
      1000                  2000
      1000                 2001
in my internal table lt_likp i have the follwoing values
      delivery              shipto
       2000                  ABC
       2001                  ABC
now iam looping those values in a final internal table.
LOOP AT lt_likp INTO ls_likp.
    CHECK sy-subrc EQ 0.
     READ TABLE lt_vttp INTO ls_vttp WITH KEY vbeln = ls_likp-vbeln BINARY SEARCH.
    CHECK sy-subrc EQ 0.
         SELECT SINGLE * FROM vttk INTO ls_vttk
                WHERE tknum = ls_vttp-tknum.
              CHECK sy-subrc EQ 0.
            APPEND ls_vttk TO lt_vttk.
   endloop.
Now my problem is if the shipment is same and the shipto is same then need to eliminate the duplicate records.
        in internal table iam getting 2records with same shipment and shipto combination.
       but instead if both the shipment and shipto are same then i should elimate the duplicate entries.
and for the same shipment if i have differnt shipto then i neeed those 2 value.
can any body tell me how can i get that.
Regards
Priyanka.

Hi Priyanka,
In your code you are using seelct statement inside the loop which will affect the performance.
So, declare a another internal table which contains your both shipment and shipto elements with other required fields, say the name is lt_new.
sort lt_new by shipment shipto.
delete adjacent duplicates from lt_new comparing shipment shipto.
"then use for all entries to choose values from VTTK.
Hope this helps you.
Regards,
Manoj Kumar P

How to get the table of value field? and can we expand the technical limits

Dear
I have created value field in COPA with KEA6. And now, I need the table which the value fields are saved. Yet, I have tried a lot to find it and get failure? Can any guy help me? Please tell me how to get the table of a value field.
And another question is that, can we extend the technical limits for the number of value field for ECC6.0?
We have a note for R.4.x Please see below:
OSS note 160892
You can display the length of a data record using Transaction KEA0 ('Maintain Operating Concern'). After you have navigated to the 'Characteristics Screen' or to the 'Value field Screen' choose menu path 'Extras -> Technical Limits'.
The maximum displayed here under 'Length in bytes on the DB' is the maximum length permitted by the Dictionary. The reserve required for the release upgrade must be subtracted from this value.
To increase the allowed number of the value fields, increase the value that is assigned to field ikcge-bas_max_cnt (FORM init_ikcge_ke USING fm_subrc, approx. line 165) in Include FKCGNF20. It specifies the number of the possible value fields. The corresponding part of the source code is attached to the note as a correction.
David Sun
Regards!

how to extend the limit of value numbers? please see the original question.

How to get the data from multiple nodes to one table

Hi All,
How to get the data from multiple nodes to one table.examples nodes are like A B C D E relation also maintained
Regards,
Indra

HI Indra,
From Node A, get the values of the attributes as
lo_NodeA->GET_STATIC_ATTRIBUTES( IMPORTING STATIC_ATTRIBUTES = ls_attributesA ).
Similarily get all the node values from B, C, D and E.
Finally append all your ls records to the table.
Hope you are clear.
BR,
RAM.

How to get the final internal table after the ALV is modified?

Similar Messages

Maybe you are looking for