abap 在屏幕如何调用选择屏幕以及如何获得选择屏幕的操作

转载自：http://blog.csdn.net/f122300349/article/details/5516405

在自定义屏幕如何调用选择屏幕呢，通过选择屏幕输入查询条件，然后进行相关的操作。在这里有两个技术难点：
1、如何定义可以调用的选择屏幕、调用选择屏幕；
2、如何捕捉到选择屏幕的操作、选择屏幕的屏幕号；


定义可调用的选择屏幕：
SELECTION-SCREEN  BEGIN  OF  SCREEN  700 .
SELECT -OPTIONS: S_CPTNR FOR  ZTMM0141-CPTNR,
S_MAKTX FOR  ZTMM0141-MAKTX.
SELECTION-SCREEN  END    OF  SCREEN  700 .


调用选择屏幕：
CALL  SELECTION-SCREEN 700  STARTING  AT  15  2  ENDING AT  100  4 .


捕捉选择屏幕的操作：
*----------------------------------------------------------------------* 
*  AT SELECTION-SCREEN OUTPUT. 
*  在屏幕输出之前处理 
* 
*----------------------------------------------------------------------* 
AT  SELECTION-SCREEN .
CASE  SY-DYNNR.                   “对应的是屏幕编号
WHEN  '0700' .
IF  SY-UCOMM = 'CRET' .        “对应的是执行的功能码
PERFORM  FRM_DISPLAY_HISTORY USING  1 .   “调用子例程执行相关操作
ENDIF .
WHEN  '0800' .
IF  SY-UCOMM = 'CRET' .
PERFORM  FRM_DISPLAY_HISTORY USING  2 .
ENDIF .
WHEN  '0900' .
IF  SY-UCOMM = 'CRET' .
PERFORM  FRM_DISPLAY_HISTORY USING  3 .
ENDIF .
ENDCASE .