Create AMDP class and fetch data based on student branch

                                                 Refer - Introduction to AMDP

Step 1: Right click on ABAP project -- New -- ABAP class.

Step 2: Select package, Give class name and description.

Step 3: Click and next and click on finish.

Step 4: Write Code.

CLASS ycl_ab_amdp_stu DEFINITION

  PUBLIC

  FINAL

  CREATE PUBLIC.

  PUBLIC SECTION.

    INTERFACES: if_amdp_marker_hdb.

    TYPES: begin of ls_stu,

           stu_id TYPE ystu_id,

           stu_name TYPE ystu_name,

           stu_branch TYPE ystu_branch,

           stu_marks TYPE ystu_marks,

           END OF ls_stu.

    TYPES: lt_stu TYPE TABLE of ls_stu.

    METHODS: fetch_data IMPORTING VALUE(stu_bra) TYPE ystu_branch

                        EXPORTING VALUE(lt_data) TYPE lt_stu.

  PROTECTED SECTION.

  PRIVATE SECTION.

ENDCLASS.

CLASS ycl_ab_amdp_stu IMPLEMENTATION.

METHOD fetch_data BY DATABASE PROCEDURE FOR HDB

                  LANGUAGE SQLSCRIPT

                  OPTIONS READ-ONLY

                  USING YTL_AB_STU_DET.

      lt_data = select stu_id,

                       stu_name,

                       stu_branch,

                       stu_marks

                       from YTL_AB_STU_DET

                       where stu_branch =:stu_bra;

ENDMETHOD.

ENDCLASS.

Step 5: Calling AMDP class in report.

    REPORT YR_CALL_AMDP_STU.

    PARAMETERS: p_branch TYPE ystu_branch.

    START-OF-SELECTION.
    data: lf_obj TYPE ref to ycl_ab_amdp_stu.
    create OBJECT lf_obj.
    CALL METHOD ycl_ab_amdp_stu=>fetch_data
      EXPORTING
        stu_bra = p_branch
      IMPORTING
        lt_data = data(lt_stu).
    cl_demo_output=>display_data( name = 'Student Details' value = lt_stu ).


Table data.


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