abap123入门教材(中文)

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.Reports

呼叫一个独立的事件(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语法使用

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 code来产生屏幕对话框

3.由flow logic 控制, flow logic分成PBO(Process Before Output)与PAI(Process After Input)

2.Begin To Programming

2.1 ABAP/4 Editor

Creating ABAP/4 Program

使用ABAP Workbench撰写程序(Choose Tools->ABAP/4 Workbench, Transaction Code: S001), 萤

幕如下:

可分成:

1.ABAP/4 Editor :针对简单的报表或程序, 仅使用几个组件或不使用

2.Obiect Browser :针对复杂的报表或程序, 如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:程序描述或功能说明

(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 module, 如F表 Financeial acounting

(5).Development class: 用于同一系统中各个program, 如果不属任一class, 可使用$TMP

4.撰写

Source Code

Program 之后接的是程序名称, Write 是显示的意思, 会将所接的字符串在屏幕上显示, 注意每一

行最后要有一个 . (点), 表示叙述的结束, 储存后回ABAP/4 Editor画面

5. 执行程序

按”Execute”或F8键, 屏幕可见执行所得的结果

重要的编辑键

key Function

F8

F5

F11 CTRL+F11 执行程序

复制游标所在列的内容储存档案

删除游标所在列

2.2 ABAP/4 Data Element

Data Type

ABAP/4 的数据型态可分成:

Type Length Range Initial Value Description

C 1 1-65535Byte Space 字符串数据, 如’Program’

D 8 8Byte ‘00000000’ 日期数据, 格式为YYYYMMDD

F 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’ 时间数据, 格式为HHMMSS X 1 1-65535Byte X’00’ 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-DATUM 系统日期

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 [] [] []

: 变量名称, 最长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.

使用时用字段变量加上组件名称, 如 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.

SELECT * 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-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 数据项<显示格式参数>

显示格式参数:

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 日期显示格式

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 系统所提供的符号或图标

语法:

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轴列坐标

语法:

SKIP 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.

执行结果:

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中, 仅复制相同名称的组件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_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

算术符号

** 乘幂

* 乘

/ 除

+ 加

- 减

DIV 整数除法

MOD 余数除法

数值函数

1.ABS(N): 传回数值 N 的绝对值

2.SIGN(N): 1 if N > 0

0if N = 0

-1 if N < 0

3.CEIL(N): 传回大于数值N的最小整数

Example:

WRITE CEIL(-5.65) 印出 –5.00

WRITE CELL(4.54) 印出 5.00

4.FLOOR(N): 传回小于数值N的最大整数

Example:

WRITE FLOOR(-5.65) 印出 –6.00

WRITE FLOOR(4.54) 印出 4.00

5.TRUNC(N): 传回数值N的整数部分

Example:

WRITE TRUNC(5.65) 印出 5.00

6.FRAC(N): 传回数值 N 的小数部分

Example:

WRITE FRAC(5.65) 印出 0.65

7.COS(A),SIN(A),TAN(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. “ 如传回 19971015

Mdate+6(2) = ‘01’ “ Mdate 变成 19971001

Mdate = Mdate - 1 “ Mdate 变成 19970931

2.时间数据的运算

时间格式为 ‘hhmmss’, 如 ‘212030’ 表 ’21:20:30’

Example:

DATA: HOURS TYPE I,

MINUTES TYPE I,

T2 TYPE T VALUE ‘200000’,

T1 TYPE T VALUE ‘183000’.

HOURS = (T2 - T1) / 3600. “计算有几小时

MINUTES = (T2 – T1) / 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. “得到 ABCDEFGH

2.取代字符串内容

语法:

REPLACE WITH INTO

将字符串 中的 以 来取代

Example:

DATA: STRING(10) VALUE ‘ABCDEFGHI’,

STR1(3) VALUE ‘DEF’,

STR2(3) VALUE ‘123’.

REPLACE STR1 WITH STR2 INTO STRING.

WRITE / STRING. “得到 ABC123GHI

3.大小写的转换

语法:

TRANSLATE TO UPPER CASE. “转成大写

TRANSLATE TO LOWER CASE. “转成小写

4.在字符串中寻找部分字符串

语法:

SEARCH FOR

Example:

DATA STRING(10) VALUE ‘ABCDEFGHIJ’.

会回存至两个变数, SY-SUBRC 和 SY-FDPOS, 若找到则 SY-SUBRC 为 0

SY-FDPOS 存开始位迭, 若找不到则 SY-SUBRC为 4, SY-FDPOS为 0 5.字符串长度

STRLEN()

Example:

INT = STRLEN(‘XYZABC’). “得到 6

INT = STRLEN(‘ABC ’ ). “得到 3

6.取部分字符串

[+][]

Example:

DATA T(10) VALUE ‘ABCDEFGHIJ’.

WRITE / T+2(4). “得到 CDEF

2.5 Flow Controlling

比较符号

1. = 或EQ : 等于

2. <> 或 >< 或NE : 不等于

3. < 或LT : 小于

4.<= 或LE : 小于等于

5.> 或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 <变数f>.

WHEN .

WHEN .

….

WHEN OTHERS.

ENDCASE.

Example:

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 FROM 1 TO 10.

S = S + I.

ENDDO.

WRITE: / ,’1+2+3+…+10=’,S

执行结果: 1+2+3+…+10=55

2.条件迥圈

语法:

WHILE .

ENDWHILE

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.C ONTINUE

跳至迥圈的下一次

Example:

DO 3 TIMES.

IF SY-INDEX = 2.

CONTINUE.

WRITE / SY-INDEX.

ENDDO.

执行结果:

1

3

2.C HECK

CHECK 之后条件成立才继续往下执行迥圈

Example:

DO 5 TIMES.

CHECK SY-INDEX BETWEEN 2 AND 4.

WRITE / SY-INDEX.

ENDDO.

执行结果:

2

3

4

3.E XIT

跳离迥圈叙述

Example:

DO 10 TIMES.

IF SY-INDEX = 4.

EXIT.

ENDIF

WRITE / SY-INDEX.

ENDDO.

执行结果:

1

2

3

无穷迥圈

DO .

ENDDO.

无穷迥圈必须配合 EXIT 叙述来执行