Exploring ABAP Classical Report Events: Start Of Selection, End Of Selection, Top of Page, and End of Page

 Welcome back everyone, We have started Classical report events in the last blog. so, Let’s continue it.

3. Start Of Selection

  • This event calls when user clicks execute button on the selection screen.
  • The selection logic is the part of this event.

Let’s create a type structure for our header table in our program, which we have seen in the last blog.



Implementation :-



Note :- Please go to the debug mode and check which events are triggering at what time, It will help everyone to understand the entire concept.

Code :-

***********************************************
*Start of Program
***********************************************
*Declaring type strcuture
TYPES: BEGIN OF ty_header,
         order_number TYPE zar_order_number,
         order_date   TYPE zar_order_date,
         payment_mode TYPE zar_payment_mode,
         currency     TYPE zar_curency,
       END OF ty_header.
****************
*Internal Table and Work Area
DATA : lt_header type table of ty_header,
       ls_header type ty_header.
****************************************
DATA : lv_pm   TYPE zar_payment_mode,
       lv_curr TYPE zar_curency,
       lv_date TYPE zar_order_date.

SELECT-OPTIONS : s_odate FOR lv_date NO-EXTENSION.
SELECT-OPTIONS : s_pm FOR lv_pm NO INTERVALS.
SELECT-OPTIONS : s_curr FOR lv_curr NO INTERVALS.

****************************
*Initializaton Events.
INITIALIZATION.
*****************
*For Date
  s_odate-sign = 'I'.
  s_odate-option = 'BT'.
  s_odate-low = sy-datum - 100.
  s_odate-high = sy-datum.
  APPEND s_odate.

********
*For Payement Mode
*  s_pm-low = 'C'.
*  APPEND s_pm.

***************
*Currency
  s_curr-low = 'INR'.
  APPEND s_curr.

***********************************
*At Selection Screen
AT SELECTION-SCREEN.
  IF s_pm-low IS INITIAL.
    IF s_pm-low <> 'C'.
      MESSAGE 'Payment mode is not entered' TYPE 'E'.
    ENDIF.
  ENDIF.

**********************************
*Start Of Selection.
START-OF-SELECTION.
Select ORDER_NUMBER ORDER_DATE PAYMENT_MODE CURRENCY
  from ZAR_HEADER
  into TABLE lt_header
  where currency in s_curr.

***********************************
*Displaying data
LOOP at lt_header into ls_header.
  WRITE :/ ls_header-ORDER_NUMBER,
           ls_header-ORDER_DATE,
           ls_header-PAYMENT_MODE,
           ls_header-CURRENCY.

ENDLOOP.
*****************************************
*End OF Program
****************************************

Input Screen :-



Output Screen :-



4. End Of Selection :-

  • When our Selection Process ends, SAP automatically call the event End of Selection.
  • This event calls when selection process ends.
  • This event helps to identify the end of data/records.

Implementation :-





Code :-

***********************************************
*Start of Program
***********************************************
*Declaring type strcuture
TYPES: BEGIN OF ty_header,
         order_number TYPE zar_order_number,
         order_date   TYPE zar_order_date,
         payment_mode TYPE zar_payment_mode,
         currency     TYPE zar_curency,
       END OF ty_header.
****************
*Internal Table and Work Area
DATA : lt_header type table of ty_header,
       ls_header type ty_header.
****************************************
DATA : lv_pm   TYPE zar_payment_mode,
       lv_curr TYPE zar_curency,
       lv_date TYPE zar_order_date.

SELECT-OPTIONS : s_odate FOR lv_date NO-EXTENSION.
SELECT-OPTIONS : s_pm FOR lv_pm NO INTERVALS.
SELECT-OPTIONS : s_curr FOR lv_curr NO INTERVALS.

****************************
*Initializaton Events.
INITIALIZATION.
*****************
*For Date
  s_odate-sign = 'I'.
  s_odate-option = 'BT'.
  s_odate-low = sy-datum - 100.
  s_odate-high = sy-datum.
  APPEND s_odate.

********
*For Payement Mode
*  s_pm-low = 'C'.
*  APPEND s_pm.

***************
*Currency
  s_curr-low = 'INR'.
  APPEND s_curr.

***********************************
*At Selection Screen
AT SELECTION-SCREEN.
  IF s_pm-low IS INITIAL.
    IF s_pm-low <> 'C'.
      MESSAGE 'Payment mode is not entered' TYPE 'E'.
    ENDIF.
  ENDIF.

