POPUP to display internal table using 'REUSE_ALV_POPUP_TO_SELECT'

 

*&---------------------------------------------------------------------*
*& Report ZTEST_POPUP2
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ztest_popup2.

PARAMETERS:a TYPE i,
           b TYPE i.
DATA:c TYPE i.


TYPES:BEGIN OF ty_final,
        lv_text1 TYPE char300,
      END OF ty_final.

DATA:lt_text TYPE TABLE OF ty_final,
     ls_text TYPE ty_final,
     lt_fcat TYPE TABLE OF slis_fieldcat_alv,
     ls_fcat TYPE slis_fieldcat_alv.

DATA:it_ex TYPE TABLE OF slis_extab,
     is_ex TYPE slis_extab.

ls_text-lv_text1  = 'Is it OK to proceed?'.
APPEND ls_text TO lt_text.
CLEAR:ls_text.

CONCATENATE 'Date:' sy-datum INTO ls_text-lv_text1.
APPEND ls_text TO lt_text.
CLEAR:ls_text.


ls_fcat-fieldname = 'LV_TEXT1'.
ls_fcat-tabname = 'LT_TEXT'.
ls_fcat-seltext_m = 'Details of Warning'.
ls_fcat-outputlen = '100'.
APPEND ls_fcat TO lt_fcat.
CLEAR:ls_fcat.

is_ex-fcode = '&ETA'.
APPEND is_ex TO it_ex.
CLEAR:ls_ex.

is_ex-fcode = '&OUP'.
APPEND is_ex TO it_ex.

is_ex-fcode = '&ODN'.
APPEND is_ex TO it_ex.
CLEAR:ls_ex.

is_ex-fcode = '%SC'.
APPEND is_ex TO it_ex.
CLEAR:ls_ex.

is_ex-fcode = '%SC+'.
APPEND is_ex TO it_ex.
CLEAR:ls_ex.

is_ex-fcode = '&ILT'.
APPEND is_ex TO it_ex.
CLEAR:ls_ex.

*IS_EX-fcode = '&OL0'.
*APPEND IS_EX TO IT_EX.

*IS_EX-fcode = '&AC1'.
*APPEND IS_EX TO IT_EX.

DATA:e_exit TYPE char1.

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
  EXPORTING
    i_title                 = 'Warning'
*   I_SELECTION             = 'X'
    i_allow_no_selection    = 'X'
*   I_ZEBRA                 = ' '
    i_screen_start_column   = 5
    i_screen_start_line     = 5
    i_screen_end_column     = 80
    i_screen_end_line       = 10
*   I_CHECKBOX_FIELDNAME    =
*   I_LINEMARK_FIELDNAME    =
*   I_SCROLL_TO_SEL_LINE    = 'X'
    i_tabname               = 'LT_TEXT'
*   I_STRUCTURE_NAME        = ty_final
    it_fieldcat             = lt_fcat
    it_excluding            = it_ex
    i_callback_program      = sy-repid
*    i_callback_user_command = 
*   IS_PRIVATE              =
  IMPORTING
*   ES_SELFIELD             =
    e_exit                  = e_exit
  TABLES
    t_outtab                = lt_text
  EXCEPTIONS
    program_error           = 1
    OTHERS                  = 2.

IF NOT e_exit IS INITIAL.
  EXIT.
ENDIF.
c = a + b.
WRITE c.

Output:

 

 

 

 

 

Comments

Post a Comment

Popular posts from this blog

Passing Dynamic Variables to SO10 TEXT

REPORT  ZTEST_POPUP . PARAMETERS : A  TYPE  i ,  B  TYPE  i . DATA:  C TYPE  i ,       lv_text  TYPE  string , C  =  A + B .   data : it_final  TYPE  TABLE  OF  tline . DATA : CHANGED  TYPE  STRING . CALL  FUNCTION  'READ_TEXT'    EXPORTING     CLIENT                         =  SY - MANDT      id                             =  'ST'      language                       =  SY - LANGU  ...
Read more

Implicit Enhancement with Example

    Implicit Enhancement : Implicit point is available at the starting or at the last of the Program,Sub routines, Function Modules etc. We will create the Implicit Implementation using those points  Example:  Changing the Title of the Presentation Layer while using the Function Module 'F4_FILENAME'. 1.Go to T-code 'SE37'. 2.Execute the FM 'F4_FILENAME'.   Now the title is 'File Select.'. We are changing this title to 'Choose file'.  3.The Title is coming from the FM 'WS_FILENAME_GET'. Steps to create Implicit Enhancement: 1.Go to T-code 'SE37'. 2.Enter FM ' WS_FILENAME_GET'. 3.Click on 'Display'. 4.click on 'Edit'. 5.Click on 'Enhancement Operations'.  6.Click on 'Show Implicit Enhancement Options'.   7.Click on the 'Enhance' Icon.  8.Right click on the implicit points (""""""""""""""""""...
Read more

TMG Events

Image
In SAP ABAP, TMG (Table Maintenance Generator) events are used to customize the behavior of table maintenance dialogs generated by the Table Maintenance Generator. The Table Maintenance Generator is a tool provided by SAP that allows developers to create basic maintenance screens for database tables without having to write extensive ABAP code. TMG events are predefined function modules that are called at specific points during the execution of the table maintenance dialog. These events provide developers with hooks to add custom logic or validations to the standard table maintenance process without modifying the generated code. Some common TMG events in SAP ABAP include: BEFORE OUTPUT: This event is triggered before the maintenance screen is displayed. Developers can use this event to modify the screen layout or initialize screen fields. AFTER INPUT: This event is triggered after the user enters data on the maintenance screen and clicks the save button. Developers can ...
Read more