abap语法简明资料

《abap语法简明资料》由会员分享，可在线阅读，更多相关《abap语法简明资料（64页珍藏版）》请在装配图网上搜索。

1、1. ABAP/4 Introduction &Introduction ABAP/4(Advanced Business Application Programming)是SAP/R3目前唯一的系统发展工具, 属 4GL, 语法比较近似Visual Basic或JAVA, 和传统third-generation 语言, 如C,PASCAL 有很大不同, 在程序模块(Program Structure Module)可分以 下三个部分:1.Sequential coding within processing block 与一般语言语法近似, 如IF,WHILE等, 但并没有GOTO叙述2.R

2、eports 呼叫一个独立的事件(Depending Event), 读取database 产生数据列表3.Dialog 屏幕参数输入的对话框, 专门处理database 读取或异动的tranaction process &Basic Languange Overview 1.data element 宣告方式, 如数值, 字符数据变量宣告 2.操作数(operate)使用, 如 + - * / 3.Control element使用, 如Boolean 值 4.特殊数据格式, 如日期与时间 5.字符串字料处理function, 如部分字符串的截取 6.子程序或自定函数的呼叫 7.SQL语法使

3、用 8.数据结构的使用, 如process internal table的宣告与使用&Reports Overview 1.Reports Task, 如报表屏幕预览或打印机打印的选择 2.Reports 模块是一个Stand-along 程序, 3.database读取方式, 如可定义logical database(与磁盘的physical storage对映) 4.报表数据的计算与产生 5.报表的输出&Dialog Overview 1.专处理database 的读取与异动, 如使用SQL 指令2.Dialog 不是一个Stand-Along Progarm, 使用transaction

4、 code来产生屏幕对话框3.由flow logic 控制, flow logic分成PBO(Process Before Output)与PAI(Process After Input)2.Begin To Programming2.1 ABAP/4 Editor&Creating ABAP/4 Program 使用ABAP Workbench撰写程序(Choose Tools-ABAP/4 Workbench, Transaction Code: S001), 萤 幕如下: 可分成:1.ABAP/4 Editor :针对简单的报表或程序, 仅使用几个组件或不使用2.Obiect Brows

5、er :针对复杂的报表或程序, 如Dialog Transaction Module 撰写&使用ABAP/4 Editor 撰写程序 1.ABAP/4 Editor 画面如下(Transaction Code:SE38): 2.输入程序名称, 如果是新程序, 按下”Create”, 如果修改已存在程序, 则按下”Change”或F6键 在命名规则上, Reports程序为 Yaxxxxxx或Zaxxxxxx, a表application module简称, 如s表SD Dialog程序为SAPMYxxx或SAPMZxxx 3.输入程序Attribute (1).Title:程序描述或功能说明

6、(2).Type:Execute mode: 1: Stand-along Program 如Reports I: Include Program M: Module Pool F: Function Group S: Subroutine Pool(3).Status:Program development status: P: SAP standard production program K: Customer production program S: System program T: Test program(4).Application: 程序所属的application mod

7、ule, 如F表 Financeial acounting(5).Development class: 用于同一系统中各个program, 如果不属任一class, 可使用$TMP 4.撰写Source Code Program 之后接的是程序名称, Write 是显示的意思, 会将所接的字符串在屏幕上显示, 注意每一行最后要有一个 . (点), 表示叙述的结束, 储存后回ABAP/4 Editor画面 5. 执行程序 按”Execute”或F8键, 屏幕可见执行所得的结果 &重要的编辑键 key Function F8F5F11CTRL+F11执行程序复制游标所在列的内容储存档案删除游标所在

8、列2.2 ABAP/4 Data Element&Data Type ABAP/4 的数据型态可分成: Type Length Range Initial Value DescriptionC 1 1-65535Byte Space 字符串数据, 如Program D 8 8Byte 00000000 日期数据, 格式为YYYYMMDDF 8 8Byte 0 浮点数 I 4 -231至231-1 0 整数N 1 1-65535Byte 000 数值所组成的字符串 P 8 1-16Byte 0 Packed 数, 用在小数点数 T 6 6Byte 000000 时间数据, 格式为HHMMSSX

