Example of Streams for Messaging?

Does anyone have a list of setup steps (maybe scripts?) they would be willling to share that use streams to trap LCR DML changes on a table and place the messages in a queue that will be read by a Java (possibly JMS) process?
All the examples I can find (which are few including the terribly lacking Oracle docs) are for replicating data to another database. I don't need to do that. I only need to put LCR records in a queue to be read by a Java application.
Environment is 10g (10.2.0.1) on Solaris.
Any assistance would be appreciated.

That's the one I've been trying to work with but the setup also creates replication between two databases. I'm trying to find an easier way to figure out which of those pieces I don't need.
Some things have changed in 10g as well, an this is a 9i example.

Similar Messages

I dropped my iPhone 4 in water and now it won't turn on at all, will i lose all of my data, for example my photos and messages etc? and is there any way you can back the phone up without having it switched on?

I dropped my iPhone 4 in water and now it won't turn on at all, will i lose all of my data, for example my photos and messages etc? and is there any way you can back the phone up without having it switched on?

If you had previously been backing up to iCloud (or a computer with iTunes), you would possibly have a backup. That said, if you can't turn the phone on, you cannot create a backup of the device now. Sorry.

Streams AQ: waiting for messages in the queue

Hi,
For some reason, I've to run the owb mapping manually. First I try to run it in this way:
declare
n_result number;
begin
n_result:=dwrr104.wb_rt_api_exec.run_task('LOC_ZONE2_DW','PLSQL','MAP_RMS_CUSTOMER');
dbms_output.put_line('result :='||n_result);
end;
This script just kept running endlessly. I noticed The wait event in database for this session was: "Streams AQ: waiting for messages in the queue"
However, if I run the 'main' function of this mapping directly like this:
declare
-- Non-scalar parameters require additional processing
p_env dw.wb_rt_mapaudit.wb_rt_name_values;
begin
-- Call the function
:result := dw.map_rms_web_ptrackcode.main(p_env => p_env);
end;
it can work without any problem.
Any ideas?
Jeffrey

Hi Jeffrey,
need to change them?Yes, you need to increase value for AQ_TM_PROCESSES parameter (set it to at least 1).
It is a requirements for target database (database where runtime services is run):
Look at OWB installation guide (it is for OWB 10gR1 but for later OWB versions requirements is the same):
http://download.oracle.com/docs/cd/E10926_01/doc/owb.101/b12150/appaprepdb.htm#i1008228
Regards,
Oleg

My iphone 4 does not ring for messages when i use the handsfree..

my iphone 4 does not ring for messages when i use the handsfree..

iPhone supports A2DP audio streaming. If you have it paired to a handsfree kit that supports this, for example, an in car audio system, and are currently tuned to a source other than the phone, the phone will send the audio for things like text message alerts to the handsfree system, but you will not hear them. This is just the nature of the beast. If you do not intend to use audio streaming from the phone, you may be able to disable this in the in car system. This should not affect Bluetooth calling. There is no option to disable this on the phone itself.

Supplier is getting Closed notifications for message name EMAIL_PO_PDF

Hi,
Supplier is getting Closed FYI notifications for message name EMAIL_PO_PDF. Below is an example.
Please suggest why they are generated and how to stop these notifications as supplier does not want to receive them.
From: Production Workflow Mailer (D1556P) [mailto:[email protected]]
Sent: Thursday, July 12, 2012 3:45 PM
To: [email protected]
Subject: Closed: KPN - Standard Purchase Order 3039086, 0
You earlier received the notification shown below. That notification is now closed, and no longer requires your response. You may simply delete it along with this message.
From               ROOS, C
To               [email protected]
Sent               18-JUN-12 22:10:57
ID               865518
Please review the purchase order and any other document attached to this message.
Regards,
Natasha

Hi,
Thanks for the response!
The Autoclose_FYI parameter is set to Y already.
Which parameter decides the end date for this type of notifications ? As we see end date is sometimes only 1 min and for others it is 20-30 days.
Earlier the supplier was receiving only FYI notifications like KPN - Standard Purchase Order 3039086, 0+. Now, he is receiving Closed notifications like Closed*: KPN - Standard Purchase Order 3039086, 0_. How come the supplier is suddenly receiving FYI notifications with prefix CLOSED ?
Regards,
Natasha

Problem JMS-c api for message Acknowledgement

Hi,
          I am working in a project that uses bea-JMS C api for
          Communictions.In my project i am using topic messaging for message reciving and sending..Here i am using durablesubscriber for receiving and client Acknowledgement to Acknowledge the message.
          In receiving function I store the message in another JmsMessage for Client-Acknowledgement.
          Here comes one problem that, while i Acknowledge on the receive function each and every message Acknowledge correctly.But while i Acknowledge that message from some other function it return -1 as , that it cannot Acknowledge.The other function is working in another thread.
          Wheather the seprate thread will make the problem for confirmation.

Similar to JDBC connections, JMS sessions and their related child producers and consumers are not thread-safe (with the one exception of the session.close() method).
          For example, without added application level locking, its not safe to acknowledge a message from one thread while another thread receives or produces a message. This has special implications for asynchronous consumers, as once the asynchronous consumer is created, access to the session and objects is limited to code within the "onMessage()" and "onException()" callbacks.
          This behavior is detailed in the JMS specification.
          Tom

Local streams for Insert Opertaion not working

