定义可调用的选择屏幕:
SELECTION-SCREENBEGINOFSCREEN700.SELECT-OPTIONS:S_CPTNRFOR
ZTMM0141-CPTNR,S_MAKTXFORZTMM0141-MAKTX.
SELECTION-SCREENENDOFSCREEN700.
调用选择屏幕:CALLSELECTION-SCREEN700STARTINGAT152ENDINGAT1004.
捕捉选择屏幕的操作:
*----------------------------------------------------------------------*
*ATSELECTION-SCREENOUTPUT.
*在屏幕输出之前处理*
. 调用子例程执行相关操作ENDIF.WHEN'0800'.IFSY-UCOMM='CRET'.PERFORMFRM_DISPLAY_HISTORYUSING2.ENDIF.WHEN'0900'.IFSY-UCOMM='CRET'.PERFORMFRM_DISPLAY_HISTORYUSING3.ENDIF.ENDCASE.