首页 > 其他 > 详细

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

时间:2019-09-28 18:29:50      阅读:166      评论:0      收藏:0      [点我收藏+]

选中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 = '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应用:

技术分享图片

成功插入两条数据:

技术分享图片

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

技术分享图片

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

技术分享图片

要获取更多Jerry的原创文章,请关注公众号"汪子熙":
技术分享图片

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

原文:https://www.cnblogs.com/sap-jerry/p/11604128.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!