Hi
I am configuring the stream for change data capture from one schema to another.
For example i want to move the changed from Hr.emplyee table to apps.emp_del table.
I am using the below scripts for configuration.
BEGIN
DBMS_STREAMS_ADM.SET_UP_QUEUE(
queue_table => 'apps.streams_queue_table',
queue_name => 'apps.streams_queue');
END;
BEGIN
DBMS_STREAMS_ADM.ADD_TABLE_RULES(
table_name => 'hr.employees',
streams_type => 'capture',
streams_name => 'capture_emp',
queue_name => 'apps.streams_queue',
include_dml => true,
include_ddl => false,
inclusion_rule => true);
END;
DECLARE
iscn NUMBER; -- Variable to hold instantiation SCN value
BEGIN
iscn := DBMS_FLASHBACK.GET_SYSTEM_CHANGE_NUMBER();
DBMS_APPLY_ADM.SET_TABLE_INSTANTIATION_SCN(
source_object_name => 'hr.employees',
source_database_name => 'orcl',
instantiation_scn => iscn);
END;
CREATE OR REPLACE PROCEDURE emp_dml_handler(in_any IN ANYDATA) IS
lcr SYS.LCR$_ROW_RECORD;
rc PLS_INTEGER;
command VARCHAR2(30);
old_values SYS.LCR$_ROW_LIST;
BEGIN
-- Access the LCR
rc := in_any.GETOBJECT(lcr);
-- Get the object command type
command := lcr.GET_COMMAND_TYPE();
-- Check for DELETE command on the hr.employees table
INSERT INTO ATESTA values('HELLO'||COMMAND);
IF COMMAND='INSERT' THEN
lcr.SET_COMMAND_TYPE('INSERT');
lcr.SET_OBJECT_NAME('HR.EMPLOYEE_DUP');
lcr.EXECUTE(true);
END IF;
IF command = 'DELETE' THEN
-- Set the command_type in the row LCR to INSERT
lcr.SET_COMMAND_TYPE('INSERT');
-- Set the object_name in the row LCR to EMP_DEL
lcr.SET_OBJECT_NAME('APPS.EMP_DEL');
-- Get the old values in the row LCR
old_values := lcr.GET_VALUES('old');
-- Set the old values in the row LCR to the new values in the row LCR
lcr.SET_VALUES('new', old_values);
-- Set the old values in the row LCR to NULL
lcr.SET_VALUES('old', NULL);
-- Add a SYSDATE value for the timestamp column
--lcr.ADD_COLUMN('new', 'TIMESTAMP', ANYDATA.ConvertDate(SYSDATE));
-- Apply the row LCR as an INSERT into the hr.emp_del table
lcr.EXECUTE(true);
END IF;
commit;
exception
when others then
command:=sqlerrm;
insert into atesta values(command);
END;
BEGIN
DBMS_APPLY_ADM.SET_DML_HANDLER(
object_name => 'hr.employees',
object_type => 'TABLE',
operation_name => 'INSERT',
error_handler => false,
user_procedure => 'apps.emp_dml_handler',
apply_database_link => NULL,
apply_name => NULL);
END;
BEGIN
DBMS_APPLY_ADM.SET_DML_HANDLER(
object_name => 'hr.employees',
object_type => 'TABLE',
operation_name => 'UPDATE',
error_handler => false,
user_procedure => 'apps.emp_dml_handler',
apply_database_link => NULL,
apply_name => NULL);
END;
BEGIN
DBMS_APPLY_ADM.SET_DML_HANDLER(
object_name => 'hr.employees',
object_type => 'TABLE',
operation_name => 'DELETE',
error_handler => false,
user_procedure => 'apps.emp_dml_handler',
apply_database_link => NULL,
apply_name => NULL);
END;
BEGIN
DBMS_STREAMS_ADM.ADD_TABLE_RULES(
table_name => 'hr.employees',
streams_type => 'dequeue',
streams_name => 'hr',
queue_name => 'apps.streams_queue',
include_dml => true,
include_ddl => false,
inclusion_rule => true);
END;
DECLARE
emp_rule_name_dml VARCHAR2(30);
emp_rule_name_ddl VARCHAR2(30);
BEGIN
DBMS_STREAMS_ADM.ADD_TABLE_RULES(
table_name => 'hr.employees',
streams_type => 'apply',
streams_name => 'apply_emp',
queue_name => 'apps.streams_queue',
include_dml => true,
include_ddl => false,
source_database => 'orcl',
dml_rule_name => emp_rule_name_dml,
ddl_rule_name => emp_rule_name_ddl);
DBMS_APPLY_ADM.SET_ENQUEUE_DESTINATION(
rule_name => emp_rule_name_dml,
destination_queue_name => 'apps.streams_queue');
END;
BEGIN
DBMS_APPLY_ADM.SET_PARAMETER(
apply_name => 'apply_emp',
parameter => 'disable_on_error',
value => 'n');
END;
BEGIN
DBMS_APPLY_ADM.START_APPLY(
apply_name => 'apply_emp');
END;
BEGIN
DBMS_CAPTURE_ADM.START_CAPTURE(
capture_name => 'capture_emp');
END;
if you observe i am using the DML handler emp_dml_handler procedure which is being called correctly for update and Delete on hr.employees table when i do insert on Hr.employess table there is no call to dml handler.
Not sure if i am missing some step or something is wrong with scripts.
Please help to resolve the issue.

Hi,
In this case you wouldn't need to create rules on the apply side, just create the apply with DBMS_APPLY_ADM.CREATE_APPLY. It will perform better if it has no rule sets.
Also, there is no need to call SET_ENQUEUE_DESTINATION for your case, this is only when you want the apply to reenqueue the received LCR to another queue, as a user-enqueued LCR, when the received LCR matches the specified rule.
Ilidio.

