Created by Jerry Wang on May 06, 2014

下列report可以創建一個新的transparent table，包含一個column如下:

執行report, 輸入待創建的table name:


SE11查看創建table的status為Active:

REPORT ztable.PARAMETERS: tabname TYPE char32 OBLIGATORY. DATA: lt_new_object TYPE comt_gox_def_header,lt_old_object LIKE lt_new_object,lv_dbtab1_name TYPE char32,ls_new_object LIKE LINE OF lt_new_object,ls_new_object_details TYPE LINE OF comt_gox_table_entry_fields,lt_returntab TYPE bapirettab,ls_return LIKE LINE OF lt_returntab.ls_new_object-object_type = 'TABLE'. ls_new_object-object_name = tabname.TRY.DATA(lv_guid) = cl_system_uuid=>if_system_uuid_static~create_uuid_c32( ).CATCH cx_uuid_error . ENDTRY.ls_new_object-key_guid = lv_guid. DATA(lv_parent_guid) = ls_new_object-key_guid. ls_new_object_details-fieldname = 'TABCLASS'. ls_new_object_details-fieldvalue = 'TRANSP'. APPEND ls_new_object_details TO ls_new_object-details. CLEAR ls_new_object_details. ls_new_object_details-fieldname = 'TABKAT'. ls_new_object_details-fieldvalue = '0'. APPEND ls_new_object_details TO ls_new_object-details. CLEAR ls_new_object_details. ls_new_object_details-fieldname = 'TABART'. ls_new_object_details-fieldvalue = 'APPL2'. APPEND ls_new_object_details TO ls_new_object-details. CLEAR ls_new_object_details. ls_new_object_details-fieldname = 'PUFFERUNG'. ls_new_object_details-fieldvalue = 'X'. APPEND ls_new_object_details TO ls_new_object-details. CLEAR ls_new_object_details. ls_new_object_details-fieldname = 'CONTFLAG'. ls_new_object_details-fieldvalue = 'S'. APPEND ls_new_object_details TO ls_new_object-details. CLEAR ls_new_object_details. ls_new_object_details-fieldname = 'MAINFLAG'. ls_new_object_details-fieldvalue = 'X'. APPEND ls_new_object_details TO ls_new_object-details. CLEAR ls_new_object_details. ls_new_object_details-fieldname = 'BUFFALLOW'. ls_new_object_details-fieldvalue = 'X'. APPEND ls_new_object_details TO ls_new_object-details. CLEAR ls_new_object_details. ls_new_object_details-fieldname = 'SCHFELDANZ'. ls_new_object_details-fieldvalue = '0'. APPEND ls_new_object_details TO ls_new_object-details. CLEAR ls_new_object_details. APPEND ls_new_object TO lt_new_object. CLEAR ls_new_object.ls_new_object-object_type = 'TABLE_FIELD'. TRY.lv_guid = cl_system_uuid=>if_system_uuid_static~create_uuid_c32().CATCH cx_uuid_error . ENDTRY. ls_new_object-key_guid = lv_guid. ls_new_object-parent_key = lv_parent_guid. lv_parent_guid = lv_guid. ls_new_object-object_name = 'CODE_VALUE'. ls_new_object_details-fieldname = 'POSITION'. ls_new_object_details-fieldvalue = '1'. APPEND ls_new_object_details TO ls_new_object-details. CLEAR ls_new_object_details. ls_new_object_details-fieldname = 'KEYFLAG'. ls_new_object_details-fieldvalue = 'X'. APPEND ls_new_object_details TO ls_new_object-details. CLEAR ls_new_object_details. ls_new_object_details-fieldname = 'NOTNULL'. ls_new_object_details-fieldvalue = 'X'. APPEND ls_new_object_details TO ls_new_object-details. CLEAR ls_new_object_details. ls_new_object_details-fieldname = 'ROLLNAME'. ls_new_object_details-fieldvalue = 'COMT_PRODUCT_ID'. APPEND ls_new_object_details TO ls_new_object-details. CLEAR ls_new_object_details. APPEND ls_new_object TO lt_new_object. CLEAR ls_new_object. REFRESH lt_returntab. CLEAR lv_parent_guid.lv_dbtab1_name = tabname. CALL FUNCTION 'GOX_GEN_TABLE_STD'EXPORTINGiv_object_name = lv_dbtab1_nameit_object_new = lt_new_objectit_object_old = lt_old_objectiv_devclass = '$TMP'IMPORTINGet_bapireturn = lt_returntab.CHECK lt_returntab IS INITIAL.DATA: lv_ddobjname TYPE ddobjname,ls_dd02v TYPE dd02v.lv_ddobjname = lv_dbtab1_name. CALL FUNCTION 'DDIF_TABL_GET'EXPORTINGname = lv_ddobjnamestate = 'A'langu = sy-languIMPORTINGdd02v_wa = ls_dd02vEXCEPTIONSillegal_input = 1OTHERS = 2. IF sy-subrc <> 0.RETURN. ENDIF.ls_dd02v-mainflag = 'X'. CALL FUNCTION 'DDIF_TABL_PUT'EXPORTINGname = lv_ddobjnamedd02v_wa = ls_dd02vEXCEPTIONStabl_not_found = 1name_inconsistent = 2tabl_inconsistent = 3put_failure = 4put_refused = 5OTHERS = 6. IF sy-subrc <> 0.RETURN. ENDIF.CALL FUNCTION 'DDIF_TABL_ACTIVATE'EXPORTINGname = lv_ddobjnameauth_chk = ' '.CHECK sy-subrc = 0.WRITE:/ 'Table: ', lv_ddobjname, ' generated successfully'.

總結

以上是生活随笔為你收集整理的使用代码创建ABAP transparent table的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。