1. 对“选择屏幕字段”进行分组
SELECTION-SCREEN BEGIN OF BLOCK bk2 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS: s_kschl FOR rv13a-kschl MODIF ID bk2.
SELECT-OPTIONS: s_vtweg FOR komg-vtweg MODIF ID bk2.
SELECT-OPTIONS: s_matnr FOR komg-matnr MODIF ID bk2.
PARAMETERS: p_datab TYPE rv13a-datab OBLIGATORY MODIF ID bk2.
SELECTION-SCREEN END OF BLOCK bk2 .
通过组ID进行相关操作
CASE 'X'.
WHEN p_1.
LOOP AT SCREEN.
IF screen-group1 = 'BK2'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
WHEN p_2.
LOOP AT SCREEN.
IF screen-group1 = 'BK1'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
WHEN OTHERS.
ENDCASE.
2. 分配搜索帮助到选择屏幕字段
SELECT-OPTIONS: S_VKBUR FOR VBAK-VKBUR.
SELECT-OPTIONS: S_VKGRP FOR VBAK-VKGRP.
SELECT-OPTIONS: S_VKGRP1 FOR VBAK-ZZVKGRP1 MATCHCODE OBJECT ZSD_ZZVKGRP1.
SELECT-OPTIONS: S_VKGRP2 FOR VBAK-ZZVKGRP2 MATCHCODE OBJECT ZSD_ZZVKGRP2.