Set password for messaging lumia 800

hi,
i have a nokia lumia 800 with windows phone 7.8.
there is a way or application that can set password for messaging, when I or another person want to acces "messaging" it must to insert password, a pin with 4 digits for example.
thank you!
Solved!
Go to Solution.

Nah, buddy. It's not possible on the phone.
Most of the applications I found in the Marketplace allow sending of encrypted messages in which recipient needs to decrypt, but you can check the Marketplace yourself. I may miss one that suits what you need: http://www.windowsphone.com/en-us/store/search?q=message+password
However, you can create a password on the phone by going to Settings and then Lock+Wallpaper. This locks the phone and you need to input the password before you can access your phone.
Cheers.

How can I reduce the amount of storage my iPhone uses for messages?

Is there any way to reduce the amount of storage space my iPhone uses for Messages? Can I limit the storage to the last year or some other limit (specific date, specific amount of storage etc.)?
Thank you

I'm not sure there is a solution to your question, other than to not keep so many photos on your devices. If you delete a photo from photo stream, it will delete it from all your devices. To keep them, first save them to your camera roll (tap Edit, tap the photos, tap Share, tap Save to Camera Roll), then import them to your computer as explained here: http://support.apple.com/kb/HT4083. However, given the number of photos you have, a much more practical solution would be to transfer them to your computer using an app like PhotoSync, which will select them all at once and transfer them over wifi.
I'm not sure why you're seeing such a discrepancy in the amount of space taken up by your photos. It's possible that something is corrupt given the large number of photos on your device.

Needed example working code for FM"LAST_DAY_IN_PERIOD_GET"

needed example working code for FM"LAST_DAY_IN_PERIOD_GET"

Hi,
Go through this code
*& Report Z_FICO_REP_SHIPMENTS
REPORT z_fico_rep_shipments MESSAGE-ID sd.
TYPE-POOLS : slis.
TABLES : vbak,
         kna1,
         likp,
         vbfa.
*>> DEFINE global Types
TYPES : BEGIN OF gt_vbak,
          vbeln TYPE vbeln,
          kunnr TYPE kunnr ,
          spart TYPE spart,
          audat TYPE audat,
        END OF gt_vbak,
        BEGIN OF gt_kna1,
          kunnr TYPE kunnr,
          name1 TYPE name1,
        END OF gt_kna1,
        BEGIN OF gt_likp,
          vbeln     TYPE vbeln,
          wadat_ist TYPE wadat_ist,
        END OF gt_likp,
        BEGIN OF gt_vbfa,
          vbelv     TYPE vbelv,
          erdat     TYPE erdat,
          rfwrt     TYPE rfwrt,
       END OF gt_vbfa,
        BEGIN OF gt_final,
          kunnr   TYPE kunnr,
          name1   TYPE name1,
          cumon   TYPE monat,
          trcum   TYPE rfwrt,
          trcuy   TYPE rfwrt,
          perce   TYPE rfwrt,
          fiscy   TYPE gjahr,
          ftrcum TYPE rfwrt,
          ftrcuy TYPE rfwrt,
          fperce TYPE rfwrt,
        END OF gt_final.
DATA : gwa_vbak   TYPE gt_vbak,
       gwa_kna1   TYPE gt_kna1,
       gwa_likp   TYPE gt_likp,
       gwa_vbfa   TYPE gt_vbfa,
       gwa_final TYPE gt_final,
       gwa_sort   TYPE slis_sortinfo_alv,
       gwa_layout TYPE slis_layout_alv.    "ALV Layout
DATA : gi_vbak    TYPE STANDARD TABLE OF gt_vbak,
       gi_kna1    TYPE STANDARD TABLE OF gt_kna1,
       gi_likp    TYPE STANDARD TABLE OF gt_likp,
       gi_vbfa    TYPE STANDARD TABLE OF gt_vbfa,
       gi_likp1   TYPE STANDARD TABLE OF gt_likp,
       gi_vbfa1   TYPE STANDARD TABLE OF gt_vbfa,
       gi_final   TYPE STANDARD TABLE OF gt_final WITH HEADER LINE,
       gi_final1 TYPE STANDARD TABLE OF gt_final WITH HEADER LINE.
*>> DEFINE INTERNAL TABLE
DATA : gi_fieldcat    TYPE slis_t_fieldcat_alv,   "ALV Fieldcatalog
       gi_events      TYPE slis_t_event,          "ALV EventS
       gi_sort        TYPE slis_t_sortinfo_alv ,
       gi_top_of_page TYPE slis_t_listheader.     "ALV LIST HEADER
DATA : gv_month(2) TYPE n.
*>> GLOBAL CONSTANTS
CONSTANTS: gc_day(2) TYPE n VALUE 01,
           gc_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',
           gc_x TYPE c VALUE 'X'.
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_monat      TYPE     monat OBLIGATORY,
            p_gjahr     TYPE     gjahr OBLIGATORY.
SELECT-OPTIONS : s_bukrs      FOR      vbak-bukrs_vf OBLIGATORY,
                 s_vkorg     FOR      vbak-vkorg,
                 s_spart     FOR     vbak-spart     OBLIGATORY,
                 s_audat   FOR    vbak-audat NO-DISPLAY.
SELECTION-SCREEN:END OF BLOCK b1.
SELECTION-SCREEN:BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
PARAMETERS: p_det RADIOBUTTON GROUP grp DEFAULT 'X' ,
          p_sum RADIOBUTTON GROUP grp.
