Local abstract class 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_cl_abstract.
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.

CLASS cl_abstract DEFINITION ABSTRACT.
  PUBLIC SECTION.
    METHODS display ABSTRACT
      IMPORTING pvbeln TYPE vbeln
      EXPORTING perzet TYPE erzet
                perdat TYPE erdat
                pvbtyp TYPE vbtyp
                pernam TYPE ernam.
ENDCLASS.

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

CLASS delivery DEFINITION INHERITING FROM cl_abstract.
  PUBLIC SECTION.
    METHODS display REDEFINITION.

ENDCLASS.
CLASS delivery IMPLEMENTATION.
  METHOD 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->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->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

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