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

Similar Messages

How to sort an Internal table Based on a One Char Trans type in the rec?

Meaning, ascending descending will not work, lets say itab_A has the order O-H-W-G-I-A, and I want it to write it to itab_B to the correct order, G-H-O-I-A-W.
I know I can do loop at itab_A where for each one and write it, but is their a better way?
Thank-You

if you know the correct order play with index in the itab_A and append to itab_B
loop at itab_A index X.
blah.. blah..
endloop.
or
itab_temp [] = itab_A[].
delete itab_temp where index <> 'X'.
append itab_temp to itab_B.
refresh itab_temp[].
itab_temp [] = itab_A[].
delete itab_temp where index <> 'Y'.
append lines of itab_temp to itab_B.
refresh itab_temp[].

Need to update Ztable from final internal table

Hi,
ITAB = Final internal table has 9 fields : 1 2 3 4 5 6 7 8 9
Ztable = Ztable has 6 fields ex : 1 3 4 6 7 8
Structure of both Itab and Ztable are different.
I have data in the Final Internal table and needs to update data into a ztable.
If condition is true...
Modify ztable from itab
endif.
Any suggestions how I can update Ztable from the INternal table
Regards,
Kittu

Hello,
First keep the loop to the final internal table then move all the records to the work area after moving to workarea then create another workarea for the Ztable then move only the field values which are there in Ztable then use modify keyword.
example
move:
y_wa_final_itab-kdauf to y_wa_zhr_item-vbeln,
y_wa_final_itab-kdpos to y_wa_zhr_item-posnr,
y_wa_final_itab-receiptno to y_wa_zhr_item-receiptno
modify zhr_item from y_wa_zhr_item

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 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,

How to join two internal table rows in alternative manner into one internal table?

How to join two internal table rows in alternative manner into one internal table?
two internal tables are suppose itab1 & itab2 & its data
Header 1
Header 2
Header 3
a
b
c
d
e
f
g
h
i
Header 1
Header 2
Header 3
1
2
3
4
5
6
7
8
9
INTO itab3 data
Header 1
Header 2
Header 3
a
b
c
1
2
3
d
e
f
4
5
6
g
h
i
7
8
9

Hi Soubhik,
I have added two additional columns for each internal table.
Table_Count - It represents the Internal Table Number(ITAB1 -> 1, ITAB2 -> 2)
Row_Count - It represents the Row Count Number, increase the row count value 1 by one..
ITAB1:
Header 1
Header 2
Header 3
Table_Count
Row_Count
a
b
c
1
1
d
e
f
1
2
g
h
i
1
3
ITAB2:
Header 1
Header 2
Header 3
Table_Count
Row_Count
1
2
3
2
1
4
5
6
2
2
7
8
9
2
3
Create the Final Internal table as same as the ITAB1/ITAB2 structure.
"Data Declarations
DATA: IT_FINAL LIKE TABLE OF ITAB1.          "Final Internal Table
FIELD-SYMBOLS: <FS_TAB1> TYPE TY_TAB1,     "TAB1
                               <FS_TAB2> TYPE TY_TAB2.     "TAB2
"Assign the values for the additional two column for ITAB1
LOOP AT ITAB1 ASSIGNING <FS_TAB1>.
     <FS_TAB1>-TABLE_COUNT = 1.             "Table value same for all row
     <FS_TAB1>-ROW_COUNT = SY-TABIX. "Index value
ENDLOOP.
"Assign the values for the additional two column for ITAB2
LOOP AT ITAB2 ASSIGNING <FS_TAB2>.
     <FS_TAB2>-TABLE_COUNT = 2.                  "Table value same for all row
     <FS_TAB2>-ROW_COUNT = SY-TABIX.      "Index value
ENDLOOP.
"Copy the First Internal Table 'ITAB1' to Final Table
IT_FINAL[] = ITAB1[].
"Copy the Second Internal Table 'ITAB2' to Final Table
APPEND IT
LOOP AT ITAB2 INTO WA_TAB2.
APPEND WA_TAB2 TO IT_FINAL.
ENDLOOP.
"Sort the Internal Table based on TABLE_COUNT & ROW_COUNT
SORT IT_FINAL BY ROW_COUNT TABLE_COUNT.
After sorting, check the output for IT_FINAL Table, you can find the required output as shown above.
Regards
Rajkumar Narasimman

How to use Dynamic Internal table

Hello,
I have a requirement where I need to pick a field from final internal table and display that field as ALV columns and I have to pick another field in the same INternal table to display it as a corresponding value for each header DYNAMICALLY.
lw_fieldcat-col_pos = 1.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'ATTR20A'.
lw_fieldcat-seltext_m = 'SUBSTANCE ID'.
lw_fieldcat-outputlen = '21'.
lw_fieldcat-fix_column = 'X'.
lw_fieldcat-key = 'X'.
APPEND lw_fieldcat TO lt_fieldcat.
CLEAR LW_FIELDCAT.
lw_fieldcat-col_pos = 2.
lw_fieldcat-tabname = 'T_FINAL'.
lw_fieldcat-fieldname = 'PRVSY'.
lw_fieldcat-seltext_m = 'R3 MAT NBR'.
lw_fieldcat-outputlen = '14'.
lw_fieldcat-FIX_COLUMN = 'X'.
lw_fieldcat-key = 'X'.
APPEND lw_fieldcat TO lt_fieldcat.
CLEAR LW_FIELDCAT.
These 2 fields are constant, now i need to display fields dynamically from the field STCTS (for dynamic header) CCNGN (for the value in each header)
In the below code the logic is working to pick appropriate value for each header.
DATA : Y_I_FCAT TYPE LVC_T_FCAT,
      Y_WA_FCAT LIKE LINE OF Y_I_FCAT.
