SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 20:32:26 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

remove startup list

Browse Source
This commit is contained in:
Christian Guenter 2017-08-19 08:09:46 +00:00
parent fa24f82610
commit d47246ca26
1 changed files with 3 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/zabapgit_object_shma.prog.abap
View File

@ -7,10 +7,6 @@ CLASS lcl_object_shma DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION. PUBLIC SECTION.
INTERFACES lif_object. INTERFACES lif_object.
PRIVATE SECTION.
TYPES: db_startup_table TYPE STANDARD TABLE OF shma_start WITH DEFAULT KEY,
db_startup_table_rts TYPE STANDARD TABLE OF shma_start_rts WITH DEFAULT KEY.
ENDCLASS. ENDCLASS.
CLASS lcl_object_shma IMPLEMENTATION. CLASS lcl_object_shma IMPLEMENTATION.
@ -49,8 +45,7 @@ CLASS lcl_object_shma IMPLEMENTATION.
METHOD lif_object~serialize. METHOD lif_object~serialize.
DATA: area_name TYPE shm_area_name, DATA: area_name TYPE shm_area_name,
area_attributes TYPE shma_attributes, area_attributes TYPE shma_attributes.
startup_list TYPE db_startup_table.
area_name = ms_item-obj_name. area_name = ms_item-obj_name.
@ -59,8 +54,7 @@ CLASS lcl_object_shma IMPLEMENTATION.
EXPORTING EXPORTING
area_name = area_name area_name = area_name
IMPORTING IMPORTING
area_attributes = area_attributes area_attributes = area_attributes.
startup_list = startup_list.
CLEAR: area_attributes-chg_user, CLEAR: area_attributes-chg_user,
area_attributes-chg_date, area_attributes-chg_date,
@ -72,9 +66,6 @@ CLASS lcl_object_shma IMPLEMENTATION.
io_xml->add( iv_name = 'AREA_ATTRIBUTES' io_xml->add( iv_name = 'AREA_ATTRIBUTES'
ig_data = area_attributes ). ig_data = area_attributes ).
io_xml->add( iv_name = 'STARTUP_LIST'
ig_data = startup_list ).
CATCH cx_root INTO DATA(error). CATCH cx_root INTO DATA(error).
lcx_exception=>raise( |Error serializing SHMA { ms_item-obj_name }| ). lcx_exception=>raise( |Error serializing SHMA { ms_item-obj_name }| ).
ENDTRY. ENDTRY.
@ -84,8 +75,7 @@ CLASS lcl_object_shma IMPLEMENTATION.
METHOD lif_object~deserialize. METHOD lif_object~deserialize.
DATA: area_name TYPE shm_area_name, DATA: area_name TYPE shm_area_name,
area_attributes TYPE shma_attributes, area_attributes TYPE shma_attributes.
startup_list TYPE db_startup_table.
area_name = ms_item-obj_name. area_name = ms_item-obj_name.
@ -95,18 +85,11 @@ CLASS lcl_object_shma IMPLEMENTATION.
CHANGING CHANGING
cg_data = area_attributes ). cg_data = area_attributes ).
io_xml->read(
EXPORTING
iv_name = 'STARTUP_LIST'
CHANGING
cg_data = startup_list ).
TRY. TRY.
CALL METHOD ('\PROGRAM=SAPLSHMA\CLASS=LCL_SHMA_HELPER')=>('INSERT_AREA') CALL METHOD ('\PROGRAM=SAPLSHMA\CLASS=LCL_SHMA_HELPER')=>('INSERT_AREA')
EXPORTING EXPORTING
area_name = area_name area_name = area_name
attributes = area_attributes attributes = area_attributes
startup_list = startup_list
force_overwrite = abap_true force_overwrite = abap_true
no_class_generation = abap_true no_class_generation = abap_true
silent_mode = abap_true. silent_mode = abap_true.