如何在SAP云平台ABAP编程环境里创建自己的Z表

灰太狼 2023-06-02 13:54 95阅读 0赞

选中ABAP包，右键创建一个新的Database Table：

![clipboard1,1][clipboard1_1]  
![clipboard2,2][clipboard2_2]

维护表名为ZBOOKING:

![clipboard3,3][clipboard3_3]

表实现的源代码：

@EndUserText.label : 'Jerry''s booking' @AbapCatalog.enhancementCategory : #NOT_EXTENSIBLE @AbapCatalog.tableCategory : #TRANSPARENT @AbapCatalog.deliveryClass : #A @AbapCatalog.dataMaintenance : #LIMITED define table zbooking { key client : abap.clnt not null; key booking : abap.int4 not null; customername : abap.char(50); numberofpassengers : abap.int2; emailaddress : abap.char(50); country : abap.char(50); dateofbooking : timestampl; dateoftravel : timestampl; @Semantics.amount.currencyCode : 'zbooking.currencycode' cost : abap.curr(15,2); currencycode : abap.cuky; lastchangedat : timestampl; }

激活：

![clipboard4,4][clipboard4_4]

下一步，创建一个ABAP类，以代码的方式往Z表里插入数据。

这个ABAP类要实现if\_oo\_adt\_classrun接口，类似Java里的console应用：

![clipboard5,5][clipboard5_5]

完整代码：

![clipboard6,6][clipboard6_6]

CLASS zcl_data_generator DEFINITION
      PUBLIC
      FINAL
      CREATE PUBLIC .
    
      PUBLIC SECTION.
        INTERFACES if_oo_adt_classrun.
      PROTECTED SECTION.
      PRIVATE SECTION.
    ENDCLASS.
    
    
    CLASS zcl_data_generator IMPLEMENTATION.
    
      METHOD if_oo_adt_classrun~main.
        DATA:it_bookings TYPE TABLE OF zbooking.
    
    *    read current timestamp
        GET TIME STAMP FIELD DATA(zv_tsl).
    *   fill internal table (itab)
        it_bookings = VALUE #(
            ( booking  = '1' customername = 'Jerry' numberofpassengers = '3'
              emailaddress = 'jerry@sap.com'
              country = 'China' dateofbooking ='20190213125959' dateoftravel ='20190213125959'
              cost = '546' currencycode = 'EUR' )
            ( booking  = '2' customername = 'Tom' numberofpassengers = '1'
              emailaddress = 'tom@sap.com'
              country = 'USA' dateofbooking ='20190313125959' dateoftravel ='20190313125959' cost = '1373' currencycode = 'USD' lastchangedat = zv_tsl )
         ).
    
        DELETE FROM zbooking.
    
        INSERT zbooking FROM TABLE @it_bookings.
    
        SELECT * FROM zbooking INTO TABLE @it_bookings.
        out->write( sy-dbcnt ).
        out->write( 'data inserted successfully!').
    
      ENDMETHOD.
    
    ENDCLASS.

执行这个console应用：

![clipboard7,7][clipboard7_7]

成功插入两条数据：

![clipboard8,8][clipboard8_8]

选中Z表，选择Open with Data Preview:

![clipboard9,9][clipboard9_9]

看到了成功插入的两条数据：

![clipboard10,10][clipboard10_10]

要获取更多Jerry的原创文章，请关注公众号"汪子熙":  
![公众号截图][60097669-68224900-9786-11e9-9f1e-e8bee08db4fa.png]

转载于:https://www.cnblogs.com/sap-jerry/p/11604128.html

[clipboard1_1]: /images/20230601/9f15fad9814d4ab3af5a17572c88f6ae.png
[clipboard2_2]: /images/20230601/399f0a7c3f414de48f2fe2815e853b09.png
[clipboard3_3]: /images/20230601/247998b9914748569492fa32e9a0fa73.png
[clipboard4_4]: /images/20230601/75fdbb1600f64d2e9f6c087190337460.png
[clipboard5_5]: /images/20230601/796f6a27372d40feacf153da254a6581.png
[clipboard6_6]: /images/20230601/ffa6d6f6133d4b998874cfa5b4774a5e.png
[clipboard7_7]: /images/20230601/386150159c6f4d27b814c42f128f9b53.png
[clipboard8_8]: /images/20230601/416d61ff9d254041a49886ac0fec3311.png
[clipboard9_9]: /images/20230601/482f19858e394da6b4e189aeed71322a.png
[clipboard10_10]: /images/20230601/e8db8ad125694eab99d8f4e8fdbd03ac.png
[60097669-68224900-9786-11e9-9f1e-e8bee08db4fa.png]: /images/20230601/c268155e261042028dd2a6edfaf798f5.png