The following code demonstrates how to add user defined push buttons to the application toolbar of a standard report selection screen.
*&----------------------------------------------------------* *& Report ZSSCRAPPBUT * *& * *&----------------------------------------------------------* *& Adds buttons to application toolbar of selection screen.* *&----------------------------------------------------------* REPORT zsscrappbut NO STANDARD PAGE HEADING. TABLES: t030, skat, sscrfields. SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001. SELECT-OPTIONS: p_ktopl FOR t030-ktopl, p_komok FOR t030-komok, p_ktosl FOR t030-ktosl. SELECTION-SCREEN SKIP. * Add button to application toolbar SELECTION-SCREEN FUNCTION KEY 1. "Will have a function code of 'FC01' SELECTION-SCREEN FUNCTION KEY 2. "Will have a function code of 'FC02' * ..... SELECTION-SCREEN END OF BLOCK block1. ************************************************************************ *INITIALIZATION. INITIALIZATION. * Add displayed text string to buttons MOVE 'Application button' to SSCRFIELDS-FUNCTXT_01. MOVE 'Excecute report ????' to SSCRFIELDS-FUNCTXT_02. * ..... ************************************************************************ *AT SELECTION-SCREEN. AT SELECTION-SCREEN. if sscrfields-ucomm = 'FC01'. break-point. elseif sscrfields-ucomm = 'FC02'. break-point. endif.