DATA : T_NEWFINAL TYPE STANDARD TABLE OF TY_FINAL,
       WA_NEWFINAL TYPE TY_FINAL.
LOOP AT T_FINAL INTO WA_FINAL
              WHERE STCTS IS NOT INITIAL
CONCATENATE 'SUBID CLASSIFICATION-' WA_FINAL-STCTS
                   INTO Y_WA_FCAT-FIELDNAME.
                   INTO Y_WA_FCAT-SCRTEXT_M.
APPEND Y_WA_FCAT TO Y_I_FCAT. "Header of column appear as
                                'SUBID SUBID CLASSIFICATION-AR-HTS'
CLEAR Y_WA_FCAT.
MOVE WA_FINAL-CCNGN TO WA_NEWFINAL-CCNGN. "HERE IT WILL PICK THE VALUE FOR THE ABOVE                                             " HEADER EX : '2345'
*&THIS STATEMENT WILL MOVE THE KEY FIELD TO
*&WA_NEWFINAL.
MOVE WA_FINAL-GUID_PR TO WA_NEWFINAL-GUID_PR.
APPEND WA_NEWFINAL TO T_NEWFINAL.
CLEAR : WA_FINAL,
          WA_NEWFINAL.
ENDLOOP.
How should i pass it to the dynamic interanl table and then to the ALV grid filed catlog.
Below is my code for refernce :
**DATA : Y_I_FCAT TYPE LVC_T_FCAT,
      Y_WA_FCAT LIKE LINE OF Y_I_FCAT.
      Y_WA_FCAT TYPE LVC_S_FCAT.
**DATA : T_NEWFINAL TYPE STANDARD TABLE OF TY_FINAL,
      WA_NEWFINAL TYPE TY_FINAL.
*DATA : W_STRING TYPE STRING.
DATA : WA_FLNAME(32) TYPE C.
*LOOP AT T_FINAL INTO WA_FINAL
             WHERE STCTS IS NOT INITIAL
               AND CCNGN IS NOT INITIAL.
*ADD 1 TO COUNTER.
*ENDLOOP.
*DO COUNTER TIMES.
LOOP AT T_FINAL INTO WA_FINAL
              WHERE STCTS IS NOT INITIAL
                AND CCNGN IS NOT INITIAL.
CONCATENATE 'SUBID CLASSIFICATION-' WA_FINAL-STCTS
                  INTO Y_WA_FCAT-FIELDNAME.
                   INTO Y_WA_FCAT-SCRTEXT_M.
                    INTO WA_FLNAME.
   Y_WA_FCAT-FIELDNAME = WA_FLNAME.
   Y_WA_FCAT-SELTEXT = WA_FLNAME.
APPEND Y_WA_FCAT TO Y_I_FCAT.
CLEAR Y_WA_FCAT.
MOVE WA_FINAL-CCNGN TO W_STRING.
MOVE WA_FINAL-CCNGN TO WA_NEWFINAL-CCNGN.
*&THIS STATEMENT WILL MOVE THE KEY FIELD TO
*&WA_NEWFINAL.
MOVE WA_FINAL-GUID_PR TO WA_NEWFINAL-GUID_PR.
APPEND WA_NEWFINAL TO T_NEWFINAL.
CLEAR : WA_FINAL,
          WA_NEWFINAL.
ENDIF.
*ENDDO.
ENDLOOP.
PERFORM CREATE_DYNAMIC_ITAB.
LOOP AT Y_I_FCAT INTO Y_WA_FCAT. "IT_FIELDCAT INTO LW_FIELDCAT.
MOVE : Y_WA_FCAT-SCRTEXT_M TO LW_FIELDCAT-SELTEXT_M,
        Y_WA_FCAT-FIELDNAME TO LW_FIELDCAT-FIELDNAME,
       Y_WA_FCAT-TABNAME   TO LW_FIELDCAT-TABNAME,
       Y_WA_FCAT-COL_POS   TO LW_FIELDCAT-COL_POS,
        Y_WA_FCAT-SCRTEXT_M TO LW_FIELDCAT-SELTEXT_M.
       Y_WA_FCAT-DATATYPE TO LW_FIELDCAT-DATATYPE,
       Y_WA_FCAT-INTLEN    TO LW_FIELDCAT-INTLEN.
APPEND LW_FIELDCAT TO LT_FIELDCAT.
ENDLOOP.
ENDFORM.                    " DYNAMIC
*&      Form CREATE_DYNAMIC_ITAB
      text
