【正文】 語法DELETE internal table [FROM work area].或: DELETE internal table [WHERE conditions]刪除資料檔的記錄 Primary Key語法: DELETE database FROM waExample:TABLES SPFLI.DATA WA LIKE SPFLI.WANO=39。3405192039。.WACOMPANY=39。DELTA39。.DELETE SPFLI FROM WA.如 SPFLI 的 Primary Key是 NO, 則會找到 NO=39。3405192039。的記錄, 找到後將此筆刪除 語法:DELETE FROM database WHERE condition根據(jù)條件式刪除符合條件式的記錄Example:DELETE FROM SPFLI WHERE AREA = 39。AMERICAN39。.**5. DATABASE CURSORDatabase Cursor是一個資料庫暫存區(qū), 將經(jīng)SELECT指令讀取的記錄存放至此暫存區(qū), 再由此暫存區(qū)放至Work Area中, 可減少資料庫讀取的次數(shù). Database Cursor語法:OPEN CURSOR c FOR SELECT … WHERE conditionExample:TABLES SPFLI.DATA: WA LIKE SPFLI,C1 TYPE CURSOR.OPEN CURSOR C1 FOR SELECT * FROM SPFLI WHERE AREA =39。TAIWAN39。. Database Cursor的資料存入 Work Area語法:FETCH NEXT CURSOR c INTO waExample:FETCH NEXT CURSOR C1 INTO WA.讀取下一筆Cursor位置的資料存入WA, 如果已無資料可讀, SYSUBRC 0. 關閉 Database Cursor語法:CLOSE CURSOR cExample:CLOSE CURSOR C1.**COMMIT WORK amp。 ROLLBACK WORK要確定資料成功寫入資料庫,可使用COMMIT WORK指令,如: COMMIT WORK.相反的, 如果反悔要復原, 可使用 ROLLBACK WORK, 可復原在上個COMMIT WORK指令之後的資料, 如:ROLLBACK WORK.**使用NATIVE SQL指令語法格式:EXEC SQL [PERFORMING form].statementsENDEXEC.舉例一.EXEC SQL.CREATE TABLE AVERI_CLNT (CLIENT CHAR(3) NOT NULL,ARG1 CHAR(3) NOT NULL,ARG2 CHAR(3) NOT NULL,FUNCTION CHAR(10) NOT NULL,PRIMARY KEY (CLIENT, ARG1, ARG2))ENDEXEC.舉例二.DATA: F1(3), F2(3), F3(3).F3 = 39。 1 39。EXEC SQL.SELECT CLIENT, ARG1 INTO :F1, :F2 FROM AVERI_CLNTWHERE ARG2 = :F3ENDEXECPERFORMING form name的使用:如果NATIVE SQL的SELECT命令執(zhí)行結(jié)果是抓到多筆記錄,我們想要逐筆記錄處理時,就用PERFORMING 參數(shù),就用EXIT FORM SQL結(jié)束調(diào)用.例如:DATA: F1(3), F2(3), F3(3).F3 = 39。01039。EXEC SQL PERFORMING WRITE_AVERI_CLNT.SELECT CLIENT, ARG1 INTO :F1, :F2 FROM AVERI_CLNTWHERE ARG2 = :F3ENDEXEC.FORM WRITE_AVERI_CLNT.WRITE: / F1, F2.ENDFORM.DATA: BEGIN OF WA,NAME(8),AGE TYPE I,END OF WA.DATA F1 TYPE I.FI = 20.EXEC SQL PERFORMING OUTPUT.SELECT NAME,AGE INTO :WA FROM NAME_TABLE WHERE AGE = :F1.ENDEXEC..FORM OUTPUT.WRITE: / WANAME,WAAGE.ENDFORM.注意:a. NATIVE SQL把TABLE中的MANDT(client)欄位當作一般欄位使用,所以在抓取資料時必須指定特定的Client。b. NATIVE SQL中的SELECT語句沒有CHECK權(quán)限的功能。c. 在登入SAP R/3系統(tǒng)時,我們已經(jīng)自動與Database連接,所以在執(zhí)行NATIVESQL時并不需要CONNECT語句。d. 一條NATIVE SQL語句可以以分號。結(jié)束,.e. 某些數(shù)據(jù)庫系統(tǒng)對TABLE名字和FIELD名字有大小寫區(qū)別,要正確書寫.f. 在NATIVE SQL中,雙引號不表示注釋.**結(jié)果語句條件述敘1. IF 述敘語法:IF Condition1.Statement 1 ELSEIF Condition2.Statement 2ELSEIF Condition3.Stetement 3…..ELSE.else Statement ENDIF.(1).在每個判斷敘述之後要加上 .(2).在巢狀迥圈之中無法使用 ELSE 敘述, ELSE 敘述屬 IF 敘述Example:IF 3 8.WRITE / 39。3 is less than 839。.ENDIF.2. CASE 敘述語法:CASE 變數(shù)f.WHEN Value1.Statement1WHEN Value2.Statement2….WHEN OTHERS.others StatementENDCASE.Example:S = 39。A39。. CASE S.WHEN 39。X39。.WRITE / 39。String is X39。.WHEN OTHERS.WRITE / 39。String is not X39。.ENDCASE.迥圈敘述語法:DO [n TIMES] [VARYING f FROM start TO end.loop blockENDDO.Example:DO 2 TIMES.WRITE / 39。X39。.ENDDO.執(zhí)行結(jié)果:XXDO VARYING I FROM　1 TO 10.S = S + I.ENDDO.WRITE: / ,39。1+2+3+…+10=39。,S執(zhí)行結(jié)果: 1+2+3+…+10=55語法:WHILE Condition.Statement BlockENDWHILEExample:I = 1.S=0.WHILE I = 10.S = S+I.I=I+1.ENDWHILE.WRITE: / 39。 1+2+3+…+10=39。,S.執(zhí)行結(jié)果為: 1+2+3+…+10=55迥圈控制敘述1. CONTINUE跳至迥圈的下一次Example:DO 3 TIMES.IF SYINDEX = 2.CONTINUE.WRITE / SYINDEX.ENDDO.執(zhí)行結(jié)果: 132. CHECK ConditionCHECK 之後條件成立才繼續(xù)往下執(zhí)行迥圈Example:DO 5 TIMES.CHECK SYINDEX BETWEEN 2 AND 4.WRITE / SYINDEX.ENDDO.執(zhí)行結(jié)果:2343. EXIT跳離迥圈敘述Example:DO 10 TIMES.IF SYINDEX = 4.EXIT.ENDIFWRITE / SYINDEX.ENDDO.執(zhí)行結(jié)果:123無窮迥圈DO .Statement BlockENDDO.無窮迥圈必須配合 EXIT 敘述來執(zhí)行**搜索字符串要搜索特定 模式的字符 串，請使用 SEARCH 語句，用法 如下：語法SEARCH c FOR str options.該語句在字 段 c 中搜索str 中的字符串 。如果成功 ，則將 SYSUBRC 的返回代碼 值設置為0并 將 SYFDPOS 設置為字段 c 中該字符串 的偏移量。 否則將 SYSUBRC 設置為4。搜索串 str 可為下列格 式之一：str 目 的pattern 搜 索 pattern（ 任何字符順 序）。忽略 尾部空格。.pattern. 搜 索 pattern ，但是不忽 略尾部空格 。*pattern 搜 索以 pattern 結(jié)尾的詞。pattern* 搜 索以 pattern 開始的詞。單詞之間用 空格、逗號 、句號、分 號、冒號、 問號、嘆號 、括號、斜 杠、加號和 等號等分隔 。DATA STRING(30) VALUE 39。This is a little sentence.39。.WRITE: / 39。Searched39。, 39。SYSUBRC39。, 39。SYFDPOS39。.ULINE /1(26).SEARCH STRING FOR 39。X39。.WRITE: / 39。X39。, SYSUBRC UNDER 39。SYSUBRC39。,SYFDPOS UNDER 39。SYFDPOS39。 SEARCH STRING FOR 39。itt 39。.WRITE: / 39。itt 39。, SYSUBRC UNDER 39。SYSUBRC39。,SYFDPOS UNDER 39。SYFDPOS39。 SEARCH STRING FOR 39。.e .39。.WRITE: / 39。.e .39。, SYSUBRC UNDER 39。SYSUBRC39。,SYFDPOS UNDER 39。SYFDPOS39。.SEARCH STRING FOR 39。*e39。.WRITE: / 39。*e 39。, SYSUBRC UNDER 39。SYSUBRC39。,SYFDPOS UNDER 39。SYFDPOS39。.SEARCH STRING FOR 39。s*39。.WRITE: / 39。s* 39。, SYSUBRC UNDER 39。SYSUBRC39。,SYFDPOS UNDER 39。SYFDPOS39。.該過程的輸 出如下：SEARCHED SYSUBRC SYFDPOSX 4 0itt 0 11.e . 0 15*e 0 10s* 0 17搜索字符字 段 c 的各種選項 （options） 如下ABBREVIATED在字段 c 中搜索包含 str 中指定字符 串的單詞， 其中字符可 能被其它字 符隔開。單 詞和字符串 的第一個字 母必須相同 。STARTING AT n1在字段 c 中搜索從 n1 開始的 str 。結(jié)果 SYFDPOS 參照相對于 n1 的偏移量而 不是字段的 開始。ENDING AT n2 在字段 c 搜索 str 直到位置 n2。AND MARK如果找到搜 索串，則將 搜索串中的 所有字符（ 和使用 ABBREVIATED 時的所有字 符）轉(zhuǎn)換為 大寫形式。DATA: STRING(30) VALUE 39。This is a fast first example.39。,POS TYPE I,OFF TYPE I.WRITE / STRING.SEARCH STRING FOR 39。ft39。 ABBREVIATED.WRITE: / 39。SYFDPOS:39。, SYFDPOS.POS = SYFDPOS + 2.SEARCH STRING FOR 39。ft39。 ABBREVIATED STARTING AT POS AND MARK.WRI