多樣式的用戶交互對話框

SELECTION-SCREEN: BEGIN OF BLOCK DIALOG WITH FRAME TITLE TEXT-001.
PARAMETERS: P1 RADIOBUTTON GROUP GRP1 DEFAULT 'X',
            P2 RADIOBUTTON GROUP GRP1,
            P3 RADIOBUTTON GROUP GRP1,
            P4 RADIOBUTTON GROUP GRP1,
            P5 RADIOBUTTON GROUP GRP1,
            P6 RADIOBUTTON GROUP GRP1,
            P7 RADIOBUTTON GROUP GRP1,
            P8 RADIOBUTTON GROUP GRP1,
            P9 RADIOBUTTON GROUP GRP1.
SELECTION-SCREEN: END OF BLOCK DIALOG.

DATA: ANSWER TYPE C.

AT SELECTION-SCREEN.

  IF P1 = 'X'.
    CALL FUNCTION 'POPUP_TO_CONFIRM_LOSS_OF_DATA'
      EXPORTING
        TEXTLINE1    = 'LINE1'
        TEXTLINE2    = 'LINE2'
        TITEL        = 'POPUP_TO_CONFIRM_LOSS_OF_DATA'
        START_COLUMN = 25
        START_ROW    = 6
      IMPORTING
        ANSWER       = ANSWER.
  ENDIF.

  IF P2 = 'X'.
    CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
      EXPORTING
        TEXTLINE1      = 'LINE1'
        TEXTLINE2      = 'LINE1'
        TITEL          = 'POPUP_TO_CONFIRM_STEP'
        CANCEL_DISPLAY = 'X'
      IMPORTING
        ANSWER         = ANSWER.
  ENDIF.

  IF P3 = 'X'.
    CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
      EXPORTING
        DIAGNOSETEXT1 = 'SETEXT1'
        TEXTLINE1     = 'LINE1'
        TITEL         = 'POPUP_TO_CONFIRM_WITH_MESSAGE'.
  ENDIF.

  IF P4 = 'X'.
    CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_VALUE'
      EXPORTING
        OBJECTVALUE = 'POPUP_TO_CONFIRM_WITH_VALUE'
        TEXT_BEFORE = 'POPUP_TO_CONFIRM_WITH_VALUE'
        TITEL       = 'POPUP_TO_CONFIRM_WITH_VALUE'.
  ENDIF.

  IF P5 = 'X'.
    CALL FUNCTION 'POPUP_TO_DECIDE'
      EXPORTING
        TEXTLINE1    = 'TEXTLINE1'
        TEXT_OPTION1 = 'TEXT_OPTION1'
        TEXT_OPTION2 = 'TEXT_OPTION2'
        TITEL        = 'POPUP_TO_DECIDE'.
  ENDIF.

  IF P6 = 'X'.
    CALL FUNCTION 'POPUP_TO_DECIDE_WITH_MESSAGE'
      EXPORTING
        DIAGNOSETEXT1 = 'DIAGNOSETEXT1'
        TEXTLINE1     = 'TEXTLINE1'
        TEXT_OPTION1  = 'TEXT_OPTION1'
        TEXT_OPTION2  = 'TEXT_OPTION2'
        TITEL         = 'POPUP_TO_DECIDE_WITH_MESSAGE'
      IMPORTING
        ANSWER        = ANSWER.
  ENDIF.

  IF P7 = 'X'.
    CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
      EXPORTING
        TITEL     = 'POPUP_TO_DISPLAY_TEXT'
        TEXTLINE1 = 'TEXTLINE1'.
  ENDIF.

  IF P8 = 'X'.
    CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
      EXPORTING
        ACTUAL_MONTH = '200907'.
  ENDIF.

  IF P9 = 'X'.
    DATA: BEGIN OF ZLURL OCCURS 0,
           URL LIKE SCARR-URL,
          END OF ZLURL.
    DATA: RES TYPE I.
    SELECT *
     FROM SCARR
      INTO CORRESPONDING FIELDS OF TABLE ZLURL.
    CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
      EXPORTING
        ENDPOS_COL   = 50
        ENDPOS_ROW   = 10
        STARTPOS_COL = 20
        STARTPOS_ROW = 1
        TITLETEXT    = 'POPUP_WITH_TABLE_DISPLAY'
      IMPORTING
        CHOISE       = RES
      TABLES
        VALUETAB     = ZLURL.
  ENDIF.