ABAP 數據筆記 6-11-08

来源：互联网发布：网络口碑营销失败案例编辑：程序博客网时间：2024/06/03 14:53

REPORT ZPY_TESTFROM.

insert into dbtab form wa.
insert into dbtab values wa. " sy-subrc =0 則成功，不為了沒有任何更新。
insert dbtab from table itab accepting duplicate keys. "如果出現運行錯誤，系統返回4，并跳過條目更新其它條目。
update dbtab set f1 = g1 ..fn= gn where <kix_key>. " or update dbtab f1 = f1+g1 .....<kix_key>.

modify dbtab from table itab . " 如果存在更改，如果不存在插入。

data : wa_sflight like sflight.
wa_sflight-carrid = 'ca'.
...
call function 'enqueue_edemoflht'
exporting
   mode_sflight = 'X'
   carrid = wa_sflight-carrid
   connid = wa_sflight-connid
   fldate = wa_sflight-fldate
exceptions
    foreign_lock =1
    system_failure = 2
    others =3.

if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif .
update sflight set carrid = wa_sflight-carrid.
call function 'dequeue_edemoflht'.

*************** 文件接口 ********
    OPEN DATASET FILE FOR OUTPUT IN BINARY MODE .
    SELECT * FROM SFLIGHT INTO WA_SFLIGHT.
      TRANSFER WA_SFLIGHT TO FILE.
      APPEND WA_SFLIGHT TO SFLIGHT_TAB_1.
      ENDSELECT .
      CLOSE DATASET FILE.

      OPEN DATASET FILE FOR INPUT IN BINARY MODE .
      DO.
         READ DATASET FILE INTO WA_SFLIGHT.
         IF SY-SUBRC<> 0.
           EXIT.
           ENDIF.
           APPEND WA_SFLIGHT TO SFLIGHT_TAB_2.
           ENDDO.
           CLOSE DATASET FILE .

           IF SFLIGHT_TAB_1 = SFLIGHT_TAB_2.
             MESSAGE I888(SABAPDOCU) WITH 'OK'.
             ENDIF.

******寫入內存數據簇**********
data text(20) value 'data cluster' .
export dc = text to memory id 'men'.
submit z_cluster_import.

report z_cluster_import
data : text(20).
import dc = text from memory id 'men'.
write : /text.

delete from dataset dbtab(ar) ID id."刪除簇