Populating the data

populating the data to the data base table .... which i created using only reports ...
can any body tell the approach ....... if possible coding also plz help me out ..
but using only general reports ..

Are you talking about loading data to an internal table from a database table or poplulating a database table?
If the former, the previous response is correct.
If you are attempting to load data into a database table, there are a number of approaches, including CATT and BDC.
I have frequently used BDC.
Both approaches have the data initialing in a flat file, such as a tab-delimited file output from Excel with the data to be loaded into the table.
The program then loads the data from the PC and creates a BDC session, which simulates data input into the appropriate transaction for updating the table in question.
You can also use a more straightforward technique if you are loading a Z table that does not require the standard edit checking and control you get with CATT or BDC.
Please clarify your request.
Good luck
Brian

Similar Messages

How to validate the field when i am populating the data cursor to block

Hi,
I am populating data cursor to multi record block.
Block contain 5 items. I am populating data cursor to block for 4 items. User will enter one item value that is quantity field.
If user enter negative values and decimal points in quantity filed i need to display message to user item level.
Please do the needful how to do it.

902434 wrote:
Hi,
I am populating data cursor to multi record block.
Block contain 5 items. I am populating data cursor to block for 4 items. User will enter one item value that is quantity field.
If user enter negative values and decimal points in quantity filed i need to display message to user item level.
Please do the needful how to do it.If you want to validate at entry level then use When-Validate-Item trigger and check the input and show message. Like
If :quentity <0 then
message('do not enter negative value');
message('do not enter negative value');
raise form_trigger_failure;
end if;Why u open same thread again ? not closing one.. check this one
</a>
How to validate the field when i am populating the data cursor to block
Hopes this helps
If someone's response is helpful or correct, please mark it accordingly.

Populating the data tab field for the FM IDOC_INPUT_CREDITOR

HI
I need to use the function module IDOC_INPUT_CREDITOR .
When i am populating the idoc data table i need to update the field sdata for the segment E1LFA1M.
What is the best way to populate the field .
Is there a function module which will get the import structure of the table LFA1into the the sdata field.
Thanks a lot in advance.
Anjali

Check for the user exit of the idoc function module. You can check for - EXIT_SAPLKD02_001 & include - zxvsvu04.

Auto populating the Date/Time Field in a Column

I'm having an issue with the a Date and Time Column type auto populating the current date and time correctly. I've put the =Now() function in the calculated value box. I get the correct date and I get a time but the time is wrong, its
on Pacific Time and my regional settings on the site are Central Time. I can't find any way to specify use central time. is this a bug on microsoft's end or mine? It was working yesterday and not today.

check what time zone is your central admin is set to
using
http://<CentralAdminUrl>/_layouts/regionalsetng.aspxand if its pointing to pst you will get pst result .you will see the options wil time zone selected and also some other like calender etc
if you want to change reginaol time for your site so to site settings ==> under site adminstration
you will see regional settings where you can set the time zone it will look like this :

Populating the date field

Hi All, I am trying to populate the "datefield" (cv58) when the "validated" field (cv55) is set to a specific string from the dropdown menu. I have used the following code in the change event of (cv55). if (form1.P1.client.variable_option_client.cv55.rawValue == "Validated") then form1.P1.client.variable_option_client.cv58.rawValue = num2date(date(), "YYYY-MM-DD") endif if (form1.P1.client.variable_option_client.cv55.rawValue == "Pending" OR form1.P1.client.variable_option_client.cv55.rawValue == "Not Validated" OR form1.P1.client.variable_option_client.cv55.rawValue == "null") then form1.P1.client.variable_option_client.cv58.rawValue = "null" endif This does not pupulate anything into my datefield. I need the datefield to populate with today's date when (cv55) is set to "Validated" else it should not not set the date to anything. Please help Joey

