How to create monitor based on the data collected by rule?

I have an application which comes with a built-in command: GetBackLogNm.exe. Running this command can get the current backlog number in the system.
Now I need to create a monitor which should trigger the alert if the backlog keeps increasing for 2 hours. I am thinking of creating a rule which run command GetBackLogNm.exe to get the number and save it into DW. Then create a monitor based on the collected
data. Is it the correct way? If so, can anyone give me a outline how to do so? An example would be much appreciated if possible.
Thanks!

Hi Jonathan, thanks for the quick reply. But System.ConsolidatorCondition seems only available for SCOM 2012. I didn't find it in 2007 libraries.
However the idea your and Vladimir showed in this
post is really helping. I kind of solved the issue not using the exactly the components (since it is available in 2012 only) but following the same logic.
In general I did this:
1. create a script rule which execute the command to get backlog number; then save the log number in the DW and the registry.
2. just like System.Performance.DeltaValueCondition, when the second time the rule triggered by schedule, it will compare the current backlog number and the last known number stored in the registry. If the value is exceeding given threshold AND bigger than
the last known back log number, the rule increase an counter which is also stored in the registry
3. create an unit monitor to monitor the counter stored in the registry and will trigger the alert if the counter exceeding a given value.
This solved the issue. But I feel a little not comfortable to store data in the registry.
So one quick question which might be out of the this topic: what is a good way to store the data generated by one workflow and then share it with another workflow or reuse sometime later? In my case here, I used the registry key. Cook down is one option
to share data but it is very strict and can't solve the issue I have in this case.
Thanks again!

Similar Messages

Problem Creating VirtualProviders Based on the DTP

Problem Creating VirtualProviders Based on the Data Transfer Process .
(1) I have created an Data Source(extract structure and extractor) on SYS1. Tested the extractor. It returns data as desired.
(2) Then I replicated this Data Source to SYS2.
(3) In SYS1 I created InfoCube(VirtualProvider based on data transfer process for direct access) .
Till this point I have no issues .
(4) But after that I am not able to "Create Data Transfer Process" for this Virtual Infoprovider . When I try to create DTP the DTP type available for selection is "Scheduled" where as per the documentation I need to create DTP of DTP type "DTP for Direct Access".This DTP type I donot see.
Is it a problem with the BW configuration or some user error.Any suggestions which may help would be realy appreciated.
Thanks & Regards,
priyadarshi

Corrected some typo in my earlier update...
Problem Creating VirtualProviders Based on the Data Transfer Process .
(1) I have created an Data Source(extract structure and extractor) on SYS1. Tested the extractor. It returns data as desired.
(2) Then I replicated this Data Source to SYS2.
(3) In SYS2 I created InfoCube(VirtualProvider based on data transfer process for direct access) .
Till this point I have no issues .
(4) But after that I am not able to "Create Data Transfer Process" for this Virtual Infoprovider . When I try to create DTP the DTP type available for selection is "Standard(Scheduled)" where as per the documentation I need to create DTP of DTP type "DTP for Direct Access".This DTP type I donot see.
Is it a problem with the BW configuration or some user error.Any suggestions which may help would be realy appreciated.
Thanks & Regards,
priyadarshi

How to enable/disable the input fields based on the data entered/user action in the web dynpro abap?

How to enable/disable the input fields based on the data entered in the web dynpro application abap? If the user enters data in one input field then only the next input field should be enabled else it should be in disabled state. Please guide.

Hi,
Try this code.
First create a attribute with the name readonly of type wdy_boolean and bind it read_only property of input field of which is you want to enable or disable.
Next go to Init method.
Set the readonly value as 'X'.
DATA lo_el_context TYPE REF TO if_wd_context_element.
 DATA ls_context TYPE wd_this->element_context.
 DATA lv_visible TYPE wd_this->element_context-visible.
* get element via lead selection
 lo_el_context = wd_context->get_element( ).
* @TODO handle not set lead selection
 IF lo_el_context IS INITIAL.
 ENDIF.
* @TODO fill attribute
* lv_visible = 1.
* set single attribute
 lo_el_context->set_attribute(
 name = `READONLY`
 value = 'X').
