一个程序有多个选择屏幕以及一个程序调用多个程序

1、一个程序有多个选择屏幕（选择了这一屏，然后跳入下一屏，选择不同的变量有不同的初始化，有不同的屏幕出现）： ZD_EM1_PRICECOND





其实原理很简单：

1）首先建立几个SELECTION-SCREEN BEGIN OF BLOCK：

SELECTION-SCREEN BEGIN OF BLOCK con WITH FRAME TITLE text-001.

PARAMETERS: p_ybp0 RADIOBUTTON GROUP grp1.

SELECTION-SCREEN COMMENT (40) text-025 FOR FIELD p_ybp0.
这是给选择点加上文字说明

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: p_ybd1 RADIOBUTTON GROUP grp1.

SELECTION-SCREEN COMMENT (40) text-026 FOR FIELD p_ybd1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN END OF BLOCK con.

选择屏幕1802

SELECTION-SCREEN BEGIN OF SCREEN 1802 TITLE text-023.

SELECTION-SCREEN END OF SCREEN 1802.

选择屏幕1803

SELECTION-SCREEN BEGIN OF SCREEN 1802 TITLE text-023.

SELECTION-SCREEN END OF SCREEN 1802.

2）上面建立的是第一个屏幕，然后根据第一个屏幕的变量P_YBP0/P_YBP1的选择，作一个if条件的判断，看是进入那个选择屏幕。

START-OF-SELECTION.

IF p_ybp0 = 'X'.

CALL SELECTION-SCREEN 1802.

SET PF-STATUS '1802'.

SET TITLEBAR '000'.

MOVE sy-ucomm TO ok_code.

CASE ok_code.

WHEN 'BACK'. "1

LEAVE PROGRAM.

WHEN OTHERS.

ENDCASE.

IF p_rou02 = 'X' OR p_rou01 = 'X'.

p_round = 'X'.

ENDIF.

ENDIF.

然后就是下一个屏幕的条件判断。同上面一样的处理。

2、一个程序调用其它多个程序，利用button： ZGL_GTS_TRANSFER



首先对选择屏幕定义两个button：

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.

SELECTION-SCREEN SKIP 3.

SELECTION-SCREEN:

BEGIN OF LINE,

PUSHBUTTON 20(20) TEXT-A01 USER-COMMAND BILL,

END OF LINE.

SELECTION-SCREEN SKIP 3.

SELECTION-SCREEN:

BEGIN OF LINE,

PUSHBUTTON 20(20) TEXT-A02 USER-COMMAND IDLV,

END OF LINE.

SELECTION-SCREEN SKIP 3.

SELECTION-SCREEN END OF BLOCK B1.

CASE SSCRFIELDS.

WHEN 'BILL'.

SUBMIT 调用的程序名 VIA SELECTION-SCREEN AND RETURN.

WHEN 'IDLV'.

SUBMIT 调用的程序名 VIA SELECTION-SCREEN AND RETURN.

ENDCASE.

只需要上述代码即可完成。