如何在SAP雲平台ABAP編程環境里創建自己的Z表

2019 年 10 月 8 日
筆記

選中ABAP包，右鍵創建一個新的Database Table：

維護表名為ZBOOKING:

表實現的源代碼：

@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;    }

激活：

下一步，創建一個ABAP類，以代碼的方式往Z表裡插入數據。

這個ABAP類要實現if_oo_adt_classrun接口，類似Java里的console應用：

完整代碼：

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 = '[email protected]'            country = 'China' dateofbooking ='20190213125959' dateoftravel ='20190213125959'            cost = '546' currencycode = 'EUR' )          ( booking  = '2' customername = 'Tom' numberofpassengers = '1'            emailaddress = '[email protected]'            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應用：