原帖：http://blog.itpub.net/634491/viewspace-151161
我们都用过选择屏幕和标准屏幕，应该都有想过在标准屏幕上使用选择屏幕的功能吧？如果自己在标准屏幕上实现像选择屏幕上那样的输入功能太麻烦了。其实我们可以把选择屏幕放到标准屏幕上去，这样很方便就能实现我们想要的功能了。 首先，要声明一个SUBSCREEN类型的选择屏幕，这个很重要。 SELECTION-SCREEN BEGIN OF SCRENN 1001 AS SUBSCREEN. SELECT-OPTIONS: p_matnr FOR mara-matnr. SELECTION-SCREEN END OF SCREEN 1001. 然后，创建一个标准屏幕，并在屏幕上放置一个子屏幕区域（Subscreen Area），命名为subsel(可以自行命名）。然后在标准屏幕的PBO中添加一行代码 CALL SUBSCREEN subsel INCLUDING sy-repid subscr. 在PAI中添加一行代码 CALL SUBSCRENN subsel. 在这里要注意：在PBO中CALL SUBSCREEN语句最后的选择屏幕号一定要使用变量，不能直接输入屏幕编号，否则会出现错误。 CALL SUBSCREEN subsel INCLUDING sy-repid '1001'. "这样是会出错的 定义一个变量，设定值为选择屏幕的编号就可以了。 DATA: subscr TYPE sy-dynnr VALUE '1001'. 定义为SUBSCREEN的选择屏幕，所有发生的操作，都会在标准屏幕的PAI中那行CALL SUBSCREEN subsel时传回到选择屏幕的事件处理程序中，在选择屏幕上输入的值也会传递到相应的屏幕参数，但是定义为SUBSCREEN的选择屏幕，不会产生 START-OF-SELECTION事件，只会产生AT SELECTION-SCREEN事件，可以在AT SELECTION-SCREEN事件中进行处理。 AT SELECTION-SCREEN. IF sy-dynnr = '1001'. "处理语句 ENDIF. 其他AT SELECTION-SCREEN事件也能被处理，如AT SELECTION-SCREEN OUTPUT等。