SELECTION-SCREEN:END OF BLOCK b2.
START-OF-SELECTION.
*>> Take Period And year and find starting and ending date
PERFORM fiscal_date.
PERFORM collect_data.
PERFORM manipulation_collect_data.
END-OF-SELECTION.
*>> Sort
PERFORM gi_sort_table.
*>> MEARGE FIELD CATALOG USING INTERNAL TABLE
PERFORM mearge_field_catalog.
*>> SET EVENTS
PERFORM set_event.
*>> FOR ALV HEADER
PERFORM n_top_of_page USING gi_top_of_page[].
*>>For ALV Layout
PERFORM build_layout.
*>>For output display
PERFORM alv_grid_display.
*&      Form fiscal_date
FORM fiscal_date.
TYPES : BEGIN OF lt_fisc,
            bukrs TYPE bukrs,
            periv TYPE periv,
            bumon TYPE bumon,
            butag TYPE butag,
          END OF lt_fisc,
          BEGIN OF lt_t009b,
            periv TYPE periv,
            bumon TYPE bumon,
            butag TYPE butag,
            poper TYPE poper,
           END OF lt_t009b.
DATA : lwa_fisc TYPE lt_fisc,
         lwa_t009b TYPE lt_t009b.
DATA : li_fisc TYPE STANDARD TABLE OF lt_fisc,
         li_t009b TYPE STANDARD TABLE OF lt_t009b.
DATA : lv_date(2) TYPE c,
         lv_mont(2) TYPE c,
         lv_year(4) TYPE c.
SELECT bukrs periv FROM t001
                     INTO TABLE li_fisc
                     WHERE bukrs IN s_bukrs.
IF sy-subrc EQ 0.
    SELECT * FROM t009b
             INTO CORRESPONDING FIELDS OF TABLE li_t009b
             FOR ALL ENTRIES IN li_fisc
             WHERE periv EQ li_fisc-periv .
    IF sy-subrc NE 0.
      CLEAR li_t009b.
    ENDIF.
ELSE.
    CLEAR li_fisc.
ENDIF.
SORT li_t009b BY periv poper.
LOOP AT li_fisc INTO lwa_fisc.
    READ TABLE li_t009b INTO lwa_t009b WITH KEY periv = lwa_fisc-periv
                                                poper = '001'
                                       BINARY SEARCH.
    IF sy-subrc = 0.
      s_audat-option = 'EQ'.
      s_audat-sign   = 'I'.
      CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET'
        EXPORTING
          i_gjahr = p_gjahr
          i_periv = lwa_t009b-periv
          i_poper = lwa_t009b-poper
        IMPORTING
          e_date = s_audat-low.
    ENDIF.
    CLEAR lwa_t009b.
    READ TABLE li_t009b INTO lwa_t009b WITH KEY periv = lwa_fisc-periv
                                                poper = '012'
                                       BINARY SEARCH.
    IF sy-subrc = 0.
      CALL FUNCTION 'LAST_DAY_IN_PERIOD_GET'
        EXPORTING
          i_gjahr = p_gjahr
          i_periv = lwa_t009b-periv
          i_poper = lwa_t009b-poper
        IMPORTING
          e_date = s_audat-high.
    ENDIF.
    CLEAR lwa_t009b.
    READ TABLE li_t009b INTO lwa_t009b WITH KEY periv = lwa_fisc-periv
                                                poper = p_monat
                                        BINARY SEARCH.
    IF sy-subrc = 0.
      lv_date = s_audat-high+6(2).
      lv_mont = s_audat-high+4(2).
      lv_year = s_audat-high(4).
      lv_mont = lwa_t009b-bumon.
      lv_date = lwa_t009b-butag.
      CONCATENATE lv_year lv_mont lv_date INTO s_audat-high.
      APPEND s_audat.
      CLEAR: lwa_fisc,lwa_t009b,lv_date,lv_mont,lv_year.
    ENDIF.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM s_audat.
ENDFORM.                    "fiscal_date
*&      Form collect_data
FORM collect_data .
SELECT vbeln kunnr spart audat
      FROM vbak
      INTO TABLE gi_vbak
      WHERE audat    GE s_audat-low AND
            audat    LT s_audat-high AND
            vkorg    IN s_vkorg AND
            spart    IN s_spart AND
            bukrs_vf IN s_bukrs.
IF sy-subrc EQ 0.
    SELECT kunnr name1
    FROM kna1
    INTO TABLE gi_kna1
    FOR ALL ENTRIES IN gi_vbak
    WHERE kunnr EQ gi_vbak-kunnr.
    IF sy-subrc NE 0.
      CLEAR gi_kna1.
    ENDIF.
    SELECT vbeln wadat_ist
    FROM likp
    INTO TABLE gi_likp
    WHERE wadat_ist GE s_audat-low AND
          wadat_ist LT s_audat-high .
    IF sy-subrc EQ 0.
      SELECT vbelv erdat rfwrt
      FROM vbfa
      INTO TABLE gi_vbfa
      FOR ALL ENTRIES IN gi_likp
      WHERE vbeln   = gi_likp-vbeln AND
             ( vbtyp_n = 'M' OR
            vbtyp_n = 'H' ) .
      IF sy-subrc NE 0.
        CLEAR gi_vbfa.
      ENDIF.
    ELSE.
      CLEAR gi_likp.
    ENDIF.
    PERFORM change_date.
    SELECT vbeln wadat_ist
    FROM likp
    INTO TABLE gi_likp1
    WHERE wadat_ist GE s_audat-low AND
          wadat_ist LT s_audat-high .
    IF sy-subrc EQ 0.
      SELECT vbelv erdat rfwrt
      FROM vbfa
      INTO TABLE gi_vbfa1
      FOR ALL ENTRIES IN gi_likp1
      WHERE vbeln   = gi_likp1-vbeln AND
             ( vbtyp_n = 'M' OR
            vbtyp_n = 'H' ) .
      IF sy-subrc NE 0.
        CLEAR gi_vbfa.
      ENDIF.
    ELSE.
      CLEAR gi_likp.
    ENDIF.