After that Go to the Action ENTER.
First read the input field ( first input field, which is value entered field) , next give a condition
if input value is not initial then set the readonly value is ' '.
DATA lo_nd_input TYPE REF TO if_wd_context_node.
 DATA lo_el_input TYPE REF TO if_wd_context_element.
 DATA ls_input TYPE wd_this->element_input.
 DATA lv_vbeln TYPE wd_this->element_input-vbeln.
* navigate from <CONTEXT> to <INPUT> via lead selection
 lo_nd_input = wd_context->get_child_node( name = wd_this->wdctx_input ).
* @TODO handle non existant child
* IF lo_nd_input IS INITIAL.
* ENDIF.
* get element via lead selection
 lo_el_input = lo_nd_input->get_element( ).
* @TODO handle not set lead selection
 IF lo_el_input IS INITIAL.
 ENDIF.
* get single attribute
 lo_el_input->get_attribute(
 EXPORTING
 name = `VBELN`
 IMPORTING
 value = lv_vbeln ).
if lv_vbeln IS not INITIAL.
 DATA lo_el_context TYPE REF TO if_wd_context_element.
 DATA ls_context TYPE wd_this->element_context.
 DATA lv_visible TYPE wd_this->element_context-visible.
* get element via lead selection
 lo_el_context = wd_context->get_element( ).
* @TODO handle not set lead selection
 IF lo_el_context IS INITIAL.
 ENDIF.
* @TODO fill attribute
* lv_visible = 1.
* set single attribute
 lo_el_context->set_attribute(
 name = `READONLY`
 value = ' ' ).

I want to implement three level Horizental navigation on the top navigation and menu items are created based on the data available in a SharePoint List.

Hi All,
I want to implement three level Horizental navigation on the top navigation and menu items are created based on the data available in a SharePoint List.
Implement this requirement through customization, how can i start any help
Thanks

Hello,
You can follow these links to get the result that you want. You can get the desired result either using the custom list or a site map. Please make sure when you edit the master page, dont work on the original v4.master. Always make a a copy and then work
on it.
This link will show you how get that navigation using a list.
http://www.bitsofsharepoint.com/BlogPoint/Lists/Posts/Post.aspx?ID=60
This link will show you how get that navigation using a sitemap.
http://www.sharepointdiary.com/2012/01/custom-top-navigation-using-sitemap.html
Please mark as "Answered" if this helped you.
Thanks,
norasampang

How can I create an index on the date part of a timestamp field?

is there a way I can create an index on the date part of a timestamp field?

LONGENECKER wrote:
Idea:
If you find no direct command that allows you to create an index on JUST the date portion of a timestamp datatype column then I recommend you consider splitting date and time into two seperate columns.
If date is column "A" and time is column "B" then you can concatenate them using a view or virtual column (in 11G) to re-assemble them at run time.
In the solution I describe above you might trade ease of management for better performing queries.
Additional Info:
This thread may be of some value.
Can we create INDEX on TIMESTAMP column???
And what datatype do you propose for your columns A and B? The only proper datatypes would be DATE or TIMESTAMP. Both of these inherently carry both date and time components, so that would have to be dealt with anyway. The use of any character or number datatype to hold date and/or time should be treated with an application of Billy's lead pipe.
Perhaps function based indexes would be a better solution.

How can I resize and reposition the Date Created window for All windows?

When setting view options for a finder window set to list view, I cannot get column resizing or positioning to hold. When making those changes, the option for "All Windows" automatically shifts to "This window only" and it then does not hold.
How can I resize and reposition the Date Created column for All WIndows?

Hi Harmz,
Try dragging this file to the Îesktop & reboot...
/Users/YourUserName/Library/Preferences/com.apple.finder.plist

How to create file based on date value

Hi
Hope you'll help me. I can't find right way to tackle the problem. I need to read a file which name is created based on month and years' value. File name format is as follows: INMMYY.log. So to read it I must create File object using this file name format. I tried to use Calendar class get necessary information using get() method. Unfortunatelly returned month's value is always 2,3,4 and so on..(I need 02,03). There is problem with year's value als. It's returned in form YYYY but I need YY.
Does anybody have any idea how to create string INMMYY in the easiest way ??
Thanks in advance :)

