ABAP表生成Java实体Bean

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了ABAP表生成Java实体Bean相关的知识,希望对你有一定的参考价值。

项目中需要将HR模块中的表数据同步到Java系统中,向外围系统提供分发与查询服务,涉及到的表有两百多张,字段好几千上万个,如果手工一张张这些ABAP表在Java系统数据库中创建一遍的话,工作量将非常大,而且容易出错。

该ABAP代码就是将需要的表转换成Java中的实体Bean,然后就可以使用Hibernate之类的持久化框架来自动生成表了。

ABAP代码没有重构过,写得有点乱......将就着看吧


REPORT  ytab2javabean.
DATAp_table TYPE string.

START-OF-SELECTION.

DATAlv_path TYPE string.
  lv_path \'D:\\test\'.
**配置文件:以竖线分隔,第一列:SAP表名(注:SAP表名需全大写),第二列:新建表名,第三列:JavaBean名称,第四列:生成的JavaBean所在包路径
DATAfilename TYPE string VALUE \'TableCFG.txt\'.
CONCATENATE lv_path `\\` filename INTO filename.

TYPESBEGIN OF itab,
    fl1(300)  TYPE c,
END OF itab.

DATAdata_tab TYPE STANDARD TABLE OF itab,
        wa_tab LIKE LINE OF data_tab.

CALL METHOD cl_gui_frontend_services=>gui_upload
EXPORTING
      filename                filename
      filetype                \'ASC\'
      codepage                \'8400\'
CHANGING
      data_tab                data_tab
EXCEPTIONS
      file_open_error         1
      file_read_error         2
      no_batch                3
      gui_refuse_filetransfer 4
      no_authority            6
      unknown_error           7
      bad_data_format         8
      unknown_dp_error        12
      access_denied           13
OTHERS                  17.


DATA:lt_dd03l2 TYPE TABLE OF dd03l WITH HEADER LINE.

DATABEGIN OF lt_dd03l OCCURS 0,
    tabname TYPE dd03l-tabname,
    fieldname TYPE dd03l-fieldname,
    keyflag TYPE dd03l-keyflag,
    rollname TYPE dd03l-rollname,
position TYPE dd03l-position,
    inttype TYPE dd03l-inttype,
    leng(6),
decimals(6),
    ddtext TYPE dd03t-ddtext,
    methodname TYPE dd03l-fieldname,
    attrname  TYPE dd03l-fieldname,
END OF lt_dd03l.

DATA:BEGIN OF  fieldname OCCURS 0,
    fieldname TYPE dd03t-fieldname ,
END OF fieldname.
DATA:BEGIN OF rollname OCCURS 0,
    rollname TYPE dd04t-rollname ,
END OF rollname.
DATA:lt_dd03t TYPE TABLE OF dd03t WITH HEADER LINE,
        lt_dd04t TYPE TABLE OF dd04t WITH HEADER LINE.

DATAclsname TYPE string.
DATAitab TYPE TABLE OF string WITH HEADER LINE.
DATAentity TYPE string.
DATApackage TYPE string.
DATApackage_path TYPE string.
LOOP AT data_tab INTO wa_tab.
SPLIT wa_tab AT \'|\' INTO TABLE itab.
READ TABLE itab INDEX .
    p_table itab.
READ TABLE itab INDEX .
    entity itab.
READ TABLE itab INDEX .
    clsname itab.
READ TABLE itab INDEX 4.
    package itab.
CONDENSE package.
    package_path package.

REPLACE `.` WITH \'\\\' INTO package_path .
REPLACE `.` WITH \'\\\' INTO package_path .
REPLACE `.` WITH \'\\\' INTO package_path .
REPLACE `.` WITH \'\\\' INTO package_path .
REPLACE `.` WITH \'\\\' INTO package_path .
REPLACE `.` WITH \'\\\' INTO package_path .
REPLACE `.` WITH \'\\\' INTO package_path .
REPLACE `.` WITH \'\\\' INTO package_path .


CLEARlt_dd03llt_dd03l[].
SELECT dd03l~tabname dd03l~fieldname keyflag rollname position inttype leng decimals FROM dd03l
INTO CORRESPONDING FIELDS OF TABLE lt_dd03l
WHERE as4local \'A\' AND dd03l~tabname p_table AND dd03l~fieldname <> \'.INCLU--AP\' AND dd03l~fieldname <> \'.INCLUDE\' ORDER BY position.

