Show TOC

BeispieldokumentationBeispiele für Inbound und Outbound Dieses Dokument in der Navigationsstruktur finden

 

Die folgenden einfachen Beispiele sollen die Verwendung des neuen API verdeutlichen:

  • bgRFC Typ t Outbound

  • bgRFC Typ q Outbound

  • bgRFC Typ q Outbound nach Inbound

  • bgRFC Typ t Inbound

  • bgRFC Typ q Inbound

bgRFC Typ t Outbound

Dieses Beispiel erzeugt eine bgRFC-Unit Typ t, welche zwei Funktionsbaustein-Aufrufe enthält und per Outbound-Scheduler an ein entferntes System geschickt wird.

Syntax Syntax

    2. 

  2. DATA: my_destination TYPE REF TO if_bgrfc_destination_outbound,
    3. 

  3.       my_unit        TYPE REF TO if_trfc_unit_outbound,
    4. 

  4.       dest_name      TYPE bgrfc_dest_name_outbound.
    5. 

    6. 

  6. dest_name = 'MY_DEST'.
    7. 

  7. my_destination = cl_bgrfc_destination_outbound=>create( dest_name ).
    8. 

  8. my_unit = my_destination->create_trfc_unit( ).
    9. 

  9. CALL FUNCTION ’rfc_function_1’ IN BACKGROUND UNIT my_unit.
    10. 

  10. CALL FUNCTION ’rfc_function_2’ IN BACKGROUND UNIT my_unit.
    11. 

  11. COMMIT WORK.
    12. 

    13. 

    14. 



Ende des Codes




qRFC Typ q Outbound


Dieses Beispiel erzeugt eine bgRFC-Unit Typ q, welche zwei Funktionsbaustein-Aufrufe enthält und per Outbound-Scheduler in ein entferntes System geschickt wird. Dabei werden Queue-Namen für die Serialisierung von Units verwendet. Gleichzeitig wird gezeigt, wie Ausnahmen abgefangen werden können,
um auf Fehlersituationen zu reagieren. In diesem Beispiel werden die Queue-Namen nachträglich bekannt gegeben. Technisch ist dies korrekt, aber die Wartbarkeit der Programme kann leiden.


Syntax Syntax
    2. 

  2. DATA: my_destination TYPE REF TO if_bgrfc_destination_outbound,
    3. 

  3.       my_unit        TYPE REF TO if_qrfc_unit_outbound,
    4. 

  4.       dest_name      TYPE bgrfc_dest_name_outbound,
    5. 

  5.       queue_name     TYPE qrfc_queue_name,
    6. 

  6.       queue_names    TYPE qrfc_queue_name_tab.
    7. 

    8. 

  8. TRY.
    9. 

  9.     dest_name = 'MY_DEST'.
    10. 

  10.     my_destination = cl_bgrfc_destination_outbound=>create( dest_name ).
    11. 

  11.   CATCH cx_bgrfc_invalid_destination.
    12. 

  12.     MESSAGE e102(bc).
    13. 

  13. ENDTRY.
    14. 

  14. my_unit = my_destination->create_qrfc_unit( ).
    15. 

  15. TRY.
    16. 

  16.     CALL FUNCTION ’rfc_function_1’ IN BACKGROUND UNIT my_unit.
    17. 

  17.     my_unit->add_queue_name_outbound( 'DEBITOR-1234' ).
    18. 

  18.     CALL FUNCTION ’rfc_function_2’ IN BACKGROUND UNIT my_unit.
    19. 

  19.     queue_name = 'PRODUCT-4711'.
    20. 

  20.     INSERT queue_name INTO TABLE queue_names.
    21. 

  21.     queue_name = 'PRODUCT-5432'.
    22. 

  22.     INSERT queue_name INTO TABLE queue_names.
    23. 

  23.     my_unit->add_queue_names_outbound( queue_names ).
    24. 

  24.   CATCH cx_qrfc_duplicate_queue_name.
    25. 

  25.     MESSAGE e101(bc).
    26. 

  26. ENDTRY.
    27. 

  27. COMMIT WORK.
    28. 

    29. 

    30. 



Ende des Codes




bgRFC Typ q Outbound nach Inbound


Das nächste Beispiel erzeugt eine bgRFC-Unit Typ q, welche zwei Funktionsbaustein-Aufrufe enthält und per Outbound-Scheduler an ein entferntes System geschickt wird. Dort soll es in die Inbound-Queue gestellt werden. Dabei werden Queue-Namen für die Serialisierung von Units verwendet. Gleichzeitig
wird gezeigt, wie die Ausnahme, die bei doppelten Queue-Namen ausgelöst wird, über den Parameter IGNORE_DUPLICATES unterdrückt werden kann.