Use java.text.SimpleDateFormat.

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

How to create new or delete the existing row in the grid....

hi my friends...
i am developing report using Reuse_alv_grid_display...
my requirement is... At runtime
          1. i may create new row on the grid (empty row inwhich i may enter the data).
          2. i may delete a existing row in the grid
          3. i may edit the existing data...
then i have to trace the modification in the grid in one internal table...
how can i get into this.....
note:
i have some idea to edit the existing record in the grid and trace those modification,
but i don't know abt how to create new or delete the existing row....
can you give me some idea...

Hi deva,
write a class which implemets these methods
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
    METHODS:
To handle the toolbar on alv
     handle_toolbar
       FOR EVENT toolbar OF cl_gui_alv_grid
          IMPORTING e_object e_interactive,
To handle the buttons on the alv grid
     handle_user_command
       FOR EVENT user_command OF cl_gui_alv_grid
       IMPORTING e_ucomm.
endclass.
Now Implement these methods.
CLASS lcl_event_receiver IMPLEMENTATION.
To handle the toolbar on alv
METHOD handle_toolbar.
   DATA ls_toolbar TYPE stb_button.
    CLEAR gs_toolbar.
    MOVE 3 TO gs_toolbar-butn_type.
    APPEND gs_toolbar TO e_object->mt_toolbar.
    CLEAR gs_toolbar.
    PERFORM icon_create USING 'ICON_INSERT_ROW' gs_toolbar-icon.
    MOVE text-010 TO gs_toolbar-function.
    MOVE text-012 TO gs_toolbar-quickinfo.
    MOVE ' ' TO gs_toolbar-disabled.
    APPEND gs_toolbar TO e_object->mt_toolbar.
    CLEAR gs_toolbar.
    PERFORM icon_create USING 'ICON_DELETE_ROW' gs_toolbar-icon.
    MOVE text-011 TO gs_toolbar-function.
    MOVE text-013 TO gs_toolbar-quickinfo.
    MOVE ' ' TO gs_toolbar-disabled.
    APPEND gs_toolbar TO e_object->mt_toolbar.
ENDMETHOD.
   METHOD handle_user_command.
In this form, check the function code(e_ucomm has the function code), based on that do the required action.
as i said yesterday(i.e for appending a row, deleting a row, modifying a row)
    PERFORM user_command USING e_ucomm.
ENDMETHOD
endclass.
Before calling the alv method, create a object of this class.
DATA :
      gref_event_receiver TYPE REF TO lcl_event_receiver,
      gv_tables_alv          TYPE REF TO cl_gui_alv_grid.
      CREATE OBJECT gref_event_receiver.
      SET HANDLER   gref_event_receiver->handle_user_command
                    FOR gv_tables_alv.
      SET HANDLER   gref_event_receiver->handle_toolbar
                    FOR gv_tables_alv.
check this program for event handling, it is the similar way
demo_abap_objects_events
Hope u understood this.
Regards,
Prasant
reward if helpful

How to create New columns for the Internal Table Dynamically?

HI Guys,
In my logic i have to create new columns depending on the logic which i am executing.
My requirement is .I have to display o/p like this
Material || Year || Period || Mix ratio || Vendor ||Mix Ratio || Vendor || Mix Ratio Vendor || Mix ratio || Vendor || Mix ratio.............................from table's CKMLMV003 and CKMLMV001.Her i have to display the o/p in the above format and i have to display Vendor and Mix Ratio for 5 columns irrespective of data .If i have more than 5 columns for any record then i have to create a New columns dynamically for Vendor and Mix ratio.If anybody want my code i can Submit But plz tell with example how to do?
The O/P must be finally shown in ALV Grid
Thanks,
Gopi

You must create the entire internal table dynamically, you can not add columns to a statically define internal table. Here is an example of creating a dynamic internal table.
Creation of internal table dynamically based on the Date Range entered
Regards,
Rich Heilman

How to create Profile Based Rule in Endeca Studio Developer

