SAPABAP開發(fā)基礎(chǔ)概述

1、學(xué)習(xí)順序數(shù)據(jù)類型域什么什么的字符串結(jié)構(gòu)內(nèi)表OpenSQL函數(shù)子程序報(bào)表一、T-CODESE80 對(duì)象掃瞄器SE38 寫程序SE11 建表SE37 函數(shù)SM04 查看用戶SE91 message系統(tǒng)sy-uzeit 系統(tǒng)時(shí)刻sy-datum 系統(tǒng)日期sy-datum是2010.10.10 sy-datum+0(2)是20 sy-datum+2(3)是101PS a-comun+29(11).這也是偏移的操作sy-subrc 正常是0，不正常是0或其他二、數(shù)據(jù)類型完整型d 日期 8字節(jié) YYYYMMDDt 時(shí)刻 6字節(jié)i 整型f 浮點(diǎn)型string 可變長的字符型非完整型非完整型c 字符型 （若不

2、指定長度默認(rèn)是1個(gè)字節(jié)）n 數(shù)字字符型p 小數(shù)（常用）(壓縮數(shù) 裝載它的空間是（x+1）/2 x是原來裝載它的長度)data v1(5) type p decimals 2 value 123.45.三、各種定義差不多格式DATA:XX TYPE YY VALUEZZ各種來了*參照數(shù)據(jù)字典定義*參照數(shù)據(jù)元素定義data v9 type zdata_jg_20100325_01.*參照數(shù)據(jù)庫表的字段定義data v10 type scarr-carrid.*定義常量CONSTANTS c1 TYPE i VALUE 1.*定義單值選側(cè)屏幕PARAMETERS p1(8) TYPE n defau

3、lt AA.*參照自定義類型定義變量TYPES t1(10) TYPE c.DATA v9 TYPE t1.*參照自定義變量定義變量DATA v10 LIKE v9.*參照數(shù)據(jù)字典中的TYPE GROUP定義數(shù)據(jù)類型TYPE-POOLS zjg01 .data v20 type zjg01_z1.定義結(jié)構(gòu)DATA : BEGIN OF wa, carrid TYPE spfli-carrid, connid TYPE spfli-connid, cityfrom TYPE spfli-cityfrom, cityto TYPE spfli-cityto, distance TYPE spfli

4、-distance, distid TYPE string, END OF wa.依照結(jié)構(gòu)定義內(nèi)表DATA itab LIKE TABLE OF wa. 流程操縱-IFELSEIF a 12. WRITE : 他比12大.ELSE. WRITE : 他比12小.ENDIF.循環(huán)DO 10 TIMES. WRITE: / 這是第,ie,次. ie = ie + 1.ENDDO.把內(nèi)表循環(huán)到結(jié)構(gòu)中LOOP AT itab INTO wa. WRITE : / wa-id.ENDLOOP.內(nèi)表各種操作-collect在內(nèi)表中一定有一個(gè)數(shù)值型的字段，而且其他字段均為字符型把數(shù)值型字段上的數(shù)加起來DAT

5、A : BEGIN OF wa, a(4) TYPE c, b(4) TYPE c, c TYPE i, END OF wa.DATA itab LIKE TABLE OF wa.wa-a = 001.wa-b = 0101.wa-c = 100.*APPEND wa TO itab.COLLECT wa INTO itab.wa-a = 002.wa-b = 0201.wa-c = 200.*APPEND wa TO itab.COLLECT wa INTO itab.wa-a = 002.wa-b = 0201.wa-c = 100.*APPEND wa TO itab.COLLECT w

6、a INTO itab.LOOP AT itab INTO wa. WRITE : / wa-a, wa-b, wa-c.ENDLOOP.內(nèi)表各種操作-readLOOP AT itab1 INTO wa. READ TABLE itab2 INTO wa1 WITH KEY carrid = wa-carrid. IF sy-subrc 0. clear wa1. move-corresponding wa to wa1. append wa1 to itab2. ENDIF.ENDLOOP.依照結(jié)構(gòu)修改內(nèi)表modify itab from wa.SQL操作1、把SQL結(jié)果放入內(nèi)表中SELEC

7、T carrid connid cityfrom cityto distance distid FROM spfli INTO CORRESPONDING FIELDS OF TABLE itab. 放到了內(nèi)表中INTO CORRESPONDING FIELDS OF wa.放到了結(jié)構(gòu)中2.1、多表查詢SELECT scarrcarrid scarrcarrname spfliconnid spflicityfromspflicityto FROM scarr INNER JOIN spfli ON scarrcarrid = spflicarrid INTO CORRESPONDING FI

