version 0.1(调用自己)
REPORT ZLTEST01 message-id ztest.
data:
lw_answer type c,
lw_ltextline1 type char128 value 'redo again or not?',
lw_title type char128 value 'redo or not'.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
* DEFAULTOPTION = 'Y'
TEXTLINE1 = lw_ltextline1
* TEXTLINE2 = ' '
TITEL = lw_title
* START_COLUMN = 25
* START_ROW = 6
* CANCEL_DISPLAY = 'X'
IMPORTING
ANSWER = lw_answer.
if lw_answer = 'J'. " YES
submit ZLTEST01. "调用本程序自己
* WRITE: 'REDO'.
ELSEIF LW_ANSWER = 'N'. "NOT
WRITE: 'NOT REDO'.
elseif lw_answer = 'A'. "CANCEL
WRITE: 'CANCAL'.
ENDIF.
version 0.2 （调用自己，并且经过选择屏幕，并且传递上次选择画面的值）
REPORT ZLTEST01.
data:
lw_answer type c,
lw_ltextline1 type char128 value 'redo again or not?',
lw_title type char128 value 'redo or not'.
PARAMETERS P_BUKRS TYPE T001-BUKRS.
START-OF-SELECTION.
DATA LW_BUKRS TYPE T001-BUKRS .
LW_BUKRS = P_BUKRS.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
* DEFAULTOPTION = 'Y'
TEXTLINE1 = lw_ltextline1
* TEXTLINE2 = ' '
TITEL = lw_title
* START_COLUMN = 25
* START_ROW = 6
* CANCEL_DISPLAY = 'X'
IMPORTING
ANSWER = lw_answer.
if lw_answer = 'J'. " YES
submit ZLTEST01 VIA SELECTION-SCREEN WITH P_BUKRS = LW_BUKRS.
* WRITE: 'REDO'.
ELSEIF LW_ANSWER = 'N'. "NOT
WRITE: 'NOT REDO'.
elseif lw_answer = 'A'. "CANCEL
WRITE: 'CANCAL'.
ENDIF.