9、1 1-65535Byte X00 16进位数&变量宣告 变量宣告包含 name, type, length 和 structure四个部分, 使用 DATA 指令, 如 DATA: S1 TYPE I, SUM TYPE I.&常数宣告 常数宣告使用 CONSTANTS 指令, 如宣告 PI 是一个小数点5位的值 3.14159, CONSTANTS PI TYPE P DECIMALS 5 VALUE 3.14159. &系统所定义数据 这是由系统所定义的专有名辞, 如 SPACE 空白字符串 SY-SUBRC 系统执行传回值, 0 表示成功 SY-UNAME logon 账号 SY-DA

10、TUM 系统日期 SY-UZEIT 系统时间 SY-TCODE 目前的transaction code&TYPE 叙述 用来指定数据型态或宣告自定数据型态 Example: TYPES: BEGIN OF MYLIST, NAME(10) TYPE C, NUMBER TYPE I, END OF MYLIST. DATA LIST TYPE MYLIST.&LIKE 叙述 跟TYPE叙述使用格式相同, 如 DATA TRANSCODE LIKE SY-TCODE. 不同的是 LIKE 用在已有值的数据项, 如系统变量, 而TYPE叙述则是用 在指定数据型态。&DATA 叙述 语法: DATA

11、 : 变量名称, 最长30个字符, 不可含有 + . , : ( ) 等字符 : 数据型态及长度, 如 LINE(20) TYPE C. MYNAME LIKE SY-UNAME. : 初值 : 小数位数 Example: DATA: COUNTER TYPE P VALUE 1, FLAG TYPE C VALUE IS INITIAL, WEIGHT TYPE P DECIMALS 2 VALUE 1.25.字段变量的宣告: DATA: BEGIN OF ADDRESS, NAME(10) TYPE C , NUMBER TYPE P, END OF ADDRESS.使用时用字段变量加上组

12、件名称, 如 ADDRESS-NAME&CONSTANTS 叙述 用来宣告常数 语法: CONSTANTS Example: CONSTANTS: CNAME(10) VALUE 周庆日, BIRTH_DAY TYPE D VALUE 19650201.&STATICS 叙述 宣告的变量仅在目前的程序中使用, 结束后会自动释放 语法: STATICS &TABLES 叙述 用来宣告 Table Work Area 的数据, 对映至 ABAP/4 资料文件(Dictionary Object), 由SQL 指令加载所需数据 语法: TABLES Example: TABLES: SPFL. SE

13、LECT * FROM SPFL. WRITE: SPFL-MANDT, SPFL-CARRID,SPFL-CONNECTION. ENDSELECT. 从ABAP/4 Dictionary 的 SPFL 档载入MANDT,CARRID,CONNECTION三个字段至 SPFL 此Table Work Area 2.3 Outputting Data to Screen &Write 叙述 ABAP/4 用来在屏幕上输出数据的指令是 Write 指令 语法: Write 资料项 数据项可以是常数或变量, 如: WRITE This is sample. WRITE: COMPANY:,STFL

14、-CARRID.&指定屏幕位置显示 语法: Write AT / () 资料项 / : 先往下一列 pos : 屏幕X轴坐标 (len): 显示资料的长度 Example: WRITE First Line . WRITE / 6 Second Line. 输出结果: First Line Second Line DATA: NUMBER TYPE I VALUE 1234567890. TEXT(10) VALUE ABCDEFGHIJ. WRITE: (5) NUMBER, /(6) TEXT. 输出结果: *7890 ABCDEF &指定显示格式 语法: WRITE 资料项 显示格式参数

15、: LEFT-JUSTIFIED 资料靠左显示 CENTERED 资料靠中间显示 RIGHT-JUSTIFIED 资料靠右显示 UNDER 在资料项的X轴开始坐标显示 NO-GAP 紧接着显示, 不留空格 USING EDIT MASK 使用内嵌字符显示, 如 11:20:30 USING NO EDIT MASK 不使用内嵌字符 NO-ZERO 数字前面0 的部分不显示 NO-SIGN 不显示正负号 DECIMALS 显示 d 位小数字数 EXPONENT F(浮点数) exponent 的值 ROUND 四舍五入至小数位数下 r 位 CURRENCY 币别显示 DD/MM/YY 日期显示格