Hi,
Can anybody tell me how to create Profile based rule in the Endeca Studio Developer. and how to fecth the data in the JSP. what are the parameter required to pass in the ENEQuery
Thanks
Shailesh

I use visual studio 2012.
I dont see rule set editor which can help me create busineesss rule.
Where can I find it?
Hi Rajesh,
If you want to learn more information about RuleSet Editor in .net framework 4.5, check out https://msdn.microsoft.com/en-us/library/ee960221(v=vs.110).aspx
for more information.
Best regards,
Angie
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

How to create monitor entries from an update routine?

Hi,
Does anyone try to create monitor entries in ABAP routine in update rules?
I have How-to guide "How to... Create monitor entries from an update routine". I applied code from it.
RETURNCODE = 1.
MONITOR-MSGID = 'RSM'.
MONITOR-MSGTY = 'W'. *** I also tried MONITOR-MSGTY = 'E'
MONITOR-MSGNO = '799'.
MONITOR-MSGV1 = 'My message '.
MONITOR-MSGV2 = COMM_STRUCTURE-<MY_FIELD>.
append MONITOR.
EXIT.
But it doesn't work. I don't see new lines on Details tab in AWB Monitor.
What's wrong?
BW 3.0B

Hi, hope you had a good weekend.
I tried with MSGTY = 'I' and I didn't get any errors or warnings at load.
In the monitor, on the detail tab, I find hidden under:
Processing (data packet)
-> Data Package x
 -> Transfer rules
 -> Data records for package x
 -> Record 0:
 -> Record 0:
 -> Record 0:
When I select "Display Message(s)" from the dropdown-menu on one of these "Record 0:" lines, I get to see
my message text: S:RSM:000 test1 test2
1) how can I change the text that appears in the monitor tree ("Record 0:") ?
2) The status of these nodes is always a green led (also with MSGTY = 'W')... shouldn't it be a yellow triangle?
Like this it is hell to find your warnings/information messages.
3) I cannot find my monitor messages with transaction SLG1... should I be able to find them there?
Kind regards,
Edwin

HOW TO CREATE PROMPT BASED ON ANOTHER PROMPT IN OBIEE

HOW TO CREATE PROMPT BASED ON ANOTHER PROMPT IN OBIEE.
Requiremenst is as follows.
Year ,Qtr columns in first prompt.Based on selection on these prompts second prompt should display corresponding prompts
Second prompt will have Month ,Week and Day columns.Second prompt should be hidden and based on first prompt selection second prompt should display with constraint based on first prompt.
Any help would be highly appriciated!!!

hi,
Using Guided navigation it is possible,
Please refer the below links.
http://gerardnico.com/wiki/dat/obiee/dashboard_prompt_1_eq_0
http://businessdecisionsystems.com/blog/?p=448
Hope this help's
Thanks,
Satya

How to create many user in the same database