**********************************
*Start Of Selection.
START-OF-SELECTION.
Select ORDER_NUMBER ORDER_DATE PAYMENT_MODE CURRENCY
  from ZAR_HEADER
  into TABLE lt_header
  where currency in s_curr.

***********************************
*Displaying data
LOOP at lt_header into ls_header.
  WRITE :/ ls_header-ORDER_NUMBER,
           ls_header-ORDER_DATE,
           ls_header-PAYMENT_MODE,
           ls_header-CURRENCY.

ENDLOOP.

*******************************
*End of Selection.
END-OF-SELECTION.
WRITE :/ TEXT-001.
*****************************************
*End OF Program
****************************************

Output :-



5. Top of Page :-

  • TOP-OF-PAGE event calls when the first write statement occurs in a program.
  • The purpose of this event is to provide title/header of a new page.

Implementation :-





Code :-

***********************************************
*Start of Program
***********************************************
*Declaring type strcuture
TYPES: BEGIN OF ty_header,
         order_number TYPE zar_order_number,
         order_date   TYPE zar_order_date,
         payment_mode TYPE zar_payment_mode,
         currency     TYPE zar_curency,
       END OF ty_header.
****************
*Internal Table and Work Area
DATA : lt_header type table of ty_header,
       ls_header type ty_header.
****************************************
DATA : lv_pm   TYPE zar_payment_mode,
       lv_curr TYPE zar_curency,
       lv_date TYPE zar_order_date.

SELECT-OPTIONS : s_odate FOR lv_date NO-EXTENSION.
SELECT-OPTIONS : s_pm FOR lv_pm NO INTERVALS.
SELECT-OPTIONS : s_curr FOR lv_curr NO INTERVALS.

****************************
*Initializaton Events.
INITIALIZATION.
*****************
*For Date
  s_odate-sign = 'I'.
  s_odate-option = 'BT'.
  s_odate-low = sy-datum - 100.
  s_odate-high = sy-datum.
  APPEND s_odate.

********
*For Payement Mode
*  s_pm-low = 'C'.
*  APPEND s_pm.

***************
*Currency
  s_curr-low = 'INR'.
  APPEND s_curr.

***********************************
*At Selection Screen
AT SELECTION-SCREEN.
  IF s_pm-low IS INITIAL.
    IF s_pm-low <> 'C'.
      MESSAGE 'Payment mode is not entered' TYPE 'E'.
    ENDIF.
  ENDIF.

**********************************
*Start Of Selection.
START-OF-SELECTION.
Select ORDER_NUMBER ORDER_DATE PAYMENT_MODE CURRENCY
  from ZAR_HEADER
  into TABLE lt_header
  where currency in s_curr.

***********************************
*Displaying data
LOOP at lt_header into ls_header.
  WRITE :/ ls_header-ORDER_NUMBER,
           ls_header-ORDER_DATE,
           ls_header-PAYMENT_MODE,
           ls_header-CURRENCY.

ENDLOOP.

*******************************
*End of Selection.
END-OF-SELECTION.
WRITE :/ TEXT-001.

***********************************
*Top of Page
TOP-OF-PAGE.
WRITE :/ TEXT-002, sy-pagno.
*****************************************
*End OF Program
****************************************

Output :-



6. End of Page :-

  • END-OF-PAGE event calls when the last WRITE statement occurs in a program for a page.
  • The purpose of this event is to provide footer or some information at the beginning of a new page.
  • For end of page event to trigger, we need to provide the line count.
  • Example :- LINE COUNT 5(2), It means the total number of lines on a page is 5 and out of that 3 are reserved for end of page.

Implementation :-




  • If there are 10 lines, in a page then last 2 lines will be reserved for end of page.

Code :-

REPORT zar_classical_events LINE-COUNT 10(2).
***********************************************
*Start of Program
***********************************************
*Declaring type strcuture
TYPES: BEGIN OF ty_header,
         order_number TYPE zar_order_number,
         order_date   TYPE zar_order_date,
         payment_mode TYPE zar_payment_mode,
         currency     TYPE zar_curency,
       END OF ty_header.
****************
*Internal Table and Work Area
DATA : lt_header type table of ty_header,
       ls_header type ty_header.
****************************************
DATA : lv_pm   TYPE zar_payment_mode,
       lv_curr TYPE zar_curency,
       lv_date TYPE zar_order_date.

SELECT-OPTIONS : s_odate FOR lv_date NO-EXTENSION.
SELECT-OPTIONS : s_pm FOR lv_pm NO INTERVALS.
SELECT-OPTIONS : s_curr FOR lv_curr NO INTERVALS.