16、式 MM/DD/YY DD/MM/YYYY MM/DD/YYYY DDMMYY MMDDYY YYMMDD Example: DATA: X TYPE I VALUE 112030, A(5) VALUE ABCDE. WRITE X USING EDIT MASK _:_:_. 输出结果为 11:20:30 WRITE X USING EDIT MASK $_,_ 输出结果为 $112,030&产生空白列 产生 n 个空白列 语法: SKIP Example: WRITE PASS1. SKIP. WRITE PASS2. 输出结果为: PASS1 PASS2&显示图示 可以显示R/3 系统

17、所提供的符号或图标 语法: WRITE AS SYMBOL WRITE AS ICON Example: INCLUDE INCLUDE WRITE: / Phone Symbol: , SYM_PHONE AS SYMBOL. WRITE: / Alarm Icon: , ICON_ALARM AS ICON. 执行结果: 要查看系统所提供有那些符号及图标, 可选择 “Edit” 下的 “Insert Statement”, 选择 “WRITE” 接下来选择要查的群组, 如SYMBOL 或 ICON, 按下 “Display” 即可.&跳至指定列坐标 将坐标跳至指定的Y轴列坐标 语法: SK

18、IP TO LINE Example: SKIP TO LINE 5. WRITE PASS1. &显示 CHECK BOX 资料 以字符串数据内容的第一个字符为 CHECK BOX的输出, 如果是空白, CHECK BOX 显示 为空白, 相反则显示 X , 可用在逻辑判断检查 语法: WRITE AS CHECKBOX. Example: DATA: FLAG1 VALUE . FLAG2 VALUE X. WRITE: / CHECK FLAG 1: , FLAG1 AS CHECKBOX. WRITE: / CHECK FLAG 2: , FLAG2 AS CHECKBOX. 执行结果

19、: 2.4 Processing Data&Assign Value 语法: MOVE TO 将F1的值存至变数 F2 中, 也可写成 F2 = F1 Example: M_NAME = CHER.&使用 Offset 语法: MOVE + TO + Example: DATA: F1(10) VALUE ABCDEFGHIJ. F2(5). F2 = F1+3(5). “自第4个位置开始取出5个字符 F2 的内容会变成 DEFGH &Field String 组件的复制 语法: MOVE CORRESPONDING TO . 将Strings1中的field组件的数据复制至String2中,

20、 仅复制相同名称的组件 Example: DATA: BEGIN OF ADDRESS, FIRSTNAME(10) VALUE LULU, LASTNAME(10) VALUE CHOU, TEL(12) VALUE 4660570, END OF ADDRESS. DATA:BEGIN OF NAME, FIRSTNAME(10), LASTNAME(10), E_MAIL(30), END OF NAME. MOVE-CORRESPONDING ADDRESS TO NAME. NAME-FIRSTNAME 变成 LULU, NAME-LASTNAME 变成 CHOU, 而 NAME-E

21、_MAIL 则不变&变量 CALL BY VALUE 的使用 在变量的使用上, 可以使用类似Call By Value 的方法 语法: WRITE () TO Example: DATA: NAME(20) VALUE SOURCE, SOURCE(10) VALUE LILY, TARGET(10). WRITE (NAME) TO TARGET. WRITE / TARGET. 屏幕可印出 LILY&清除变量内容 语法: CLEAR 清除变量现在内容, 恢复成初值 Example: DATA N TYPE I VALUE 100. CLEAR N. 变量 N 的内容变成 0 &算术符号 *

22、 乘幂 * 乘 / 除 + 加 - 减 DIV 整数除法 MOD 余数除法 &数值函数1. ABS(N): 传回数值 N 的绝对值2. SIGN(N): 1 if N 0 0 if N = 0 -1 if N 03. CEIL(N): 传回大于数值N的最小整数 Example: WRITE CEIL(-5.65) 印出 5.00 WRITE CELL(4.54) 印出 5.004. FLOOR(N): 传回小于数值N的最大整数 Example: WRITE FLOOR(-5.65) 印出 6.00 WRITE FLOOR(4.54) 印出 4.005. TRUNC(N): 传回数值N的整数部分

