first abap program

fourfire

写了一个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.
附件是本教程，挺好