??xml version="1.0" encoding="utf-8" standalone="yes"?> [OBLIGATORY] [AS CHECKBOX]
-------------------------------------------------------------
语法Q?FONT face="Times New Roman">PARAMETERS <p> [DEFAULT <f>] [LOWER CASE]
2?SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-size: 10.5pt; mso-fareast-font-family: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">SELECTION-OPTIONS: 使用条g{选画面来输入数据
-------------------------------------------------------------
语法Q?SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-size: 10.5pt; mso-fareast-font-family: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">SELECTION-OPTIONS <check-option> FOR <table-field>
[DEFAULT <begin> TO <end>]
[NO-EXTENSION]
[LOWER CASE]
[OBLIGATORY]
[Select 指o(h)]
3?/FONT>SELECTION-SCREEN : 输出I白列、底Uѝ备注说明、多个数据据、黑U等
-------------------------------------------------------------------
语法Q?SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-size: 10.5pt; mso-fareast-font-family: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">SELECTION-SCREEN SKIP [<n>]
[ULINE / <pos>(length)]
[BEGIN OF LINE.
…?/SPAN>
SELECTION-SCREEN END OF LINE.]
[BEGIN OF BLOCK <block> [WITH FRAME [TITLE <title>].
…?
SELECTION-SCREEN END OF BLOCK <block>.]
]]>
1、按操作分类QDDL和DML
2、按是否有缓存分c:(x)
(1) OPEN SQL Q数据库与命令编译器存在~存Q如Select * From <Itab>....
(2) Native SQLQ直接处?BR>
二、创建字典表
--------------------------------------------------------------------------------------
语法Q?SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-size: 10.5pt; mso-fareast-font-family: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">TABLES table
三、处理字典表
--------------------------------------------------------------------------------------
1、查?nbsp;
------------------------------
语法QSELECT <result> FROM <source> [INTO <target>] [WHERE <condition>]
[GROUP BY <fields>] [ORDER BY <sort_order>].
2、插?BR> ------------------------------
(1) Work Area插入Q?BR> 语法Q?SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-size: 10.5pt; mso-fareast-font-family: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">INSERT INTO <database> VALUES <wa>
(2) 表间插入
语法Q?SPAN lang=EN-US style="mso-bidi-font-size: 10.5pt; mso-fareast-font-family: 宋体; mso-fareast-language: ZH-CN">INSERT <database> FROM TABLE <itab> [ACCEPTING DUPLICATE KEY]
3、更?BR> ------------------------------
(1) 更改单行
语法QUPDATE <dbtab> [CLIENT SPECIFIED] FROM <wa>.
?BR> UPDATE <dbtab> [CLIENT SPECIFIED].
(2) 更改多行
语法Q?SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-size: 10.5pt; mso-fareast-font-family: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">UPDATE <database> SET < f1>=<values>?SPAN style="mso-spacerun: yes"> WHERE <condition>.
(3) 表间更改
语法Q?SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-size: 10.5pt; mso-fareast-font-family: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">UPDATE <dbtab> [CLIENT SPECIFIED] FROM TABLE <itab>.
(4) Modify更改Q有则更改,无则插入Q?BR> 语法Q?SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-size: 10.5pt; mso-fareast-font-family: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">MODIFY <database> FROM <wa>.
4、删?BR> ------------------------------
(1) 使用关键字删?BR> 语法Q?SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-size: 10.5pt; mso-fareast-font-family: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">DELETE <database> FROM <wa>
(2) 使用条g删除
语法Q?SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-size: 10.5pt; mso-fareast-font-family: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">DELETE FROM <database> WHERE <condition>
5、用游?BR> ------------------------------
(1) 打开Q?BR> 语法Q?SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-size: 10.5pt; mso-fareast-font-family: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">OPEN CURSOR <c> FOR SELECT ?SPAN style="mso-spacerun: yes"> WHERE <condition>
(2) 使用Q?BR> 语法Q?SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-size: 10.5pt; mso-fareast-font-family: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">FETCH NEXT CURSOR <c> INTO <wa>
(3) 关闭Q?BR> 语法Q?SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-size: 10.5pt; mso-fareast-font-family: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">CLOSE CURSOR <c>
四、提交与回退
--------------------------------------------------------------------------------------
(1) 提交QCOMMIT WORK
(2) 回退QROLLBACK WORK
]]>
----------------------------------------------------------------------------------------------------------
(1) 内表Q仅在程序运行时存在的表?BR>
(2) 作用Q?BR> ?pȝ可实时增加内表的大小
?可根据程序需要重新组l数据库表格的内?nbsp;
(3) 内表l构Q数据类型和数据对象Q相当于cM对象的关p?BR>
(4) 标记表格行:(x)内表索引/关键?BR>
(5) 讉K内表Q按行访?BR>
二、创建内?BR> ----------------------------------------------------------------------------------------------------------
(1) Type创徏Q先声明Q后使用
语法QTYPES <t> <type> OCCURS <n>.
(2) Data创徏Q用Work Area
DATA <f> <type> OCCURS <n> [WITH HEADER LINE].
(3) Data创徏Q不使用Work AreaQ直接宣告)(j)
语法QDATA: BEGIN OF <f> OCCURS <n>,
<component declaration>,
..............
END OF <f>.
三、用内?BR> ----------------------------------------------------------------------------------------------------------
1、增?BR> (1) 增加行(可能有重复行Q?BR> 语法QAPPEND [<wa> TO|INITIAL LINE TO] <itab>.
(2) Ҏ(gu)标准关键字附加行Q没有重复行Q?BR> 语法QCOLLECT [<wa> INTO] <itab>.
(3) 表外增加
语法QAPPEND LINES OF <itab1> [FROM <n1>] [TO <n2>] TO <itab2>.
2、插?BR> (1) 在指定行前插?BR> 语法QINSERT [<wa> INTO|INITIAL LINE INTO] <itab> [INDEX <idx>].
(2) 外表插入
语法QINSERT LINES OF <itab1> [FROM <n1>] [TO <n2>]
INTO <itab2> [INDEX <idx>].
3、修?BR> 语法QMODIFY <itab> [FROM <wa>] [INDEX <idx>].
4、删?BR> (1) 在@环中删除?BR> 语法QLoop At <Itab> (Into type)
DELETE <itab>.
End Loop.
(2) 用烦(ch)引删除行
语法QDELETE <itab> INDEX <idx>.
5、查?BR> (1) 循环d
语法QLOOP AT <itab> [INTO <wa>] [FROM <n1>] [TO <n2>] [WHERE <condition>].
.....
ENDLOOP.
(2) 用烦(ch)引读取单?BR> 语法QREAD TABLE <itab> [INTO <wa>] INDEX <idx>.
(3) d有关键字的单?BR> 语法QREAD TABLE <itab> [INTO <wa>] WITH KEY <key> [BINARY SEARCH].
6、排?nbsp;
语法QSORT <itab> [<order>] [AS TEXT]
[BY <F1> [<order>] [AS TEXT] ... <fn> [<order>] [AS TEXT]].
7、汇?BR> (1) 非数值汇?BR> 语法QCOLLECT [<wa> INTO] <itab>.
(2) 数值汇?BR> 语法QLoop At <Itab> (Into type)
Sum.
End Loop.
8、清?BR> (1) REFRESH <itab>.
解释Q初始化没有表头的内表,清除所有元?BR>
(2) CLEAR <itab>.
解释Q初始化有表头的内表Q?SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 10.5pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'">清除所有元?/SPAN>
(3) FREE <itab>.
解释Q重|内表ƈ直接释放其内存,dREFRESH或CLEAR后?BR>
3?nbsp;循环QDO和W(xu)HILE
------------------------------------
(1) 计次循环Q?BR> DO [<n>TIMES] [VARYING <f> FROM <F1> NEXT <F2>].
<statement block>
ENDDO.
(2) 无限循环Q?BR> DO .
<Statement Block>
ENDDO.
(3) 条g循环Q?BR> WHILE <condition> [VARY <f> FROM <F1> NEXT <F2>].
<statement block>
ENDWHILE.
* l止循环Q?BR> ------------------------------------
?无条件终止@环:(x)CONTINUE
?有条件终止@环:(x)CHECK
?完全l止循环Q?nbsp; EXIT
(2) 旉数据Q?BR> DATA: HOURS TYPE I,
MINUTES TYPE I,
T2 TYPE T VALUE ?00000?
T1 TYPE T VALUE ?83000?
HOURS = (T2 - T1) / 3600. “计有几小?BR> MINUTES = (T2 ?T1) / 60. “计几分钟
3、运符P(x)
--------------------------------------------------------------------
(1) 术W:(x)+ - * / div mod
(2) 比较W:(x)> >= < <= = <> ><
EQ NE GT LT GE LE
And Or Not