23、 Example: WRITE TRUNC(5.65) 印出 5.006. FRAC(N): 传回数值 N 的小数部分 Example: WRITE FRAC(5.65) 印出 0.657. COS(A),SIN(A),TAN(A): 传回三角函数 cos A, sin A, tan A 的值, A 为弪度量8.EXP(N): 传回 eN 值8. LOG(N): 传回 log eN 值9. LOG10(N): 传回 log N值10.SQRT(N): 传回 N 的平方根值 &日期与时间运算 1.日期数据的运算 日期数据可以直接运算, 如加法与减法的运算 Example: DATA: Mdata

24、 TYPE D. Mdate = SY-DATUM. “ 如传回 19971015 Mdate+6(2) = 01 “ Mdate 变成 19971001 Mdate = Mdate - 1 “ Mdate 变成 19970931 2.时间数据的运算时间格式为 hhmmss, 如 212030 表 21:20:30Example: DATA: HOURS TYPE I, MINUTES TYPE I, T2 TYPE T VALUE 200000, T1 TYPE T VALUE 183000. HOURS = (T2 - T1) / 3600. “计算有几小时 MINUTES = (T2 T

25、1) / 60. “计算几分钟&字符串数据处理1.字符串移位 语法: SHIFT BY PLACES : (1).空白, 字符串往左移一位 (2).LEFT, 字符串往左移 n 位 (3).RIGHT, 字符串往右移 n 位 (4).CIRCULAR: 字符串以环状方式移位 Example: DATA STRING(10) VALUE ABCDEFGHIJ. SHIFT STRING. “得到 BCDEFGHI SHIFT STRING BY 2 PLACES RIGHT. “得到 ABCDEFGH2.取代字符串内容 语法: REPLACE WITH INTO 将字符串 中的 以 来取代 Ex

26、ample: DATA: STRING(10) VALUE ABCDEFGHI, STR1(3) VALUE DEF, STR2(3) VALUE 123. REPLACE STR1 WITH STR2 INTO STRING. WRITE / STRING. “得到 ABC123GHI3.大小写的转换 语法: TRANSLATE TO UPPER CASE. “转成大写 TRANSLATE TO LOWER CASE. “转成小写4.在字符串中寻找部分字符串 语法: SEARCH FOR Example: DATA STRING(10) VALUE ABCDEFGHIJ. 会回存至两个变数,

27、 SY-SUBRC 和 SY-FDPOS, 若找到则 SY-SUBRC 为 0 SY-FDPOS 存开始位迭, 若找不到则 SY-SUBRC为 4, SY-FDPOS为 05.字符串长度 STRLEN() Example: INT = STRLEN(XYZABC). “得到 6 INT = STRLEN(ABC ). “得到 36.取部分字符串 + Example: DATA T(10) VALUE ABCDEFGHIJ. WRITE / T+2(4). “得到 CDEF 2.5 Flow Controlling&比较符号 1. = 或 EQ : 等于 2. 或 或 NE : 不等于 3. 或

28、 LT : 小于4. 或 GT : 大于6. = 或 GE : 大于等于7. AND : 且8. OR : 或9. NOT : 非&条件述叙 1. IF 述叙 语法: IF . ELSEIF . ELSEIF . . ELSE. ENDIF. (1).在每个判断叙述之后要加上 . (2).在巢状迥圈之中无法使用 ELSE 叙述, ELSE 叙述属 IF 叙述 Example: IF 3 8. WRITE / 3 is less than 8. ENDIF. 2. CASE 叙述 语法: CASE . WHEN . WHEN . . WHEN OTHERS. ENDCASE. Example:

29、S = A. CASE S. WHEN X. WRITE / String is X. WHEN OTHERS. WRITE / String is not X. ENDCASE. &迥圈叙述1.计次迥圈 语法: DO n TIMES VARYING FROM TO . ENDDO. Example: DO 2 TIMES. WRITE / X. ENDDO. 执行结果: X X DO VARYING I FROM1 TO 10. S = S + I. ENDDO. WRITE: / ,1+2+3+10=,S 执行结果: 1+2+3+10=55 2.条件迥圈语法: WHILE . ENDWHI

30、LE Example: 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. WRITE / SY-INDEX. ENDDO. 执行结果: 1 32. CHECK CHECK 之后条件成立才继续往下执行迥圈 Example: DO 5 TIMES. CHECK SY-INDEX BETWEEN 2 AND 4. WRIT