Hi,
the rawValue is only applied when you exit the drop down box.
Use xfa.event.newText instead.
if (xfa.event.newText eq "Validated") then
form1.P1.client.variable_option_client.cv55 = Num2Date(date(), "YYYY-MM-DD")
else
form1.P1.client.variable_option_client.cv55 = null
endif

Populating the data into idoc

Hi
Could you plz tell me the ways through which we can populate the data into idoc ?? I can think of two ways.
1. By writing the report program and executing the same
2. By change pointer concept.
Are there any ways through which we can populate the data into idocs ??
thanks
Kumar

Hi,
Others are
1. Creation through NAST message control
2. Creation through workflow
aRs

Populating the data grid

OK I think that is resolved but I cannot pull the Data.
The Grid does not populate with data......Just keeps trying to pull it.
THE CFC FUNCTION:
<cffunction name="comments" access="remote" returntype="struct">
<cfargument name="page" required="true">
<cfargument name="pageSize" required="true">
<cfargument name="gridsortcolumn" required="true">
<cfargument name="gridsortdirection" required="true">
 <cfquery name="selectAll" datasource="#dsn#" dbtype="#i#">
 SELECT autoid, CONVERT(VARCHAR(10), sDate, 101) as sDATE, DAGRSN, branch,
 DODAAC, clin, hours
 FROM reporting.DAGRSCRAPS
 </cfquery>
<cfreturn queryconvertforgrid(selectAll,page,pagesize)/>
</cffunction>
THE DATA GRID ITSELF:
<cfform name="myform" id="myformid">
<cfgrid
name = "myGrid"
format="html"
bindOnLoad="yes"
bind="cfc:pdgps.admin.backoffice.components.Data.comments({cfgridpage },{cfgridpagesize},{cfgridsortcolumn},{cfgridsortdirection})"
pageSize="10"
preservePageOnSort="true"
selectMode="single"
selectOnLoad="no"
font="Verdana"
fontsize="11"
label="True"
stripeRows="true"
stripeRowColor="##D9CCFF"
selectColor="##994FE6">
<cfgridcolumn name="autoid" display="no" >
<cfgridcolumn name="branch" header="SERVICE" type="string_noCase" >
<cfgridcolumn name="DODAAC" header="DODAAC" type="string_noCase" >
<cfgridcolumn name="DAGRSN" italic="yes" display="yes" header="DAGRSN">
<cfgridcolumn name="sDATE" display="yes" header="Date" mask="EEE DD-MMM-YY H:NN A">
<cfgridcolumn name="clin" width="35" display="yes" >
</cfgrid>
</cfform>

<cfargument name="gridsortdirection" required="true">
<cfset var selectAll = "">

<cfquery name="selectAll" datasource="#dsn#" dbtype="#i#">
Also, where are the 'dsn' and 'i' variables defined. They do not appear to be part of this function. Using a CFC function remotely has a great effect on what variables scopes may or may not be accessed.

Executing the ETL for populating the data in the Warehouse schema

i have developed an ETl and executed it to populate the data but it keep on running for the whole day and no end result. moreover how i can edit the ETL queries myself.

This forum is for feedback about OTN content and services. Please post your question in the Oracle Warehouse Builder forum:
Warehouse Builder

Needed Enhancement in IW31 for populating the date fields

Hi,
We need to populate the date fields like RELEASE DATE, TECHNICAL COMPLETION DATE via Enhancement for the Transaction IW31.
We are using LSMW to upload the data.
Can anyone provide more insight in this.
Vijayanand.

hi
This exit is available for IW31..
Exit Name Description
IWO10012 Maintenance order: Priority handling on central header
If this is not applicable you would have to go for badi's
To search for a badi, go to se 24 display class cl_exithandler.
double click on method get_instance, get a break point on case statement.
execute and start the required transaction in new session.
look for variable exit_name. It would show the available badi's.
Hope this helps
if it helped, you can acknowledge the same by rewarding
regards
dinesh

Backup Assistant is not populating the data to the site