ELSE.
    MESSAGE i261.
    LEAVE SCREEN.
ENDIF.
ENDFORM.                    "collect_data
*&      Form Manipulation_collect_data
FORM manipulation_collect_data.
SORT gi_vbak BY vbeln.
SORT gi_kna1 BY kunnr.
LOOP AT gi_vbak INTO gwa_vbak.
    MOVE-CORRESPONDING gwa_vbak TO gwa_final.
    READ TABLE gi_kna1 INTO gwa_kna1 WITH KEY kunnr = gwa_vbak-kunnr
                                   BINARY SEARCH.
    IF sy-subrc EQ 0.
      gwa_final-name1 = gwa_kna1-name1.
    ENDIF.
ENDLOOP.
*    v_month = gwa_vbak-audat+4(2).
*    gwa_final-cumon = p_monat.
*    gwa_final-fiscy = p_gjahr.
*    IF v_month = p_monat.
*      CLEAR wa_ckmlhd.
*      READ TABLE i_ckmlhd INTO wa_ckmlhd WITH KEY matnr = wa_vbap-matnr
*                                                  bwkey = wa_vbap-werks
*                                                  BINARY SEARCH.
*      IF sy-subrc EQ 0.
*        CLEAR i_nckmlcr.
*        READ TABLE i_nckmlcr INTO wa_nckmlcr
*                             WITH KEY kalnr = wa_ckmlhd-kalnr
*                             BINARY SEARCH.
*        IF sy-subrc EQ 0.
*          gwa_final-peinh = wa_nckmlcr-peinh.
*          gwa_final-kzwi6 = wa_vbap-kzwi6 - wa_vbap-kzwi5.
*          gwa_final-kzwi5 = wa_vbap-kzwi5.
*          gwa_final-totre = gwa_final-kzwi6 + gwa_final-kzwi5.
*          gwa_final-actco = ( wa_nckmlcr-pvprs / wa_nckmlcr-peinh ) *
*                            wa_vbap-kwmeng.
*          gwa_final-profit = gwa_final-totre - gwa_final-actco.
*          gwa_final-prows = ( gwa_final-profit - gwa_final-kzwi6 ) *
*100.
*        ENDIF.
*      ENDIF.
*    ELSE.
*      CLEAR wa_ckmlhd.
*      READ TABLE i_ckmlhd INTO wa_ckmlhd WITH KEY matnr = wa_vbap-matnr
*                                                bwkey = wa_vbap-werks
*                                                BINARY SEARCH.
*      IF sy-subrc EQ 0.
*        READ TABLE i_ckmlcr INTO wa_ckmlcr
*                             WITH KEY kalnr = wa_ckmlhd-kalnr
*                             BINARY SEARCH.
*        IF sy-subrc NE 0.
*          CLEAR wa_ckmlcr.
*        ENDIF.
*        CLEAR wa_nckmlcr.
*        READ TABLE i_nckmlcr INTO wa_nckmlcr
*                             WITH KEY kalnr = wa_ckmlhd-kalnr
*                             BINARY SEARCH.
*        IF sy-subrc EQ 0.
*          gwa_final-fkzwi6 = wa_vbap-kzwi6 - wa_vbap-kzwi5.
*          gwa_final-fkzwi5 = wa_vbap-kzwi5.
*          gwa_final-ftotre = gwa_final-fkzwi6 + gwa_final-fkzwi5.
*          gwa_final-factco = ( ( wa_nckmlcr-pvprs / wa_ckmlcr-peinh )
*                               * wa_vbap-kwmeng ) / wa_nckmlcr-count.
*          gwa_final-fprofit = gwa_final-ftotre - gwa_final-factco.
*         gwa_final-fprows = ( gwa_final-fprofit - gwa_final-kzwi6 ) *
*100
*        ENDIF.
*      ENDIF.
*    ENDIF.
*    APPEND gwa_final TO gi_final.
*    CLEAR : gwa_final,wa_nckmlcr,wa_ckmlcr,wa_ckmlhd,
*            gwa_vbak,wa_vbap,gwa_kna1.
* ENDLOOP.
* gwa_final-matnr = space.gwa_final-vbeln = space.
* MODIFY gi_final FROM gwa_final TRANSPORTING vbeln matnr
*                                WHERE matnr NE space.
* SORT gi_final BY kunnr vbeln matnr.
* IF p_sum = gc_x.
*    LOOP AT gi_final INTO gwa_final.
*      COLLECT gwa_final INTO gi_final1.
*    ENDLOOP.
*    CLEAR gwa_final.REFRESH gi_final.
*    gi_final[] = gi_final1[].
* ENDIF.
ENDFORM.                    "manipulation_collect_data
*&      Form change_date
FORM change_date.
DATA : lv_date(2) TYPE c,
         lv_mont(2) TYPE c,
         lv_year(4) TYPE n.
