Concatenate a field in internal table without loopat.

In an internal table,
I need to update one field (all rows) concatenate that field with a value say '999'.
Is it possible to do this in a single MODIFY statement without using loopat condition or any other best possible way to do it?

yes, it is possible without LOOP:
MODIFY itab FROM workarea WHERE condition TRANSPORTING field.
workarea has to like a single line of the internal table and has to contain the value you want to transfer
after TRANSPORTING you name the field you want to change
you can check the complete syntax (with examples) in SAPHelp

Similar Messages

Count the Records in an internal table without a loop.

How do i count the number of records in an internal table without using the loop statement.
The Describe statement give the total no. of records in the internal table.But i want the count of the key fields in the internal table
For eg
Row Field
1 A
2 A
3 A
4 B
5 B
6 C
Count of A = 3
Count of B = 2
Count of C = 1

Dilip,
I think isn't posible. Only 3 ideas:
1ª, make other table "table2", similar to your actual table.
 table2[] = yourtable[].
 delete table2 where key <> 'A'.
 describe table table2 lines contA.
 But depending the amount of data, you may have problems in performance or memory consumption...
2ª, make other table, only with the keys fields and a count field,
 data begin table2
 key_field1,
 cont type i.
 end data.
 when you append lines to yourdata, make a collect to this table:
 table2-keys = yourtable-keys.
 table2-cont = 1.
 collect table2.
 But only works if you can modify the program where data is appended, and you may be carefull when data is deleted :-(...
3ª if your data if filled in a select, you may fill the table2 of point 2ª, making a similar select but:
 select keyfields count( * ) into table table2
from ...
where (the same you have to fill your original table...)
 group by keys.
But you have the same problem is data is deleted later...
I hope that any of the three is useful for you...
Edited by: Diego Alvarez on Jan 5, 2010 5:09 PM

How to move field symbol internal table to internal table with header line?

Dear all,
hi...hereby i would like to ask how i can move field symbol internal table to a internal table?
as i know field symbol internal table is without header line..
so, may i know how to do this....to move field symbol internal table to internal table which consist of header line and field and record will same as field symbol internal table...in additional, my field symbol internal table is dynamic table mean everytime will have flexible columns..?
Please advise...
Thanks
Regard,
ToToRo.
Edited by: @ToToRo@ on Aug 20, 2009 6:16 AM

Hello,
Try this way:
If both the type of internal tables are same then you can directly assign dynamic internal table to static internal table.
itab = <itab>.
Suppose you have field symbol internal table <itab> which is different in structure from ITAB.
Now, you can create <wa> as follow:
FIELD-SYMBOLS <wa>.
DATA wa TYPE REF TO DATA.
CREATE DATA wa TYPE LINE OF <itab>.
ASSIGN wa->* to <wa>.
This way your work area is read.
Using [ASSIGN COMPONENT|http://help.sap.com/saphelp_nw04/helpdata/EN/fc/eb3923358411d1829f0000e829fbfe/content.htm] syntax you can read required component of <wa>.
Finally you can use that value to load static internal table.
You can also refer to my thread on [Dynamic table|Re: Creating Dynamic table].
Hope this helps!
Thanks,
Augustin.
Edited by: Augustarian on Aug 20, 2009 10:06 AM

Assign function code to a field in internal table

Hi all,
Can we assign a function code to one field in internal table so that we can use it as an user command in list display.
For ex:
data : begin of itab occurs 0,
 check(1) type C,
 num type I,
 end of itab.
I am preparing a list display using WRITE statements.
I'ld like to update the checked value of check box as soon as the user selects a check box. So I would like to assign a function code to this check box. Then I can use AT user-command.

Hi,
dinesh's apporach is not bad, but
1. the structure' name cannot be part of the component
2. you need to make sure the component-name always is in upper case.
Try adapting the following code:
data: begin of wa_test,
 field01 type string,
 field02 type string,
 field03 type string,
 end of wa_test.
data: l_fieldname type string,
 l_counter type string.
field-symbols: <testc> type string.
do 3 times.
l_counter = sy-index.
concatenate 'field0' l_counter into l_fieldname.
translate l_fieldname to upper case.
assign component l_fieldname of structure wa_test to <testc>.
if <testc> is assigned.
 <testc> = 'any value'.
endif.
enddo.
write / wa_test-field01.
best regards

Moving data into internal table without header line

Hello experts.
i have two internal tables . itab1 without headerline and itab2 with headerline. itab1 has 10 fields and itab2 has 2 fields.
BEGIN OF itab,
 lifnr LIKE lfa1-lifnr,
 ktokk LIKE lfa1-ktokk,
 name1 LIKE lfa1-name1,
 sortl LIKE lfa1-sortl,
 pstlz LIKE lfa1-pstlz,
 ort01 LIKE lfa1-ort01,
 land1 LIKE lfa1-land1,
 j_1ipanno LIKE j_1imovend,
end of itab.
DATA: itab1 TYPE STANDARD TABLE OF itab.
data: begin of itab2 occurs 0,
 lifnr like j_1imovend-lifnr,
 j_1ipanno like j_1imovend-j_1ipanno,
end of itab2.
now i want to move the data from itab2-j_1ipanno into itab1-j_1ipanno. so pls tell me how to do that. lifnr in both the tables are the same.
thanks for all the replies.

Hi Shiva,
In with out header line,
You declare header line & body separately like
data: IT_MARA type standard table of MARA,
WA_MARA like line of IT_MARA.
Advantages:
1. Clear differentiation of header line over body
2. It is must in the ABAP Objects to have separate header line & body
3. Use ful in Nested Internal tables
Disadvantages:
1. Long syntax
for example: Loop at IT_MARA into WA_MARA.
In with header line
Data ITAB like MARA occurs 0 with header line.
Advantages:
1. Simple to use & declare over without header line.
Also,
With Header line:
codedata : itab like <dbtable> occurs 0 with header line.
Data: begin of itab occurs 0,
f1 type f1,
f2 type f2,
end of itab.[/code]
Without Header line.
codeTypes: begin of ty_tab,
f1 type f1,
f2 type f2,
end of ty_tab.
Data: itab type table of ty_tab, " Internal Table
wa type ty_tab. " Work Area[/code]
at any point of time use internal table without header line,it will be good performance as well OO ABAP will allow only internal table without header line.
Just use one simple example :
create one simple program with header line,use get run time field.
create one simple program without header line,use get run time field.
see the results ,here time will be micro seconds,so take 1000 records to internal table and do calculate the time.
While adding or retrieving records to / from internal table we have to keep the record temporarily.
The area where this record is kept is called as work area for the internal table. The area must have the same structure as that of internal table. An internal table consists of a body and an optional header line.
Header line is a implicit work area for the internal table. It depends on how the internal table is declared that the itab will have the header line or not.
e.g.
data: begin of itab occurs 10,
ab type c,
cd type i,
end of itab. " this table will have the header line.
data: wa_itab like itab. " explicit work area for itab
data: itab1 like itab occurs 10. " table is without header line.
The header line is a field string with the same structure as a row of the body, but it can only hold a single row.
It is a buffer used to hold each record before it is added or each record as it is retrieved from the internal table. It is the default work area for the internal table.
kindly reward if found helpful.
cheers,
Hema.

I want to create an internal table without using header line and occurs 0?

hi experts,
Can anybody help me to declare an internal table without using headerline and occurs 0 options but still i have to use the functionalities that occurs 0 and header line options provide.

Hi Saisri,
You can use the internal table without headerline and create a header for then internal table with the same structure. We need to use the header while manipulating with the data of the internal table.
example:
types: begin of ty_afpo,
 kdauf type kdauf,
 kdpos type kdpos,
 ltrmp type ltrmp,
 end of ty_afpo.
data : t_afpo type standard table of ty_afpo, " internal table declaration
 wa_afpo type ty_afpo. " work area declaration
<after populating the data into the internal table>
loop at t_afpo into wa_afpo.
write:/ wa_afpo-kdauf, wa_afpo-kdpos, wa_afpo-ltrmp.
endloop.
This I think shall give you a basic understanding of how things work.
Reward points if this helps,
Kiran

How to handle field symbols internal table values?

HI all,
 I declared field string as below.The below code is working fine.
Data : ITAB TYPE STANDARD TABLE OF YAPOPLN, (Custom table).
 wa_itab like line of ITAB.
field-symbol : <fs> type ITAB.
ASSIGN PARAM TO <FS>
LOOP AT <FS> INTO WA_ITAB.
WRITE:/ 'ABC'.
ENDLOOP.
But my requirement is that I dont want all the fields of the table YAPOPLN.My output contains only 2 fields of the table YAPOPLN,which contains total 4 fields.According to my requirement only 2 fields will be getting into one parameter PARAM(this is function module parameter,which is from ALV classes) from the user entered output,which contains only 2 fields.So the above code is not working properly because wa_itab contains 4 fields and giving short dump.
If I am declaring the internal table with the required fields(only 2 fields) and referring that internal table to field symbol <FS>
Data : BEGIN OF ITAB1 OCCURS 0,
 FIELD1 LIKE YAPOPLN-FIELD1,
 FIELD2 LIKE YAPOPLN-FIELD2,
 END OF ITAB1.
field-symbol : <fs> LIKE ITAB1 OR <FS> TYPE ANY.
DATA :WA_ITAB1 LIKE LINE OF ITAB1.
ASSIGN PARAM TO <FS>
LOOP AT <FS> INTO WA_ITAB.
WRITE:/ 'ABC'.
ENDLOOP.
But when I am compiling this code i am getting the below error.I am gettting the same below error when even <FS> is also declared as <FS> TYPE ANY.
.'FS' is not an internal table or defined in TABLES.
Can anyone help me in this regard?
Thanks,
Balaji

Hello,
Try this way:
If both the type of internal tables are same then you can directly assign dynamic internal table to static internal table.
itab = <itab>.
Suppose you have field symbol internal table <itab> which is different in structure from ITAB.
Now, you can create <wa> as follow:
FIELD-SYMBOLS <wa>.
DATA wa TYPE REF TO DATA.
CREATE DATA wa TYPE LINE OF <itab>.
ASSIGN wa->* to <wa>.
This way your work area is read.
Using [ASSIGN COMPONENT|http://help.sap.com/saphelp_nw04/helpdata/EN/fc/eb3923358411d1829f0000e829fbfe/content.htm] syntax you can read required component of <wa>.
Finally you can use that value to load static internal table.
You can also refer to my thread on [Dynamic table|Re: Creating Dynamic table].
Hope this helps!
Thanks,
Augustin.
Edited by: Augustarian on Aug 20, 2009 10:06 AM

How To select maximum Value in a specifieid field in internal table.

How To select maximum Value in a specifieid field in internal table?

Step : 1
Sort itab by <Field1> descending.
Just sort the internal table by the field.
STEP: 2
Then read the table at index 1.
Read table itab index 1.
ITAB-FIELD = MAX . " Max field will come in the first row of the internal table.
Regards,
Gurpreet

How to add the contents of a field of internal table.

Hello Everybody,
How to sum up the individual field from a internal table. Like i have a internal table that has menge field , I need to sum up the menge field for each matnr..
exm : for each matnr there are 5 menge entries, I need to add all the menge fields and shud be put against the matnr .
Thanks,

Hi Khaleel,
One more option is using the "collect" statement.....
imagine in the internal table itab..we have 2 fields only..
MATNR,MENGE,
we have 2 internal tables itab1 and itab2...
loop at itab1.
collect itab1 to itab2.
endloop.
Action performed is ...for the same MATNR...menge gets added and saved as a single record...When matnr changes...new record is Appended
another case is we have 3 fields in internal table
MATNR,UNIT,MENGE
imagine we hane the records
Material1 KG 100
Material1 LT 20
Material1 LT 200
MAterial2 KG 100
in this case...the output will be
Material1 KG 100
Material1 LT 220
MAterial2 KG 100
Reason is that the fields before the addable value is checked for similarity..
here field UNIT is also checked and also MATNR before adding up....
Hope it gave you some alternative idea to proceed with....
Reward if helpful
Regards
Byju

Read contents of changing fields from internal table

Hi Folks,
Please help me in my query below:
Consider there is a Z-table with two fields TABNAM and FIELD having values KNA1 and NAME1 respectively.
In my report I have fetched entries for customers from KNA1. Now based on the field from Z-table I want to populate a variable suppose V_FREE_VAR with the value from KNA1 table.
Here V_FREE_VAR is of CHAR200 so that it accomodate all types of values from KNA1.
The value of Z-table FIELD can change daily i.e next day the value may be PSTLZ.
So how can I read the particular field from internal table as the field to be read is dynamic.
Note: using case is not feasible.
Thanks in advance.
Regards,
Shardul

@Hartmut P
As Rob said i want to get the value of the field from internal table. the code is something like this.
I_KNA1 contains records for customers.
Suppose values of Z-table are in internal table I_TEMP_TABLE.
Entries in I_TEMP_TABLE are as follows
TABNAME      FIELDNAME
KNA1                 NAME1
The value of FIELNAME in Z-table can be changed
Loop at I_TEMP_TABLE into WA_TEMP_TABLE.
Read I_KNA1 into WA_KNA1 with key KUNNR = '0001002234'.
IF SY-SUBRC EQ 0.
   CASE WA_TEMP_TABLE-FIELDNAME.
        WHEN 'NAME1'.
             V_VAR = WA_KNA1-NAME1.
         WHEN 'PSTLZ'
              V_VAR = WA_KNA1-PSTLZ.
ENDIF.
But using case is not appropriate as KNA1 contains 176 fields.

Upload data from Excel to internal table without using Screen

Hi,
My reqirment is to read the excel input data and then upload it to internal table for further proceeing but without using selection input screen. I mean can I mention the fixed file name and the path in the function module iself for the input file.

1.First create one internal table as u have created ur EXCEL file.
e.g: if ur EXCEL file contains 3 fields col1 col2 and col3.
 data: begin of wa,
 col1(10),
 col2(10),
 col3(10),
 end of wa,
 itab like standard table of wa.
data: filename type string 'C:\FOLDER\DATA.XLS'
If u dont want to use the screen, then pass the file name directly to the GUI_UPLOAD FM.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
 filename = filename
 FILETYPE = '.XLS'
tables
 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
OTHERS = 17
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
This will serve ur puspose.
loop at itab into wa.
write: / wa-col1,wa-col2,wa-col3.
endloop.
Thanks & Regards
Santhosh

Updation of blank field in internal table

Hi,
I want to update the blank businees area field with the header item of that particular business area belnr.
i am sending you the updation of business area code plz find out where rhe error and rectify please.
points given
REPORT zfir_vendorwise_grir_balances NO STANDARD PAGE HEADING
 LINE-SIZE 142
 LINE-COUNT 65.
TABLES: bsis,bkpf,bseg,ekko,lfa1.
TYPE-POOLS: slis.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
 gs_layout TYPE slis_layout_alv ,
 gs_print TYPE slis_print_alv,
 gt_sort TYPE slis_t_sortinfo_alv ,
 gt_filter TYPE slis_t_filter_alv,
 gt_sp_group TYPE slis_t_sp_group_alv,
 gt_alv_graphics TYPE dtc_t_tc,
 gt_excluding TYPE slis_t_extab ,
 gt_events TYPE slis_t_event .
DATA: g_repid LIKE sy-repid.
DATA: gt_list_top_of_page TYPE slis_t_listheader.
DATA: g_boxnam TYPE slis_fieldname VALUE 'BOX',
 p_f2code LIKE sy-ucomm VALUE '&ETA',
 p_lignam TYPE slis_fieldname VALUE 'LIGHTS',
 g_save(1) TYPE c,
 g_default(1) TYPE c,
 g_exit(1) TYPE c,
 gx_variant LIKE disvariant,
 g_variant LIKE disvariant.
DATA : g_user_command(30) VALUE 'USER_COMMAND'.
DATA : g_status_set(30) VALUE 'PF_STATUS_SET'.
DATA: BEGIN OF it_final OCCURS 0,
 awkey TYPE awkey,
 grir(10) TYPE c,
 bukrs LIKE bsis-bukrs,
 hkont LIKE bsis-hkont,
 gjahr LIKE bsis-gjahr,
 belnr LIKE bsis-belnr,
 budat LIKE bsis-budat,
 waers LIKE bsis-waers,
 xblnr LIKE bsis-xblnr,
 blart LIKE bkpf-blart,
 buzei like bseg-buzei,
 bschl LIKE bseg-bschl,
 shkzg LIKE bseg-shkzg,
 gsber LIKE bseg-gsber,
 dmbtr LIKE bseg-dmbtr,
 wrbtr LIKE bsis-wrbtr,
 sgtxt LIKE bseg-sgtxt,
 ebeln LIKE bseg-ebeln,
 lifnr LIKE ekko-lifnr,
 ps_psp_pnr LIKE ekkn-ps_psp_pnr,
 name1 LIKE addr1_data-name1,
 END OF it_final.
DATA : it_po LIKE it_final OCCURS 0 WITH HEADER LINE.
DATA : it_ebeln LIKE it_final OCCURS 0 WITH HEADER LINE.
DATA : it_awkey LIKE it_final OCCURS 0 WITH HEADER LINE.
DATA : wa_final LIKE LINE OF it_final.
DATA : BEGIN OF it_lifnr OCCURS 0,
 ebeln TYPE ebeln,
 lifnr TYPE lifnr,
END OF it_lifnr.
DATA : BEGIN OF it_name1 OCCURS 0,
 lifnr TYPE lifnr,
 name1 TYPE name1,
END OF it_name1.
DATA : hmin TYPE bseg-hkont.
DATA : hmax TYPE bseg-hkont.
DATA: idx TYPE sy-tabix.
DATA: temp_gsber TYPE bseg-gsber.
DATA: temp_ebeln TYPE bseg-ebeln.
DATA : temp_gjahr TYPE bseg-gjahr.
DATA : temp_belnr TYPE bseg-belnr.
DATA : temp_lifnr TYPE bseg-lifnr.
*DEFINING THE SELECTION-CRITERIA.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_bukrs LIKE skb1-bukrs OBLIGATORY.
SELECT-OPTIONS: s_gsber FOR bseg-gsber OBLIGATORY.
SELECT-OPTIONS: s_hkont FOR bseg-hkont OBLIGATORY.
PARAMETERS: p_lifnr LIKE ekko-lifnr.
PARAMETERS: p_budat LIKE bkpf-budat OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON s_hkont.
CHECK s_hkont-low LT 250301 OR s_hkont-high GT 250500.
MESSAGE e000(zm) WITH 'PLEASE SELECT A GRIR CLEARING ACCOUNT BETWEEN'
 '250301 AND 250500'.
*INITIALIZATION.
INITIALIZATION.
g_repid = sy-repid.
*START-OF-SELECTION.
START-OF-SELECTION.
PERFORM select_data.
PERFORM display_data.
PERFORM list_display.
*& Form select_data
 text
--> p1 text
<-- p2 text
FORM select_data .
*selecting open item details
SELECT bukrs hkont gjahr belnr buzei
 budat waers xblnr blart
 bschl shkzg gsber dmbtr
 wrbtr sgtxt
 FROM bsis
 INTO CORRESPONDING FIELDS OF TABLE it_final
 WHERE bukrs EQ p_bukrs
 AND hkont BETWEEN '0000250301' AND '0000250500'
 AND budat LE p_budat AND ( blart EQ 'WE' OR
 blart EQ 'RE' OR
 blart EQ 'SA' OR
 blart EQ 'EI').
*selecting closed/cleared item details
SELECT bukrs hkont gjahr belnr buzei budat
 waers xblnr blart bschl shkzg
 gsber dmbtr wrbtr sgtxt
 FROM bsas
 APPENDING CORRESPONDING FIELDS OF TABLE it_final
 WHERE bukrs EQ p_bukrs
 AND hkont BETWEEN '0000250301' AND '0000250500'
 AND budat LE p_budat
 AND blart IN ('WE', 'RE','SA','EI')
 AND augdt GE p_budat.
SORT it_final BY belnr gsber DESCENDING.
CLEAR: temp_belnr, temp_gsber.
update blank business areas
LOOP AT it_final .
IF temp_gsber IN s_gsber AND it_final-belnr = temp_belnr.
 IF it_final-gsber = ' '.
 it_final-gsber = temp_gsber.
 ENDIF.
 ENDIF.
if it_final-gsber eq space or it_final-gsber in s_gsber.
 wa_final-gsber = it_final-gsber.
 wa_final-belnr = it_final-belnr.
 modify it_final from wa_final transporting gsber.
else.
 wa_final-gsber = it_final-gsber.
 wa_final-belnr = it_final-belnr.
 modify it_final from wa_final transporting gsber.
endif.
*clear wa_final.
endloop.
LOOP AT it_final.
 IF temp_gsber IN s_gsber AND it_final-belnr = temp_belnr.
 IF it_final-gsber = ' '.
 it_final-gsber = temp_gsber.
 ENDIF.
 IF it_final-lifnr = ' '.
 it_final-lifnr = temp_lifnr.
 ENDIF.
 IF it_final-belnr = ' '.
 it_final-belnr = temp_belnr.
 ENDIF.
 ENDIF.
 IF it_final-gsber EQ space OR it_final-gsber IN s_gsber.
 CLEAR: temp_belnr, temp_gsber,temp_lifnr.
 temp_belnr = it_final-belnr.
 temp_gsber = it_final-gsber.
 temp_lifnr = it_final-lifnr.
 ELSE.
 CLEAR : temp_belnr, temp_gsber,temp_lifnr.
 ENDIF.
 MODIFY it_final TRANSPORTING gsber.
ENDLOOP.
sort it_final by belnr buzei.
loop at it_final.
on change of it_final-belnr.
clear temp_belnr.
clear temp_gsber.
clear temp_lifnr.
temp_belnr = it_final-belnr.
temp_gsber = it_final-gsber.
temp_lifnr = it_final-lifnr.
endon.
if it_final-gsber is initial.
it_final-gsber = temp_gsber.
*modify it_final transporting gsber.
endif.
if it_final-lifnr is initial.
it_final-lifnr = temp_lifnr.
*modify it_final transporting lifnr.
endif.
modify it_final transporting gsber lifnr where belnr = temp_belnr.
endloop.
*deleting entries which are not as per input parameter for business area
DELETE it_final WHERE gsber NOT IN s_gsber .
loop at it_final.
if s_gsber-low ne '' and s_gsber-high ne ''.
delete it_final where gsber not in s_gsber.
elseif s_gsber-low ne '' and s_gsber-high eq ''.
delete it_final where gsber ne s_gsber-low.
endif.
endloop.
*initialising internal tables
it_awkey[] = it_final[].
it_po[] = it_final[].
it_ebeln[] = it_final[].
IF it_final[] IS NOT INITIAL.
*selecting purchase doc details
 SELECT bukrs hkont gjahr belnr
 bschl shkzg gsber dmbtr
 wrbtr sgtxt ebeln
 FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_ebeln
 FOR ALL ENTRIES IN it_final
 WHERE bukrs = p_bukrs
 AND belnr = it_final-belnr
 AND gjahr = it_final-gjahr
 AND hkont = it_final-hkont.
*selecting the GR/IR number from BKPF
 SELECT bukrs gjahr belnr
 budat waers xblnr blart
 awkey
 FROM bkpf
 INTO CORRESPONDING FIELDS OF TABLE it_awkey
 FOR ALL ENTRIES IN it_final
 WHERE bukrs EQ it_final-bukrs
 AND gjahr EQ it_final-gjahr
 AND belnr EQ it_final-belnr.
ENDIF.
IF it_ebeln[] IS NOT INITIAL.
*selecting WBS element
 SELECT ebeln gsber
 ps_psp_pnr
 FROM ekkn
 INTO CORRESPONDING FIELDS OF TABLE it_po
 FOR ALL ENTRIES IN it_ebeln
 WHERE ebeln = it_ebeln-ebeln.
*selecting vendor
 SELECT bukrs ebeln lifnr
 FROM ekko
 INTO CORRESPONDING FIELDS OF TABLE it_lifnr
 FOR ALL ENTRIES IN it_ebeln
 WHERE ebeln = it_ebeln-ebeln.
ENDIF.
IF it_lifnr[] IS NOT INITIAL.
*selecting vendor name
 SELECT lifnr name1
 FROM lfa1
 INTO CORRESPONDING FIELDS OF TABLE it_name1
 FOR ALL ENTRIES IN it_lifnr
 WHERE lifnr EQ it_lifnr-lifnr.
ENDIF.
LOOP AT it_final.
 idx = sy-tabix.
*retrieving purchase doc
 READ TABLE it_ebeln WITH KEY belnr = it_final-belnr
 gjahr = it_final-gjahr
 hkont = it_final-hkont.
 IF sy-subrc EQ 0.
 READ TABLE it_final INDEX idx.
 it_final-ebeln = it_ebeln-ebeln.
 MODIFY it_final INDEX sy-tabix.
 ENDIF.
*retrieving WBS element
 READ TABLE it_po WITH KEY ebeln = it_final-ebeln.
 IF sy-subrc EQ 0.
 READ TABLE it_final INDEX idx.
 it_final-ps_psp_pnr = it_po-ps_psp_pnr.
 MODIFY it_final INDEX sy-tabix.
 ENDIF.
calculating amount based on debit/credit
 IF it_final-shkzg = 'H'.
 it_final-dmbtr = 0 - it_final-dmbtr.
 it_final-wrbtr = 0 - it_final-wrbtr.
 ENDIF.
 MODIFY it_final INDEX idx.
ENDLOOP.
CLEAR idx.
SORT it_final BY belnr ebeln DESCENDING.
*updating blank purchase doc numbers
CLEAR: temp_belnr, temp_ebeln,temp_gjahr.
DATA: w_idx LIKE sy-tabix.
LOOP AT it_final.
 w_idx = sy-tabix.
*updating blank purchase docs
 IF it_final-gjahr = temp_gjahr AND it_final-belnr = temp_belnr.
 IF it_final-ebeln = ' '.
 it_final-ebeln = temp_ebeln.
 ENDIF.
 ENDIF.
 IF it_final-ebeln NE ' ' .
 CLEAR: temp_belnr, temp_ebeln, temp_gjahr.
 temp_belnr = it_final-belnr.
 temp_ebeln = it_final-ebeln.
 temp_gjahr = it_final-gjahr.
 ELSE.
 CLEAR : temp_belnr, temp_ebeln, temp_gjahr.
 ENDIF.
 MODIFY it_final TRANSPORTING ebeln.
*retrieving vendor
 READ TABLE it_lifnr WITH KEY ebeln = it_final-ebeln.
 IF sy-subrc EQ 0.
 READ TABLE it_final INDEX w_idx.
 it_final-lifnr = it_lifnr-lifnr.
 MODIFY it_final INDEX sy-tabix.
 ENDIF.
*retrieving GRIR number
 READ TABLE it_awkey WITH KEY belnr = it_final-belnr
 gjahr = it_final-gjahr
 bukrs = it_final-bukrs.
 IF sy-subrc EQ 0.
 READ TABLE it_final INDEX w_idx.
 it_final-awkey = it_awkey-awkey.
 MODIFY it_final INDEX sy-tabix.
 ENDIF.
*retrieving vendor name
 READ TABLE it_name1 WITH KEY lifnr = it_final-lifnr.
 IF sy-subrc EQ 0.
 READ TABLE it_final INDEX w_idx.
 it_final-name1 = it_name1-name1..
 MODIFY it_final INDEX sy-tabix.
 ENDIF.
ENDLOOP.
*deleting entries which are not per input parameters
DELETE it_final WHERE hkont NOT IN s_hkont.
IF p_lifnr NE ' '.
 DELETE it_final WHERE lifnr NE p_lifnr.
ENDIF.
for selecting the grir number which is the first 10 digits of reference key and
selecting vendor name
LOOP AT it_final.
 MOVE it_final-awkey+0(10) TO it_final-grir.
 MODIFY it_final INDEX sy-tabix.
ENDLOOP.
SORT it_final BY hkont belnr.
deleting entries where purchase doc is blank.
DELETE it_final WHERE ebeln EQ ' '.
ENDFORM. " select_data
*& Form build_fieldcat
 text
--> p1 text
<-- p2 text
FORM e01_fieldcat_init USING gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
DATA: gs_sort TYPE slis_sortinfo_alv.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'HKONT'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '1'.
ls_fieldcat-seltext_l = 'ACCOUNT'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'BSCHL'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '2'.
ls_fieldcat-seltext_l = 'POSTING KEY'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'BLART'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '3'.
ls_fieldcat-seltext_l = 'DOC TYPE'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'BELNR'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '4'.
ls_fieldcat-seltext_l = 'DOC NUMBER'.
ls_fieldcat-hotspot(1) = 'X'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'BUDAT'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '5'.
ls_fieldcat-seltext_l = 'POSTING DATE'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'XBLNR'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '6'.
ls_fieldcat-seltext_l = 'REF. DOC NO'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'EBELN'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '7'.
ls_fieldcat-seltext_l = 'PURCHASE DOC NO'.
ls_fieldcat-hotspot(1) = 'X'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'GSBER'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '8'.
ls_fieldcat-seltext_l = 'BUSINESS AREA'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'DMBTR'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '9'.
ls_fieldcat-seltext_l = 'AMOUNT(LC)'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'WRBTR'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '10'.
ls_fieldcat-seltext_l = 'AMOUNT(DC)'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'WAERS'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '11'.
ls_fieldcat-seltext_l = 'CURRENCY'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'GJAHR'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '14'.
ls_fieldcat-seltext_l = 'Fiscal year'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'GRIR'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '14'.
ls_fieldcat-seltext_l = 'GR/IR Number'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'LIFNR'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '12'.
ls_fieldcat-seltext_l = 'VENDOR NO'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'PS_PSP_PNR'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '13'.
ls_fieldcat-seltext_l = 'WBS Element'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'NAME1'.
ls_fieldcat-tabname = 'IT_FINAL'.
ls_fieldcat-col_pos = '14'.
ls_fieldcat-seltext_l = 'VENDOR NAME'.
APPEND ls_fieldcat TO gt_fieldcat.
ENDFORM. " build_fieldcat
*& Form LIST_DISPLAY
 text
--> p1 text
<-- p2 text
FORM list_display .
gs_layout-colwidth_optimize(1) = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_background_id = 'ALV_BACKGROUND'
 i_callback_program = g_repid
 i_callback_user_command = 'USER_COMMAND'
 i_structure_name = 'IT_FINAL'
 is_layout = gs_layout
 it_fieldcat = gt_fieldcat[]
 it_special_groups = gt_sp_group[]
 it_sort = gt_sort[]
 it_filter = gt_filter[]
 i_save = g_save
 is_variant = g_variant
 it_events = gt_events[]
 is_print = gs_print
 it_alv_graphics = gt_alv_graphics[]
 it_excluding = gt_excluding
 TABLES
 t_outtab = it_final.
ENDFORM. " LIST_DISPLAY
*& Form USER_COMMAND
FORM user_command USING i_ucomm LIKE sy-ucomm
 is_selfield TYPE slis_selfield. "#EC CALLED
CASE i_ucomm.
 WHEN '&IC1'. " Pick(Double-click)
 CASE is_selfield-fieldname.
 WHEN 'BELNR'.
 CLEAR it_final.
 READ TABLE it_final INDEX is_selfield-tabindex.
 IF sy-subrc EQ 0.
 FI Document number
 SET PARAMETER ID 'BLN' FIELD it_final-belnr.
 Display Document
 CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
 ENDIF.
 WHEN 'EBELN'.
 CLEAR it_final.
 READ TABLE it_final INDEX is_selfield-tabindex.
 IF sy-subrc EQ 0.
 PO number
 IF it_final-ebeln NE ' '.
 SET PARAMETER ID 'BES' FIELD it_final-ebeln.
 Display Document
 CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
 ENDIF.
 ENDIF.
 ENDCASE.
ENDCASE.
ENDFORM. "user_command
*& Form display_data
 text
--> p1 text
<-- p2 text
FORM display_data .
g_repid = sy-repid.
PERFORM e01_fieldcat_init USING gt_fieldcat[].
PERFORM eventtab_build CHANGING gt_events.
PERFORM e04_comment_build USING gt_list_top_of_page[].
ENDFORM. " display_data
*& Form eventtab_build
 text
 <--P_GT_EVENTS text
FORM eventtab_build CHANGING lt_events TYPE slis_t_event.
CONSTANTS:
 gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = lt_events.
READ TABLE lt_events WITH KEY name = slis_ev_top_of_page
INTO ls_event.
IF sy-subrc = 0.
 MOVE gc_formname_top_of_page TO ls_event-form.
 APPEND ls_event TO lt_events.
ENDIF.
ENDFORM. " eventtab_build
*& Form e04_comment_build
 text
 -->P_GT_LIST_TOP_OF_PAGE[] text
FORM e04_comment_build USING e04_lt_top_of_page TYPE slis_t_listheader.
DATA : v_time(10) TYPE c.
DATA: ls_line TYPE slis_listheader.
DATA : v_text(50) TYPE c.
DATA : v_date_low(10) TYPE c,
 v_date_high(10) TYPE c.
CONCATENATE 'GR/IR Report' ' '
INTO v_text SEPARATED BY space.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = v_text.
APPEND ls_line TO e04_lt_top_of_page.
ENDFORM. " e04_comment_build
*& Form top_of_page
 text
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = gt_list_top_of_page.
ENDFORM . "TOP_OF_PAGE
regards,
Amit teja
Message was edited by: amit teja
Message was edited by: amit teja
Message was edited by: amit teja

Hello,
Sort it_final by belnr.
loop at it_final.
on change of it_final-belnr.
clear temp_gsber.
clear temp_lifnr.
temp_belnr = it_final-belnr.
temp_gsber = it_final-gsber.
temp_lifnr = it_final-lifnr.
if it_final-gsber eq ' '.
it_final-gsber = temp_gsber.
endif.
if it_final-lifnr eq ' '.
it_final-lifnr = temp_lifnr.
endif.
modify it_final transporting gsber lifnr where belnr = temp_belnr.
endon.
endloop.
Regards,
Naimesh

Replace field in internal table

Hi gurus,
I have an internal table in which I need to replace a field with a different value. I have tried the REPLACE __ IN TABLE __ WITH statement, but it did not seem to work.
Also, I cannot use a SORT TABLE statement because the record needs to be at a certain index in the table.
Any suggestions? <REMOVED BY MODERATOR>
Thanks in advance!
Edited by: Alvaro Tejada Galindo on Aug 14, 2008 3:03 PM

Hi. If you know the exact field in the exact row of the table, you could do something like this. This is direct access to the field without having to use the MODIFY statement.
REPORT zrich_0001.
TYPES: BEGIN OF ttab,
 fld1 TYPE c,
 fld2 TYPE c,
 fld3 TYPE c,
 END OF ttab.
DATA: itab TYPE TABLE OF ttab.
DATA: wa LIKE LINE OF itab.
FIELD-SYMBOLS: <wa> LIKE LINE OF itab.
* fill ITAB with data.
wa-fld1 = 'A'.
wa-fld2 = 'B'.
wa-fld3 = 'C'.
APPEND wa TO itab.
wa-fld1 = 'D'.
wa-fld2 = 'E'.
wa-fld3 = 'F'.
APPEND wa TO itab.
wa-fld1 = 'G'.
wa-fld2 = 'H'.
wa-fld3 = 'I'.
APPEND wa TO itab.
* Now access FLD2 of row 2, and change the value to X
READ TABLE itab ASSIGNING <wa> INDEX 2.
IF sy-subrc = 0.
<wa>-fld2 = 'X'.
ENDIF.
Regards,
Rich Heilman

Reg Modification of a field in internal table.

Hi
i have requirement like this. I have a header and an items in a report. In header, i need to display the no. of . items(count). In my report i am displaying the records before moving to internal table(Direct write). Also i want to download that report into a CSV file.
Regards
Ravi

hi,
Check out this sample code
report ztest.
data: begin of itab occurs 0,
fld1(10) type c,
fld2(10) type c,
fld3(10) type c,
end of itab.
data: begin of iout occurs 0,
rec(1000) type c,
end of iout.
parameters: p_file type localfile default 'C:\test.csv'.
data: file type string.
start-of-selection.
    * Build the ITAB
itab-fld1 = 'A'.
itab-fld2 = 'B'.
itab-fld3 = 'C'.
append itab.
itab-fld1 = 'D'.
itab-fld2 = 'E'.
itab-fld3 = 'F'.
append itab.
itab-fld1 = 'G'.
itab-fld2 = 'H'.
itab-fld3 = 'I'.
append itab.
    * Build the output internal table from ITAB
    * Concatenate all fields into IOUT-REC
loop at itab.
concatenate itab-fld1 itab-fld2 itab-fld3 into iout-rec
separated by ','.
condense iout-rec no-gaps.
append iout.
endloop.
    * Now Download
file = p_file.
call function 'GUI_DOWNLOAD'
exporting
filename = file
tables
data_tab = iout
exceptions
others = 22.

Copying the data into internal table without internal table

Hello experts.
i have two internal tables . itab1 without headerline and itab2 with headerline. itab1 has 10 fields and itab2 has 2 fields.
BEGIN OF itab,
lifnr LIKE lfa1-lifnr,
ktokk LIKE lfa1-ktokk,
name1 LIKE lfa1-name1,
sortl LIKE lfa1-sortl,
pstlz LIKE lfa1-pstlz,
ort01 LIKE lfa1-ort01,
land1 LIKE lfa1-land1,
j_1ipanno LIKE j_1imovend-panno,
end of itab.
DATA: itab1 TYPE STANDARD TABLE OF itab.
data: begin of itab2 occurs 0,
lifnr like j_1imovend-lifnr,
j_1ipanno like j_1imovend-j_1ipanno,
end of itab2.
now i want to move the data from itab2-j_1ipanno into itab1-j_1ipanno.
Both the tables ie itab1 and itab2 has lifnr data in them .
so in itab2 j_1ipanno has pan number for the lifnr( vendors) so i need to populate this pannumbers in itab1 also by comparing
the lifnrs in two tables. where ever the lifnr of itab2 is equal to itab1-lifnr then this pannumber should be placed there.
so pls tell me how to do that. lifnr in both the tables are the same.
thanks for all the replies.

Hi Shiva,
            Try this one..
data: begin of itab.
   lifnr LIKE lfa1-lifnr,
    ktokk LIKE lfa1-ktokk,
name1 LIKE lfa1-name1,
sortl LIKE lfa1-sortl,
pstlz LIKE lfa1-pstlz,
ort01 LIKE lfa1-ort01,
land1 LIKE lfa1-land1,
j_1ipanno LIKE j_1imovend-panno,
end of itab.
data: wa like line of itab1.
data: begin of itab occurs 0,
        lifnr like j_1imovend-lifnr,
        j_1ipanno like j_1imovend-j_1ipanno,
end of itab2.
data: wa1 like line of itab2.
loop at itab1 into wa.
itab2-lifnr = wa-lifnr.
itab2-j_1ipanno = wa-j_1ipanno
append itab2.
endloop.
Reward points if helpful.
Kiran Kumar.G.A
        Have a Nice Day..

Concatenate a field in internal table without loopat.

Similar Messages

Maybe you are looking for