--> p1        text
<-- p2        text
FORM CREATE_DYNAMIC_ITAB .
*DATA : DY_TABLE TYPE REF TO DATA,
      DY_LINE TYPE REF TO DATA.
DATA : Y_LV_COMP TYPE STRING.
*FIELD-SYMBOLS: <DYN_TABLE> TYPE STANDARD TABLE,
              <DYN_WA>,
              <DYN_FIELD>.
*FIELD-SYMBOLS : <y_fld> TYPE ANY.
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
EXPORTING
    IT_FIELDCATALOG           = Y_I_FCAT
IMPORTING
    EP_TABLE                  = DY_TABLE.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ASSIGN DY_TABLE->* TO <DYN_TABLE>.
*CREATE DYNAMIC WORK AREA AND ASSIGN TO FS.
CREATE DATA DY_LINE LIKE LINE OF <DYN_TABLE>.
ASSIGN DY_LINE->* TO <DYN_WA>.
LOOP AT T_FINAL INTO WA_FINAL.
Y_LV_COMP = 'ATTR20A'.
ASSIGN COMPONENT Y_LV_COMP OF STRUCTURE <DYN_WA> TO <Y_FLD>.
   <Y_FLD> = WA_FINAL-ATTR20A.
   Y_LV_COMP = 'PRVSY'.
   ASSIGN COMPONENT Y_LV_COMP OF STRUCTURE <DYN_WA> TO <Y_FLD>.
   <Y_FLD> = WA_FINAL-PRVSY.
   Y_LV_COMP = 'PRTXT'.
   ASSIGN COMPONENT Y_LV_COMP OF STRUCTURE <DYN_WA> TO <Y_FLD>.
   <Y_FLD> = WA_FINAL-PRVSY.
   Y_LV_COMP = 'GRVSY'.
   ASSIGN COMPONENT Y_LV_COMP OF STRUCTURE <DYN_WA> TO <Y_FLD>.
   <Y_FLD> = WA_FINAL-GRVSY.
LOOP AT T_NEWFINAL INTO WA_NEWFINAL
      WHERE GUID_PR = WA_FINAL-GUID_PR.
CONCATENATE 'SUBID Classification-'
              WA_FINAL-STCTS
               INTO Y_LV_COMP.
ASSIGN COMPONENT Y_LV_COMP OF STRUCTURE <DYN_WA> TO <Y_FLD>.
      <Y_FLD> = WA_NEWFINAL-CCNGN.
ENDLOOP.
APPEND <DYN_WA> TO <DYN_TABLE>.
FREE : <DYN_WA>, <Y_FLD>.
ENDLOOP.
ENDFORM.                    " CREATE_DYNAMIC_ITA
ANy suggestion would be apprecaited.
Regards,
Kittu

I think I need to put it in more descriptive way...
I am closing this thread

How to populate an internal table from three different tables

My requirement is to populate an itab by retrieving data from three diff db tables,
ekko,ekpo and Ekbe.
below is the code for data retrieval .
SELECT EBELN INTO TABLE IT_EKKO FROM EKKO WHERE EBELN IN S_EBELN.
IF NOT IT_EKKO[] IS INITIAL.
    SELECT EBELP TXZ01 NETWR BUKRS INTO CORRESPONDING FIELDS OF TABLE IT_EKPO FROM EKPO FOR ALL ENTRIES IN IT_EKKO
      WHERE EBELN EQ IT_EKKO-EBELN.
IF NOT IT_EKPO[] IS INITIAL.
      SELECT EMATN WAERS WERKS GJAHR BEWTP INTO CORRESPONDING FIELDS OF TABLE IT_EKBE FROM EKBE FOR ALL ENTRIES IN IT_EKPO
        WHERE EBELN EQ IT_EKPO-EBELN
         AND EBELP EQ IT_EKPO-EBELP
         AND BEWTP EQ 'E' OR BEWTP EQ 'Q'.
        ENDIF.
        ENDIF.
please tell me how to populate data from it_ekko,it_ekpo and it_ekbe into an internal table ITAB.

Hi Mayana,
You take one final structure & final internal table, & within that structure take all the fields which is required to be displayed as a final output.
for data fetching from different table, you take three different structures & three internal table for that, because into corresponding fields of table is not good for performance wise. Use into table syntax.
follow the below example:(similarly)
sort it_klah by key fields.
LOOP AT IT_KSSK INTO WA_KSSK.
    READ TABLE IT_KLAH INTO WA_KLAH WITH KEY CLINT = WA_KSSK-CLINT
                                             KLART = WA_KSSK-KLART.
    IF SY-SUBRC EQ 0.
      MOVE: WA_KLAH-OBJEK to WA_final-OBJEK.
Read another table........(2nd one)
IF SY-SUBRC EQ 0.
      MOVE: ....................................
      APPEND WA_final TO IT_final.
    ENDIF.
clear wa_final.
ENDLOOP.
finally display it_final records.
Hope this can solve your problems.
Regards,
Tutun

How to pass an internal table to a SmartForm?