lv_date = s_audat-low+6(2).
lv_mont = s_audat-low+4(2).
lv_year = s_audat-low(4).
lv_year = lv_year - 1.
CONCATENATE lv_year lv_mont lv_date INTO s_audat-low.
CLEAR : lv_date ,lv_mont,lv_year.
lv_date = s_audat-high+6(2).
lv_mont = s_audat-high+4(2).
lv_year = s_audat-high(4).
lv_year = lv_year - 1.
CONCATENATE lv_year lv_mont lv_date INTO s_audat-high.
CLEAR : lv_date ,lv_mont,lv_year.
ENDFORM.                    " change_date
*&      Form gi_sort_table
FORM gi_sort_table.
IF p_det = gc_x.
    gwa_sort-spos = '1'.
    gwa_sort-fieldname = 'KUNNR'.
    gwa_sort-tabname = 'gi_final'.
    gwa_sort-up = gc_x.
    gwa_sort-subtot = gc_x.
    APPEND gwa_sort TO gi_sort.
    CLEAR gwa_sort.
    gwa_sort-spos = '2'.
    gwa_sort-fieldname = 'NAME1'.
    gwa_sort-tabname = 'gi_final'.
    gwa_sort-up = gc_x.
    APPEND gwa_sort TO gi_sort.
* ELSE.
*    gwa_sort-spos = '1'.
*    gwa_sort-fieldname = 'KUNNR'.
*    gwa_sort-tabname = 'gi_final'.
*    gwa_sort-up = gc_x.
*    APPEND gwa_sort TO gi_sort.
*    CLEAR gwa_sort.
*    gwa_sort-spos = '2'.
*    gwa_sort-fieldname = 'NAME1'.
*    gwa_sort-tabname = 'gi_final'.
*    gwa_sort-up = gc_x.
*    gwa_sort-group = gc_x.
*    gwa_sort-subtot = gc_x.
*    APPEND gwa_sort TO gi_sort.
ENDIF.
ENDFORM.                    "gi_sort_table
*&      Form mearge_field_catalog
FORM mearge_field_catalog .
*>> LOCAL WORK AREA FOR FIELDCATALOG
DATA : lwa_fieldcata TYPE slis_fieldcat_alv.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'KUNNR'.
* lwa_fieldcata-col_pos      = 1.
lwa_fieldcata-key          = 'X'.
lwa_fieldcata-key_sel      = 'X'.
lwa_fieldcata-ref_tabname = 'KNA1'.
lwa_fieldcata-seltext_l    = 'Customer No.'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'NAME1'.
* lwa_fieldcata-col_pos      = 2.
lwa_fieldcata-ref_tabname = 'KNA1'.
lwa_fieldcata-seltext_l    = 'Customer Name'.
APPEND lwa_fieldcata TO gi_fieldcat.
IF p_det = gc_x.
    CLEAR lwa_fieldcata.
    lwa_fieldcata-fieldname    = 'VBELN'.
*    lwa_fieldcata-col_pos      = 3.
    lwa_fieldcata-ref_tabname = 'VBAK'.
    lwa_fieldcata-seltext_l    = 'Sales Order Number'.
    APPEND lwa_fieldcata TO gi_fieldcat.
    CLEAR lwa_fieldcata.
    lwa_fieldcata-fieldname    = 'MATNR'.
*    lwa_fieldcata-col_pos      = 4.
    lwa_fieldcata-ref_tabname = 'VBAK'.
    lwa_fieldcata-seltext_l    = 'Material No.'.
    APPEND lwa_fieldcata TO gi_fieldcat.
ENDIF.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'KWMENG'.
lwa_fieldcata-col_pos      = 5.
lwa_fieldcata-ref_tabname = 'VBAP'.
lwa_fieldcata-do_sum       = 'X'.
lwa_fieldcata-seltext_l    = 'Order Quantity'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'PEINH'.
lwa_fieldcata-col_pos      = 6.
lwa_fieldcata-ref_tabname = 'CKMLCR'.
lwa_fieldcata-text_fieldname = 'PEINH'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'CUMON'.
lwa_fieldcata-col_pos      = 7.
lwa_fieldcata-ref_tabname = 'VBKPF'.
lwa_fieldcata-seltext_l    = 'Month'.
lwa_fieldcata-no_sum       = gc_x.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'KZWI6'.
lwa_fieldcata-col_pos      = 8.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Costed Sales'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'KZWI5'.
lwa_fieldcata-col_pos      = 9.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Surcharges'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'TOTRE'.
lwa_fieldcata-col_pos      = 10.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Total Revenues'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'ACTCO'.
lwa_fieldcata-col_pos      = 11.
lwa_fieldcata-ref_tabname = 'VBAP'.
lwa_fieldcata-seltext_l    = 'Actual Cost for Period'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'PROFIT'.
lwa_fieldcata-col_pos      = 12.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Profit'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'PROWS'.
lwa_fieldcata-col_pos      = 13.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Profit % w/surcharge'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FISCY'.
lwa_fieldcata-col_pos      = 14.
* lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Fiscal Year'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FKZWI6'.
lwa_fieldcata-col_pos      = 15.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Costed Sales'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FKZWI5'.
lwa_fieldcata-col_pos      = 16.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Surcharges'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FTOTRE'.
lwa_fieldcata-col_pos      = 17.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Total Revenues'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FACTCO'.
lwa_fieldcata-col_pos      = 18.
lwa_fieldcata-ref_tabname = 'VBAP'.
lwa_fieldcata-seltext_l    = 'Actual Cost for Period'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FPROFIT'.
lwa_fieldcata-col_pos      = 19.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Profit'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FPROWS'.
lwa_fieldcata-col_pos      = 20.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Profit % w/surcharge'.
APPEND lwa_fieldcata TO gi_fieldcat.
ENDFORM.                    " mearge_field_catalog
*&      Form set_event
FORM set_event .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 1
    IMPORTING
      et_events   = gi_events.
