Local interface with example using parameters.

 1. Goto SE38.

2. Give program name and click on create.

3. Give description and select type executable program.

4. Write code.

REPORT zab_if_sale_delivery.
DATA: lv_erzet TYPE erzet,
      lv_erdat TYPE erdat,
      lv_vbtyp TYPE vbtyp,
      lv_ernam TYPE ernam.
PARAMETERS: p_vbeln TYPE vbeln.
PARAMETERS: p_r1 TYPE c RADIOBUTTON GROUP g1,
            p_r2 TYPE c RADIOBUTTON GROUP g1.

INTERFACE if_sale_del.

  METHODS display
    IMPORTING pvbeln TYPE vbeln
    EXPORTING perzet TYPE erzet
              perdat TYPE erdat
              pvbtyp TYPE vbtyp
              pernam TYPE ernam.
ENDINTERFACE.

CLASS sale DEFINITION.
  PUBLIC SECTION.
    INTERFACES if_sale_del.
ENDCLASS.
CLASS sale IMPLEMENTATION.
  METHOD if_sale_del~display.
    SELECT SINGLE erzet
            erdat
            vbtyp
            ernam
            FROM vbak
            INTO ( perzet,perdat, pvbtyp, pernam )
            WHERE vbeln EQ p_vbeln.
  ENDMETHOD.
ENDCLASS.

CLASS delivery DEFINITION.
  PUBLIC SECTION.
    INTERFACES if_sale_del.

ENDCLASS.
CLASS delivery IMPLEMENTATION.
  METHOD if_sale_del~display.
    SELECT SINGLE erzet
            erdat
            vbtyp
            ernam
            FROM likp
            INTO ( perzet,perdat, pvbtyp, pernam )
            WHERE vbeln EQ p_vbeln.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA: obj_sale TYPE REF TO sale,
        obj_del  TYPE REF TO delivery.
  IF p_r1 = 'X'.
    CREATE OBJECT obj_sale.
    obj_sale->if_sale_del~display(
      EXPORTING
        pvbeln = p_vbeln
      IMPORTING
        perzet = lv_erzet
        perdat = lv_erdat
        pvbtyp = lv_vbtyp
        pernam = lv_ernam
    ).
    WRITE: 'Sale order details', / p_vbeln ,
                                / lv_erzet,
                                / lv_erdat,
                                / lv_vbtyp,
                                / lv_ernam.
  ELSEIF p_r2 = 'X'.
    CREATE OBJECT obj_del.
    obj_del->if_sale_del~display(
      EXPORTING
        pvbeln = p_vbeln
      IMPORTING
        perzet = lv_erzet
        perdat = lv_erdat
        pvbtyp = lv_vbtyp
        pernam = lv_ernam
    ).
    WRITE: 'Delivery order details', / p_vbeln ,
                                / lv_erzet,
                                / lv_erdat,
                                / lv_vbtyp,
                                / lv_ernam.

  ENDIF.

Case1-Sale

    * Input

    * Output

    


Case2-Delivery

    * 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

Add custom tab to me51n at item level in ABAP

Image
                                        * Customer exit for ME51N is -  MEREQ001                                         * To implement the customer exit in CMOD. Step 1: Goto T-code: CMOD. Step 2: Give project name and click on create. Step 3: Give short text and click on Enhancement assignments . Press enter and click on save. Step 4: Click on components . Double click on CI_EBANDB include and create the include. Step5: Give your field names (If your enhancement category can't be enhanced) as per our requirement. Otherwise click on append structure and create. Field names must started with ZZ. Step 6: Save and activate the structure. Step 7: Double click on C_EBANDBX and create structure like this. Step 7: Double click on screen ...
Read more