SORT lt_dd03l BY position.

LOOP AT lt_dd03l .
IF lt_dd03l-rollname \'\'.
APPEND lt_dd03l-fieldname TO fieldname.
ELSE.
APPEND lt_dd03l-rollname TO rollname.
ENDIF.
ENDLOOP.


IF fieldname[] IS NOT INITIAL.
SELECT fieldname ddtext INTO CORRESPONDING FIELDS OF TABLE lt_dd03t
FROM dd03t
FOR ALL ENTRIES IN fieldname
WHERE tabname p_table
AND ddlanguage \'1\'
AND fieldname fieldname-fieldname.
ENDIF.

IF rollname[] IS NOT INITIAL.
SELECT rollname ddtext INTO CORRESPONDING FIELDS OF TABLE lt_dd04t
FROM dd04t
FOR ALL ENTRIES IN rollname
WHERE ddlanguage \'1\'
AND rollname rollname-rollname.
ENDIF.
DATATYPE i.
FIELD-SYMBOLS <lt_dd03l> LIKE LINE OF lt_dd03l .
LOOP AT lt_dd03l  ASSIGNING <lt_dd03l>.
IF <lt_dd03l>-fieldname \'SHORT\'.
        <lt_dd03l>-fieldname \'SHORT_\'.
ENDIF.
<lt_dd03l>-leng.
      <lt_dd03l>-leng i.
<lt_dd03l>-decimals.
      <lt_dd03l>-decimals i.
      <lt_dd03l>-methodname <lt_dd03l>-fieldname.

*      IF <lt_dd03l>-inttype = \'P\' .
*        <lt_dd03l>-leng  = <lt_dd03l>-leng  * 2 + 1.
*      ENDIF.
IF  <lt_dd03l>-inttype \'I\' OR <lt_dd03l>-inttype \'X\'.
        <lt_dd03l>-leng  11.