Hi there!
I have a program that calls a SmartForm.
I have a internal table wich I want to print.
This internal table is based on a custom structure with NO standard includes (e.g., with custom fields).
How do I declare this internal table in the transaction SMARTFORMS?
Best Regards,
Luís.

Refer below thread..
How to pass an internal table to smartform.
hope it will solve ur problem
Thanks & Regards
ilesh 24x7

Final Internal Table used in MIGO Transaction

Hi Experts,
I need to know the final internal table used in the MIGO transaction. Why I want to know this is, I need all the records which are there in the table control (GODYNPRO) of the MIGO transaction. I have used the BADI BADI MB_MIGO_BADI to read the values. But since it is a table control the values are getting changed when the user scrolls down the table control. How can I get all the values shown in this table control. Is there any global internal table in the SAPLMIGO program?
BR.

Hi ABAP,
Check the BADI MB_MIGO_BADI the example class CL_EXM_IM_MB_MIGO_BADI
In attributes tab variable GT_EXTDATA contains all migo positions.
Read the internal table to check items.
in this method the internal table is filled.
Therefore define your internal table in the class attributes.
I hope you help.

Need to move the data to final internal Table

Hi all,
TYPES: BEGIN OF TY_MARA,
       MATNR       TYPE MATNR,         " Material Number
       ZZBASE_CODE TYPE ZBASE_CODE,    " Base Code
       END OF TY_MARA,
       BEGIN OF TY_MAKT,
       MAKTX       TYPE MAKTX,         " Material Description
       END OF TY_MAKT,
       BEGIN OF TY_MARC,
       WERKS       TYPE WERKS_D,      " Plant
       END OF TY_MARC,
       BEGIN OF TY_QMAT,
       ART           TYPE QPART,         " Inspection Type
       END OF TY_QMAT,
       BEGIN OF TY_MAPL,
       MATNR        TYPE MATNR,        " Material
       PLNTY        TYPE PLNTY,        " Task List Type
       END OF TY_MAPL,
       BEGIN OF TY_PLKO,
       VERWE             TYPE     PLN_VERWE,     "     Task list usage
       END OF TY_PLKO,
      BEGIN OF TY_FINAL,
       MATNR          TYPE    MATNR,          " Material Number
       MAKTX          TYPE    MAKTX,          " Material Description
       ZZBASE_CODE    TYPE    ZBASE_CODE,     " Base Code
       WERKS          TYPE    WERKS_D,        " Plant
       CLASS          TYPE    KLASSE_D,       "     Class Number
       ART             TYPE    QPART,           " Inspection Type
       VERWE             TYPE    PLN_VERWE,       " Task list usage
     END OF TY_FINAL.
DATA: I_MARA TYPE STANDARD TABLE OF TY_MARA ,
      I_MAKT TYPE STANDARD TABLE OF TY_MAKT ,
      I_MARC TYPE STANDARD TABLE OF TY_MARC ,
      I_QMAT TYPE STANDARD TABLE OF TY_QMAT ,
      I_MAPL TYPE STANDARD TABLE OF TY_MAPL ,
      I_PLKO TYPE STANDARD TABLE OF TY_PLKO ,
      I_KLAH TYPE STANDARD TABLE OF TY_KLAH ,
      I_FINAL TYPE STANDARD TABLE OF TY_FINAL ,
      WA_MARA TYPE TY_MARA,
      WA_MAKT TYPE TY_MAKT,
      WA_MARC TYPE TY_MARC,
      WA_QMAT TYPE TY_QMAT,
      WA_MAPL TYPE TY_MAPL,
      WA_PLKO TYPE TY_PLKO,
      WA_KLAH TYPE TY_KLAH,
     WA_FINAL TYPE TY_FINAL.
data: v_mtart         type    mara-mtart,
      v_matnr         type    mara-matnr,
      v_zzbase_code   type    mara-zzbase_code,
      v_werks         type    t001w-werks,
      v_beskz         type    marc-beskz.
selection-screen skip 1.
selection-screen begin of block b1 with frame title text-001.
select-options: s_mtart    for v_mtart default 'halb' to 'zraw',
                s_matnr    for v_matnr,
                s_zzbase   for v_zzbase_code,
                s_werks    for v_werks obligatory,
                s_beskz    for v_beskz.
selection-screen end of block b1.
start-of-selection.
select matnr
       zzbase_code
       from mara into table i_mara
       where mtart in s_mtart       "Material Type
       and   matnr in s_matnr        "Material
       and   zzbase_code in s_zzbase."Base Code
select maktx
       from makt into table i_makt for all entries in i_mara
       where matnr = i_mara-matnr.
select werks
       from marc into table i_marc for all entries in i_mara
       where matnr = i_mara-matnr
       and werks in s_werks "plant
       and beskz in s_beskz."Procurement Type
select art
       from qmat into table i_qmat for all entries in i_mara
       where matnr = i_mara-matnr
       and werks in s_werks.
select matnr
       plnty from mapl into table i_mapl for all entries in i_mara
       where matnr = i_mara-matnr.
select verwe
       from plko into table i_plko for all entries in i_mapl
       where plnty = i_mapl-plnty.
this is my logic . i need to move this to final internal table i_final. how can do it. will anybody tell me with coding.
Thanks,