I have 200+ contacts in my phone that were transfered by the Verizon store. They also set up the backup assistant for me. When I sync the contacts to the backup assistant from the device I get a message on the device that says succeded and a time and date which are current. Then I go to my computer login to the backup site and no contacts show up. When I click in the messages tab the messages are there. I have reset the phone synced about 100 times and still no contacts. Any ideas?

If your contacts are saved as Google contacts, they WILL NOT backup to Verizon's Backup Assistant.
If the word Google is under the Link box (which is an option to allow linking to other contacts), the contact is saved as a Google contact. You can't change it after it is saved the first time.
From your post above, it sounds like your contacts were uploaded to your Google account and synced to your phone.
Google contacts are a better way to go IMHO.

Creating a collection from a query in Apex 4.2 is not populating the data into the collection.

I have a process that creates a collection with data from multiple tables. The query returns multiple rows in 'Sql commands' tab. The same query is used to create the collection in 'Before Header' and when i create a region with Region source as
Select * From apex_collections Where collection_name = 'load_dashboard';
At the time of rendering the page shows me 'no data found'.
what could be the problem? Are there any prerequisites before creating the collection?
Thanks in Advance,
Sriram

Hi Denes,
Below is my code for creating and saving data into the collection.
if apex_collection.collection_exists(p_collection_name =>'load_dashboard') then
   apex_collection.delete_collection(
         p_collection_name =>'load_dashboard');
