first abap program

写了一个abap的小程序,还不错,就是需要都在server上运行,开发的成本比较大啊
*&--------------*
*& Report ZRFC_TEST2
*-*

REPORT ZRFC_TEST2 .
data a type n value 2 .
data b type n value 4.
data c type n.
data m(20) type c value 'hello'."字符串必须指明长度
data:begin of ADDRESS ,"声明一个数据结构
street(20) type c,
city(20) type c,
country type c,
count type I,
end of ADDRESS.
DATA:myaddress like ADDRESS.

DATA: BEGIN OF LINE,"内表数据类型
COL1 TYPE I,
COL2 TYPE I,
COL3 TYPE I,

END OF LINE.
DATA ITAB LIKE LINE OCCURS 10.


c = a * b."注意=,*周围的空格
Write:m , ' a*b=',c,'!'.
myaddress-street = 'dianzi street'.
myaddress-city = 'xian'.
myaddress-count = 4.

write: / 'myaddress id ',myaddress-city .
*write: myaddress报错,因为myaddress-count不是字符类型
DO 9 TIMES.
"9次循环
LINE-COL1 = SY-INDEX."系统序号,从1开始
LINE-COL2 = SY-INDEX ** 2."乘方
APPEND LINE TO ITAB.
ENDDO.

WRITE: / '系统序号:',SY-INDEX."现在它变成0了

LINE-COL1 = 11. LINE-COL2 = 22.
INSERT LINE INTO ITAB INDEX 2.
"插入到第二个位置,原来的元素后移

LOOP AT ITAB INTO LINE.
WRITE: / SY-TABIX,LINE-COL1,LINE-COL2.
"SY-TABIX行号,从1开始
ENDLOOP.

TABLES SPFLI.
SELECT SINGLE * FROM SPFLI WHERE CARRID = 'LH'
AND CONNID = '2407'.
WRITE: / SPFLI-CARRID, SPFLI-CONNID,
SPFLI-CITYFROM, SPFLI-CITYTO.

SELECT * FROM SPFLI WHERE CITYFROM EQ 'FRANKFURT'.

WRITE: / SPFLI-CARRID, SPFLI-CONNID,
SPFLI-CITYFROM, SPFLI-CITYTO.

ENDSELECT.
附件是本教程,挺好
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值