Hi,
Include matnr field in all your type declaration and plnty in the ty_plko, type declaration.
loop at the internal table i_mara.
read the other tables with read statement.
assign the the required fields to the work area wa_final. Append it to i_final.
start-of-selection.
select matnr zzbase_code
    from mara   into table i_mara
   where mtart in s_mtart "Material Type   and matnr in s_matnr "Material and zzbase_code in s_zzbase. "Base Code
select matnr maktx
    from makt   into table i_makt
     for all entries in i_mara   where matnr = i_mara-matnr.
select matnr werks
    from marc into table i_marc
     for all entries in i_mara where matnr = i_mara-matnr   and werks in s_werks "plant   and beskz in s_beskz."Procurement Type
select matnr art
    from qmat into table i_qmat
     for all entries in i_mara where matnr = i_mara-matnr   and werks in s_werks.
select matnr plnty
    from mapl into table i_mapl
    for all entries in i_mara where matnr = i_mara-matnr.
select plnty verwe
    from plko into table i_plko
     for all entries in i_mapl where plnty = i_mapl-plnty.
Loop at i_mara into wa_mara.
read table i_makt into wa_makt with key matnr = wa_mara-matnr.
(do this for all the internal tables.)
read table i_plko into wa_plko with key plnty = wa_mapl-plnty.
wa_final-MATNR = wa_mara-matnr.
wa_final-MAKTX = wa_makt-maktx.
wa_final-ZZBASE_CODE = wa_mara-ZZBASE_CODE.
wa_final-WERKS = wa_marc-werks.
wa_final-ART = wa_qmat-art.
wa_final-VERWE = wa_plko-verve.
append i_final from wa_final.
endloop.
Hope this helps.
Regards,
Dhasarathy. K

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

ALV grid is not displaying few fields of final internal table of type DMBTR

hello frnds,
i am displaying 10 fields in ALV grid using field catalog.
among them five fields are currency fields on which i doing some arithematic operations. but all these fields are not getting displayed in alv grid.
here is my code....
declaring final strucutre to generate report
TYPES:BEGIN OF ty_final,
          gjahr   TYPE gjahr,       " Year
          wwert   TYPE wwert_d,     " Traslation date
          bukrs   TYPE bukrs,       " company code
          hkont   TYPE hkont,       " General ledger account
          txt20   TYPE txt20_skat, " Account name
          belnr   TYPE belnr_d,     " Purchase order number
          shkzg   TYPE shkzg,       " Dt/Cr indicator
          dmbtr1   TYPE dmbtr,       " Ammount in local currency
          v_alc   TYPE dmbtr,       " Ammount in local currency
          wrbtr   TYPE wrbtr,       " Ammount in foreign currency
          ebeln   TYPE ebeln,       " Purchase order number
          ebelp   TYPE ebelp,       " Item number
          matnr   TYPE matnr,       " Material number
          menge   TYPE menge_d,     " Qunatity
          meins   TYPE meins,       " Unit of measure
          stprs   TYPE stprs,       " Std material master
          v_iv    TYPE dmbtr,       " Invoice value
          pswsl   TYPE pswsl,       " Currency
          v_erc   TYPE dmbtr,       " Exchange rate calculated
          v_op    TYPE dmbtr,       " Order price
          v_uos   TYPE dmbtr,       " Unit order to stock
          v_io    TYPE dmbtr,       " Invoice to order
          v_uv    TYPE dmbtr,       " Unit value
          v_t     TYPE dmbtr,       " Total
          v_d     TYPE dmbtr,       " Differecne
          netpr   TYPE bprei,       " Net price in purchasing document
          v_total TYPE dmbtr,       " Total
          v_os    TYPE dmbtr,       " Order to stock
          v_ito   TYPE dmbtr,       " Invoice to order
          saknr   TYPE saknr,       " G/L account number
       END OF ty_final.
FORM move_data.
IF NOT i_bseg[] IS INITIAL.
    LOOP AT i_bseg INTO wa_bseg.
      wa_final-gjahr = wa_bseg-gjahr.
      wa_final-bukrs = wa_bseg-bukrs.
      wa_final-hkont = wa_bseg-hkont.
      wa_final-belnr = wa_bseg-belnr.
      wa_final-shkzg = wa_bseg-shkzg.
      wa_final-wrbtr = wa_bseg-wrbtr.
      wa_final-ebeln = wa_bseg-ebeln.
      wa_final-ebelp = wa_bseg-ebelp.
      wa_final-matnr = wa_bseg-matnr.
      wa_final-menge = wa_bseg-menge.
      wa_final-meins = wa_bseg-meins.
      wa_final-pswsl = wa_bseg-pswsl.
      wa_final-dmbtr1 = wa_bseg-dmbtr.
      wa_final-saknr = wa_bseg-saknr.
      wa_final-v_total = wa_bseg-dmbtr.
      READ TABLE i_bkpf INTO wa_bkpf WITH KEY bukrs = wa_bseg-bukrs.
      IF sy-subrc = 0.
        wa_final-wwert = wa_bkpf-wwert.
      ENDIF.
     CLEAR wa_bkpf.
      READ TABLE i_mbew INTO wa_mbew WITH KEY matnr = wa_bseg-matnr.
      IF sy-subrc = 0.
        wa_final-stprs = wa_mbew-stprs.
      ENDIF.
     CLEAR wa_mbew.
      READ TABLE i_ekpo INTO wa_ekpo WITH KEY ebeln = wa_bseg-ebeln.
      IF sy-subrc = 0.
        wa_final-netpr = wa_ekpo-netpr.
      ENDIF.
     CLEAR wa_ekpo.
      READ TABLE i_skat INTO wa_skat WITH KEY saknr = wa_bseg-saknr.
      IF sy-subrc = 0.
        wa_final-txt20 = wa_skat-txt20.
      ENDIF.
