Parameter 的示例

原创 2011年01月19日 20:42:00

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.

rk3288对于parameter参数文件的解析处理

rk3288有一个parameter文件。 类似于 FIRMWARE_VER:4.4.2 MACHINE_MODEL:rk30sdk MACHINE_ID:007 MANUFACTURER...
  • groundhappy
  • groundhappy
  • 2017年02月22日 16:44
  • 735

让sqlplus 里的show parameter 直接显示oracle隐含参数

本文整理自网络:http://f.dataguru.cn/thread-171753-1-1.html Oracle启动用到了初始化参数,通常我们都可以在sqlplus里用show parameter...
  • changyanmanman
  • changyanmanman
  • 2014年03月24日 14:39
  • 1632

对V$PARAMETER的说明

V$PARAMETER V$PARAMETER displays information about the initialization parameters that are currently ...
  • haiross
  • haiross
  • 2014年11月27日 15:43
  • 1134

了解Oracle物理体系必须知道的几个命令

1、显示回滚段相关的参数 2、显示SGA相关的参数 3、显示共享池相关的参数 4、显示数据缓冲池相关的参数 5、显示日志缓冲区相关的参数 6、修改数据库的参数设置的命令 7、显示当前数据库的实例名称 ...
  • ziwen00
  • ziwen00
  • 2013年07月06日 23:12
  • 3202

如何根据v$parameter查询Oracle隐含参数

Oracle的隐含参数在Oracle的官方文档中是不会出现的,这些参数主要是Oracle内部用于控制某些功能的开关,或者就像今天eygle讲的,Oracle牛逼之处就是可能几年前开发的一个功能就放到当...
  • bisal
  • bisal
  • 2016年04月17日 00:05
  • 6661

nginx平台初探(四)

upstream模块 upstream模块 (100%) nginx模块一般被分成三大类:handler、filter和upstream。前面的章节中,读者已经了解了handler、filte...
  • mathlmx
  • mathlmx
  • 2015年11月01日 11:19
  • 606

让Oracle的 SHOW PARAMETER 命令显示隐藏参数

Find internal of "show parameter" by session tracing SQL> select * from v$version;      ...
  • xiangsir
  • xiangsir
  • 2013年03月01日 10:18
  • 1586

在Unity3D中实现简单的碰撞检测

要求: 当立方体Cube碰撞到地面Plane的时候,输出碰撞物体的名称,则表述检测到立方体碰撞了地面。 过程: 1、搭建一个简单的场景 a.    在新建的工程中选择File->newScen...
  • paopaohuiiz
  • paopaohuiiz
  • 2014年02月18日 14:32
  • 4581

开源库ZXing加入xcode工程

从网上下载的是zxing-2.2版本。然后按照http://www.cocoachina.com/applenews/devnews/2013/0104/5462.html的例子操作,这个是对的,只是...
  • nogodoss
  • nogodoss
  • 2013年07月19日 14:32
  • 4224

MyBatis批量插入数据

在程序中封装了一个List集合对象,然后需要把该集合中的实体插入到数据库中,由于项目使用了Spring+MyBatis的配置,所以打算使用MyBatis批量插入,由于之前没用过批量插入,在网上找了一些...
  • zljjava
  • zljjava
  • 2015年07月24日 11:09
  • 4065
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Parameter 的示例
举报原因:
原因补充:

(最多只允许输入30个字)