POPUP using Function Module POPUP_TO_CONFIRM

 

*&---------------------------------------------------------------------*
*& Report ZTEST_POPUP_TO_CON
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_POPUP_TO_CON.
data:ANS TYPE CHAR1,
      IT_LINES TYPE TABLE OF TLINE.
CALL FUNCTION 'POPUP_TO_CONFIRM'
  EXPORTING
   TITLEBAR                    'Warning'
*   DIAGNOSE_OBJECT             = ' '
    text_question               'Is it ok to proceed?'
   TEXT_BUTTON_1               'Yes'(001)
   ICON_BUTTON_1               'ICON_CHECKED'
   TEXT_BUTTON_2               'No'(002)
   ICON_BUTTON_2               'ICON_CANCEL'
   DEFAULT_BUTTON              '1'
   DISPLAY_CANCEL_BUTTON       ' '
   POPUP_TYPE                  'ICON_MESSAGE_WARNING'
 IMPORTING
   ANSWER                      ans
 EXCEPTIONS
   TEXT_NOT_FOUND              1
   OTHERS                      2
          .
IF ANS 2.
    LEAVE TO SCREEN 0.  "Return
  ENDIF.

WRITE 'hello'.

Output:

 

If 'No' return to program else print write statement.

 

  

Comments

Popular posts from this blog

Passing Dynamic Variables to SO10 TEXT

Implicit Enhancement with Example

TMG Events