calculating output values
      IF wa_bseg-shkzg = 'H'.
        wa_final-v_alc = -1 * wa_bseg-dmbtr.
      ELSEIF wa_bseg-shkzg = 'S'.
        wa_final-v_alc = 1 * wa_bseg-dmbtr.
      ENDIF.
     DATA : l_c_v_alc TYPE p DECIMALS 2,
     l_c_v_iv TYPE p DECIMALS 2.
     l_c_v_alc = wa_final-v_alc.
      IF wa_bseg-menge NE 0.
        wa_final-v_iv = wa_bseg-dmbtr / wa_bseg-menge.
      ENDIF.
      IF wa_bseg-dmbtr NE 0.
        wa_final-v_erc = wa_bseg-wrbtr   / wa_final-dmbtr1.
      ENDIF.
      IF wa_final-v_erc NE 0.
        wa_final-v_op   = wa_ekpo-netpr   / wa_final-v_erc.
      ENDIF.
      wa_final-v_uos = wa_mbew-stprs   - wa_final-v_op.
      wa_final-v_io   = wa_final-v_iv   + wa_final-v_uos.
      wa_final-v_uv   = wa_final-v_uos + wa_final-v_io.
      wa_final-v_t    = wa_final-v_uv   + wa_bseg-menge.
      wa_final-v_d    = wa_final-v_t    - wa_final-v_alc.
      wa_final-v_os   = wa_final-v_uos * wa_bseg-menge.
      wa_final-v_ito = wa_final-v_io   * wa_bseg-menge.
      CLEAR wa_bseg.
      APPEND wa_final TO i_final.
      CLEAR wa_final.
    ENDLOOP.
ENDIF.
ENDFORM.                    "data_retrieval
*&      Form build_fieldcat
      text
--> p1        text
<-- p2        text
FORM build_fieldcat.
CLEAR wa_fieldcat.
* TYPES : v_alc TYPE dmbtr. "curr. " decimal 2.
DATA: l_c_v_alc TYPE p DECIMALS 2,
l_c_v_iv TYPE p DECIMALS 2 .
l_c_v_alc = v_alc.
l_c_v_iv = v_iv.
Constant Declarations.
CONSTANTS:
            l_c_gjahr(5)   TYPE c VALUE 'GJAHR',      " Year
            l_c_wwert(5)   TYPE c VALUE 'WWERT',      " Traslation date
            l_c_bukrs(5)   TYPE c VALUE 'BUKRS',      " company code
            l_c_hkont(5)   TYPE c VALUE 'HKONT',      " General ledger account
            l_c_txt20(10) TYPE c VALUE 'TXT20',      " Account name
            l_c_belnr(5)   TYPE c VALUE 'BELNR',      " Doc number
            l_c_shkzg(5)   TYPE c VALUE 'SHKZG',      " Dt/Cr indicator
            l_c_dmbtr(5)   TYPE c VALUE 'DMBTR1',      " Ammount in local currency
           " l_c_v_alc      TYPE c VALUE 'V_ALC',      " Ammount in local currency
            l_c_wrbtr(5)   TYPE c VALUE 'WRBTR',      " Ammount in foreign currency
            l_c_ebeln(5)   TYPE c VALUE 'EBELN',      " Purchase order number
            l_c_ebelp(5)   TYPE c VALUE 'EBELP',      " Item number
            l_c_matnr(5)   TYPE c VALUE 'MATNR',      " Material number
            l_c_menge(7)   TYPE c VALUE 'MENGE',      " Qunatity
            l_c_meins(5)   TYPE c VALUE 'MEINS',      " Unit of measure
            l_c_stprs(5)   TYPE c VALUE 'STPRS',      " Std material master
           " l_c_v_iv(4)    TYPE c VALUE 'V_IV',           " Invoice value
            l_c_pswsl(5)   TYPE c VALUE 'PSWSL',      " Currency
            l_c_v_erc(5)   TYPE c VALUE 'V_ERC',      " Exchange rate calculated
            l_c_v_op(4)    TYPE c VALUE 'V_OP',       " Order price
            l_c_v_uos(5)   TYPE c VALUE 'V_UOS',      " Unit order to stock
            l_c_v_io(4)    TYPE c VALUE 'V_IO',       " Invoice to order
            l_c_v_uv(4)    TYPE c VALUE 'V_UV',       " Unit value
            l_c_v_t(3)     TYPE c VALUE 'V_T',        " Total
            l_c_v_d(3)     TYPE c VALUE 'V_D',        " Differecne
            l_c_netpr(5)   TYPE c VALUE 'NETPR',      " Net price in purchasing document
            l_c_v_total(7) TYPE c VALUE 'V_TOTAL',    " Total
            l_c_v_os(4)    TYPE c VALUE 'V_OS',      " Order to stock
            l_c_v_ito(5)   TYPE c VALUE 'V_ITO',      " Invoice to order
            l_c_saknr(5)   TYPE c VALUE 'SAKNR',      " G/L account number
            l_c_i_final(7) TYPE c VALUE 'I_FINAL'.    " Final internal table
