first abap program
写了一个abap的小程序，还不错，就是需要都在server上运行，开发的成本比较大啊*&--------------*
*& ReportZRFC_TEST2
*-*
REPORTZRFC_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.
附件是本教程，挺好
页:
[1]