ENDIF.
TRANSLATE <lt_dd03l>-methodname TO LOWER CASE.
CONCATENATE <lt_dd03l>-fieldname+0(1<lt_dd03l>-methodname+1 INTO <lt_dd03l>-methodname.

      <lt_dd03l>-attrname <lt_dd03l>-fieldname.
TRANSLATE <lt_dd03l>-attrname TO LOWER CASE.


REPLACE `/` WITH \'_\' INTO <lt_dd03l>-fieldname.
REPLACE `/` WITH \'_\' INTO <lt_dd03l>-fieldname.
REPLACE `/` WITH \'_\' INTO <lt_dd03l>-fieldname.
REPLACE `/` WITH \'_\' INTO <lt_dd03l>-fieldname.
READ TABLE lt_dd03t WITH KEY fieldname <lt_dd03l>-fieldname.
IF sy-subrc 0.
        <lt_dd03l>-ddtext lt_dd03t-ddtext.
ELSE.
READ TABLE lt_dd04t WITH KEY rollname <lt_dd03l>-rollname.
IF sy-subrc 0.
          <lt_dd03l>-ddtext lt_dd04t-ddtext.
ENDIF.
ENDIF.

ENDLOOP.


*    LOOP AT lt_dd03l.
*      WRITE:/ lt_dd03l-fieldname,lt_dd03l-keyflag,lt_dd03l-rollname,lt_dd03l-position,lt_dd03l-inttype,lt_dd03l-leng,lt_dd03l-decimals,lt_dd03l-ddtext.
*    ENDLOOP.

DATAlt_pk TYPE TABLE OF string WITH HEADER LINE.
CLEARlt_pk,lt_pk[].
CONCATENATE `package ` package `;` INTO lt_pk.
APPEND lt_pk.
APPEND `import java.io.Serializable;` TO lt_pk.
APPEND `import javax.persistence.Column;` TO lt_pk.
APPEND  cl_abap_char_utilities=>cr_lf TO lt_pk.

CONCATENATE `public class ` clsname `Pk implements Serializable {` INTO lt_pk.
APPEND lt_pk.
APPEND `private static final long serialVersionUID = 1L;` TO lt_pk.
APPEND `private volatile int hashCode;` TO lt_pk.

LOOP AT lt_dd03l WHERE  keyflag \'X\'.
IF lt_dd03l-inttype \'P\'.
CONCATENATE `private java.math.BigDecimal ` lt_dd03l-attrname `;//` lt_dd03l-ddtext INTO lt_pk.
ELSEIF lt_dd03l-inttype \'I\' OR lt_dd03l-inttype \'X\'.
CONCATENATE `private Integer ` lt_dd03l-attrname `;//` lt_dd03l-ddtext INTO lt_pk.
ELSE.
CONCATENATE `private String ` lt_dd03l-attrname `;//` lt_dd03l-ddtext INTO lt_pk.
ENDIF.
APPEND lt_pk.
ENDLOOP.
APPEND  cl_abap_char_utilities=>cr_lf TO lt_pk.
CONCATENATE `public ` clsname `Pk() {  }` INTO lt_pk.
APPEND lt_pk.
CONCATENATE `public ` clsname `Pk(` INTO lt_pk.
LOOP AT lt_dd03l WHERE  keyflag \'X\'.
IF sy-tabix 1.
IF lt_dd03l-inttype \'P\'.
CONCATENATE  lt_pk `java.math.BigDecimal ` lt_dd03l-attrname  INTO lt_pk.
ELSEIF lt_dd03l-inttype \'I\' OR lt_dd03l-inttype \'X\'.
CONCATENATE lt_pk `Integer ` lt_dd03l-attrname INTO lt_pk.
ELSE.
CONCATENATE lt_pk `String ` lt_dd03l-attrname INTO lt_pk.
ENDIF.
ELSE.
IF lt_dd03l-inttype \'P\'.
CONCATENATE  lt_pk `,java.math.BigDecimal ` lt_dd03l-attrname  INTO lt_pk.
ELSEIF lt_dd03l-inttype \'I\' OR lt_dd03l-inttype \'X\'.
CONCATENATE lt_pk `,Integer ` lt_dd03l-attrname  INTO lt_pk.
ELSE.
CONCATENATE lt_pk `,String ` lt_dd03l-attrname INTO lt_pk.
ENDIF.
ENDIF.
ENDLOOP.
CONCATENATE lt_pk `) {` INTO lt_pk.
LOOP AT lt_dd03l WHERE  keyflag \'X\'.
CONCATENATE lt_pk `this.` lt_dd03l-attrname ` = ` lt_dd03l-attrname `;` INTO lt_pk.
ENDLOOP.
CONCATENATE lt_pk `}` INTO lt_pk.
APPEND  lt_pk.

DATAlen TYPE string.

LOOP AT lt_dd03l WHERE  keyflag \'X\'.
IF lt_dd03l-inttype \'P\'.
CONCATENATE `public java.math.BigDecimal get` lt_dd03l-methodname `() {` INTO lt_pk.
APPEND lt_pk.
CONCATENATE `return ` lt_dd03l-attrname `;}` INTO lt_pk.
APPEND lt_pk.
CONCATENATE `public ` clsname `Pk set` lt_dd03l-methodname `(java.math.BigDecimal ` lt_dd03l-attrname `) {`INTO lt_pk.
APPEND lt_pk.
CONCATENATE `this.` lt_dd03l-attrname ` = ` lt_dd03l-attrname `;return this;}` INTO lt_pk.
APPEND lt_pk.
ELSEIF lt_dd03l-inttype \'I\' OR lt_dd03l-inttype \'X\'.
CONCATENATE `@Column(name = "` lt_dd03l-fieldname `", length = ` lt_dd03l-leng `)` INTO lt_pk.
APPEND lt_pk.
CONCATENATE `public Integer get` lt_dd03l-methodname `() {` INTO lt_pk.
APPEND lt_pk.
CONCATENATE `return ` lt_dd03l-attrname `;}` INTO lt_pk.
APPEND lt_pk.
CONCATENATE `public ` clsname `Pk set` lt_dd03l-methodname `(Integer ` lt_dd03l-attrname `) {`INTO lt_pk.
APPEND lt_pk.
CONCATENATE `this.` lt_dd03l-attrname ` = ` lt_dd03l-attrname `;return this;}` INTO lt_pk.
APPEND lt_pk.
ELSE.
CONCATENATE `@Column(name = "` lt_dd03l-fieldname `", length = ` lt_dd03l-leng `)` INTO lt_pk.
APPEND lt_pk.
CONCATENATE `public String get` lt_dd03l-methodname `() {` INTO lt_pk.
APPEND lt_pk.
CONCATENATE `return ` lt_dd03l-attrname `;}` INTO lt_pk.
APPEND lt_pk.
CONCATENATE `public ` clsname `Pk set` lt_dd03l-methodname `(String ` lt_dd03l-attrname `) {`INTO lt_pk.
APPEND lt_pk.
CONCATENATE `this.` lt_dd03l-attrname ` = ` lt_dd03l-attrname `;return this;}` INTO lt_pk.
APPEND lt_pk.
ENDIF.
ENDLOOP.

APPEND `@Override` TO lt_pk.
APPEND `public int hashCode() {` TO lt_pk.
APPEND `int result = hashCode;` TO lt_pk.
APPEND `if (result == 0) {` TO lt_pk.
APPEND `result = 17;` TO lt_pk.
LOOP AT lt_dd03l WHERE  keyflag \'X\'.
CONCATENATE `result = 31 * result + ((` lt_dd03l-attrname ` == null) ? 0 : ` lt_dd03l-attrname `.hashCode());` INTO lt_pk.
APPEND lt_pk.
ENDLOOP.
APPEND `hashCode = result;}return result;}` TO lt_pk.

APPEND `@Override` TO lt_pk.
APPEND `public boolean equals(Object o) {if (o == this) {return true;}` TO lt_pk.

CONCATENATE `if (!(o instanceof ` clsname `Pk)) {return false;}` INTO lt_pk.
APPEND lt_pk.
CONCATENATE clsname `Pk other = (` clsname `Pk) o;` INTO lt_pk.
APPEND lt_pk.
LOOP AT lt_dd03l WHERE  keyflag \'X\'.
CONCATENATE `if (` lt_dd03l-attrname ` == null && other.` lt_dd03l-attrname ` != null) {return false;` INTO lt_pk.
APPEND lt_pk.
CONCATENATE `} else if (` lt_dd03l-attrname ` != null &&` ` !` lt_dd03l-attrname `.equals(other.` lt_dd03l-attrname `)) {return false;}` INTO lt_pk.
APPEND lt_pk.
ENDLOOP.


*    LOOP AT lt_dd03l WHERE  keyflag = \'X\'.
*      IF sy-tabix = 1.
*        CONCATENATE `return this.` lt_dd03l-attrname `.equals(other.` lt_dd03l-attrname `)` INTO lt_pk.
*        APPEND lt_pk.
*      ELSE.
*        CONCATENATE `&& this.` lt_dd03l-attrname `.equals(other.` lt_dd03l-attrname `)` INTO lt_pk.
*        APPEND lt_pk.
*      ENDIF.
*    ENDLOOP.

APPEND `return true;}` TO lt_pk.

APPEND `@Override` TO lt_pk.
APPEND `public String toString() {` TO lt_pk.
CONCATENATE `return "` clsname `Pk [` INTO lt_pk.
LOOP AT lt_dd03l WHERE  keyflag \'X\'.
IF sy-tabix 1.
CONCATENATE  lt_pk lt_dd03l-attrname `=" + ` lt_dd03l-attrname INTO lt_pk.
ELSE.
CONCATENATE  lt_pk `+ ", ` lt_dd03l-attrname `=" + ` lt_dd03l-attrname INTO lt_pk.
ENDIF.
ENDLOOP.
CONCATENATE  lt_pk `+ "]";}}` INTO lt_pk.
APPEND  lt_pk.





**生成的Java实体Bean主键类
CONCATENATE lv_path `\\Bean\\` package_path `\\` clsname `Pk.java` INTO filename.
CALL FUNCTION \'GUI_DOWNLOAD\'
EXPORTING
        filename filename
        codepage \'4110\'
TABLES
        data_tab lt_pk[].

"================================================================================================

DATAlt_class TYPE TABLE OF string WITH HEADER LINE.
CLEARlt_class,lt_class[].

CONCATENATE `package ` package `;` INTO lt_class.
APPEND lt_class.
APPEND `import com.suning.hrqz.entity.BaseEntity;` TO lt_class.
APPEND `import javax.persistence.Column;` TO lt_class.
APPEND `import javax.persistence.Entity;` TO lt_class.
APPEND `import javax.persistence.Id;` TO lt_class.
APPEND `import javax.persistence.IdClass;` TO lt_class.
APPEND `import javax.persistence.Table;` TO lt_class.
APPEND `import javax.persistence.Transient;` TO lt_class.

CONCATENATE `//对应 SAP 表名:` p_table INTO lt_class.
APPEND lt_class.
CONCATENATE `@Entity(name = "` entity `")` INTO lt_class.
APPEND lt_class.
APPEND `@Table(` TO lt_class.
APPEND `// uniqueConstraints = { @UniqueConstraint(name="Unique_Index",columnNames = {"xx","xxx"}) }` TO lt_class.
APPEND `// ,indexes={@Index(name = "index01",columnList="xx,xxx")}` TO lt_class.
APPEND `)` TO lt_class.
CONCATENATE `@IdClass(value = ` clsname `Pk.class)` INTO lt_class.
APPEND lt_class.
CONCATENATE `public class ` clsname ` extends BaseEntity {`  INTO lt_class.
APPEND lt_class.

APPEND `@Transient` TO lt_class.
APPEND `private static final long serialVersionUID = 1L;` TO lt_class.
APPEND `@Transient` TO lt_class.
CONCATENATE `private ` clsname `Pk pk;` INTO lt_class.
APPEND lt_class.
APPEND  cl_abap_char_utilities=>cr_lf TO lt_pk.

LOOP AT lt_dd03l WHERE  keyflag \'X\'.
IF lt_dd03l-inttype \'P\'.
CONCATENATE `private java.math.BigDecimal ` lt_dd03l-attrname `;//` lt_dd03l-ddtext INTO lt_class.
ELSEIF lt_dd03l-inttype \'I\' OR lt_dd03l-inttype \'X\'.
CONCATENATE `private Integer ` lt_dd03l-attrname `;//` lt_dd03l-ddtext INTO lt_class.
ELSE.
CONCATENATE `private String ` lt_dd03l-attrname `;//` lt_dd03l-ddtext INTO lt_class.
ENDIF.
APPEND lt_class.
ENDLOOP.

APPEND  cl_abap_char_utilities=>cr_lf TO lt_pk.
LOOP AT lt_dd03l WHERE  keyflag <> \'X\'.
IF lt_dd03l-inttype \'P\'.
CONCATENATE `private java.math.BigDecimal ` lt_dd03l-attrname `;//` lt_dd03l-ddtext INTO lt_class.
ELSEIF lt_dd03l-inttype \'I\' OR lt_dd03l-inttype \'X\'.
CONCATENATE `private Integer ` lt_dd03l-attrname `;//` lt_dd03l-ddtext INTO lt_class.
ELSE.
CONCATENATE `private String ` lt_dd03l-attrname `;//` lt_dd03l-ddtext INTO lt_class.
ENDIF.
APPEND lt_class.
ENDLOOP.

CONCATENATE `public ` clsname `() {` INTO lt_class.
APPEND lt_class.
CONCATENATE `pk = new ` clsname `Pk();}` INTO lt_class.
APPEND lt_class.

CONCATENATE `public ` clsname `(` INTO lt_class.
LOOP AT lt_dd03l WHERE  keyflag \'X\'.
IF sy-tabix 1.
IF lt_dd03l-inttype \'P\'.
CONCATENATE  lt_class `java.math.BigDecimal ` lt_dd03l-attrname  INTO lt_class.
ELSEIF lt_dd03l-inttype \'I\' OR lt_dd03l-inttype \'X\'.
CONCATENATE lt_class `Integer ` lt_dd03l-attrname  INTO lt_class.
ELSE.
CONCATENATE lt_class `String ` lt_dd03l-attrname INTO lt_class.
ENDIF.
ELSE.
IF lt_dd03l-inttype \'P\'.
CONCATENATE  lt_class `,java.math.BigDecimal ` lt_dd03l-attrname  INTO lt_class.
ELSEIF lt_dd03l-inttype \'I\' OR lt_dd03l-inttype \'X\'.
CONCATENATE lt_class `,Integer ` lt_dd03l-attrname  INTO lt_class.
ELSE.
CONCATENATE lt_class `,String ` lt_dd03l-attrname INTO lt_class.
ENDIF.
ENDIF.
ENDLOOP以上是关于ABAP表生成Java实体Bean的主要内容,如果未能解决你的问题,请参考以下文章

如何使用实体 bean 类名和属性名生成类和属性?

java中如何根据查询出来的表结构自动生成bean

如何根据数据库中的表自动生成实体类

从0到1打造代码生成器数据库表生成Java实体类

mysql 表映射为java bean 手动生成。

abap 开发之创建表维护生成器

(c)2006-2024 SYSTEM All Rights Reserved IT常识