Multiple event handlers in OOPS ABAP

 

1. Goto SE38.

2. Give program name and click on create.

3. Give description and select type executable program.

4. Write code.

REPORT zab_rp_event_hand_mara2.

DATA: lv_matkl TYPE matkl,
      lv_mtart TYPE mtart,
      lv_meins TYPE meins,
      lv_mbrsh TYPE mbrsh.

PARAMETERS: p_matnr TYPE matnr.

CLASS class1 DEFINITION.
  PUBLIC SECTION.
    METHODS display IMPORTING pmatnr TYPE matnr
                    EXPORTING pmatkl TYPE matkl
                              pmtart TYPE mtart
                              pmeins TYPE meins
                              pmbrsh TYPE mbrsh.
    EVENTS: empty,not_correct.
ENDCLASS.
CLASS class1 IMPLEMENTATION.
  METHOD display.
    IF pmatnr IS INITIAL.
      RAISE EVENT empty.
    ELSE.
      SELECT SINGLE matkl
             mtart
             meins
             mbrsh
             FROM mara
             INTO ( pmatkl , pmtart, pmeins, pmbrsh )
             WHERE matnr = pmatnr.
      IF sy-subrc <> 0.
        RAISE EVENT not_correct.
      ENDIF.

    ENDIF.
  ENDMETHOD.
ENDCLASS.

CLASS class2 DEFINITION.
  PUBLIC SECTION.
    METHODS message FOR EVENT empty OF class1.
    METHODS message1 FOR EVENT not_correct OF class1.
ENDCLASS.

CLASS class2 IMPLEMENTATION.
  METHOD message.
    WRITE: 'Please Give material number'.
  ENDMETHOD.
  METHOD message1.
    WRITE: 'Material number not in table'.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA: obj1 TYPE REF TO class1,
        obj2 TYPE REF TO class2.
  CREATE OBJECT:  obj1,obj2.
  IF p_matnr IS INITIAL.
    SET HANDLER obj2->message FOR obj1.
  ELSE.
    SET HANDLER obj2->message1 FOR obj1.
  ENDIF.

  obj1->display(
    EXPORTING
      pmatnr = p_matnr
    IMPORTING
      pmatkl = lv_matkl
      pmtart = lv_mtart
      pmeins = lv_meins
      pmbrsh = lv_mbrsh
  ).
  IF lv_matkl IS NOT INITIAL AND lv_mtart IS NOT INITIAL AND lv_meins IS NOT INITIAL AND lv_mbrsh IS NOT INITIAL.


    WRITE: / p_matnr,
            / lv_matkl,
            / lv_mtart,
            / lv_meins,
            / lv_mbrsh.
  ENDIF.

Case1 - No input

Input



Output



Case2 - Not Correct input

Input


Output


Case3 - Correct input

Input

Output


****************************Thank you ****************************


Comments

Post a Comment

Popular posts from this blog

New syntax for append- VALUE (new syntax 7.4+) in ABAP

Image
* We use APPEND statement to insert the records at the last of the internal table. * In SAP ABAP new syntax, we can use VALUE expression instead of APPEND statement. * Value expression is a powerful mechanism to declare as well as initialize the internal tables. * It is a powerful utility where we can achieve the result with minimal coding. * Value expression is of 2 types.      -  Define the type before using it with VALUE keyword. The type defined is structure type  or table type.      -  Using # character for type and use it with VALUE keyword. Report REPORT  zab_rp_append_value . TYPES :  BEGIN  OF  ls_stu ,          st_id ( 10 )    TYPE  n ,          st_name ( 15 )  TYPE  c ,         END  OF  ls_stu . DATA :  lt_stu  TYPE  TABLE...
Read more

Read statement new syntax in ABAP. (7.4+).

Image
*  Before ABAP 7.4, we used READ TABLE statement to read the first matching record from the internal table  based upon key or index . * In SAP ABAP new syntax, instead of READ TABLE , we can use the table expressions. * We need to use the square bracket [ ], In the square bracket, we need to specify the key or index. * While using table expression, If the table entry does not exist, system throws the exception CX_SY_ITAB_LINE_NOT_FOUND. * Use line_exists statement to check the existence of a record. Report REPORT  zab_rp_read_new . TABLES :   vbak . SELECT-OPTIONS :   s_vbeln  FOR  vbak - vbeln . SELECT  vbeln , erdat , erzet , ernam , auart         FROM  vbak         INTO  TABLE  @DATA ( lt_vbak )          WHERE  vbeln  IN  @s_vbeln . WRITE :   'Index value'  COLOR  5 . READ  T...
Read more

Concatenation new syntax( 7.4+ ).

Image
  Report REPORT  zab_rp_concat_7_4 . DATA :   lv_str1    TYPE  string  VALUE  'ajay' ,       lv_str2    TYPE  string  VALUE  'babu' ,       lv_str3    TYPE  string  VALUE  'varikallu' ,       lv_final1  TYPE  string ,       lv_final2  TYPE  string . CONCATENATE  lv_str1 lv_str2 lv_str3  INTO  lv_final1  SEPARATED  BY  space . WRITE :   /  'Old syntax: '  ,  lv_final1  COLOR  4 . lv_final2  =  | { lv_str1 } { lv_str2 } { lv_str3 } | . WRITE :   /  'New syntax: '  ,  lv_final2  COLOR  5 . Output ****** *********** ******** Thank You ****** ******* *********
Read more