1.在屏幕上定义一个edittext,长度为8,类型为char.
2.逻辑流如下:
process on value-request. "表示以下字段具有F4事件
field time1 module choose_time1.
3.主程序如下:
data time1(8) type c.
call screen 100.
*&---------------------------------------------------------------------*
*& Module CHOOSE_TIME1 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module choose_time1 input.
call function 'HELP_VALUES_GET'
exporting
fieldname = 'LASTSTRTTM'
tabname = 'BTCH1010'
importing
select_value = time1.
endmodule. " CHOOSE_TIME1 INPUT
评论