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 .