31、E / SY-INDEX. ENDDO. 执行结果: 2 3 43. EXIT跳离迥圈叙述Example: DO 10 TIMES. IF SY-INDEX = 4. EXIT. ENDIF WRITE / SY-INDEX. ENDDO. 执行结果: 1 2 3&无穷迥圈 DO . ENDDO. 无穷迥圈必须配合 EXIT 叙述来执行2.6 Processing Internal Table&Internal Table 的宣告 ABAP/4的 Internal Table 如同其它语言的数组结构, 在操作上可以有复制,删除,新增插入等功 能. 1.使用 TYPE 叙述 语法: TYPES

32、OCCURS 宣告一个数组 , 型态为 , 长度为 Example: TYPES A TYPE I OCCURS 10. A 是个10个元素的数值Internal Table Example: TYPES: BEGIN OF LINE, COL1 TYPE I, COL3 TYPE I, END OF LINE. TYPES ITAB TYPE LINE OCCURS 10. 宣告一个Internal Table ITAB, 总共有10个元素, 其WORK AREA 名称 为 LINE 2.使用 DATA 叙述 若使用DATA叙述来宣告Internal Table, 可分成要不要有HEADER

33、 LINE, HEADER LINE 就 是所谓的 WORK AREA, 用在数据的存取上. 语法: DATA OCCURS WITH HEADER LINE Example: DATA VECTOR TYPE I OCCURS 10 WITH HEADER LINE.3.直接宣告, 不使用 WORK AREA语法: DATA: BEGIN OF OCCURS , END OF . Example: DATA: BEGIN OF ITAB OCCURS 10, COL1 TYPE I, COL2 TYPE I, END OF ITAB. 如此产生的Internal Table 不会有 Work

34、 Area, 也就是宣告时不会 Reference 其它的 Conponent 宣告&Append Line 语法: APPEND TO Initial Line To Initial Line To 为增加一预设初值的元素 Example: 使用 Work Area DATA: 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为迥圈的 Counter LINE-COL2 = SY-IND

35、EX *2. APPEND LINE INTO ITAB. “新增至 Internal Table中 ENDDO. LOOP AT ITAB INTO LINE. “ITAB 总共有两个元素 WRITE: / LINE-COL1,LINE-COL2. ENDLOOP. 执行结果为: 1 1 2 4 Example: 不使用 Work Area DATA: BEGIN OF ITAB OCCURS 10, COL1 TYPE I, COL2 TYPE I, END OF ITAB. DO 2 TIMES. ITAB-COL1 = SY-INDEX. ITAB-COL2 = SY-INDEX *2

36、. APPEND ITAB. “新增至 Internal Table中 ENDDO. LOOP AT ITAB. “ITAB 总共有两个元素 WRITE: / ITAB-COL1,ITAB-COL2. ENDLOOP. 执行结果为: 1 1 2 4&加入另一Internal Table的元素 语法: APPEND LINES OF FROM TO TO 将的元素加入至中, 可选取自至的范围 Example: APPEND LINES OF ITAB TO JTAB. 将ITAB所有元素加入JTAB中&Collect Line 在加入新元素时将有相同standard key(非数值字段)的数值字

37、段汇总 语法: COLLECT INTO Example: DATA: BEGIN OF ITAB OCCURS 3, COL1(3) TYPE C, COL2 TYPE I, END OF ITAB. ITAB-COL1 = ABC. ITAB COL2 = 10. COLLECT ITAB. ITAB-COL1 = XYZ. ITAB-COL2 = 20. COLLECT ITAB. ITAB-COL1 = ABC. ITAB-COL2 = 30. COLLECT ITAB. “汇总COL2 至 COL1=ABC 的元素上 LOOP AT ITAB. WRITE: / ITAB-COL1,

38、ITAB-COL2. ENDLOOP. 执行结果: ABC 40 XYZ 20&Insert Line 插入元素在指定的Internal Table位置之前 语法: INSERT INTO INITIAL LINE INTO INDEX Example: DATA: BEGIN OF LINE, COL1 TYPE I, COL2 TYPE I, END OF LINE. DATA ITAB LIKE LINE OCCURS 10. DO 3 TIMES. LINE-COL1 = SY-INDEX *10. LINE-COL2 = SY-INDEX *20. APPEND LINE INTO ITAB.