8、ELDS OF TABLE itab.2.2、更多表查詢SELECT spflicarrid spfliconnid spflicityfrom spflicitytosbookfldate sbookbookid sbookcustomid sbookcusttype scustomnamescustomstreet FROM spfli INNER JOIN sbook ON spflicarrid = sbookcarrid AND spfliconnid = sbookconnid INNER JOIN scustom ON sbookcustomid = scustomid INTO

9、 CORRESPONDING FIELDS OF TABLE itab.各種關(guān)鍵字APPEND wa TO itab.把結(jié)構(gòu)搞到內(nèi)表中MOVE TO 結(jié)構(gòu)賦值modify itab from wa依照結(jié)構(gòu)修改內(nèi)表MOVE-CORRESPONDING str1 TO str3.同名字段賦值分支研究data:v1 type i value 1.v2 type i.do 50 times.v2 = v1 * 2.write : v1,v2.v1=v1 +1.enddo.函數(shù)來了字符串操作CONCATENATE wa-fldate wa-week INTO wa-www SEPARATED BY/星期

10、.子程序三種類型：值傳遞，值傳遞并返回# 1.值傳遞-實(shí)參在傳遞過程中不發(fā)生改變，只是傳遞一個(gè)實(shí)參的拷貝，適用于值不能改變的單值，不適合內(nèi)表參數(shù)傳遞。# 2.值傳遞并返回結(jié)果-傳遞一個(gè)實(shí)參的拷貝，實(shí)參的拷貝發(fā)生改變，返回給實(shí)參，適合于能夠改變的單值傳遞，不適合內(nèi)表參數(shù)傳遞。# 3.引用傳遞-傳遞實(shí)參，子程序運(yùn)行結(jié)束后，實(shí)參依照子程序運(yùn)行結(jié)果，適合單值也適合內(nèi)表。看看代碼就明白如何用了DATA : a TYPE i, b TYPE i, c TYPE i.PERFORM x USING a.這是值傳遞PERFORM y CHANGING b.這是值傳遞改變PERFORM z CHANGING c

11、.這是引用傳遞PERFORM xyz USING a CHANGING b c.連起來確實(shí)是這么用滴*值傳遞和值傳遞引用改變需要寫個(gè)value,引用傳遞不需要FORM xyz USING value(f1) TYPE i值傳遞 CHANGING value(f2) TYPE i值傳遞改變 f3 TYPE i.引用傳遞ENDFORM. *假如傳入的是內(nèi)表，子程序中能夠這么寫FORM xyz CHANGING p-itab like itab.*也能夠這么寫吧FORM xyz CHANGING p-itab type itab.屏幕START-OF-SELECTION. 主程序開始了！ WRITE

12、 : / text-001,sy-lsind.AT LINE-SELECTION. CASE sy-lsind. WHEN 1. WRITE : / 第一級(jí)詳細(xì)列表,sy-lsind. WHEN 2. WRITE : / 第二級(jí)詳細(xì)列表,sy-lsind. WHEN 3. WRITE : / 第三級(jí)詳細(xì)列表,sy-lsind. ENDCASE.單值選擇屏幕PARAMETER p1 TYPE scarr-carrid DEFAULT AA.多重選擇屏幕TABLES scarr.相當(dāng)于data scarr type scarr.SELECT-OPTIONS pi FOR scarr-carrid.

13、 for后面不是類型是變量*下面是用法SELECT carrid carrname FROM scarr INTO CORRESPONDING FIELDS OF TABLE itab WHERE carrid IN pi.LOOP AT itab INTO wa. WRITE : / wa-carrid, wa-carrname.ENDLOOP.data : v1 type i value 1.data : v2 type i value 1.data : v3 type i value 2.data : v4 type i value 3.do v1 times.write : v1, -

14、 , v2.write : v1, - , v2.write : v1, - , v2.data : begin of wa1, ebeln(3) type c, dat type d, menge type i, end of wa1. data itab like table of wa1. wa1-ebeln = 001. wa1-dat = 20070803. wa1-menge = 10. append wa1 to itab. clear wa1. wa1-ebeln = 001. wa1-dat = 20070903. wa1-menge = 20. append wa1 to

15、itab. clear wa1. wa1-ebeln = 002. wa1-dat = 20080303. wa1-menge = 20. append wa1 to itab. clear wa1. wa1-ebeln = 003. wa1-dat = 20080603. wa1-menge = 30. append wa1 to itab. clear wa1.loop at itab into wa1.write : / wa1-ebeln, wa1-dat, wa1-menge.endloop.uline.data : begin of wa2, ebeln(3) type c, menge type i, end of wa2. data itab2 like table of wa2.loop at itab into wa1.move-corresponding wa1 to wa2.collect wa2 into itab2.endlo