Syntax Syntax
    2. 

  2. DATA: my_destination TYPE REF TO if_bgrfc_destination_outbound,
    3. 

  3.       my_unit        TYPE REF TO if_qrfc_unit_outinbound,
    4. 

  4.       dest_name      TYPE bgrfc_dest_name_outbound,
    5. 

  5.       queue_name     TYPE qrfc_queue_name,
    6. 

  6.       queue_names    TYPE qrfc_queue_name_tab.
    7. 

    8. 

  8. TRY.
    9. 

  9.     dest_name = 'MY_DEST'.
    10. 

  10.     my_destination = cl_bgrfc_destination_outbound=>create( dest_name ).
    11. 

  11.   CATCH cx_bgrfc_invalid_destination.
    12. 

  12.     MESSAGE e102(bc).
ENDTRY.
    13. 

  13. my_unit = my_destination->create_qrfc_unit_outinbound( ).
    14. 

  14. CALL FUNCTION ’rfc_function_1’ IN BACKGROUND UNIT my_unit.
    15. 

  15. CALL FUNCTION ’rfc_function_2’ IN BACKGROUND UNIT my_unit.
    16. 

  16. queue_name = 'DEBITOR-1234'.
    17. 

  17. INSERT queue_name INTO TABLE queue_names.
    18. 

  18.     queue_name = 'PRODUCT-4711'.
    19. 

  19. INSERT queue_name INTO TABLE queue_names.
    20. 

  20.     queue_name = 'PRODUCT-5432'.
    21. 

  21. INSERT queue_name INTO TABLE queue_names.
    22. 

  22. my_unit->add_queue_names_outbound( queue_names = queue_names
    23. 

  23.                                    ignore_duplicates = abap_true ).
    24. 

  24. my_unit->add_queue_names_inbound( queue_names = queue_names
    25. 

  25.                                   ignore_duplicates = abap_true ).
    26. 

  26. COMMIT WORK.
    27. 

  27.  
    28. 

    29. 

    30. 

    31. 



Ende des Codes




bgRFC Typ t Inbound


Dieses Beispiel erzeugt eine bgRFC-Unit Typ t, welche zwei Funktionsbaustein-Aufrufe enthält und per Inbound-Scheduler im selben System verarbeitet werden soll.


Syntax Syntax
    2. 

  2. DATA: my_destination TYPE REF TO if_bgrfc_destination_inbound,
    3. 

  3.       my_unit        TYPE REF TO if_trfc_unit_inbound,
    4. 

  4.       dest_name      TYPE bgrfc_dest_name_inbound.
    5. 

    6. 

  6. dest_name = 'MY_DEST'.
    7. 

  7. my_destination = cl_bgrfc_destination_inbound=>create( dest_name ).
    8. 

  8. my_unit = my_destination->create_trfc_unit( ).
    9. 

  9. CALL FUNCTION ’rfc_function_1’ IN BACKGROUND UNIT my_unit.
    10. 

  10. CALL FUNCTION ’rfc_function_2’ IN BACKGROUND UNIT my_unit.
    11. 

  11. COMMIT WORK.
    12. 

    13. 



Ende des Codes




bgRFC Typ q Inbound


Nun noch ein Beispiel für den bgRFC Typ q Inbound-Fall. Gegenüber dem bgRFC Typ t-Beispiel kommt die Verwendung von Queue-Namen hinzu und damit auch die Verwendung der Methode create_qrfc_unit anstatt create_trfc_unit.


Syntax Syntax
    2. 

  2. DATA: my_destination TYPE REF TO if_bgrfc_destination_inbound,
    3. 

  3.       my_unit        TYPE REF TO if_qrfc_unit_inbound,
    4. 

  4.       queue_name     TYPE qrfc_queue_name,
    5. 

  5.       queue_names    TYPE qrfc_queue_name_tab,
    6. 

  6.       dest_name      TYPE bgrfc_dest_name_inbound.
    7. 

    8. 

  8. dest_name = 'MY_DEST'.
    9. 

  9. my_destination = cl_bgrfc_destination_inbound=>create( dest_name ).
    10. 

  10. my_unit = my_destination->create_qrfc_unit( ).
    11. 

  11. TRY.
    12. 

  12.     CALL FUNCTION ’rfc_function_1’ IN BACKGROUND UNIT my_unit.
    13. 

  13.     my_unit->add_queue_name_inbound( 'DEBITOR-1234' ).
    14. 

  14.     CALL FUNCTION ’rfc_function_2’ IN BACKGROUND UNIT my_unit.
    15. 

  15.     queue_name = 'PRODUCT-4711'.
    16. 

  16.     INSERT queue_name INTO TABLE queue_names.
    17. 

  17.     queue_name = 'PRODUCT-5432'.
    18. 

  18.     INSERT queue_name INTO TABLE queue_names.
    19. 

  19.     my_unit->add_queue_names_inbound( queue_names ).
    20. 

  20.   CATCH cx_qrfc_duplicate_queue_name.
    21. 

  21.     MESSAGE e101(bc).
    22. 

  22. ENDTRY.
    23. 

  23. COMMIT WORK.
    24. 

  24.  DATA
    25. 

    26. 

    27. 



Ende des Codes