ABAP内表导出MYSQL 代码
用ABAP将SAP的表结构导出成mysql的代码
*&---------------------------------------------------------------------*
*& Report Y_TABLE_FIELD_TO_MYSQL_CODE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Y_TABLE_FIELD_TO_MYSQL_CODE.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS:P_TNAME LIKE DD03L-TABNAME.
SELECTION-SCREEN END OF BLOCK B1.
*SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
* PARAMETERS:P_CREATE RADIOBUTTON GROUP RBG1 DEFAULT 'X',
* P_UPDATE RADIOBUTTON GROUP RBG1,
* P_DELETE RADIOBUTTON GROUP RBG1.
*SELECTION-SCREEN END OF BLOCK B2.
INITIALIZATION.
*-----------------------------------------------------------------------
* START-OF-SELECTION
*-----------------------------------------------------------------------
START-OF-SELECTION.
PERFORM FRM_GENERA_MYSQL_CODE.
*&---------------------------------------------------------------------*
*& Form FRM_GENERA_MYSQL_CODE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM FRM_GENERA_MYSQL_CODE .
DATA:LV_MYSQL_CODE TYPE STRING.
SELECT
DD03L~TABNAME AS TABNAME,
DD03L~FIELDNAME AS FIELDNAME,
DD03L~AS4LOCAL AS AS4LOCAL,
DD03L~AS4VERS AS AS4VERS,
DD03L~POSITION AS POSITION,
DD03L~KEYFLAG AS KEYFLAG,
DD03L~MANDATORY AS MANDATORY,
DD03L~ROLLNAME AS ROLLNAME,
DD03L~CHECKTABLE AS CHECKTABLE,
DD03L~ADMINFIELD AS ADMINFIELD,
DD03L~INTTYPE AS INTTYPE,
DD03L~INTLEN AS INTLEN,
DD03L~REFTABLE AS REFTABLE,
DD03L~PRECFIELD AS PRECFIELD,
DD03L~REFFIELD AS REFFIELD,
DD03L~CONROUT AS CONROUT,
DD03L~NOTNULL AS NOTNULL,
DD03L~DATATYPE AS DATATYPE,
DD03L~LENG AS LENG,
DD03L~DECIMALS AS DECIMALS,
DD03L~DOMNAME AS DOMNAME,
DD03L~SHLPORIGIN AS SHLPORIGIN,
DD03L~TABLETYPE AS TABLETYPE,
DD03L~DEPTH AS DEPTH,
DD03L~COMPTYPE AS COMPTYPE,
DD03L~REFTYPE AS REFTYPE,
DD03L~LANGUFLAG AS LANGUFLAG,
DD03L~DBPOSITION AS DBPOSITION,
DD03L~ANONYMOUS AS ANONYMOUS,
DD03L~OUTPUTSTYLE AS OUTPUTSTYLE,
DD03L~SRS_ID AS SRSID,
DD03M~SCRTEXT_S,
DD03M~SCRTEXT_M,
DD03M~SCRTEXT_L,
DD02T~DDTEXT AS DDTEXT
INTO TABLE @DATA(LT_DD03V)
FROM DD03L LEFT OUTER JOIN DD02T
ON DD02T~TABNAME = DD03L~TABNAME
AND DD02T~DDLANGUAGE = @SY-LANGU
LEFT OUTER JOIN DD03M
ON DD03M~TABNAME = DD03L~TABNAME
AND DD03M~FIELDNAME = DD03L~FIELDNAME
AND DD03M~DDLANGUAGE = @SY-LANGU
WHERE DD03L~TABNAME EQ @P_TNAME
AND DD03L~FIELDNAME NE '.INCLUDE'
ORDER BY POSITION.
DATA:LV_STREMP TYPE STRING,
LV_MYSQL_FIELD_TYPE TYPE STRING,"CHAR , VARCHAR,INT，BIGING，TINYINT,DATETIME，TIMESTAMP,DECIMAL
LV_END_FLAG TYPE C,
LV_MYSQL_KEY TYPE STRING.
LOOP AT LT_DD03V ASSIGNING FIELD-SYMBOL(<FS_DD03V>).
AT FIRST.
CONCATENATE 'CREATE TABLE IF NOT EXISTS' P_TNAME INTO LV_MYSQL_CODE SEPARATED BY SPACE.
LV_MYSQL_CODE = LV_MYSQL_CODE && '('.
ENDAT.
IF <FS_DD03V>-KEYFLAG EQ 'X'.
IF LV_MYSQL_KEY IS INITIAL.
LV_MYSQL_KEY = <FS_DD03V>-FIELDNAME.
ELSE.
CONCATENATE LV_MYSQL_KEY <FS_DD03V>-FIELDNAME INTO LV_MYSQL_KEY SEPARATED BY ','.
ENDIF.
ENDIF.
"动态生成类型改这里，默认都是VARCHAR
* CASE <FS_DD03V>-INTTYPE.
* WHEN 'C' OR 'N'.
* LV_MYSQL_FIELD_TYPE = 'VARCHAR'.
* WHEN ''.
* WHEN OTHERS.
* ENDCASE.
CONCATENATE <FS_DD03V>-FIELDNAME 'VARCHAR(' <FS_DD03V>-INTLEN ')' INTO LV_STREMP SEPARATED BY SPACE.
IF <FS_DD03V>-KEYFLAG EQ 'X'..
LV_STREMP = LV_STREMP && ' NOT NULL COMMENT ''' && <FS_DD03V>-SCRTEXT_M && ''','.
ELSE.
LV_STREMP = LV_STREMP && ' COMMENT ''' && <FS_DD03V>-SCRTEXT_M && ''','.
ENDIF.
LV_MYSQL_CODE = LV_MYSQL_CODE && LV_STREMP.
AT LAST.
LV_END_FLAG = 'X'.
LV_MYSQL_CODE = LV_MYSQL_CODE && 'PRIMARY KEY(' && LV_MYSQL_KEY && ') ) ENGINE=INNODB DEFAULT CHARSET=UTF8 AUTO_INCREMENT=1 COMMENT=''' && <FS_DD03V>-DDTEXT && ''';'."改字符集在这里
ENDAT.
IF LV_END_FLAG NE 'X'.
* LV_STREMP = LV_STREMP && ','.
* LV_MYSQL_CODE = LV_MYSQL_CODE && LV_STREMP.
ENDIF.
CLEAR:LV_STREMP.
ENDLOOP.
IF LV_MYSQL_CODE IS NOT INITIAL.
PERFORM FRM_DOWNLOAD_TXT USING LV_MYSQL_CODE.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_DOWNLOAD_TXT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> LV_MYSQL_CODE
*&---------------------------------------------------------------------*
FORM FRM_DOWNLOAD_TXT USING P_LV_MYSQL_CODE.
DATA : c_file_path TYPE string.
DATA:LT_TABLE TYPE TABLE OF STRING,
LS_TABLE LIKE LINE OF LT_TABLE.
LS_TABLE = P_LV_MYSQL_CODE.
APPEND LS_TABLE TO LT_TABLE.
c_file_path = 'D:/MYSQL_CODE.TXT'.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = c_file_path "file path
filetype = 'DAT'
TABLES
data_tab = LT_TABLE "internal table name
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
IF sy-subrc = 0.
DATA : w_msg(100) TYPE c.
CONCATENATE text-001 c_file_path INTO w_msg SEPARATED BY space. "file downloaded message
MESSAGE w_msg TYPE 'S'.
ELSE.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.