end if;
apex_collection.create_collection_from_query(
    p_collection_name => 'load_dashboard',
    p_query => 'select a.rowid
               ,b.first_name
               ,b.last_name
               ,c.job_title
               ,d.parent
               ,d.child_level_1
               ,d.child_level_2
               ,a.resource_allocation
               ,a.person_id
               ,a.month_id
               ,a.oracom_project_id    ,wwv_flow_item.md5(a.rowid,b.first_name,b.last_name,c.job_title,d.parent,d.child_level_1,d.child_level_2,a.resource_allocation,a.person_id,a.month_id,a.oracom_project_id)
from oracom_resource_management a, oracom_people b,oracom_job c ,oracom_project d where a.supervisor_id=886302415 and a.month_id=201312 and a.oracom_job_id=c.job_id and a.person_id=b.person_id and a.oracom_project_id=d.oracom_project_id',
   p_generate_md5 => 'YES'
Sriram.

Parsing an EDI file and populating the data into database table

Hi ,
Please help me in parsing an edi file and getting the required columns.
we get an EDI file from a bank. I need to parse that file and populate the db table with the required columns.
the file is '*' delimited and every line ends with '\'.
The record starts with 'ST*' and ends with 'SE*'.
sample edi file is
ISA*00* *00* *ZZ*043000096820 *ZZ*2156833510 *131202*0710*U*00401*000001204*0*P*>\ ignore first 2 lines
GS*RA*043000096820*2156833510*131202*0710*1204*X*003020\
ST*820*000041031\
BPR*X*270*C*ACH*PPD*01*101036669***9101036669**01*031000053*DA*00000008606086714*131202\
TRN*1*101036661273032\
DTM*007*131202\
N1*1U*BPS\
N1*BE*MICHAEL DRAYTON*34*159783633\
N1*PE*BPS*ZZ*183383689C2 ABC\
N1*PR*ABC TREAS 310\
SE*9*000041031\ ST*820*000041032\
BPR*X*686*C*ACH*PPD*01*101036669***9101036669**01*031000053*DA*00000008606086714*131202\
TRN*1*101036661273034\
DTM*007*131202\
N1*1U*BPS\
N1*BE*SAMIA GRAVES*34*892909238\
N1*PE*BPS*ZZ*184545710C5 ABC\
N1*PR*ABC TREAS 310\
SE*9*000041032\
Below is the procedure I am trying to use for parsing that file. but the logic is not working. can you please help me in doing this. its very urgent requirement.
CREATE OR REPLACE package body p1 is
Function parse_spec(p_str varchar2) return t_str_nt is
begin
 return regexp_replace(p_str,'\\$',null);
end;
procedure edi( is
l_out_file utl_file.file_type;
l_lin varchar2(200);
field1 number(9);
field2 varchar2(10 byte);
field3 varchar2(15 byte);
field4 varchar2(15 byte);
field5 varchar2(20 byte);
field6 varchar2(20 byte);
field7 varchar2(20 byte);
field8 varchar2(9 byte);
field9 varchar2(15 byte);
field10 varchar2(5 byte);
l_item_nt t_str_nt:=t_str_nt();
begin
 l_out_file := utl_file.fopen (file_path, file_name, 'r');
 IF utl_file.is_open(l_out_file) THEN
 LOOP
 BEGIN
 l_item_nt:= utl_file.get_line(l_out_file, l_lin);
 IF l_item_nt IS NULL THEN
 raise no_data_found;
 Else
 for k in 1..l_item_nt.count loop
 case
 when l_item_nt(k) like 'ST*%' then
 field1:= ltrim(regexp_substr(parse_spec(l_item_nt(k)),'[^*]+',1,3),0);
 when l_item_nt(k) like 'BPR*X*%' then
 field2 := regexp_substr(parse_spec(l_item_nt(k)),'[^*]+',1,3);
 when l_item_nt(k) like 'TRN*1*%' then
 field3:= regexp_substr(parse_spec(l_item_nt(k)),'[^*]+',1,3);
 when l_item_nt(k) like 'DTM*007*%' then
 field4:= regexp_substr(parse_spec(l_item_nt(k)),'[^*]+',1,3);
 when l_item_nt(k) like '%*BE*%' then
 field5 := regexp_substr(regexp_substr(parse_spec(l_item_nt(k)),'[^*]+',1,3),'[^ ]+', 1, 1);
 field6 := regexp_substr(regexp_substr(parse_spec(l_item_nt(k)),'[^*]+',1,3),'[^ ]+', 1, 1);
 field7 := regexp_substr(parse_spec(l_item_nt(k)),'[^*]+',1,5);
 when l_item_nt(k) like '%*PE*%*ZZ*%' then
 field8:= regexp_substr(regexp_substr(parse_spec(line),'[^*]+',1,5),'[^ ]+',1,1)
 field9 := regexp_substr(regexp_substr(parse_spec(line),'[^*]+',1,5),'[^ ]+',1,2);
 when l_item_nt(k) like 'SE*%' then
 insert into t1(field1,field2,field3,field5,field6,field7,field8,field9)
 -- values(field1,field2,field3,field5,field6,field7,field8,field9);
 else
 dbms_output.put_line ('end of line');
 end case;
 end loop;
 end if;
end loop;
 utl_file.fclose(l_out_file);
exception
 when no_data_found then
 dbms_output.put_line('No data found');
 end;

I would not use regular expressions for parsing as it is CPU intensive - and standard string processing suffices.
I would break the EDI up into lines. I would tokenise each line. I then have 2d array that can be referenced to find a specific field. E.g. line x and token y is field abc.
Basic approach:
SQL> create or replace type TStrings as table of varchar2(4000);
2 /
Type created.
SQL> -- create a parser that tokenises a string
SQL> create or replace function Tokenise(
2 csvLine varchar2,
3 separator varchar2 default ',',
4 enclosedBy varchar2 default null
5 ) return TStrings is
6 strList TStrings;
7 str varchar2(32767);
8 i integer;
9 l integer;
10 enclose1 integer;
11 enclose2 integer;
12 encloseStr varchar2(4000);
13 replaceStr varchar2(4000);
14
15 procedure AddString( line varchar2 ) is
16 begin
17 strList.Extend(1);
18 strList( strList.Count ) := Replace( line, CHR(0), separator );
19 end;
20
21 begin
22 strList := new TStrings();
23
24 str := csvLine;
25 loop
26 if enclosedBy is not null then
27 -- find the ennclosed text, if any
28 enclose1 := InStr( str, enclosedBy, 1 );
29 enclose2 := InStr( str, enclosedBy, 2 );
30
31 if (enclose1 > 0) and (enclose2 > 0) and (enclose2 > enclose1) then
32 -- extract the enclosed string
33 encloseStr := SubStr( str, enclose1, enclose2-enclose1+1 );
34 -- replace the separator char's with zero char's
35 replaceStr := Replace( encloseStr, separator, CHR(0) );
36 -- and remove the enclosed quotes
37 replaceStr := Replace( replaceStr, enclosedBy );
38 -- change the enclosed string in the big string to the replacement string
39 str := Replace( str, encloseStr, replaceStr );
40 end if;
41 end if;
42
43 l := Length( str );
44 i := InStr( str, separator );
45
46 if i = 0 then
47 AddString( str );
48 else
49 AddString( SubStr( str, 1, i-1 ) );
50 str := SubStr( str, i+1 );
51 end if;
52
53 -- if the separator was on the last char of the line, there is
54 -- a trailing null column which we need to add manually
55 if i = l then
56 AddString( null );
57 end if;
58
59 exit when str is NULL;
60 exit when i = 0;
61 end loop;
62
63 return( strList );
64 end;
65 /
Function created.
SQL>
SQL>
SQL> declare
2 ediDoc varchar2(32767) :=
3 'ISA*00* *00* *ZZ*043000096820 *ZZ*2156833510 *131202*0710*U*00401*000001204*0*P*>\GS*RA*043000096820*2156833510*131202*0710*1204*X*003020\ST*820*000041031\BPR*X*270*C*ACH*PPD*01*101036669***9101036669**01*031000053*DA*00000008606086714*131202\TRN*1*101036661273032\DTM*007*131202\N1*1U*BPS\N1*BE*MICHAEL DRAYTON*34*159783633\N1*PE*BPS*ZZ*183383689C2 ABC\N1*PR*ABC TREAS 310\SE*9*000041031\ST*820*000041032\BPR*X*686*C*ACH*PPD*01*101036669***9101036669**01*031000053*DA*00000008606086714*131202\TRN*1*101036661273034\DTM*007*131202\N1*1U*BPS\N1*BE*SAMIA GRAVES*34*892909238\N1*PE*BPS*ZZ*184545710C5 ABC\N1*PR*ABC TREAS 310\SE*9*000041032\';
4
5 lines TStrings;
6 tokens TStrings;
7 begin
8 -- split EDI string into lines
9 lines := Tokenise( ediDoc, '\' );
10
11 -- process line and extract fields
12 for i in 3..lines.Count loop
13 dbms_output.put_line( '***********************' ) ;
14 dbms_output.put_line( 'line=['||lines(i)||']' );
15 tokens := Tokenise( lines(i), '*' );
16
17 for j in 1..tokens.Count loop
18 dbms_output.put_line( to_char(j,'00')||'='||tokens(j) );
19 end loop;
20 end loop;
21 end;
22 /
line=[ST*820*000041031]
01=ST
02=820
03=000041031
line=[BPR*X*270*C*ACH*PPD*01*101036669***9101036669**01*031000053*DA*00000008606086714*131202]
01=BPR
02=X
03=270
04=C
05=ACH
06=PPD
07=01
08=101036669
09=
10=
11=9101036669
12=
13=01
14=031000053
15=DA
16=00000008606086714
17=131202
line=[TRN*1*101036661273032]
01=TRN
02=1
03=101036661273032
<snipped>

Populating the data from table onto drop-down list.

Hi all
The following code i have used in trigger 'when-new-form-instance'
DECLARE
group_id RecordGroup;
list_id Item := Find_Item('Lines.classification');
status NUMBER;
rg_name varchar2(10) := 'rgroup';
BEGIN
clear_list(list_id);
group_id := Find_Group(rg_name);
IF NOT id_null(group_id) then
Delete_Group(group_id);
End if;
group_id := Create_Group_From_Query(rg_name,
'select meaning from lookup_values where lookup_type='TC_CLASSIFICATION' and lookup_code in('BUSINESS','PERSONAL')');
status := Populate_Group(rg_name);
Populate_List(list_id, group_id);
END;
i have created a Record_Group from Object navigator(name:'rg_name').
and used it in the above code.
after this i try to run the form, i am not able to see the value which i drop-down list
can any one suggest me abt this, and any changes i need to do in the property pallet,...
Thanks
Raj

u3 wrote:
No, Populate_List requires that the record group is created at runtime.Actually you're wrong ;)
POPULATE_LIST works with both, record groups created at runtime AND at design time.
Try the below code on SCOTT schema with a list item and a button trigger:
Record Group created at design time
DECLARE
     RG_NAME VARCHAR2(10) := 'RGROUP';
     V_DUMMY NUMBER;
BEGIN
     CLEAR_LIST('LIST_ITEM1');
     V_DUMMY := POPULATE_GROUP(RG_NAME);
     IF V_DUMMY = 0 THEN
          CLEAR_LIST('LIST_ITEM1');
          POPULATE_LIST('LIST_ITEM1', RG_NAME);
     END IF;
END;
Record group Created at Runtime
DECLARE
     GROUP_ID RECORDGROUP;
     RG_NAME VARCHAR2(10) := 'RGROUP';
     QUERY_TEXT VARCHAR2(1000) := 'SELECT ENAME, TO_CHAR(EMPNO) FROM EMP';
     V_DUMMY NUMBER;
BEGIN
     CLEAR_LIST('LIST_ITEM1');
     GROUP_ID := FIND_GROUP(RG_NAME);
     IF NOT ID_NULL(GROUP_ID) THEN
          DELETE_GROUP(GROUP_ID);
     END IF;
     GROUP_ID := CREATE_GROUP_FROM_QUERY(RG_NAME, QUERY_TEXT);
     CLEAR_LIST('LIST_ITEM1');
     V_DUMMY := POPULATE_GROUP(RG_NAME);
     IF V_DUMMY = 0 THEN
          CLEAR_LIST('LIST_ITEM1');
          POPULATE_LIST('LIST_ITEM1', RG_NAME);
     END IF;
END;It does work with me both ways, I suggest you test it.
Tony

How to delete the data from SAP R/3 DB table from BW

Hi,
I am facing an issue... I have populated the data into custom r/3 DB table by running a user exit.I am getting the data and loading(Full Load) it in BW ODS. But my problem is when i rerun the user exit it is giving me a short dump saying "SAPSQL_ARRAY_INSERT_DUPREC". when i delete the enteries of DB table it is working fine. But this fine in development.but i production i cannot do this.So i want to delete the DB table enteries by an ABAP program and call this ABAP program using Process chain when my ODS data LOAD is successful. How to go About this.
P.S: I want only to delete the DB table enteries not the DB table.....
Thanks and Regards
Sairam phani

Sairam,
why don't you just add the code for deletion of records into that user exit, so it would first delete entries and then write new ones.
Alternatively, you could use a Process Chain to trigger an event in R/3, and by that event a scheduled job would run, deleting entries from that table.
As I don't know details of the solution you're implementing, that's all I can think of now.
Cheers,
/RB

Creation of internal table dynamically based on the Date Range entered

Hi SAPgurus,
I have been facing one issue i.e creation of internal table dynamically based on the date range entered in the selection screen. For example the date range I am giving as 06/2006 to 08/2006, it should display the Fieldcatelog dynamically, this part i have completed but the only issue I am facing is to populate the sales data into that fields.
Right now my program is displaying the ALV like this.
Ex:
CSR District 06/2006 07/2006 08/2006 totals
Shiva New York 10.00
Shiva new york 30.00
Shiva new york 40.00
but it should display like this
CSR District 06/2006 07/2006 08/2006 totals
Shiva New York 10.00 30.00 40.00
80.00
Please help me in this scenario, how to acheive like this..
Thanks & Regards,
Sivaram Kandula

Hi Sivaram,
 I also got the same requirement . i saw rich and your code whatever you have uploaded.i have created dynamic internal table but i am facing the issue to populating the data to my dynamic internal table.
Sivaram, can you please explain your code after this.
*<dyn_table>
*tab_item.
LOOP AT tab_item.
 ASSIGN COMPONENT 1 OF STRUCTURE <dyn_wa> TO <dyn_table>.
 ASSIGN COMPONENT 2 OF STRUCTURE <dyn_wa> TO <dyn_table>.
* <dyn_wa> = tab_item-bztxt.
* <dyn_wa> = tab_item-total.
* APPEND <dyn_wa> TO <dyn_table>.
** <dyn_wa> = tab_item-total.
** ASSIGN tab_item-bezei TO <dyn_wa>.
* APPEND <dyn_table>.
ENDLOOP.
how you are puting the loop at tab_item. but tab_item is already commented.
can you send me the code after that.
i am sending some part of my code.
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = gt_fCAT1
 IMPORTING
 ep_table = new_table.
ASSIGN new_table->* TO <dyn_table>.
 create data new_line like line of <dyn_table>.
 assign new_line->* to <dyn_wa>.
select vbeln
 fkart
 vkorg
 vtweg
 fkdat
 spart
 fksto
 from vbrk
 client specified
 into table gt_vbrk
 where mandt = sy-mandt
 and fkart in ('ZF5','ZFR')
 and vkorg = '1100'
 and vtweg = '20'
 and fkdat in s_fkdat
 and spart = '06'
 and fksto = ' '.
 if gt_vbrk[] is not initial.
select vbeln
 fkimg
 prsdt
 netwr
 matnr
 arktx
 werks
 mwsbp
 from vbrp
 client specified
 into table gt_vbrp
 for all entries in gt_vbrk
 where vbeln = gt_vbrk-vbeln
 and werks in s_werks
 and matnr in s_matnr.
endif.
select mnr ltx spras from t247
into table it_t247
where spras = 'E'.
data: lv_month1 type vbrp-prsdt,
 name1(3) type c,
 s_month type string,
 s_month1 type string,
 s_month2 type string.
* lv_netwr1 type vbrp-netwr,
* lv_mwsbp1 type vbrp-mwsbp.
 loop at gt_vbrp into gs_vbrp.
 gs_final2-matnr = gs_vbrp-matnr.
 gs_final2-arktx = gs_vbrp-arktx.
 gs_final2-fkimg = gs_vbrp-fkimg.
 lv_month1 = gs_vbrp-prsdt.
 read table it_t247 into wa_t247 with key mnr = lv_month1+4(2).
 if sy-subrc eq 0.
 name1 = wa_t247-ltx.
 endif.
 concatenate name1
 lv_month1(4) into s_month SEPARATED BY '_' .
 CONCATENATE S_MONTH 'QTY' INTO S_MONTH1 SEPARATED BY ''.
 CONCATENATE S_MONTH 'VALUE' INTO S_MONTH2 SEPARATED BY ''.
 gs_final2-month = s_month.
 lv_netwr1 = gs_vbrp-netwr.
 lv_mwsbp1 = gs_vbrp-mwsbp.
 gs_final2-MONTH_QTY = S_MONTH1.
 GS_FINAL2-MONTH_VAL = S_MONTH2.
 gs_final2-value = lv_netwr1 + lv_mwsbp1.
 append gs_final2 to gt_final2.
 clear: gs_final2. "lv_name2.
 endloop.
 if gt_final2[] is not initial.
 sort gt_final2 by matnr month ascending .
 loop at gt_final2 into gs_final2.
 gs_final2_01 = gs_final2.
 collect gs_final2_01 into gt_final2_01.
 endloop.
 endif.
 ENDIF..
Regards
Ankur

Populating the data

Similar Messages

Maybe you are looking for