ABAP基础

1. ABAP/4 Introduction (1)2.Begin To Programming (2)2.1 ABAP/4 Editor (2)2.2 ABAP/4 Data Element (5)2.3 Outputting Data to Screen (7)2.4 Processing Data (11)2.5 Flow Controlling (15)2.6 Processing Internal Table (19)2.7 Processing Dictionary Table (25)3.ABAP/4 Program Module (32)4.SCREEN INPUT (38)5.Standard Report (43)1. ABAP/4 IntroductionIntroductionA BAP/4(Advanced Business Application Programming)是SAP/R3目前唯一的系统发展工具,属4GL, 语法比较近似Visual Basic或JA VA, 和传统third-generation 语言, 如C,PASCAL 有很大不同, 在程序模块(Program Structure Module)可分以下三个部分:1.Sequential coding within processing block与一般语言语法近似, 如IF,WHILE等, 但并没有GOTO叙述2.Reports调用一个独立的事件(Depending Event), 读取database 产生数据列表3.Dialog屏幕参数输入的对话框, 专门处理database 读取或修改的tranaction processBasic Languange Overview1.data element 声明方式, 如数值, 字符数据变量声明2.操作数(operate)使用, 如+ - * /3.Control element使用, 如Boolean 值4.特殊数据格式, 如日期与时间5.字符串字符处理function, 如部分字符串的截取6.子程序或自定函数的调用7.SQL语法使用8.数据结构的使用, 如process internal table的声明与使用Reports Overview1.Reports Task, 如报表屏幕预览或打印机打印的选择2.Reports 模块是一个Stand-along 程序,3.database读取方式, 如可定义logical database(与磁盘的physical storage对映)4.报表数据的计算与产生5.报表的输出Dialog Overview1.专处理database 的读取与修改, 如使用SQL 指令2.Dialog 不是一个Stand-Along Progarm, 使用transaction code来产生屏幕对话框3.由flow logic 控制, flow logic分成PBO(Process Before Output)与PAI(Process After Input) 2.Begin To Programming2.1 ABAP/4 EditorCreating ABAP/4 Program使用A BAP Workbench撰写程序可分成:1.A BAP/4 Editor :针对简单的报表或程序, 仅使用几个字段或不使用2.Obiect Browser :针对复杂的报表或程序, 如Dialog Transaction Module 撰写使用ABAP/4 Editor 撰写程序1.A BAP/4 Editor 画面如下(Transaction Code:SE38):2.输入程序名称, 如果是新程序, 按下”Create”, 如果修改已存在程序, 则按下”Change”或F6键在命名规则上, Reports程序为Yaxxxxxx或Zaxxxxxx, a表application module简称, 如s表SD 3.输入程序Attribute(1).Title:程序描述或功能说明(2).Type:Execute mode: 1: Stand-along Program 如ReportsI: Include ProgramM: Module PoolF: Function GroupS: Subroutine Pool(3).Status:Program development status: P: SAP standard production programK: Customer production programS: System programT: Test program(4).Application: 程序所属的application module, 如F表Financeial acounting(5).Development class: 用于同一系统中各个program, 如果不属任一class, 可使用$TMP4.撰写Source CodeProgram 之后接的是程序名称,注意每一行最后要有一个. (点), 表示叙述的结束, Report程序一般来说有以下的结构：REPORT Zxxx LINE-SIZE col LINE-COUNT lines MESSA GE-ID xx NO STA NDA RD PA GE HEAD.“数据申明部分TABLES:…CONSTANTS:…TYPES:…DATA:…DATA:Begin of xxx occurs,……end of xxx.“选择屏幕的设定SELECTION-SCREEN BEGIN OF xxx.PARAMETERS:…SELECT-OPTIONS:…SELECTION-SCREEN END OF xxx.“程序初始化部分INITIA LIZATION.PERFORM INIT_PARAMS.“选择屏幕的输入检查AT SELECTION-SCREEN [on <selection-screen block/field>].IF ….ELSE….ENDIF.MESSA GE S[E/W/I]xx.“真实处理部分START-OF-SELECTION.SELECT * FROM …把所选数据放入ITA BENDSELECT.PERFORM SUBROUTINE1 TABLE I_TAB.PERFORM SUBROUTINE2 USING I_MATNR CHANGING I_PRICE.“程序结束部分（经常用来输出结果）END-OF-SELECTION.SORT I_TAB BY FIELD1 FIELD2.LOOP AT I_TA B.W RITE:/ …..ENDLOOP.“子程序部分FORM FORM1 USING ACHA NGING B.………ENDFORM.FORM FORM2 TA BLES C.………ENDFORM.……5. 执行程序按”Execute”或F8键, 屏幕可见执行所得的结果重要的编辑键2.2 ABAP/4 Data ElementData TypeA BAP/4 的数据类型可分成:Type Length Range Initial Value DescriptionC 1 1-65535Byte Space 字符串数据, 如‟Program‟D 8 8Byte …00000000‟ 日期数据, 格式为YYYYMMDDF 8 8Byte 0 浮点数I 4 -2^31至2^31-1 0 整数N 1 1-65535Byte …00…0‟ 数值所组成的字符串P 8 1-16Byte 0 Packed 数, 用在小数点数T 6 6Byte …000000‟ 时间数据, 格式为HHMMSSX 1 1-65535Byte X‟00‟ 16进位数变量声明变量声明包含name, type, length 和structure四个部分, 使用DATA 指令, 如DATA: S1 TYPE I,SUM TYPE I.常数声明常数声明使用CONSTANTS 指令, 如声明PI 是一个小数点5位的值 3.14159, CONSTA NTS PI TYPE P DECIMA LS 5 VA LUE …3.14159‟.系统所定义数据这是由系统所定义的专有名辞, 如SPACE 空白字符串SY-SUBRC 系统执行返回值, 0 表示成功SY-UNAME logon 账号SY-DATUM 系统日期SY-UZEIT 系统时间SY-TCODE 目前的transaction codeTYPE 叙述用来指定数据类型或声明自定数据类型Example:TYPES: BEGIN OF MYLIST,NAME(10) TYPE C,NUMBER TYPE I,END OF MYLIST.DATA LIST TYPE MYLIST.LIKE 叙述跟TYPE叙述使用格式相同, 如DATA TRA NSCODE LIKE SY-TCODE.不同的是LIKE 用在已有值的数据项, 如系统变量, 而TYPE叙述则是用在指定数据类型。