Fieldcat for fiscal year
wa_fieldcat-col_pos   = 1.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_gjahr.
wa_fieldcat-seltext_m = text-007.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Translation date
wa_fieldcat-col_pos   = 2.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_wwert.
wa_fieldcat-seltext_m = text-008.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Company code
wa_fieldcat-col_pos   = 3.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_bukrs.
wa_fieldcat-seltext_m = text-009.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for General ledger account
wa_fieldcat-col_pos   = 4.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_hkont.
wa_fieldcat-seltext_m = text-010.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Account name
wa_fieldcat-col_pos   = 5.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_txt20.
wa_fieldcat-seltext_m = text-011.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Doc number
wa_fieldcat-col_pos   = 6.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_belnr.
wa_fieldcat-seltext_m = text-012.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Dt/Cr indicator
wa_fieldcat-col_pos   = 7.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_shkzg.
wa_fieldcat-seltext_m = text-013.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Ammount in local currency
wa_fieldcat-col_pos   = 8.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = 'DMBTR1'.
wa_fieldcat-seltext_m = text-014.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Ammount in local currency
wa_fieldcat-col_pos   = 9.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = 'V_ALC'.
wa_fieldcat-seltext_m = text-015.
wa_fieldcat-ref_fieldname = 'DMBTR'.
wa_fieldcat-no_sign   = 'X'.
wa_fieldcat-do_sum    = c_x.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Ammount in foreign currency
wa_fieldcat-col_pos   = 10.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_wrbtr.
wa_fieldcat-seltext_m = text-016.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Purchse order number
wa_fieldcat-col_pos   = 11.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_ebeln.
wa_fieldcat-seltext_m = text-017.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Item No
wa_fieldcat-col_pos   = 12.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_ebelp.
wa_fieldcat-seltext_m = text-018.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Material number
wa_fieldcat-col_pos   = 13.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_matnr.
wa_fieldcat-seltext_m = text-019.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Qunatity
wa_fieldcat-col_pos   = 14.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_menge.
wa_fieldcat-seltext_m = text-020.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Unit of measure
wa_fieldcat-col_pos   = 15.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_meins.
wa_fieldcat-seltext_m = text-021.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Std material master
wa_fieldcat-col_pos   = 16.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_stprs.
wa_fieldcat-seltext_m = text-022.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Invoice value,
wa_fieldcat-col_pos   = 17.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = 'V_IV'.
wa_fieldcat-seltext_m = text-023.
wa_fieldcat-ref_fieldname = 'DMBTR'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Currency
wa_fieldcat-col_pos   = 18.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_pswsl.
wa_fieldcat-seltext_m = text-024.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Exchange rate calculated
wa_fieldcat-col_pos   = 19.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = 'V_ERC'.
wa_fieldcat-seltext_m = text-025.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Order price
wa_fieldcat-col_pos   = 20.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_op.
wa_fieldcat-seltext_m = text-026.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Unit order to stock
wa_fieldcat-col_pos   = 21.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_uos.
wa_fieldcat-seltext_m = text-027.
wa_fieldcat-do_sum    = c_x.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Invoice to order
wa_fieldcat-col_pos   = 22.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_io.
wa_fieldcat-seltext_m = text-028.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Unit value
wa_fieldcat-col_pos   = 23.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_uv.
wa_fieldcat-seltext_m = text-029.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Total
wa_fieldcat-col_pos   = 24.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_t.
wa_fieldcat-seltext_m = text-030.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Difference
wa_fieldcat-col_pos   = 25.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_d.
wa_fieldcat-seltext_m = text-031.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Net Price in Purchasing Document
wa_fieldcat-col_pos   = 26.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_netpr.
wa_fieldcat-seltext_m = text-032.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Total
wa_fieldcat-col_pos   = 27.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_total.
wa_fieldcat-seltext_m = text-033.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Order to stock
wa_fieldcat-col_pos   = 28.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_os.
wa_fieldcat-seltext_m = text-034.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Invoice to order
wa_fieldcat-col_pos   = 29.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_ito.
wa_fieldcat-seltext_m = text-035.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
fieldcat for invoice to order
wa_fieldcat-col_pos   = 30.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_saknr.
wa_fieldcat-seltext_m = text-035.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
ENDFORM.                    "build_fieldcat