****************************
*Initializaton Events.
INITIALIZATION.
*****************
*For Date
  s_odate-sign = 'I'.
  s_odate-option = 'BT'.
  s_odate-low = sy-datum - 100.
  s_odate-high = sy-datum.
  APPEND s_odate.

********
*For Payement Mode
*  s_pm-low = 'C'.
*  APPEND s_pm.

***************
*Currency
  s_curr-low = 'INR'.
  APPEND s_curr.

***********************************
*At Selection Screen
AT SELECTION-SCREEN.
  IF s_pm-low IS INITIAL.
    IF s_pm-low <> 'C'.
      MESSAGE 'Payment mode is not entered' TYPE 'E'.
    ENDIF.
  ENDIF.

**********************************
*Start Of Selection.
START-OF-SELECTION.
Select ORDER_NUMBER ORDER_DATE PAYMENT_MODE CURRENCY
  from ZAR_HEADER
  into TABLE lt_header
  where currency in s_curr.

***********************************
*Displaying data
LOOP at lt_header into ls_header.
  WRITE :/ ls_header-ORDER_NUMBER,
           ls_header-ORDER_DATE,
           ls_header-PAYMENT_MODE,
           ls_header-CURRENCY.

ENDLOOP.

*******************************
*End of Selection.
END-OF-SELECTION.
WRITE :/ TEXT-001.

***********************************
*Top of Page
TOP-OF-PAGE.
WRITE :/ TEXT-002, sy-pagno.

*************************************
*End of Page
END-OF-PAGE.
WRITE :/ 'END Of page Number', sy-pagno.
*****************************************
*End OF Program
****************************************

Output :-



  • In the output we can see our first page is only of 8 lines and rest ones have been transferred to the second page.
  • Also for the first page last 2 lines have been used for End of Page event.

So, that’s enough for today.

We will continue the rest part tomorrow

Location: India

Comments

Post a Comment

Popular posts from this blog

Understanding Different Types of SAP Function Modules: Normal, RFC, and Update

Image
  1. Normal/Regular Function Module :- It can be called inside the system. Here Pass by value + Pass by reference both is fine. 2. RFC Function Modules :- You can call from same system or from another possible. In RFC function module you can only have pass by value. In the same system if you are going to add the DESTINATION NONE’ while calling the RFC then it’ll be called in separate session. 3. UPDATE Function Modules :- This is generally used to update the database record. Update Function Module can be called from the same system. ( Background RFC / trfc / grfc ) This is used to achieve generally the SAP LUW. Some time we use from performance perspective also. When COMMIT WORK gets executed then Update starts getting executed. Important Questions on Update Function Modules :- When Update function Module gets Triggered ? ON COMMIT WORK IF a update function module gets failed, under which transaction we can see that ? OR What is the T-Code for ...
Read more

Mastering ABAP: A Step-by-Step Guide to Function Modules and Groups for Modularized Programming

Image
  Function Modules :- It is a modularization technique. The transaction code to create a function module is SE37. To create a function module, we need to create a function group. Function Group :- Function group is a container for the function modules. The transaction code to create a function group is SE80. A function group can store up to 99 function modules. Requirement :- let’s create a function module for sum of two numbers. 1. Creation of function group :- Step 1 :- Go to SE80 transaction code → Object Navigator. Step 2 :- From the drop down select function group. Step 3 :- Give a name of function group. Step 4 :- press enter. Step 5 :- Click on yes a popup screen will appear. Step 6 :- Give short description → press enter → Assign package and transaction request and press enter. Step 7 :- Right click on function group and click on activate to activate the function group. Step 8 :- You will see two includes, will be added afte...
Read more

Introduction to SAP

Image
  1. ERP :- Enterprise Resource Planning The purpose of ERP software is to manage the entire organization. 2. SAP :- System Application and Products in real time data processing 3. History of SAP :- SAP was introduced by SAP AG in 1972 at Walldorf. ( Germany ). SAP is a German based product. 4. Features of SAP :- It is an integration of all functions in to one common software. It is available in more than 40 language across the world. It is a user-based license agreement. ( requires user name and password ). 5. SAP R/3 Architecture :- ( 3 - 3 tier architecture , R - Real ) - SAP is a real time architecture. Layers in SAP Architecture :- Presentation Layer ( User Interaction Layer ) Application Layer ( Writing the programs and applications ) Database Layer ( To store and retrieve the data ). 6. SAP NetWeaver :- SAP NetWeaver (NW) is an integrated technology platform which can support various SAP applications. Examples :- SAP ERP ( Enterpr...
Read more