Parameter 的示例

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.

阅读更多
个人分类: SAP-ABAP
想对作者说点什么? 我来说一句

tomcat 配置数据源

2008年11月28日 1KB 下载

Parameter estimation for text analysis

2016年05月23日 1.79MB 下载

seo工具parameter批量查询网页PR

2010年11月28日 1.37MB 下载

webService实例

2011年04月18日 2.81MB 下载

没有更多推荐了,返回首页

不良信息举报

Parameter 的示例

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