Hi romanch,
defining the field catalog you must reference all currency fields to the respective currency key field (type CUKY).
<alv_fieldcat>-cfieldname         = 'HWAER'.
This is sample for alv output of a currency field. The alv structure has a field HWAER which carries the currency key, e.g. USD or so.
Obviously you do not provide a cutrrency key for your values. If they are initial (zero), ALV will not display them as 0,00 but leave the field empty if the reference too currency key is not established.
If you define a DDIC structure for the ALV output this refernce is enforced. You can pass the DDIC structure name to the ALV and don not have to create the field catalog manually.
Regards,
Clemens

How to declare a internal table in start routine i.e. transformations

Hi Gurus,
How to define an internal table in a start rotuine?
any help greatly appreciated.
Best Regards,
Reddy.

Hi,
types: begin of str,
field1 type c,
field2 type c,
end of str.
data : itab type table of str with header line.
the above code should be inserted where it says insert code below this. this will be like a global decleration. this table will be available for all the routines that you write in the transformation.
All the best !!
Regards
Aparna

Problem in filling the final internal table

Hi,
I am working on a code in which i have to fill up the final internal table which will store the values coming form different internal tables.Here's the code which i am trying to do but it is not giving the execat functionality.In this code ITOUTPUT is the final itab which is storing the values of all other internal tables.
Here's the code:-
loop at itab1.
select single maktx into v_item from makt where matnr = itab1-matnr.
      ITOUTPUT-banfn = ITab1-banfn.
      ITOUTPUT-badat = ITab1-badat.
      ITOUTPUT-meins = ITab1-meins.
      ITOUTPUT-menge = ITab1-menge.
      ITOUTPUT-lfdat = ITab1-lfdat.
IF ITAB1-MEINS = 'KG'.
    V_TOTREQ = V_TOTREQ + ITAB1-MENGE.
ELSEIF ITAB1-MEINS = 'TO'.
    V_TOTREQ = V_TOTREQ + ( ITAB1-MENGE * 1000 ).
ELSEIF ITAB1-MEINS = 'G'.
    V_TOTREQ = V_TOTREQ + ( ITAB1-MENGE / 1000 ).
ENDIF.
v_tpo = 0.
v_por = 0.
LOOP AT ITPO WHERE BANFN = ITAB1-BANFN AND bnfpo = ITAB1-bnfpo.
    if v_por <> '0'.
      write : / ' '.
    endif.
      ITOUTPUT-ebeln = ITPO-ebeln.
      ITOUTPUT-aedat = ITPO-aedat.
      ITOUTPUT-lifnr = ITPO-lifnr.
      ITOUTPUT-menge = ITPO-menge.
      ITOUTPUT-EINDT = ITPO-EINDT.
    IF ITAB1-MEINS = 'KG'.
      V_TOTPO = V_TOTPO + ITPO-MENGE.
    ELSEIF ITPO-MEINS = 'TO'.
      V_TOTPO = V_TOTPO + ( ITPO-MENGE * 1000 ).
    ELSEIF ITPO-MEINS = 'G'.
      V_TOTPO = V_TOTPO + ( ITPO-MENGE / 1000 ).
    ENDIF.
    v_tpo = v_tpo + itpo-menge.
    v_tgr = 0.
    v_por = 1.
    v_grr = 0.
    loop at itmrn where ebeln = itpo-ebeln and ebelp = itpo-ebelp.
      if v_grr <> '0'.
        write : / ' '.
      endif.
      select single budat from mkpf into v_grdate where MBLNR = itmrn-MBLNR.
      write: 143 Itmrn-menge,v_grdate .
        itoutput-PMENGE = itmrn-menge.
      v_tgr = v_tgr + itmrn-menge.
      v_grr = 1.
    endloop.
    p_po = itpo-menge - v_tgr.
   write: 173 p_po.
ENDLOOP.
p_req = itab1-menge - v_tpo.
write : 195 p_req.
endloop.
loop at itoutput.
write:/ itoutput-banfn,12 itoutput-badat,24 v_item,50 itoutput-meins,53 itoutput-menge,itoutput-lfdat,
          89 ITPO-ebeln,100 ITPO-aedat,111 ITPO-lifnr,(10) itpo-menge, ITPO-eindt.
MODIFY itoutput.
endloop.

Hi,
Ok,i ha d checked my code by using your logic and giving the run time error ......
i had debugged my code (orignal onementioned in above thread with little modification) in which i am able to see that finaloutput (intrenal table) is getting filled properly and the problem arises when the cursor comes to the write statement ... it is repeating some of the values when output is displayed where as before displaying output this iternal table is having the correct data. i am using the following code :-
append itoutput.
ENDLOOP.
p_req = itab1-menge - v_tpo.
write : 195 p_req.
append itoutput.          ,<--- added this
clear itoutput.               <--- added this
endloop.
loop at itoutput.
write:/ itoutput-banfn,12 itoutput-badat,24 v_item,50 itoutput-meins,53 itoutput-menge,itoutput-lfdat,
          89 ITPO-ebeln,100 ITPO-aedat,111 ITPO-lifnr,(10) itpo-menge, ITPO-eindt.
MODIFY itoutput.         <------ not removed
endloop.

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

Similar Messages

Maybe you are looking for