DATA 叙述语法:DATA <f> [<length>] <type> [<value>] [<decimals>]<f>: 变量名称, 最长30个字符, 不可含有+ . , : ( ) 等字符<length><type>: 数据类型及长度, 如LINE(20) TYPE C. MYNAME LIKE SY-UNAME. <value>: 初值<decimals>: 小数位数Example:DATA: COUNTER TYPE P VA LUE 1,FLA G TYPE C VA LUE IS INITIA L,W EIGHT TYPE P DECIMA LS 2 VA LUE …1.25‟.字段变量的声明:DATA: BEGIN OF ADDRESS,NAME(10) TYPE C ,NUMBER TYPE P,END OF ADDRESS.使用时用字段变量加上字段名称, 如ADDRESS-NAMECONSTANTS 叙述用来声明常数语法:CONSTANTS <c> [<length>] <type> [<value>] [<decimals>]Example:CONSTANTS: CNAME(10) VA LUE …周庆日‟,BIRTH_DA Y TYPE D VA LUE …19650201‟.STATICS 叙述声明的变量仅在目前的程序中使用, 结束后会自动释放语法: STATICS <c> [<length>] <type> [<value>] [<decimals>]TABLES 叙述用来声明Table Work A rea 的数据, 对映至A BAP/4 系统表(Dictionary Object),由SQL 指令加载所需数据语法: TABLES <dbtab>Example:TA BLES: SPFL.SELECT * FROM SPFL.W RITE: SPFL-MA NDT, SPFL-CARRID,SPFL-CONNECTION.ENDSELECT.从ABAP/4 Dictionary 的SPFL 档载入MANDT,CA RRID,CONNECTION三个字段至SPFL 此Table Work Area2.3 Outputting Data to ScreenWrite 叙述A BAP/4 用来在屏幕上输出数据的指令是Write 指令语法:Write 资料项数据项可以是常数或变量, 如:W RITE …This is sample‟.W RITE: …COMPANY:‟,STFL-CA RRID.指定屏幕位置显示语法: Write AT [/] [<pos>] [(<len>)] 资料项/ : 先往下一列pos : 屏幕X轴坐标(len): 显示资料的长度Example:W RITE …First Line ‟.W RITE / 6 …Second Line‟.输出结果:First LineSecond LineDATA: NUMBER TYPE I VA LUE …1234567890‟.TEXT(10) VA LUE …A BCDEFGHIJ‟.W RITE: (5) NUMBER, /(6) TEXT.输出结果:*7890ABCDEF指定显示格式语法:W RITE 资料项<显示格式参数>显示格式参数:LEFT-JUSTIFIED 资料靠左显示CENTERED 资料靠中间显示RIGHT-JUSTIFIED 资料靠右显示UNDER <g> 在资料项<g>的X轴开始坐标显示NO-GAP 紧接着显示, 不留空格USING EDIT MASK <m> 使用内嵌字符显示, 如11:20:30 USING NO EDIT MASK 不使用内嵌字符NO-ZERO 数字前面0 的部分不显示NO-SIGN 不显示正负号DECIMA LS <d> 显示 d 位小数字数EXPONENT <e> F(浮点数) exponent 的值ROUND <r> 四舍五入至小数位数下r 位CURRENCY <c> 币别显示DD/MM/YY 日期显示格式MM/DD/YYDD/MM/YYYYMM/DD/YYYYDDMMYYMMDDYYYYMMDDExample:DATA: X TYPE I VA LUE …112030‟,A(5) VA LUE ‟ABCDE‟.W RITE X USING EDIT MASK …__:__:__‟.输出结果为11:20:30W RITE X USING EDIT MASK …$___,___‟输出结果为$112,030产生空白行产生n 个空白行语法:SKIP [<n>]Example:WRITE …PASS1‟.SKIP.WRITE …PASS2‟.输出结果为:PA SS1PA SS2显示图示可以显示R/3 系统所提供的符号或图标语法:WRITE <symbol-name> AS SYMBOLWRITE <icon-name> AS ICONExample:INCLUDE <SYMBOL>INCLUDE <ICON>W RITE: / …Phone Symbol:‟ , SYM_PHONE AS SYMBOL.W RITE: / …Alarm Icon:‟ , ICON_ALA RM AS ICON.执行结果:要查看系统所提供有那些符号及图标, 可选择“Edit” 下的“Insert Statement”, 选择“WRITE”接下来选择要查的群组, 如SYMBOL 或ICON, 按下“Display” 即可.跳至指定列坐标将坐标跳至指定的Y轴列坐标语法:SKIP TO LINE [<n>]Example:SKIP TO LINE 5.W RITE …PA SS1‟.显示CHECK BOX 内容以字符串数据内容的第一个字符为CHECK BOX的输出, 如果是空白, CHECK BOX 显示为空白, 相反则显示X , 可用在逻辑判断检查语法:W RITE <资料项> AS CHECKBOX.Example:DATA: FLA G1 VA LUE … … .FLA G2 VA LUE …X‟.W RITE: / …CHECK FLA G 1:‟ , FLA G1 AS CHECKBOX.W RITE: / …CHECK FLA G 2:‟ , FLA G2 AS CHECKBOX.执行结果:2.4 Processing DataAssign Value语法:MOVE <F1> TO <F2>将F1的值存至变量F2 中, 也可写成F2 = F1Example:M_NAME = …CHER‟.使用Offset语法:MOVE <F1>[+<O1>] TO <F2>[+<O2>]Example:DATA: F1(10) VA LUE …A BCDEFGHIJ‟.F2(5).F2 = F1+3(5). “自第4个位置开始取出5个字符F2 的内容会变成DEFGHField String 字段的复制语法:MOVE –CORRESPONDING <Strings1> TO <String2>.将Strings1中的field字段的数据复制至String2中, 仅复制相同名称的字段Example:DATA: BEGIN OF A DDRESS,FIRSTNAME(10) VA LUE …LULU‟,LA STNAME(10) VA LUE …CHOU‟,TEL(12) VA LUE …4660570‟,END OF ADDRESS.DATA:BEGIN OF NAME,FIRSTNAME(10),LASTNAME(10),E_MAIL(30),END OF NAME.MOVE-CORRESPONDING A DDRESS TO NAME.NAME-FIRSTNAME 变成…LULU‟, NAME-LASTNAME 变成…CHOU‟,而NAME-E_MAIL 则不变变量CALL BY VALUE 的使用在变量的使用上, 可以使用类似Call By Value 的方法语法:W RITE (<f>) TO <g>Example:DATA: NAME(20) VA LUE …SOURCE‟,SOURCE(10) VA LUE …LILY‟,TA RGET(10).W RITE (NAME) TO TARGET.W RITE / TA RGET.屏幕可印出LILY清除变量内容语法:CLEA R <f>清除变量现在内容, 恢复成初值Example:DATA N TYPE I VA LUE 100.CLEA R N.变量N 的内容变成0算术符号** 乘幂* 乘/ 除+ 加- 减DIV 整数除法MOD 余数除法数值函数1.ABS(N): 传回数值N 的绝对值2.SIGN(N): 1 if N > 00if N = 0-1 if N < 03.CEIL(N): 传回大于数值N的最小整数Example:WRITE CEIL(-5.65) 印出–5.00WRITE CELL(4.54) 印出 5.004.FLOOR(N): 传回小于数值N的最大整数Example:WRITE FLOOR(-5.65) 印出–6.00WRITE FLOOR(4.54) 印出 4.005.TRUNC(N): 传回数值N的整数部分Example:WRITE TRUNC(5.65) 印出 5.006.FRA C(N): 传回数值N 的小数部分Example:WRITE FRAC(5.65) 印出0.657.COS(A),SIN(A),TA N(A): 传回三角函数cos A, sin A, tan A 的值, A 为弪度量8.EXP(N): 传回e^N 值8.LOG(N): 传回log eN 值9.LOG10(N): 传回log N值10.SQRT(N): 传回N 的平方根值日期与时间运算1.日期数据的运算日期数据可以直接运算, 如加法与减法的运算Example:DATA: Mdata TYPE D.Mdate = SY-DATUM. “ 如传回19971015Mdate+6(2) = …01‟ “ Mdate 变成19971001Mdate = Mdate - 1 “ Mdate 变成199709302.时间数据的运算时间格式为…hhmmss‟, 如…212030‟ 表‟21:20:30‟Example:DATA: HOURS TYPE I,MINUTES TYPE I,T2 TYPE T VA LUE …200000‟,T1 TYPE T VA LUE …183000‟.HOURS = (T2 - T1) / 3600. “计算有几小时MINUTES = (T2 –T1) / 60. “计算几分钟字符串数据处理1.字符串移位语法:SHIFT <c> [BY <n> PLA CES] [<modes>]<modes> : (1).空白, 字符串往左移一位(2).LEFT, 字符串往左移n 位(3).RIGHT, 字符串往右移n 位(4).CIRCULA R: 字符串以环状方式移位Example:DATA STRING(10) VA LUE …A BCDEFGHIJ‟.SHIFT STRING. “得到BCDEFGHI‟SHIFT STRING BY 2 PLACES RIGHT. “得到ABCDEFGH2.取代字符串内容语法:REPLA CE <string1> WITH <string2> INTO <c>将字符串<c> 中的<string1> 以<string2> 来取代Example:DATA: STRING(10) VA LUE …A BCDEFGHI‟,STR1(3) VA LUE …DEF‟,STR2(3) V A LUE …123‟.REPLA CE STR1 W ITH STR2 INTO STRING.W RITE / STRING. “得到ABC123GHI3.大小写的转换语法:TRA NSLATE <c> TO UPPER CASE. “转成大写TRA NSLATE <c> TO LOWER CASE. “转成小写4.在字符串中寻找部分字符串语法:SEA RCH <c> FOR <str>Example:DATA STRING(10) VA LUE …ABCDEFGHIJ‟.会回存至两个变量, SY-SUBRC 和SY-FDPOS, 若找到则SY-SUBRC 为0SY-FDPOS 存开始位迭, 若找不到则SY-SUBRC为4, SY-FDPOS为05.字符串长度STRLEN(<c>)Examp le:INT = STRLEN(…XYZA BC‟). “得到 6INT = STRLEN(…ABC ‟ ). “得到 36.取部分字符串<f>[+<o>][<l>]Example:DATA T(10) VA LUE …A BCDEFGHIJ‟.W RITE / T+2(4). “得到CDEF2.5 Flow Controlling比较符号1. = 或EQ : 等于2. <> 或>< 或NE : 不等于3. < 或LT : 小于4.<= 或LE : 小于等于5.> 或GT : 大于6.>= 或GE : 大于等于7.AND : 且8.OR : 或9.NOT : 非条件述叙1. IF 述叙语法:IF <Condition1>.<Statement 1 >ELSEIF <Condition2>.<Statement 2>ELSEIF <Condition3>.<Stetement 3>…..ELSE.<else Statement >ENDIF.在每个判断叙述之后要加上“.“Example:IF 3 > 8.WRITE / …3 is less than 8‟.ENDIF.2. CASE 叙述语法:CASE <变量f>.WHEN <Value1>.<Statement1>WHEN <Value2>.<Statement2>….WHEN OTHERS.<others Statement>ENDCASE.Example:S = …A‟.CASE S.W HEN …X‟.W RITE / …String is X‟.W HEN OTHERS.W RIT E / …String is not X‟.ENDCASE.循环叙述1.计次循环语法:DO [n TIMES] [VA RYING <f> FROM <start> TO <end>.<loop block>ENDDO.Example:DO 2 TIMES.W RITE / …X‟.ENDDO.执行结果:XXDO VARYING I FROM 1 TO 10.S = S + I.ENDDO.WRITE: / ,‟1+2+3+…+10=‟,S执行结果: 1+2+3+…+10=552.条件循环语法:W HILE <Condition>.<Statement Block>ENDWHILEExample:I = 1.S=0.WHILE I <= 10.S = S+I.I=I+1.ENDWHILE.WRITE: / … 1+2+3+…+10=‟,S.执行结果为: 1+2+3+…+10=55循环控制叙述1.CONTINUE跳至循环的下一次Example:DO 3 TIMES.IF SY-INDEX = 2.CONTINUE.W RITE / SY-INDEX.ENDDO.执行结果:132.CHECK <Condition>CHECK 之后条件成立才继续往下执行循环Example:DO 5 TIMES.CHECK SY-INDEX BETW EEN 2 A ND 4.W RITE / SY-INDEX.ENDDO.执行结果:2343.EXIT跳离循环叙述Example:DO 10 TIMES.IF SY-INDEX = 4.EXIT.ENDIFW RITE / SY-INDEX.ENDDO.执行结果:123无穷循环DO .<Statement Block>ENDDO.无穷循环必须配合EXIT 叙述来执行2.6 Processing Internal TableInternal Table 的声明ABAP/4的Internal Table 如同其它语言的数组结构, 在操作上可以有复制,删除,新增插入等功能.1.使用TYPE 叙述语法:TYPES <t> <type> OCCURS <n>声明一个数组<t>, 类型为<type>, 长度为<n>Example:TYPES A TYPE I OCCURS 10.A是个10个元素的数值Internal TableExample:TYPES: BEGIN OF LINE,COL1 TYPE I,COL3 TYPE I,END OF LINE.TYPES ITA B TYPE LINE OCCURS 10.声明一个Internal Table ITA B, 总共有10个元素, 其W ORK AREA名称为LINE2.使用DATA 叙述若使用DATA叙述来声明Internal Table, 可分成要不要有HEADER LINE, HEA DER LINE 就是所谓的W ORK A REA, 用在数据的存取上.语法:DATA <f> <type> OCCURS <n> [WITH HEADER LINE]Example:DATA VECTOR TYPE I OCCURS 10 WITH HEA DER LINE.3.直接声明, 不使用WORK A REA语法:DATA: BEGIN OF <f> OCCURS <n>,<component 声明>END OF <f>.Example:DATA: BEGIN OF ITAB OCCURS 10,COL1 TYPE I,COL2 TYPE I,END OF ITA B.如此产生的Internal Table 不会有Work Area, 也就是声明时不会Reference其它的Conponent 声明Append Line语法:APPEND [<wa>] TO [Initial Line To] <itab>[Initial Line To] 为增加一预设初值的元素Example: 使用Work AreaDATA: BEGIN OF LINE,COL1 TYPE I,COL2 TYPE I,END OF LINE.DATA ITAB LIKE LINE OCCURS 10.DO 2 TIMES.LINE-COL1 = SY-INDEX. “SY-INDEX为循环的CounterLINE-COL2 = SY-INDEX **2.APPEND LINE INTO ITA B. “新增至Internal Table中ENDDO.LOOP AT ITAB INTO LINE. “ITAB 总共有两个元素WRITE: / LINE-COL1,LINE-COL2.ENDLOOP.执行结果为:1 12 4Example: 不使用Work AreaDATA: BEGIN OF ITAB OCCURS 10,COL1 TYPE I,COL2 TYPE I,END OF ITA B.DO 2 TIMES.ITA B-COL1 = SY-INDEX.ITA B-COL2 = SY-INDEX **2.APPEND ITAB. “新增至Internal Table中ENDDO.LOOP AT ITAB. “ITA B 总共有两个元素WRITE: / ITAB-COL1,ITAB-COL2.ENDLOOP.执行结果为:1 12 4加入另一Internal Table的元素语法:APPEND LINES OF <itab1> [FROM <n1>] [TO <n2>] TO <itab2>将<itab1>的元素加入至<itab2>中, 可选取自<n1>至<n2>的范围Example:APPEND LINES OF ITA B TO JTAB.将ITA B所有元素加入JTA B中Collect Line在加入新元素时将有相同standard key(非数值字段)的数值字段汇总语法:COLLECT [<wa> INTO] <itab>Example:DATA: BEGIN OF ITAB OCCURS 3,COL1(3) TYPE C,COL2 TYPE I,END OF ITA B.ITA B-COL1 = …ABC‟. ITA B –COL2 = 10.COLLECT ITA B.ITA B-COL1 = …XYZ‟. ITA B-COL2 = 20.COLLECT ITAB.ITA B-COL1 = …A BC‟. ITA B-COL2 = 30.COLLECT ITAB. “汇总COL2 至COL1=A BC 的元素上LOOP AT ITAB.WRITE: / ITAB-COL1,ITAB-COL2.ENDLOOP.执行结果:ABC 40XYZ 20Insert Line插入元素在指定的Internal Table位置之前语法:INSERT [<wa> INTO] [INITIAL LINE INTO] <itab> [INDEX <idx>]Example:DATA: BEGIN OF LINE,COL1 TYPE I,COL2 TYPE I,END OF LINE.DATA ITA B LIKE LINE OCCURS 10.DO 3 TIMES.LINE-COL1 = SY-INDEX *10.LINE-COL2 = SY-INDEX *20.APPEND LINE INTO ITAB.ENDDO.LINE-COL1=100.LINE-COL2=200.INSERT LINE INTO ITAB INDEX 2. “插入在位置2之前LOOP AT ITAB INTO LINE.W RITE: / SY-TA BIX,LINE-COL1,LINE-COL2. “SY-TA BIX为Table位置ENDLOOP.执行结果:1 10 202 100 200 “插入的元素3 20 404 30 60插入另一Internal Table元素语法:INSERT LINES OF <itab1> [FROM <n1> TO <n2>] TO <itab2> INDEX <idx>将<itab1>的元素插入至<itab2>中, 位置在<idx>之前, 可选取自<n1>至<n2>的范围Example:APPEND LINES OF ITA B TO JTAB INDEX 3.将ITA B所有元素插入JTA B中, 位置在第三个元素之前Internal Table元素数据的读取语法:LOOP AT <itab> [INTO <wa>] [FROM <n1> TO <n2>] [WHERE <condition>] <loop expression>ENDLOOP.根据设定的范围选取原素资料, 读完后自动移往下一笔Example:LOOP AT ITAB INTO LINE WHERE COL1 >100.W RITE: / SY-TA BIX,LINE-COL1.ENDLOOP.仅读取COL1 > 100 的元素读取Internal Table指定位置的元素语法:READ TABLE <itab> [INTO <wa>] INDEX <idx>自指定位置<idx> 读取元素数据Example:READ TABLE ITA B INTO LINE INDEX 5读取ITA B的第5个元素数据, 放入LINE的字段中根据字段内容寻找语法:READ TABLE <itab> INTO <wa>Example:ITAB-COL1 = …ABC‟.READ TABLE ITAB INTO LINE.找出ITAB 中COL1 字段内容是A BC 的元素, 找到的值放入LINE 中若找到SY-SUBRC传回0, 找不到则传回4, <itab>必须声明有work area 修改元素内容语法:MODIFY <itab> [FROM <wa>] [INDEX <idx>] [TRANSPORTING <f1>…<f2>][WHERE <condition>]TRANSPORTING <f1> ..<f2> : 指定修改的字段名称Example:LINE-COL1 = 4.LINE-COL2 = 100.MODIFY ITAB FROM LINE.将目前位置元素以LINE的内容修改Example:LINE-COL1 = 10.MODIFY ITAB FROM LINE INDEX 3 TRANSPORTING COL1.将第三个元素的COL1字段修改为10Delete Lines删除Internal Table 的元素语法:DELETE <itab> INDEX <idx>Example:DELETE ITAB INDEX 4删除第四个元素加上删除条件:DELETE <itab> [FROM <n1> TO <n2>] [WHERE <condition>Example:DELETE ITAB FROM 3 TO 10.删除第3至第10个元素Internal Table Sorting语法:SORT <itab> [<order>] [BY <f1>] ….[<order>] : 可分成递减(DESCENDING)和递增(ASCENDING), 空白表ASCENDING <f1>:为指定的字段Example:SORT ITA B DESCENDING BY COL2.将ITA B 根据COL2字段递减排序计算数值字段总和语法:SUM计算得总和存在work area 中, 但只能存在LOOP 叙述中Example:LOOP AT ITAB INTO LINE.SUM.ENDLOOP.W RITE: / LINE-COL1,LINE-COL2.LINE-COL1 和LINE-COL2 存数值总和Initial Table1.REFRESH <itab>使用在没有HEADER LINE 的Internal Table中, 清除所有元素Example:REFRESH ITAB.2. CLEAR <itab>[ ]使用在有HEADER LINE 的Internal Table中, 清除所有元素Example:CLEA R ITA B[ ].3.FREE <itab>释放(Release) Internal Table所占的内存空间, 用在REFRESH和CLEA R指令之后Example:FREE ITAB.2.7 Processing Dictionary TableR/3对于存放在Relation Database 的数据可使用SQL 指令读取或处理, 指令种类可分成DDL(Data Definition Language)指令, 如CREATE, 及DML(Data Manipulation Language), 如SELECT 及INSERT等, 处理方式分成OPEN SQL 及NATIVE SQL, 前者在处理时, Database 与Command Interpreter 间有一Buffer区, 如SELECT * FROM…, 后者则直接处理数据库, 如EXCE SQL SELECT…等, 有两个重要的系统变量:SY-SUBRC: 传回0 表成功执行指令, 4 表未找到符合条件数据SY-DBCNT: 正处理的数据笔数TABLES 指令用于声明程序中所使用的tables语法:TABLES tableSELECT 指令自数据库读取记录语法:SELECT <result> FROM <source> [INTO <target>] [WHERE <condition>] [ GROUP BY <fields>] [ORDER BY <sort order>]1.以循环方式读取所有记录语法:SELECT [DISTINCT] * ……..ENDSELECT.加上[DISTINCT]会自动去除重复的记录Example:TABLES SPFLI.SELECT * FROM SPFLI W HERE COMPANY=‟DELTA‟.W RITE: / PLANT,TEL.ENDSELECT.会以循环的方式逐笔印出符合条件的记录2.读取单笔记录语法:SELECT SINGLE * FROM …. WHERE….Example:TA BLES SPFLI.SELECT SINGLE * FROM SPFLIWHERE PLA NT =‟CHUNGLI‟ AND TEL=‟4526174‟.W RITE: / SPFLI-COMPA NY,SPFLI-PLA NT,SPFLI-TEL.3.将读取的记录存放至Work A rea语法:SELECT ….. INTO <wa>Example:TABLES SPFLI.DATA WA LIKE TA BLES.SELECT * FROM SPFLI INT O WA.W RITE: / WA-COMPANY,WA-PLANT.ENDSELECT.逐笔写入WA 工作区中4.将读取的数据写入Initial Table 中语法:SELECT .. INTO TABLE <itab>Example:TABLES SPFLI.DATA ITA B LIKE SPFLI OCCURS 10 W ITH HEA DER LINE.SELECT * FROM SPFLI INTO ITAB.一次读10笔(Initial Table的长度)记录存入ITA B 中SELECT .. INTO TABLE <itab> PACKA GE SIZE <n>一次读取<n> 笔记录至<itab>中Example:TABLES SPFLI.DATA ITA B LIKE SPFLI OCCURS 10 WITH HEA DER LINE.SELECT * FROM SPFLI INTO ITAB PA CKA GE SIZE 5.一次读取 5 笔记录5.条件叙述语法:W HERE <condition>(1).BETW EEN <g1> AND <g2>在<g1> 至<g2> 之间的条件范围Example:WHERE YEA R BETWEEN 1995 AND 2000.(2).LIKE <g>表示条件包含的字符串<1>._:表示一个字符<2> % : 表示一个字符串Example:..WHERE NAME LIKE …LEE%‟.条件为NAME字段前3个字符为LEE..WHERE MODEL LIKE ……%SPS%‟.条件为MODEL字段包含SPS的记录(3).IN (<g1>….<g2>)包含在<g1>…<g2>的条件Example:..WHERE PLANT IN (…TA OYUAN‟,‟CHUNGLI‟,‟LIUTU‟).条件为PLANT 是TAOYUA N,CHUNGLI或LIUTU的记录6.ORDER BY 叙述指定排序的字段或顺序(1). ..ORDER BY PRIMA RY KEY.根据PRIMA RY KEY 递增排序(2)…ORDER BY <f1> [DESCENDING] <f2> [DESCENDING]Example:SELECT * FROM IM ORDER BY PART .INSERT 指令加入一笔记录至数据库1.自Work Area 工作区语法:INSERT INTO <database> VA LUES <wa>Example:TABLES SPFLI.DATA WA LIKE SPFLI.WA-NO = …34051920‟.WA-COMPANY=‟DELTA‟.INSERT SPFLI VA LUES WA.将ITA B 数据加入SPFLI中, 也可写成INSERT SPFLI FROM ITAB.SPFLI-NO=‟34299876‟.SPFLI-COMPANY=‟HP‟.INSERT SPFLI FROM SPFLI.将Work A rea SPFLI中的数据加入数据库程序SPFLI中因Work A rea SPFLI的结构与数据文件SPFLI一样, 所以也可写成INSERT SPFLI.2.自Internal Table语法:INSERT <database> FROM TA BLE <itab> [A CCEPTING DUPLICATE KEY]将<itab>中非NULL的数据加入<database>中, 加上[A CCEPTING DUPLICATEKEY]能检查不加入有重复primary key, 若有重复则SY-SUBRC 会传回 4Example:TABLES SPFLI.DATA ITA B LIKE SPFLI OCCURS 10 WITH HEA DER LINE.ITA B-NO = …34051920‟.ITA B-COMPANY = …DELTA‟.APPEND ITA B.….INSERT SPFLI FROM TABLE ITABA CCEPTING DUPLICATE KEY.UPDATE 指令修改已存在的记录内容1.使用Primary Key语法:UPDATE <database> FROM <wa>Example:TA BLES SPFLI.DATA WA LIKE SPFLI.WA-NO=‟34051920‟.WA-COMPANY=‟DELTA‟.UPDATE SPFLI FROM WA.如SPFLI 的Primary Key是NO, 则会找到NO=‟34051920‟的记录, 将其COMPANY字段修改为DELTA2.使用条件式语法:UPDATE <database> SET < f1>=<values>… WHER E <condition>根据条件式修改符合条件式的记录Example:UPDATE SPFLI SET NO=‟34051920‟COMPANY = …DELTA‟WHERE TEL=‟4526107‟.MODIFY 指令根据Primary Key 寻找数据文件中符合的记录, 若找到则更新修改, 若找不到则新增记录语法:MODIFY <database> FROM <wa>Example:WA-NO=‟34051920‟.WA-COMPANY=‟DELTA‟.MODIFY SPFLI FROM WA.DELETE 指令删除数据文件的记录1.使用Primary Key语法:DELETE <database> FROM <wa>Example:TA BLES SPFLI.DATA WA LIKE SPFLI.WA-NO=‟34051920‟.WA-COMPANY=‟DELTA‟.DELETE SPFLI FROM WA.如SPFLI 的Primary Key是NO, 则会找到NO=‟34051920‟的记录, 找到后将此笔删除2.使用条件式语法:DELETE FROM <database> WHERE <condition>根据条件式删除符合条件式的记录Example:DELETE FROM SPFLI W HER E A REA = …AMERICAN‟.DATABASE CURSORDatabase Cursor是一个数据库暂存区, 将经SELECT指令读取的记录存放至此暂存区, 再由此暂存区放至Work Area中, 可见少数据库读取的次数.1.开启Database Cursor语法:OPEN CURSOR <c> FOR SELECT … WHERE <condition>Example:TABLES SPFLI.DATA: WA LIKE SPFLI,C1 TYPE CURSOR.OPEN CURSOR C1 FOR SELECT * FROM SPFLIW HERE A REA =‟TAIWAN‟.2.读取Database Cursor的数据存入Work Area语法:FETCH NEXT CURSOR <c> INTO <wa>Example:FETCH NEXT CURSOR C1 INTO WA.读取下一笔Cursor位置的数据存入WA, 如果已无数据可读,SY-SUBRC 不传回04.关闭Database Cursor语法:CLOSE CURSOR <c>Example:CLOSE CURSOR C1.COMMIT WORK 与ROLLBACK WORK要确定数据成功写入数据库, 可使用COMMIT WORK 指令, 如:COMMIT WORK.相反的, 如果反悔要复原, 可使用ROLLBACK W ORK, 可复原在上个COMMIT WORK 指令之后的数据, 如:ROLLBACK WORK.使用NATIVE SQL指令语法:EXEC SQL [PERFORMING <form>].<statement block>] [;]ENDEXEC.Example:DATA: BEGIN OF WA,NAME(8),A GE TYPE I,END OF WA.DATA F1 TYPE I.FI = 20.EXEC SQL PERFORMING OUTPUT.SELECT NAME,A GE INTO :WA FROM NAME_TABLEW HERE A GE >= :F1.ENDEXEC..FORM OUTPUT.WRITE: / WA-NAME,WA-A GE.ENDFORM.3. ABAP/4 Program ModuleABAP/4中所谓的Module 在一般语言称之为Subroutine, 其数据传递方式皆相似,如CALL BY VA LUE,CA LL BY REFERENCE 等, 可分成以下几个部分:1.Macro Block2.Include Program3.Subroutine Program4.Function ModuleMacro Block在程序中可以定义一段宏叙述, 并且可以传入参数, 参数符号(Placeholder)可自&1, &2 至&91.宏的定义DEFINE <macro>.<宏叙述END-OF-DEFINITION.2.宏的调用使用<macro> [<p1> <p2>….]<p1> 为传入宏的参数值, 在参数间至少要给予一个空白Example:利用宏计算N次方DATA RESULT TYPE I.DEFINE MULTI.RESULT = &1 ** &2.WRITE: / …&1 ^ &2 = …,RESULT.END-OF-DEFINITION.MULTI 3 4.执行结果为 3 ^ 4 = 81Include Program1.在ABAP/4中可以使用Include 叙述加载另一个程序的全部叙述, 通常用于共享数据项的声明, 很类似C 的Include header file 的做法.语法:INCLUDE <include program file>Example:程序YStart 的内容如下:***INCLUDE YSTA RT.W RITE: / …User Name = … ,SY-UNAME.W RITE:/ …Host Server = …,SY-HOST.另一程序如下:PROGRAM YTEST1.INCLUDE YSTA RT. “载入YSstart的所有内容执行络果:User Name = MIS-CHOUHost Server = deidv012.Global 变量声明应用语法:DATA: BEGIN OF COMMON PART [<name>],<data 声明>END OF COMMON PART [<name>]此常使用在Include 的程序中, 如***INCLUDE INCOMMON.DATA: BEGIN OF COMMON PART NUMBERS,MID(8),MNUM TYPE I,END OF COMMON PA RT NUMBERS.Subroutine Procedure在ABAP/4 Subroutine的调用可分成Internal Call和External Call, 前者撰写在程序中, 后者存在另一程序中, 通常为专存放Subroutine的公用程序集, 可提供结不同的程序调用.1.Subroutine 的声明FORM <subr> [<pass>].<subroutine statement block>ENDFORM.2.调用的方法(1).Internal Call语法:PERFORM <subr> [<pass>]Example:NUM1 = 100. NUM2 = 200.PROFORM ADD.FORM ADD.SUM = NUM1 + NUM2.W RITE: / …NUM1 + NUM2 = …,SUM.ENDFORM.执行结果: NUM1 + NUM2 = 300(2).External Call 另一程序语法:PERFORM <subr>(<prog>) [<pass>] [IF FOUND]<subr>:子程序名称<prog>:存放子程序的程序名称IF FOUND: 找到才执行Example:PROGRAM FORMPOOL.FORM HEADER.W RITE: / …USER NAME: …,SY-UNAME.ENDFORM.在程序中调用HEADER子程序PROGRAM YTEST1.PERFORM HEA DER(FORMPOOL) IF FOUND.(3).External Call 另一专存放子程序的程序文件语法:PERFORM (<fsubr>) [IN PROGRAM (<fprog>) [<pass>] [IF FOUND]Example:存放子程序的程序文件PROGRAM FORMPOOL.FORM SUB1.W RITE: / …USER NAME:‟,SY-UNAME.ENDFORM.FORM SUB2.WRITE: / …HOST SERVER:‟,SY-HOST.ENDFORM.在程序中调用FORMPOOL中的SUB2 子程序SUBNAME = …SUB2‟.PROGNAME = …FORMPOOL‟.PERFORM (SUBNAME) IN PROGRAM (PROGNAME) IF FOUND参数值的传递在ABAP/4中参数的传递可分成1.Call By Reference:传参数时将数据的存放地址(address)传至参数中, 也就是子程序中的参数变量与外部实际变量共享地址内的值, 又称为Call By Address, 若在子程序中地址中的值改变了, 外部实际变量的值也会跟着改变.语法:FORM <subr> [USING <f1> <f2>…] [CHANGING <f1>…]PERFORM <subr> [USING <f1> <f2>…] [CHANGING<f1>…]Using 之后接在子程序中不会改变的变量, CHANGING接会改变值的变量但实际上USING之后的参数在子程序中也可将值改变Example:SUM = 0.NUM1 = 100. NUM2=200.PERFORM ADD USING NUM1 NUM2 CHANGING SUM.W RITE: / NUM1,NUM2,SUM “ SUM 由0 变成300FORM A DD USING NUM1 NUM2 CHANGING SUM.SUM = NUM1 + NUM2.ENDFORM.执行结果:100 200 3002.Call By Value传参数时将数据的值复制一份至另一地址中, 所以在子程序中参数变量值改变, 并不会影响外部实际变量的值.语法:FORM <subr> USING VA LUE(<f1>…)使用VA LUE(<f1>)表示<f1>是Call By Value的传递PERFORM <subr> USING <f1>Example:SUM = 0.NUM1 = 5.PERFORM MULTI USING NUM1 CHA NGING SUM.W RITE: / NUM1,SUM “NUM1值还是5, SUM 由0 变成120FORM MULTI USING VA LUE(NUM1) CHANGING SUM.SUM = 1.W HILE NUM1 > 1SUM = SUM * NUM1.NUM1 = NUM1 – 1.ENDWHILE..ENDFORM.执行结果:5 1203.Call By Value and Return Result传入参数值的方式同Call By Value, 但在子程序结束执行时会将传入的参数值复制一份传回给外部实际变量.语法:FORM ….. CHA NGING VA LUE(<f1>)PERFORM …. CHANGING …. <f1>Example:SUM = 0.NUM1 = 100. NUM2=200.PERFORM ADD USING NUM1 NUM2 CHANGING SUM.。