SORT gi_events BY name.
*-- To read Top of Page event
PERFORM read_events USING slis_ev_top_of_page gc_top_of_page.
ENDFORM.                    " set_event
*&      Form top_of_page
FORM n_top_of_page USING lp_top_of_page TYPE slis_t_listheader.
DATA: lwa_listhead TYPE slis_listheader,
        lv_ccode TYPE string,
        lv_sales TYPE string,
        lv_divis TYPE string.
CONCATENATE 'From : ' s_bukrs-low ' To: ' s_bukrs-high INTO lv_ccode.
CONCATENATE 'From: ' s_vkorg-low       ' To: ' s_vkorg-high INTO lv_sales.
CONCATENATE 'From: ' s_spart-low       ' To: ' s_spart-high INTO lv_divis.
CLEAR lwa_listhead.
lwa_listhead-typ = 'H'.
lwa_listhead-info = text-003.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Month'.
lwa_listhead-info = p_monat.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Year'.
lwa_listhead-info = p_gjahr.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Company Code'.
lwa_listhead-info = lv_ccode.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Sales Org'.
lwa_listhead-info = lv_sales.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Division'.
lwa_listhead-info = lv_divis.
APPEND lwa_listhead TO lp_top_of_page.
IF p_det = gc_x.
    CLEAR lwa_listhead.
    lwa_listhead-typ = 'A'.
    lwa_listhead-info = text-004.
    APPEND lwa_listhead TO lp_top_of_page.
ELSE.
    CLEAR lwa_listhead.
    lwa_listhead-typ = 'A'.
    lwa_listhead-info = text-005.
    APPEND lwa_listhead TO lp_top_of_page.
ENDIF.
ENDFORM.                    "top_of_page
*&      Form TOP_OF_PAGE
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      i_logo             = 'ENJOYSAP_LOGO'
      it_list_commentary = gi_top_of_page.
ENDFORM.                    "TOP_OF_PAGE
*&      Form build_layout
FORM build_layout .
gwa_layout-no_input          = gc_x.
gwa_layout-colwidth_optimize = gc_x.
gwa_layout-zebra             = gc_x.
ENDFORM.                    "build_layout
*&      Form alv_grid_display
FORM alv_grid_display .
* Function module to display ALV report
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
      is_layout          = gwa_layout
      it_fieldcat        = gi_fieldcat[]
      it_sort            = gi_sort
      i_save             = 'A'
      it_events          = gi_events[]
    TABLES
      t_outtab           = gi_final
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.                    " alv_grid_display
*&      Form read_events
FORM read_events USING pr_events    TYPE slis_alv_event-name
                         pr_eventname TYPE slis_formname.
DATA: lwa_event TYPE slis_alv_event.
CLEAR lwa_event.
READ TABLE gi_events INTO lwa_event
                      WITH KEY name = pr_events BINARY SEARCH.
IF sy-subrc = 0.
    MOVE pr_eventname TO lwa_event-form.
    MODIFY gi_events FROM lwa_event
                    TRANSPORTING form
                    WHERE name = pr_events.
ENDIF.
ENDFORM.                    " read_events
Regards
Sandipan

Problem to get Correct Value for Message Id in XI (Inbound channel)

Hi Experts
I have XI scenario i.e. SOAP to RFC.
I am calling RFC and getting Response which contais Messageid Field(Raw Data).
But while getting Response in Inbound Channel ,I ma getting Junk Value For Message Id.
In RFC Data element for Message id is SXMSMGUID.(data tpe Raw No Of character 16 and Output Length 32)
I am accessing some RFC functions from XI which return parameters in the RAW format.[RAW: Uninterpreted byte string.]
For example: If I execute a RFC from the abap system (using transaction se37), one of the results is "5ECD6F4D6C6E3242921025FE74AC5153"
When I call the RFC from XI, response for same parameters is "Xs1vTWxuMkKSECX+dKxRUw==".
Is there any way to get RAW data in correct Format?
when i import RFc in XI it's data type becomes xsd:base64Binary.
I created one customized data element having data type RAW (32 length) and even Character(32-50 length)
In this case RFC gives correct value but when Sceanaro runs in XI,it get Wrong data in XI Inbound channel.
Also disturbed value and place of other Fields.
Thanks in advance .

Hi
Check this forum post.. same prob as yours
Re: Problem in RFC Lookup UDF in getting MessageID
fixed by changing the datatype other than RAW in FM
also,
Data type RAW imported to ABAP from Java
Regards
Vishnu

How to query for messages on JMS Queue?

Hi All,
What is the best way to query on a JMS Queue? I would like to query for messages based on values entered on a screen. Can this be achieved using the JMS Adapter or any other adapter?
JDev : 11.1.1.4
Thanks and Regards.

