SAP ABAP開(kāi)發(fā)基礎(chǔ)自寫(xiě)留用

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

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

3、 AA.*參照自定義類(lèi)型定義變量TYPES t1(10) TYPE c.DATA v9 TYPE t1.*參照自定義變量定義變量DATA v10 LIKE v9.*參照數(shù)據(jù)字典中的TYPE GROUP定義數(shù)據(jù)類(lèi)型TYPE-POOLS zjg01 .data v20 type zjg01_z1.定義構(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-d

4、istance, distid TYPE string, END OF wa.根據(jù)構(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)到構(gòu)造中LOOP AT itab INTO wa. WRITE : / wa-id.ENDLOOP.內(nèi)表各種操作-collect在內(nèi)表中一定有一個(gè)數(shù)值型的字段，而且其他字段均為字符型把數(shù)值型字段上的數(shù)加起來(lái)DATA

5、: 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 wa

6、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.根據(jù)構(gòu)造修正內(nèi)表modify itab from wa.SQL操作1、把SQL結(jié)果放入內(nèi)表中SELECT

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

8、DS OF TABLE itab.2.2、更多表查詢(xún)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 C

9、ORRESPONDING FIELDS OF TABLE itab.各種關(guān)鍵字APPEND wa TO itab.把構(gòu)造搞到內(nèi)表中MOVE TO 構(gòu)造賦值modify itab from wa根據(jù)構(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ù)來(lái)了字符串操作CONCATENATE wa-fldate wa-week INTO wa-www SEPARATED BY/星期.子

10、程序三種類(lèi)型：值傳送，值傳送并前往# 1.值傳送-實(shí)參在傳送過(guò)程中不發(fā)生改動(dòng)，只是傳送一個(gè)實(shí)參的拷貝，適用于值不能改動(dòng)的單值，不適宜內(nèi)表參數(shù)傳送。# 2.值傳送并前往結(jié)果-傳送一個(gè)實(shí)參的拷貝，實(shí)參的拷貝發(fā)生改動(dòng)，前往給實(shí)參，適宜于可以改動(dòng)的單值傳送，不適宜內(nèi)表參數(shù)傳送。# 3.援用傳送-傳送實(shí)參，子程序運(yùn)轉(zhuǎn)終了后，實(shí)參根據(jù)子程序運(yùn)轉(zhuǎn)結(jié)果，適宜單值也適宜內(nèi)表?？纯创a就知道怎樣用了DATA : a TYPE i, b TYPE i, c TYPE i.PERFORM x USING a.這是值傳送PERFORM y CHANGING b.這是值傳送改動(dòng)PERFORM z CHANGING c.這

11、是援用傳送PERFORM xyz USING a CHANGING b c.連起來(lái)就是這么用滴*值傳送和值傳送援用改動(dòng)需求寫(xiě)個(gè)value,援用傳送不需求FORM xyz USING value(f1) TYPE i值傳送 CHANGING value(f2) TYPE i值傳送改動(dòng) f3 TYPE i.援用傳送ENDFORM. *假設(shè)傳入的是內(nèi)表，子程序中可以這么寫(xiě)FORM xyz CHANGING p-itab like itab.*也可以這么寫(xiě)吧FORM xyz CHANGING p-itab type itab.屏幕START-OF-SELECTION. 主程序開(kāi)場(chǎng)了！ 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. fo

13、r后面不是類(lèi)型是變量*下面是用法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 ita

15、b. clear wa1. wa1-ebeln = 002. wa1-dat = 20210303. wa1-menge = 20. append wa1 to itab. clear wa1. wa1-ebeln = 003. wa1-dat = 20210603. 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