选择屏幕程序语法
1. PARAMETERS(见1.6)
SSCRFIELDS选择屏幕上的字段
USER-COMMAND fcode:在使按钮能正常工作之前,必须使用TABLES sscrfields.语句来为ABAP数据词典中的SSCRFIELDS结构来定义接口工作区。当用户点击按钮后会触发AT SELECTION-SCREEN事件,并且function code fcode会存储到sscrfields-ucomm字段中。
PARAMETERS: A1(10) TYPE C,
A2 TYPE I.
WRITE: / A1,/ A2.
2.SELECT-OPTIONS
SELECT-OPTIONS selcrit FOR {dobj|(name)}
[screen_options]
[value_options]
[ldb_options].
l screen_options
...
[OBLIGATORY|NO-DISPLAY]
[VISIBLE
LENGTH vlen]
[NO-EXTENSION] “限制选择表为单行,元素输入后面不会出现按钮。
[NO
INTERVALS] ” 只会出现LOW字段,
[MODIF
ID modid] ... . 选择屏幕中的参数选项 MEMORY ID的作用就等同于对话屏幕中的SET/GET Parameter,它们是作用是相同的(都是针对SAP Memory),只不过一个用于选择屏幕中,一个用于对话屏幕。
l value_options
... [DEFAULT val1 [TO
val2] [OPTION opt] [SIGN sgn]]
[LOWER
CASE]
[MATCHCODE
OBJECT search_help]
[MEMORY
ID pid] ... .
SELECT-OPTIONS selcrit FOR {dobj|(name)}
该语句会生成一个名为selcrit选择条件内表,行结构类型如下的全局内表:
DATA:BEGIN OF selcrit OCCURS 0,
sign(1),
“sign字段是长度为1的C类型数据。它是标志位,允许值为I和E
option(2),” OPTION字段的数据类型是C,长度为2,OPTION包含选择运算符”
low LIKE mara-matnr, low字段的数据类型与f类型相同,该值为范围选择指定了下界
high LIKE mara-matnr, “HIGH字段的数据类型与f类型相同,该值为范围选择指定了上界
END OF selcrit.
语法示例:
s_werks FOR marc-werks OBLIGATORY DEFAULT 1001 to 1007 SIGN I OPTION BT
3.SELECT-SCREEN.
SELECTION-SCREEN - BEGIN OF SCREEN.
- 1. SELECTION-SCREEN BEGIN OF SCREEN
dynnr [TITLE title]
[AS WINDOW].
SELECTION-SCREEN END OF SCREEN dynnr - SELECTION-SCREEN
BEGIN OF SCREEN dynnr AS SUBSCREEN
[NO INTERVALS] 创建的框架中限制SELECT只有一个输入项
[NESTING LEVEL n]. adjust the width of the subscreen if it is to be included in a tabstrip control in one or more frames. You must specify n directly as a number between 0 and 4.
SELECTION-SCREEN END OF SCREEN dynnr.
SELECTION-SCREEN - screen_elements
1. SELECTION-SCREEN
SKIP [n]
[ldb_additions]. 空格n行
2. SELECTION-SCREEN
ULINE
[[/][pos](len)] [MODIF ID modid]
[ldb_additions]. 位置与长度,划出横线,必须用在BLOCK中才能生效
3. SELECTION-SCREEN
COMMENT
[/][pos](len)
{text|{[text] FOR FIELD sel}}
[VISIBLE LENGTH vlen]
[MODIF ID modid]
[ldb_additions].
4. SELECTION-SCREEN
PUSHBUTTON
[/][pos](len) button_text 位置与长度,名字
USER-COMMAND
ucom 指定的字符代码,当用户在选择屏幕上触发按钮时
[VISIBLE
LENGTH vlen]
[MODIF
ID modid]
[ldb_additions].
5. SELECTION-SCREEN
BEGIN OF LINE. 将所生成的屏幕元素控制在一行。
[SELECTION-SCREEN
POSITION pos [ldb_additions]]. 在BLOCK中产生空格。
SELECTION-SCREEN
END OF LINE.
6. SELECTION-SCREEN
BEGIN OF BLOCK
block
[WITH
FRAME [TITLE title]]带标题框架
[NO
INTERVALS].
SELECTION-SCREEN
END OF BLOCK block.
7. SELECTION-SCREEN
BEGIN OF TABBED BLOCK
tblock FOR n LINES.
...
SELECTION-SCREEN
TAB (len) tab USER-COMMAND ucom
[DEFAULT [PROGRAM prog] SCREEN dynnr].
...
SELECTION-SCREEN
END OF BLOCK tblock.
8. SELECTION-SCREEN
FUNCTION KEY n [ldb_additions]. the application toolbar contains five inactive pushbuttons, to which the
function codes FC01 to FC05 are
assigned. This statement activates the pushbutton of the function code FC0n, whereby a value between 1 and 5 must be entered for n.
语法示例:
示例一:
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
PARAMETERS: p1 TYPE c LENGTH 10,
p2 TYPE
c LENGTH 10,
p3 TYPE
c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 100.
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
PARAMETERS: q1 TYPE c LENGTH 10,
q2 TYPE
c LENGTH 10,
q3 TYPE
c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 200.
SELECTION-SCREEN: BEGIN OF TABBED BLOCK
mytab FOR 10 LINES,
TAB (20)
button1 USER-COMMAND push1,
TAB
(20) button2 USER-COMMAND push2,
END
OF BLOCK mytab.
INITIALIZATION.
button1 = 'Selection Screen 1'.
button2 = 'Selection Screen 2'.
mytab-prog = sy-repid.
mytab-dynnr = 100.
mytab-activetab = 'PUSH1'.
AT SELECTION-SCREEN.
CASE sy-dynnr. “当前屏幕号
WHEN 1000.
CASE sy-ucomm.
WHEN 'PUSH1'.
mytab-dynnr = 100.
WHEN 'PUSH2'.
mytab-dynnr = 200.
WHEN OTHERS.
ENDCASE.
ENDCASE.
示例二:
TYPE-POOLS icon.
TABLES sscrfields. “选择屏幕上的字段
DATA functxt TYPE smp_dyntxt. “动态文本的程序接口
PARAMETERS: p_carrid TYPE s_carr_id,
p_cityfr
TYPE s_from_cit.
SELECTION-SCREEN: FUNCTION KEY 1, “FC01
FUNCTION KEY 2. “FC02
INITIALIZATION.
functxt-icon_id = icon_ws_plane.
functxt-quickinfo = 'Preselected Carrier'.
functxt-icon_text = 'LH'.
sscrfields-functxt_01 = functxt.
functxt-icon_text = 'UA'.
sscrfields-functxt_02 = functxt.
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'FC01'.
p_carrid = 'LH'.
p_cityfr = 'Frankfurt'.
WHEN 'FC02'.
p_carrid = 'UA'.
p_cityfr = 'Chicago'.
WHEN OTHERS.
ENDCASE.
SELECTION-SCREEN INCLUDE
(调用已经存在的屏幕元素)
PARAMETERSpara
[OBLIGATORY [OFF]]
[MODIF ID modid]
[ID id].
SELECT-OPTIONS
selcrit
[OBLIGATORY [OFF]]
[NO INTERVALS [OFF]]
[NO-EXTENSIONS
[OFF]]
[MODIF ID modid]
[ID id].
COMMENT
[/][pos](len) text
[FOR FIELD sel]
[MODIF ID modid]
[ID id].
PUSHBUTTON
[/][pos](len) button_text
[USER-COMMAND ucom]
[MODIF ID modid]
[ID id].
BLOCKS
block [ID id].
语法示例:
SELECTION-SCREEN: BEGIN OF
BLOCK block,
COMMENT
/1(40) text,
ULINE.
PARAMETERS: p1(10) TYPE c,
p2(10)
TYPE c,
p3(10)
TYPE c.
SELECTION-SCREEN END OF BLOCK block.
SELECTION-SCREEN: BEGIN OF SCREEN 500 AS WINDOW,
INCLUDE
BLOCKS block,
END
OF SCREEN 500.
INITIALIZATION.
text = 'Standard Selection'.
START-OF-SELECTION.
CALL SELECTION-SCREEN '0500'
STARTING AT 10 10. “调用屏幕
CALL SELECTION-SCREEN
CALL
SELECTION-SCREEN dynnr
[STARTING
AT col1 lin1
[ENDING
AT col2 lin2]]
[USING
SELECTION-SET variant].
CALL SELECTION-SCREEN '0500' STARTING AT 10 10. “调用屏幕
AT SELECTION-SCREEN
是PAI处理,选择屏幕显示之后,用来响应回车,F8,F1,F4等事件。
(1)选择屏幕事件,此处声明的变量是局部变量。
(2)check sy-ucomm 判断用户命令。
(3)在这个事件响应中,可以对屏幕字段进行有效性检验等,但无法修改选择屏幕。
{
OUTPUT } 屏幕输出时的各屏幕元素值的管控(PBO处理,在选择屏幕显示之前就被调用;响应屏幕上的事件,用户回车或F8后也被调用;通过modify screen可以修改选择屏幕字段)
| { ON
{para|selcrit} } 检查具体输入字段是否完整或正确
| { ON
END OF selcrit }
| { ON
BLOCK block }框架的触发事件(控制框架中的屏幕元素值的输入)
| { ON
RADIOBUTTON GROUP radi }单选按钮事件,必须进行整体输入检查
| { }
| { ON
{HELP-REQUEST|VALUE-REQUEST} VALUE-<F4>键时触发HELP-<F1>键时键
|
FOR {para|selcrit-low|selcrit-high} }检查具体输入字段是否完整或正确
| { ON
EXIT-COMMAND }.响应"BACK","CANCEL","EXIT"等事件
语法示例:
PARAMETERS p_carrid TYPE spfli-carrid.
AT SELECTION-SCREEN ON p_carrid.
IF p_carrid IS INITIAL.