通過SAP函式組GOX_OBJECTS_GENERATE中的函式建立資料物件(域,資料元素,表)
阿新 • • 發佈:2018-11-24
*&---------------------------------------------------------------------*
*& Report ZRCP10
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zrcp10.
*PARAMETERS :DEVCLASS TYPE DEVCLASS DEFAULT '$TMP',
* IV_REQUEST_WB TYPE TRKORR,
* DOMANAME TYPE DOMNAME OBLIGATORY,
* DDLANGUAGE TYPE DDLANGUAGE,
CLASS:zcl_dynamic_operate DEFINITION.
PUBLIC SECTION.
* TABLES DD07V.
CLASS-METHODS:
"DD07V
create_domain IMPORTING
REFERENCE(devclass) TYPE devclass DEFAULT '$TMP' "包
REFERENCE(iv_request_wb) TYPE trkorr OPTIONAL "請求號
REFERENCE(domaname) TYPE domname "域名
REFERENCE(description) TYPE comt_gox_fieldvalue "域描述
REFERENCE(ddlanguage) TYPE ddlanguage DEFAULT sy-langu "語言
REFERENCE(datatype) TYPE datatype_d "基本型別
REFERENCE(leng) TYPE leng "長度
REFERENCE(outlen) TYPE outputlen OPTIONAL "輸出長度
REFERENCE(decimals) TYPE decimals OPTIONAL "精度
REFERENCE(lowercase) TYPE lowercase OPTIONAL "是否考慮大小寫
REFERENCE(signflag) TYPE signflag OPTIONAL "數值域的符號標誌 作為域輸出屬性一部分的加/減號
REFERENCE(valexi) TYPE valexi OPTIONAL "是否存在固定值
REFERENCE(convexit) TYPE convexit OPTIONAL "轉換例程
REFERENCE(it_dd07v) TYPE dd07vtab " DD07T "固定值表
RETURNING VALUE(return) TYPE mewi_t_return," BAPIRETURN. "返回訊息
"dd04v
create_element IMPORTING
REFERENCE(rollname) TYPE rollname
REFERENCE(description) TYPE as4text
REFERENCE(ddlanguage) TYPE ddlanguage DEFAULT sy-langu
REFERENCE(domname) TYPE domname OPTIONAL
REFERENCE(routputlen) TYPE ddleng OPTIONAL
REFERENCE(memoryid) TYPE memoryid OPTIONAL
VALUE(reptext) TYPE reptext OPTIONAL
VALUE(scrtext_s) TYPE scrtext_s OPTIONAL
VALUE(scrtext_m) TYPE scrtext_m OPTIONAL
VALUE(scrtext_l) TYPE scrtext_l OPTIONAL
REFERENCE(devclass) TYPE devclass DEFAULT '$TMP'
REFERENCE(request_wb) TYPE trkorr OPTIONAL
RETURNING VALUE(return) TYPE mewi_t_return,
"DD02V
create_table IMPORTING
REFERENCE(tabname) TYPE char32
REFERENCE(tabclass) TYPE tabclass DEFAULT 'TRANSP'
REFERENCE(tabkat) TYPE tabkat DEFAULT '0'
REFERENCE(tabart) TYPE tabart DEFAULT 'APPL0'
REFERENCE(pufferung) TYPE pufferung DEFAULT ''
REFERENCE(contflag) TYPE contflag DEFAULT 'A'
REFERENCE(mainflag) TYPE maintflag DEFAULT ''
REFERENCE(buffallow) TYPE bufallow DEFAULT 'N'
REFERENCE(schfeldanz) TYPE schfeldanz DEFAULT 0
REFERENCE(devclass) TYPE devclass DEFAULT '$TMP'
REFERENCE(request_wb) TYPE trkorr OPTIONAL
REFERENCE(it_dd03l) TYPE fins_cfiny_dd03l " DD07T "固定值表
RETURNING VALUE(return) TYPE mewi_t_return.
ENDCLASS.
*&---------------------------------------------------------------------*
*& Class (Implementation) zcl_dynamic_operate
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
CLASS zcl_dynamic_operate IMPLEMENTATION.
METHOD create_domain.
DATA: lt_new_object TYPE comt_gox_def_header,
lw_onject_text TYPE coms_gox_def_text,
lt_old_object LIKE lt_new_object,
lv_doma_name TYPE char32,
lv_devclass TYPE devclass,
lv_request_wb TYPE trkorr,
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,
lw_dd07v LIKE LINE OF it_dd07v,
ew_return LIKE LINE OF return.
IF domaname IS INITIAL OR ( domaname(1) <> 'Z' AND domaname(1) <> 'Y' ).
ew_return-type = 'E'.
ew_return-message = '不能建立域名' && domaname.
RETURN.
ENDIF.
lv_doma_name = domaname.
lv_request_wb = iv_request_wb.
MOVE devclass TO lv_devclass.
CLEAR ls_new_object.
ls_new_object-object_type = 'DOMA'.
ls_new_object-object_name = domaname.
"域描述
CLEAR lw_onject_text.
lw_onject_text-language = ddlanguage.
lw_onject_text-description = description.
APPEND lw_onject_text TO ls_new_object-object_text.
TRY.
DATA(lv_guid) = cl_system_uuid=>if_system_uuid_static~create_uuid_c32( ).
CATCH cx_uuid_error .
ENDTRY.
MOVE lv_guid TO ls_new_object-key_guid .
DATA(lv_parent_guid) = ls_new_object-key_guid.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'DDLANGUAGE'."語言
ls_new_object_details-fieldvalue = ddlanguage .
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'DATATYPE'."資料型別
ls_new_object_details-fieldvalue = datatype.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'LENG'."型別長度
ls_new_object_details-fieldvalue = leng.
CONDENSE ls_new_object_details-fieldvalue.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
IF outlen IS NOT INITIAL .
ls_new_object_details-fieldname = 'OUTPUTLEN'."輸出長度 預設和型別長度一致
ls_new_object_details-fieldvalue = outlen.
CONDENSE ls_new_object_details-fieldvalue.
APPEND ls_new_object_details TO ls_new_object-details.
ENDIF.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'DECIMALS'."小數位
ls_new_object_details-fieldvalue = decimals.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'LOWERCASE'."是否區分大小寫
ls_new_object_details-fieldvalue = lowercase.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'SIGNFLAG'."符號
ls_new_object_details-fieldvalue = signflag.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'VALEXI'."是否存在固定值
ls_new_object_details-fieldvalue = valexi.
APPEND ls_new_object_details TO ls_new_object-details.
*CLEAR LS_NEW_OBJECT_DETAILS.
*LS_NEW_OBJECT_DETAILS-FIELDNAME = 'CONVEXIT'."轉換歷程
*LS_NEW_OBJECT_DETAILS-FIELDVALUE = 'X'.
*APPEND LS_NEW_OBJECT_DETAILS TO LS_NEW_OBJECT-DETAILS.
APPEND ls_new_object TO lt_new_object.
IF it_dd07v IS NOT INITIAL .
LOOP AT it_dd07v ASSIGNING FIELD-SYMBOL(<fw_dd07v>).
ls_new_object-object_type = 'DOMA_SET'.
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.
"域值
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'VALPOS'."值關鍵字
ls_new_object_details-fieldvalue = <fw_dd07v>-valpos.
APPEND ls_new_object_details TO ls_new_object-details.
IF <fw_dd07v>-ddtext IS NOT INITIAL .
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'DDTEXT'."簡短描述
ls_new_object_details-fieldvalue = <fw_dd07v>-ddtext.
APPEND ls_new_object_details TO ls_new_object-details.
ENDIF.
IF <fw_dd07v>-domvalue_l IS NOT INITIAL .
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'DOMVALUE_L'."下限值
ls_new_object_details-fieldvalue = <fw_dd07v>-domvalue_l.
APPEND ls_new_object_details TO ls_new_object-details.
ENDIF.
IF <fw_dd07v>-domvalue_h IS NOT INITIAL .
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'DOMVALUE_H'."DOMVALUE_H
ls_new_object_details-fieldvalue = <fw_dd07v>-domvalue_h.
APPEND ls_new_object_details TO ls_new_object-details.
ENDIF.
APPEND ls_new_object TO lt_new_object.
CLEAR ls_new_object.
ENDLOOP.
ENDIF.
DATA et_bapireturn TYPE bapirettab.
DATA et_transport TYPE comt_gox_trans_object.
CALL FUNCTION 'GOX_GEN_DOMA_STD'
EXPORTING
iv_object_name = lv_doma_name
it_object_new = lt_new_object
it_object_old = lt_old_object
iv_devclass = lv_devclass
iv_request_wb = lv_request_wb
IMPORTING
et_bapireturn = et_bapireturn
et_transport = et_transport.
APPEND LINES OF et_bapireturn TO return.
*CHECK ET_BAPIRETURN IS INITIAL.
DATA: lv_ddobjname TYPE ddobjname,
ls_dd02v TYPE dd02v.
lv_ddobjname = lv_doma_name.
DATA name TYPE ddobjname.
DATA state TYPE ddobjstate.
DATA langu TYPE sy-langu.
DATA gotstate TYPE ddgotstate.
DATA dd01v_wa TYPE dd01v.
DATA dd07v_tab TYPE STANDARD TABLE OF dd07v.
CALL FUNCTION 'DDIF_DOMA_GET'
EXPORTING
name = lv_ddobjname
state = 'A'
langu = sy-langu
IMPORTING
gotstate = gotstate
dd01v_wa = dd01v_wa
TABLES
dd07v_tab = dd07v_tab
EXCEPTIONS
illegal_input = 1.
*DATA NAME TYPE DDOBJNAME.
*DATA DD01V_WA TYPE DD01V.
*DATA DD07V_TAB TYPE STANDARD TABLE OF DD07V.
*
CALL FUNCTION 'DDIF_DOMA_PUT'
EXPORTING
name = lv_ddobjname
dd01v_wa = dd01v_wa
TABLES
dd07v_tab = dd07v_tab
EXCEPTIONS
doma_not_found = 1
name_inconsistent = 2
doma_inconsistent = 3
put_failure = 4
put_refused = 5.
IF sy-subrc NE 0.
RETURN.
ENDIF.
* ACTIVE TABLE
CALL FUNCTION 'DDIF_DOMA_ACTIVATE'
EXPORTING
name = lv_ddobjname
auth_chk = ' '.
CHECK sy-subrc = 0.
ENDMETHOD.
METHOD create_element.
DATA: lt_new_object TYPE comt_gox_def_header,
lt_old_object LIKE lt_new_object,
lw_onject_text TYPE coms_gox_def_text,
lv_element_name TYPE char32,
lv_devclass TYPE devclass,
lv_request_wb TYPE trkorr,
ls_new_object LIKE LINE OF lt_new_object,
ls_new_object_details TYPE LINE OF comt_gox_table_entry_fields,
et_bapireturn TYPE bapirettab,
et_transport TYPE comt_gox_trans_object.
lv_element_name = rollname.
lv_request_wb = request_wb.
lv_devclass = devclass.
IF reptext IS INITIAL.
reptext = description.
ENDIF.
IF scrtext_s IS INITIAL.
scrtext_s = description.
ENDIF.
IF scrtext_m IS INITIAL.
scrtext_m = description.
ENDIF.
IF scrtext_l IS INITIAL.
scrtext_l = description.
ENDIF.
CLEAR ls_new_object.
ls_new_object-object_type = 'ELEMENT'.
ls_new_object-object_name = rollname .
"資料元素描述
CLEAR lw_onject_text.
lw_onject_text-language = ddlanguage.
lw_onject_text-description = description.
APPEND lw_onject_text TO ls_new_object-object_text.
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.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'DDTEXT'."標題描述
ls_new_object_details-fieldvalue = ddlanguage.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'DOMNAME'."域名
ls_new_object_details-fieldvalue = domname.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'DDLANGUAGE'. "語言
ls_new_object_details-fieldvalue = ddlanguage.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'ROUTPUTLEN'. "長度(字元數)
ls_new_object_details-fieldvalue = routputlen.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'MEMORYID'. "設定/獲取引數標識
ls_new_object_details-fieldvalue = memoryid.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'REPTEXT'. "長標題
ls_new_object_details-fieldvalue = reptext.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'HEADLEN'. "長標題長度
ls_new_object_details-fieldvalue = strlen( reptext ).
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'SCRTEXT_S'. "短標題
ls_new_object_details-fieldvalue = scrtext_s.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'SCRLEN1'. "短標題長度
ls_new_object_details-fieldvalue = strlen( scrtext_s ).
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'SCRTEXT_M'. "中標題
ls_new_object_details-fieldvalue = scrtext_m.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'SCRLEN2'. "中標題長度
ls_new_object_details-fieldvalue = strlen( scrtext_m ).
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'SCRTEXT_L'. "長標題
ls_new_object_details-fieldvalue = scrtext_l.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'SCRLEN3'. "長標題長度
ls_new_object_details-fieldvalue = strlen( scrtext_l ).
APPEND ls_new_object_details TO ls_new_object-details.
APPEND ls_new_object TO lt_new_object.
CALL FUNCTION 'GOX_GEN_DTEL_STD'
EXPORTING
iv_object_name = lv_element_name
it_object_new = lt_new_object
it_object_old = lt_old_object
iv_devclass = lv_devclass
iv_request_wb = lv_request_wb
IMPORTING
et_bapireturn = et_bapireturn
et_transport = et_transport.
APPEND LINES OF et_bapireturn TO return.
DATA: lv_ddobjname TYPE ddobjname,
ls_dd02v TYPE dd02v.
lv_ddobjname = lv_element_name.
DATA gotstate TYPE ddgotstate.
DATA dd04v_wa TYPE dd04v.
DATA tpara_wa TYPE tpara.
CALL FUNCTION 'DDIF_DTEL_GET'
EXPORTING
name = lv_ddobjname
state = 'A'
langu = sy-langu
IMPORTING
gotstate = gotstate
dd04v_wa = dd04v_wa
tpara_wa = tpara_wa
EXCEPTIONS
illegal_input = 1.
CALL FUNCTION 'DDIF_DTEL_PUT'
EXPORTING
name = lv_ddobjname
dd04v_wa = dd04v_wa
EXCEPTIONS
dtel_not_found = 1
name_inconsistent = 2
dtel_inconsistent = 3
put_failure = 4
put_refused = 5.
IF sy-subrc NE 0.
RETURN.
ENDIF.
* ACTIVE TABLE
CALL FUNCTION 'DDIF_DTEL_ACTIVATE'
EXPORTING
name = lv_ddobjname
auth_chk = ' '.
CHECK sy-subrc = 0.
ENDMETHOD.
METHOD create_table.
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.
DATA iv_request_wb TYPE trkorr.
DATA et_bapireturn TYPE bapirettab.
DATA et_transport TYPE comt_gox_trans_object.
CLEAR ls_new_object.
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.
* TECHNICAL SETTING
ls_new_object-key_guid = lv_guid.
DATA(lv_parent_guid) = ls_new_object-key_guid.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'TABCLASS'. "表類別
ls_new_object_details-fieldvalue = tabclass.
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 = tabkat.
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 = tabart.
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 = pufferung.
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 = contflag.
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 = mainflag.
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 = buffallow.
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 = schfeldanz.
APPEND ls_new_object_details TO ls_new_object-details.
APPEND ls_new_object TO lt_new_object.
LOOP AT it_dd03l ASSIGNING FIELD-SYMBOL(<fw_dd03l>).
DATA(l_tabix) = sy-tabix.
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 = <fw_dd03l>-fieldname. "FIELD NAME
ls_new_object-position = l_tabix. "SY-TABIX
ls_new_object_details-fieldname = 'FIELDNAME'.
ls_new_object_details-fieldvalue = <fw_dd03l>-fieldname.
APPEND ls_new_object_details TO ls_new_object-details.
ls_new_object_details-fieldname = 'AS4LOCAL'.
ls_new_object_details-fieldvalue = 'A'."<FW_DD03L>-AS4LOCAL.
SHIFT ls_new_object_details-fieldvalue LEFT DELETING LEADING space.
APPEND ls_new_object_details TO ls_new_object-details.
ls_new_object_details-fieldname = 'POSITION'.
ls_new_object_details-fieldvalue = l_tabix.
SHIFT ls_new_object_details-fieldvalue LEFT DELETING LEADING space.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'KEYFLAG'. "KEY
ls_new_object_details-fieldvalue = <fw_dd03l>-keyflag.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'NOTNULL'. "NOTNULL
ls_new_object_details-fieldvalue = <fw_dd03l>-notnull.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'ROLLNAME'. "NOTNULL
ls_new_object_details-fieldvalue = <fw_dd03l>-rollname.
APPEND ls_new_object_details TO ls_new_object-details.
CLEAR ls_new_object_details.
ls_new_object_details-fieldname = 'COMPTYPE'. "NOTNULL
ls_new_object_details-fieldvalue = 'E'."<FW_DD03L>-COMPTYPE.
APPEND ls_new_object_details TO ls_new_object-details.
"使用內建型別建立欄位
* CLEAR LS_NEW_OBJECT_DETAILS.
* LS_NEW_OBJECT_DETAILS-FIELDNAME = 'DATATYPE'. "KEY
* LS_NEW_OBJECT_DETAILS-FIELDVALUE = <FW_DD03L>-DATATYPE.
* APPEND LS_NEW_OBJECT_DETAILS TO LS_NEW_OBJECT-DETAILS.
*
* CLEAR LS_NEW_OBJECT_DETAILS.
* LS_NEW_OBJECT_DETAILS-FIELDNAME = 'LENG'. "KEY
* LS_NEW_OBJECT_DETAILS-FIELDVALUE = <FW_DD03L>-LENG.
* 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.
ENDLOOP.
lv_dbtab1_name = tabname.
CALL FUNCTION 'GOX_GEN_TABLE_STD'
EXPORTING
iv_object_name = lv_dbtab1_name
it_object_new = lt_new_object
it_object_old = lt_old_object
iv_devclass = devclass "LOCAL
iv_request_wb = request_wb
IMPORTING
et_bapireturn = et_bapireturn
et_transport = et_transport.
APPEND LINES OF et_bapireturn TO return.
CHECK lt_returntab IS INITIAL.
DATA: lv_ddobjname TYPE ddobjname,
ls_dd02v TYPE dd02v.
lv_ddobjname = lv_dbtab1_name.
CALL FUNCTION 'DDIF_TABL_GET'
EXPORTING
name = lv_ddobjname
state = 'A'
langu = sy-langu
IMPORTING
dd02v_wa = ls_dd02v
EXCEPTIONS
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
RETURN.
ENDIF.
ls_dd02v-mainflag = 'X'.
CALL FUNCTION 'DDIF_TABL_PUT'
EXPORTING
name = lv_ddobjname
dd02v_wa = ls_dd02v
EXCEPTIONS
tabl_not_found = 1
name_inconsistent = 2
tabl_inconsistent = 3
put_failure = 4
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
RETURN.
ENDIF.
* ACTIVE TABLE
CALL FUNCTION 'DDIF_TABL_ACTIVATE'
EXPORTING
name = lv_ddobjname
auth_chk = ' '.
CHECK sy-subrc = 0.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
* "測試
* DATA(return) = zcl_dynamic_operate=>create_domain(
* domaname = 'ZDC'
* description = '測試'
* datatype = 'CHAR'
* leng = '10'
* it_dd07v = VALUE #( ( domname = 'ZD1' valpos = '0001' ddlanguage = '1' ddtext = '空' )
* ( domname = 'ZD2' valpos = '0002' ddlanguage = '1' domvalue_l = 'X' ddtext = '是' ) )
* ).
*
* IF return IS NOT INITIAL.
* cl_demo_output=>display( return ).
* EXIT.
* ENDIF.
*
* return = zcl_dynamic_operate=>create_element(
* rollname = 'ZE_DC'
* description = '資料元素'
* domname = 'ZDC'
** routputlen =
** memoryid =
** reptext =
** scrtext_s =
** scrtext_m =
** scrtext_l =
** devclass = '$TMP'
** request_wb =
* ).
* IF return IS NOT INITIAL.
* cl_demo_output=>display( return ).
* EXIT.
* ENDIF.
*"測試
*DATA(RETURN) = zcl_dynamic_operate=>create_domain(
* domaname = 'ZDC'
* description = '測試'
* datatype = 'CHAR'
* leng = '10'
* it_dd07v = VALUE #( ( domname = 'ZD1' valpos = '0001' ddlanguage = '1' ddtext = '空' )
* ( domname = 'ZD2' valpos = '0002' ddlanguage = '1' domvalue_l = 'X' ddtext = '是' ) )
* ).
*
*IF RETURN IS NOT INITIAL.
* cl_demo_output=>display( RETURN ).
* EXIT.
*ENDIF.
DATA(return) = zcl_dynamic_operate=>create_element(
rollname = 'ZE_MAILBOX'
description = '人事專員郵箱'
domname = 'CHAR30'
* routputlen =
* memoryid =
* reptext =
* scrtext_s =
* scrtext_m =
* scrtext_l =
devclass = 'Z001'
request_wb = 'ED1K900601'
).
IF return IS NOT INITIAL.
cl_demo_output=>display( return ).
EXIT.
ENDIF.
"建立表
*DATA(RETURN) = zcl_dynamic_operate=>create_table(
* tabname = 'ZTDC'
*it_dd03l = VALUE #( ( fieldname = 'MANDT' POSITION = 'X' keyflag = 'X' rollname = 'MANDT' )
* ( fieldname = 'MATNR' POSITION = 'X' keyflag = 'X' rollname = 'MATNR' ) )
* ).
*(
* tabname = ''
* tabclass = 'TRANSP'
* tabkat = 0
* tabart = 'APPL0'
** pufferung = ''
* contflag =
* mainflag =
* buffallow =
* schfeldanz =
** devclass = '$TMP'
** request_wb =
* it_dd03l =
* )
*TABCLASS
*TRANSP 透明表格
*INTTAB 結構
*CLUSTER 簇表
*POOL 共享表格
*VIEW 生成的檢視結構
*APPEND 附加結構
*
*TABKAT 0 大小范疇
*0 表 < 500K 0 0 到 810
*1 表 < 1.5 MB 1 810 到 3,200
*2 表 < 6.5 MB 2 3,200 到 13,000
*3 表 < 25 MB 3 13,000 到 52,000
*4 表 > 160 MB 4 52,000 到 210,000
*5 值無法手動編輯(早期預警值) 5 210,000 到 420,000
*6 值無法手動編輯(早期預警值) 6 420,000 到 840,000
*7 值無法手動編輯(早期預警值) 7 840,000 到 1,600,000
*8 值無法手動編輯(早期預警值) 8 1,600,000 到 3,300,000
*9 值無法手動編輯(早期預警值) 9 3,300,000 到 130,000,000
*10 值無法手動編輯(早期預警值)
*11 值無法手動編輯(早期預警值)
*12 值無法手動編輯(早期預警值)
*13 值無法手動編輯(早期預警值)
*14 值無法手動編輯(早期預警值)
*
*TABART CHAR 5 0 技術設定的資料類
*APPL0 主資料,透明表
*APPL1 事務資料,透明表
*APPL2 組織和定製
*DDIM 業務倉庫中的維度表
*DFACT 業務倉庫中的事實表
*DODS 業務倉庫中的操作型資料儲存表
*USER 客戶資料類
*USER1 客戶資料類
*
*CONTFLAG 1 型別 CONTFLAG CHAR 1 0 提交類
*A 應用表 (主資料和業務資料)
*C 定製表, 僅由客戶維護, 非SAP輸入
*L &nbs