Classical report example in ABAP

It's nothing but to display the entire information in a single list.

INITIALIZATION:  It's an event which is triggered before displaying the selection-screen.

    ADV: - it's used to provide the default values to the selection-screen.

AT SELECTION-SCREEN: It's an event which is triggered after providing the input to the screen & before leaving the selection-screen.

    ADV: - This is used to validate the given input.

START-OF-SELECTION: It's an event which is triggered after leaving the selection-screen & before display the output.

ADV: - This is used to fetch the data from data base & place into internal table.

END-OF-SELECTION:  It's an event which is triggered after completion of the logic.

    ADV: - This is used to display the output.

TOP-OF-PAGE:  It's an event which is triggered at the top of each page.

    ADV: - It's used to display the header information.

END-OF-PAGE:  It's an event which is triggered at the end of each page.

    ADV: - It's used to display the footer information.

Step 1: Goto SE38.

Step 2: Give report name and click on create.

Step 3: Give description and select type.

Step 4: Write code.

*&---------------------------------------------------------------------*
*& Report ZR_AB_CLASSICAL_REPORT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zr_ab_classical_report.
DATA: l_banfn  TYPE banfn,
      l_header TYPE string,
      l_footer TYPE string.
SELECT-OPTIONS : s_banfn FOR l_banfn.

INITIALIZATION.
  l_header = 'PR DETAILS'.
  l_footer = 'Thank you'.

AT SELECTION-SCREEN.
  IF s_banfn IS INITIAL.
    MESSAGE 'Please enter PR' TYPE 'E' DISPLAY LIKE 'E'.
  ENDIF.

* Event: START-OF-SELECTION
START-OF-SELECTION.
  SELECT banfn,
          bnfpo,
          bsart,
          txz01,
          matnr,
          matkl
  FROM eban
  INTO TABLE @DATA(l_t_eban)
  WHERE banfn IN @s_banfn.

END-OF-SELECTION.
  LOOP AT l_t_eban INTO DATA(l_r_eban).
    WRITE : / l_r_eban-banfn,l_r_eban-bnfpo,
              l_r_eban-bsart,l_r_eban-matnr,
              l_r_eban-matkl,l_r_eban-txz01.
  ENDLOOP.

TOP-OF-PAGE.
  WRITE: / l_header  COLOR 1.

END-OF-PAGE.
  WRITE: l_footer COLOR 2.

Testing

Case 1: No input in selection screen.


Case 2: Give input in selection screen.

******************************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