PARAMETERS: NAME(8),
AGE TYPE I,
BIRTH TYPE D,
TAX AS CHECKBOX default 'X',
tax2 as checkbox,
boy radiobutton group sex default 'X',
girl radiobutton group sex.
tables ztabczw1.
SELECT-OPTIONS SysID FOR ztabczw1-sysid.
MOVE: 'I' to SysID-sign, "I: 表筛选条件符合的资料 , E: 表筛选条件不符合的资料
'BT' TO SysID-OPTION, "EQ(等于),NE(不等于),GT(大于),LE(小于),CP(包含),NP(不包含)
'1' TO SysID-LOW, "最小值
'4' TO SysID-HIGH. "最大值
APPEND SysID.
*MOVE: 'I' to SysID-sign,
*'EQ' TO SysID-OPTION,
*'1' TO SysID-LOW.
*APPEND SysID.
SELECTION-SCREEN skip 1.
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: UserName FOR ztabczw1-username no intervals.
SELECTION-SCREEN COMMENT /1(30) Commstr for field UserName.
SELECTION-SCREEN END OF BLOCK 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(10) InputNa.
SELECTION-SCREEN POSITION 15.
PARAMETERS NAMEs(10).
SELECTION-SCREEN COMMENT 30(10) InputBir.
SELECTION-SCREEN POSITION 50.
PARAMETERS BIRTHs TYPE D.
SELECTION-SCREEN END OF LINE.
INITIALIZATION. "初始化事件
Commstr = 'Pls enter your name'.
InputNa = 'InputName'.
InputBir = 'InputBirthday'.
SET TITLEBAR 'COLLILABEL'.
AT SELECTION-SCREEN. "进行用户输入数据的合法性检
start-of-selection. "单击 执行 按钮触发此事件
write: / name, AGE, BIRTH, 'tax=',TAX, 'tax2=',tax2,'boy=', boy, 'girl=',girl.
if TAX = 'X'.
write / 'chuzhoawei'.
endif.
if tax2 = ''.
write / 'I''M IS null'.
endif.
SELECT * FROM ztabczw1 WHERE Sysid IN SysID.
WRITE: / ztabczw1-sysid, ztabczw1-username, ztabczw1-age, ztabczw1-birthdate.
ENDSELECT.
write / sy-ucomm.
*选择结束事件,通常在此事件中进行结果清单的输出
END-OF-SELECTION.
write / 'end of selection'.
write / SY-MANDT.
DATA: TEXT(20),
LEN TYPE I.
TEXT = 'ABCDEFGHIJ'.
CALL function 'STRING_LENGTH'
EXPORTING STRING = TEXT
IMPORTING LENGTH = LEN.
WRITE / LEN.
skip.
DATA: BEGIN OF USR_TABL OCCURS 0.
INCLUDE STRUCTURE UINFO.
DATA: END OF USR_TABL.
data L_OPCODE TYPE X.
L_OPCODE = 2.
CALL 'ThUsrInfo' ID 'OPCODE' FIELD L_OPCODE
ID 'TAB' FIELD USR_TABL-*SYS*.
write: / 'L_OPCODE=', L_OPCODE.
LOOP AT USR_TABL.
write: / USR_TABL-BNAME, USR_TABL-TCODE.
endloop.
Parameter 的示例
最新推荐文章于 2023-03-30 18:55:44 发布