Hi,
I am not 100% clear on your requirement and what selection criteria you need. I would be surprised if you need the DB adapter. If you just want to query how much message are in the queue or other related queries for example related to header information then DB adapter can be used. This only works when JMS queue is stored in the database. Personally I have never come across this requirement.
I suggest to look in more detail of the JMS adapter. The JMS adapter can be used to select (subscribe) to certain messages. Please read the below for more information:
http://docs.oracle.com/cd/E17904_01/integration.1111/e10231/adptr_jms.htm#CJACBCHJ
The message is automatically removed from the queue (implicit delete) the moment it is picked-up. I would not recommend deleting a message directly from the queue using DB adapter. What is the point of publishing the message in the first place?
Thanks
Sander

Settings of live stream for FMS 4.5 on Amazon

Hi. We are cureently have an issue with setting up an outcoming stream for a livechat. We are using FMS 4.5 on Amazon and OSMF player. When streaming from FMLE everything is working fine. But when streaming from as3 we receive buffering status of OSMF player and wornings in amazon server:
Warning from libf4f.so: [Utils] [1cbec29179f3616a6b284fc9ecc029d8] [1cbec29179f3616a6b284fc9ecc029d8] FMS F4F recording received timestamps with absolute time flowing backward lastTime held was 2109435 and the most recent arrived was 2107876. This message is being ignored - recording will continue.
Stream settings are:
_streamCam = Camera.getCamera();
_streamCam.setMode (640,480,30,true);
_streamCam.setQuality (1200 * 1024, 90);
_streamCam.setKeyFrameInterval(4);
var pH264Settings:H264VideoStreamSettings = new H264VideoStreamSettings();
pH264Settings.setProfileLevel(H264Profile.BASELINE, H264Level.LEVEL_3_1);
pH264Settings.setQuality(_streamCam.bandwidth,_streamCam.quality);
Also Adobe resommends to enable streamsynchronization like it is done for FMLE:
http://help.adobe.com/en_US/flashmediaserver/devguide/WSd391de4d9c7bd609-52e437a812a3725df a0-8000.html
<flashmedialiveencoder_config>
    <mbrconfig>
        <streamsynchronization>
            
            <enable>true</enable>
Is it possible to do the same for AS3 Netstream? If so, please tell the name of a proppety.
Please kindly, advise.

Hi. We are cureently have an issue with setting up an outcoming stream for a livechat. We are using FMS 4.5 on Amazon and OSMF player. When streaming from FMLE everything is working fine. But when streaming from as3 we receive buffering status of OSMF player and wornings in amazon server:
Warning from libf4f.so: [Utils] [1cbec29179f3616a6b284fc9ecc029d8] [1cbec29179f3616a6b284fc9ecc029d8] FMS F4F recording received timestamps with absolute time flowing backward lastTime held was 2109435 and the most recent arrived was 2107876. This message is being ignored - recording will continue.
Stream settings are:
_streamCam = Camera.getCamera();
_streamCam.setMode (640,480,30,true);
_streamCam.setQuality (1200 * 1024, 90);
_streamCam.setKeyFrameInterval(4);
var pH264Settings:H264VideoStreamSettings = new H264VideoStreamSettings();
pH264Settings.setProfileLevel(H264Profile.BASELINE, H264Level.LEVEL_3_1);
pH264Settings.setQuality(_streamCam.bandwidth,_streamCam.quality);
Also Adobe resommends to enable streamsynchronization like it is done for FMLE:
http://help.adobe.com/en_US/flashmediaserver/devguide/WSd391de4d9c7bd609-52e437a812a3725df a0-8000.html
<flashmedialiveencoder_config>
    <mbrconfig>
        <streamsynchronization>
            
            <enable>true</enable>
Is it possible to do the same for AS3 Netstream? If so, please tell the name of a proppety.
Please kindly, advise.

How do I create Wrapper class for Message Box?

I want to create Wrapper class for Message Box class in my project. I am using Telerik Testing FrameWork. In that message box was not recognized in unit testing thats y i want to create wrapper class, for creating the
instance for that mesage box.

A wrapper class is simply a class that for example wraps another object or a subset of its methods. You could just create a class that exposes the same methods as the MessageBox and uses the MessageBox internally.
If you define an interface and program against this in your application, you could replace your wrapper object with another object that implements the same interface when you are doing the unit tests. Something like this:
public interface IMessageBoxWrapper
System.Windows.Forms.DialogResult Show(string text, string caption);
public class MessageBoxWrapper
public System.Windows.Forms.DialogResult Show(string text, string caption)
return System.Windows.Forms.MessageBox.Show(text, caption);
public class MockMessageBoxWrapper
public System.Windows.Forms.DialogResult Show(string text, string caption)
return System.Windows.Forms.DialogResult.OK;
private readonly IMessageBoxWrapper _mbw;
public Form1(IMessageBoxWrapper mbw)
InitializeComponent();
_mbw = mbw;
private void SomeMethod()
_mbw.Show("...", "...");
Hope that helps.
Please remember to close your threads by marking all helpful posts as answer and please start a new thread if you have a new question.

How Do I Use One PC (Windows) To Run iCloud Photo Stream for Two Users?

How Do I Use One PC (Windows) To Run iCloud Photo Stream for Two Users? I and my wife have two Iphones (iOS 6.1.4) and we want to have use 2 iCloud accounts for one PC.

Disregard the question. The solution has nothing to do with any "Firefox bug". Turns out that my session wasn't being managed properly. Or rather, I was accidentally deleting other users' information when new users logged in. So if I had user 1 and user 2, and user 2 logged in after user 1, some of user 1's information would be deleted, resulting in the errors.
Oops; sorry about the false alarm. :)
(Was hoping to retract the question, but it looks like others have a similar problem.)

Example of Streams for Messaging?

Similar Messages

Maybe you are looking for