hi
my question is "How to create many user in the same database(application)?"
for example, i have students, teachers, and staffs user using my application.
i can create many users to use the same application right?, how ^^''' ???
(right now i can only create application and then it shows every data in my DB
but i want it to show only the data for the user who login to that application)
Thanks.
ps. i'm newbie, please help T^T

You need to create a user table within your application that maintains their privileges. If you have LDAP you could use this for authorisation otherwise the table would handle that as well (store passwords etc). Your reports etc would then be filtered on information from this table.
Check out some of the sample applications to see how authorisation and access is implemented (Online store is one). The how-to on the issue tracking system should also have some useful pointers.
http://download-west.oracle.com/docs/cd/B31036_01/doc/appdev.22/b28839/issue_track.htm#BABBGBJG
cheers,
Ron

How 2 creat report for displaying the details of a Delivery Document using

how to create report for displaying the details of a Delivery Document using the tables LIKP, LIPS
thank you
regards,
jagrut bharatkumar shukla
points will be rewarded

HI
I AM GIVING YOU MY DELIVERY DOCUMENT CODE...MODIFY IT ACCORDING TO YOUR REQUIREMENT
*& Report ZDELIVERY *
report zdelivery message-id z9bhu .
types: begin of t_likp,
 vbeln type likp-vbeln, "Delivery
 erdat type likp-erdat, "Date for rec creation
* LFDAT TYPE LIKP-LFDAT, "Delevery Date
* WAERK TYPE LIKP-WAERK, "Currency
 kunnr type likp-kunnr, "Ship-To Party
 kunag type likp-kunag, "Sold-to party
 traty type likp-traty, "Means-of-Transport
 end of t_likp.
types: begin of t_lips,
 vbeln type lips-vbeln, "Delivery
 posnr type lips-posnr, "Delivery item
 matnr type lips-matnr, "Material Number
 arktx type lips-arktx, "Short Text for Sales Order Item
 lfimg type lips-lfimg, "Actual quantity delivered
 netpr type lips-netpr,
* MEINS TYPE LIPS-MEINS, "Base Unit of Measure
 vgbel type lips-vgbel, "Doc no of the reference document
 end of t_lips.
types: begin of t_vbpa,
 vbeln type vbpa-vbeln, "SD DocumenT Number
 posnr type vbpa-posnr, "Item number
 parvw type vbpa-parvw, "Partner function
 kunnrb type vbpa-kunnr, "Customer Number 1
 end of t_vbpa.
types: begin of t_kna1,
 kunnr type kna1-kunnr, "Customer Number 1
 name1 type kna1-name1, "Name 1
 ort01 type kna1-ort01, "City
 adrnr type kna1-adrnr, "Address
 end of t_kna1.
types: begin of t_li_vbpa,
 vbeln type likp-vbeln, "Delivery
 erdat type likp-erdat, "Date for rec creation
* LFDAT TYPE LIKP-LFDAT, "Delevery Date
* WAERK TYPE LIKP-WAERK, "Currency
 kunnr type likp-kunnr, "Ship-To Party
 kunag type likp-kunag, "Sold-to party
 traty type likp-traty, "Means-of-Transport
 vbeln1 type lips-vbeln, "Delivery
 posnr type lips-posnr, "Delivery item
 matnr type lips-matnr, "Material Number
 arktx type lips-arktx, "Short Text for Sales Order Item
 lfimg type lips-lfimg, "Actual quantity delivered
 netpr type lips-netpr, "Net Price
* MEINS TYPE LIPS-MEINS, "Base Unit of Measure
 vgbel type lips-vgbel, "Doc no of the reference document
 vbeln3 type vbpa-vbeln, "SD DocumenT Number
 parvw type vbpa-parvw, "Partner function
 kunnrb type vbpa-kunnr, "Customer Number 1
 end of t_li_vbpa.
types: begin of t_final,
 vbeln type likp-vbeln, "Delivery
 erdat type likp-erdat, "Date for rec creation
 kunnr type likp-kunnr, "Ship-To Party
 kunag type likp-kunag, "Sold-to party
 traty type likp-traty, "Means-of-Transport
 vbeln1 type lips-vbeln, "Delivery
 posnr type lips-posnr, "Delivery item
 matnr type lips-matnr, "Material Number
 arktx type lips-arktx, "Short Text for Sales Order Item
 lfimg type lips-lfimg, "Actual quantity delivered
 netpr type lips-netpr, "Net Price
 vgbel type lips-vgbel, "Doc no of the reference document
 vbeln3 type vbpa-vbeln, "SD DocumenT Number
 parvw type vbpa-parvw, "Partner function
 kunnrb type vbpa-kunnr, "Customer Number 1
 name1 type kna1-name1, "Name 1
 ort01 type kna1-ort01, "City
 adrnr1 type kna1-adrnr, "Address
 name2 type kna1-name1, "Name 1
 ort02 type kna1-ort01, "City
 adrnr2 type kna1-adrnr, "Address
 name3 type kna1-name1, "Name 1
 ort03 type kna1-ort01, "City
 adrnr3 type kna1-adrnr, "Address
 end of t_final.
* D A T A D E C L A R A T I O N
*&*********Internal Table Declaration****************&*
data: it_likp type standard table of t_likp.
data: it_lips type standard table of t_lips.
data: it_vbpa type standard table of t_vbpa.
data: it_kna1 type standard table of t_kna1.
data: it_li_vbpa type standard table of t_li_vbpa.
data: it_li_vbpa_temp type standard table of t_li_vbpa.
data: it_final type standard table of t_final.
*&*********Work Area Declaration********************&*
data: wa_likp type t_likp.
data: wa_lips type t_lips.
data: wa_vbpa type t_vbpa.
data: wa_kna1 type t_kna1.
data: wa_li_vbpa type t_li_vbpa.
data: wa_li_vbpa_temp type t_li_vbpa.
data: wa_final type t_final.
*&*********Data Declaration************************&*
data: d_vbeln type likp-vbeln.
data: flag type i value 0.
* S E L E C T I O N S C R E E N D E C L A R A T I O N
selection-screen begin of block block2 with frame title text-001.
select-options: s_vbeln for d_vbeln obligatory. "Delivery no
selection-screen end of block block2.
* A T S E L E C T I O N - S C R E E N E V E N T S
*AT SELECTION-SCREEN.
*PERFORM VALIDATE_DATA.
* S T A R T O F S E L E C T I O N E V E N T S
start-of-selection.
perform fetch_data.
perform merge_data_kna1.
*INCLUDE Z9BT_SH_***4_FORMS.
call function 'OPEN_FORM'
exporting
* APPLICATION = 'TX'
* ARCHIVE_INDEX =
* ARCHIVE_PARAMS =
 device = 'PRINTER'
* DIALOG = 'X'
* FORM = ' '
 language = sy-langu
* OPTIONS =
* MAIL_SENDER =
* MAIL_RECIPIENT =
* MAIL_APPL_OBJECT =
* RAW_DATA_INTERFACE = '*'
* SPONUMIV =
* IMPORTING
* LANGUAGE =
* NEW_ARCHIVE_PARAMS =
* RESULT =
exceptions
 canceled = 1
 device = 2
 form = 3
 options = 4
 unclosed = 5
 mail_options = 6
 archive_error = 7
 invalid_fax_number = 8
 more_params_needed_in_batch = 9
 spool_error = 10
 codepage = 11
 others = 12
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
sort it_final by vbeln.
loop at it_final into wa_final.
call function 'START_FORM'
exporting
* ARCHIVE_INDEX =
 form = 'Z9BT_DELIVERY'
 language = sy-langu
* STARTPAGE = ' '
* PROGRAM = ' '
* MAIL_APPL_OBJECT =
* IMPORTING
* LANGUAGE =
exceptions
 form = 1
 format = 2
 unended = 3
 unopened = 4
 unused = 5
 spool_error = 6
 codepage = 7
 others = 8
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
call function 'WRITE_FORM'
exporting
 element = 'ITEM_LIST'
 function = 'SET'
 type = 'BODY'
 window = 'MAIN'
* IMPORTING
* PENDING_LINES =
* EXCEPTIONS
* ELEMENT = 1
* FUNCTION = 2
* TYPE = 3
* UNOPENED = 4
* UNSTARTED = 5
* WINDOW = 6
* BAD_PAGEFORMAT_FOR_PRINT = 7
* SPOOL_ERROR = 8
* CODEPAGE = 9
* OTHERS = 10
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
call function 'END_FORM'
* IMPORTING
* RESULT =
exceptions
 unopened = 1
 bad_pageformat_for_print = 2
 spool_error = 3
 codepage = 4
 others = 5
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
endloop.
call function 'CLOSE_FORM'
* IMPORTING
* RESULT =
* RDI_RESULT =
* TABLES
* OTFDATA =
exceptions
 unopened = 1
 bad_pageformat_for_print = 2
 send_error = 3
 spool_error = 4
 codepage = 5
 others = 6
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
*& Form VALIDATE_DATA
* text
* --> p1 text
* <-- p2 text
form validate_data .
select single vbeln into wa_likp-vbeln
 from likp where vbeln in s_vbeln.
append wa_likp to it_likp.
if sy-subrc <> 0.
flag = 1.
endif.
endform. " VALIDATE_DATA
*& Form FETCH_DATA
* text
* --> p1 text
* <-- p2 text
form fetch_data .
select a~vbeln
 a~erdat
 a~kunnr
 a~kunag
 a~traty
 b~vbeln
 b~posnr
 b~matnr
 b~arktx
 b~lfimg
 b~netpr
 b~vgbel
 c~vbeln
 c~parvw
 c~kunnr
 into table it_li_vbpa
 from likp as a
 left outer join lips as b on a~vbeln = b~vbeln
 inner join vbpa as c on b~vgbel = c~vbeln
 where a~vbeln in s_vbeln and
 c~parvw = 'RE'.
endform. " FETCH_DATA
*& Form MERGE_DATA_KNA1
* text
* --> p1 text
* <-- p2 text
form merge_data_kna1 .
if it_li_vbpa[] is not initial.
it_li_vbpa_temp[] = it_li_vbpa[].
sort it_li_vbpa_temp by kunnr.
delete adjacent duplicates from it_li_vbpa_temp comparing kunnr.
loop at it_li_vbpa into wa_li_vbpa.
read table it_li_vbpa_temp into wa_li_vbpa_temp with key kunnr =
wa_li_vbpa-kunag.
if sy-subrc <> 0.
wa_li_vbpa_temp = wa_li_vbpa.
append wa_li_vbpa_temp to it_li_vbpa_temp.
endif.
read table it_li_vbpa_temp into wa_li_vbpa_temp with key kunnr =
wa_li_vbpa-kunnrb.
if sy-subrc <> 0.
wa_li_vbpa_temp = wa_li_vbpa.
append wa_li_vbpa_temp to it_li_vbpa_temp.
endif.
endloop.
endif.
if it_li_vbpa_temp[] is not initial.
select kunnr
 name1
 ort01
 adrnr into table it_kna1 from kna1
 for all entries in it_li_vbpa_temp
 where kunnr = it_li_vbpa_temp-kunnr.
endif.
loop at it_li_vbpa into wa_li_vbpa .
wa_final-vbeln = wa_li_vbpa-vbeln.
wa_final-erdat = wa_li_vbpa-erdat.
*it_final-LFART = it_li_vbpa-LFART.
wa_final-kunnr = wa_li_vbpa-kunnr.
wa_final-kunag = wa_li_vbpa-kunag.
*it_final-VSTEL = it_li_vbpa-VSTEL.
wa_final-traty = wa_li_vbpa-traty.
wa_final-vbeln1 = wa_li_vbpa-vbeln.
wa_final-posnr = wa_li_vbpa-posnr.
wa_final-matnr = wa_li_vbpa-matnr.
wa_final-arktx = wa_li_vbpa-arktx.
wa_final-lfimg = wa_li_vbpa-lfimg.
wa_final-netpr = wa_li_vbpa-netpr.
*wa_final-GEWEI = it_li_vbpa-GEWEI.
*it_final-VOLUM = it_li_vbpa-VOLUM.
*it_final-VOLEH = it_li_vbpa-VOLEH.
wa_final-vgbel = wa_li_vbpa-vgbel.
wa_final-vbeln3 = wa_li_vbpa-vbeln.
*wa_final-PARVW = wa_li_vbpa-PARVW.
wa_final-kunnrb = wa_li_vbpa-kunnrb.
read table it_kna1 into wa_kna1 with key kunnr = wa_li_vbpa-kunnr.
if sy-subrc = 0.
wa_final-name1 = wa_kna1-name1.
wa_final-ort01 = wa_kna1-ort01.
wa_final-adrnr1 = wa_kna1-adrnr.
endif.
read table it_kna1 into wa_kna1 with key kunnr = wa_li_vbpa-kunag.
if sy-subrc = 0.
wa_final-name2 = wa_kna1-name1.
wa_final-ort02 = wa_kna1-ort01.
wa_final-adrnr2 = wa_kna1-adrnr.
endif.
read table it_kna1 into wa_kna1 with key kunnr = wa_li_vbpa-kunnrb.
if sy-subrc = 0.
wa_final-name3 = wa_kna1-name1.
wa_final-ort03 = wa_kna1-ort01.
wa_final-adrnr3 = wa_kna1-adrnr.
endif.
append wa_final to it_final.
clear wa_final.
endloop.
endform.

How to create monitor based on the data collected by rule?

Similar Messages

Maybe you are looking for