SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-02 04:36:49 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

add free area to delete

Browse Source
This commit is contained in:
Christian Guenter 2017-08-14 20:04:23 +00:00
parent 7f952e7e2e
commit 786c845c0a
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/zabapgit_object_shma.prog.abap
View File

@ -167,6 +167,11 @@ CLASS lcl_object_shma IMPLEMENTATION.
lcx_exception=>raise( |Error deleting SHMA { ms_item-obj_name }| ). lcx_exception=>raise( |Error deleting SHMA { ms_item-obj_name }| ).
ENDIF. ENDIF.
CALL METHOD ('\PROGRAM=SAPMSHM_MONITOR\CLASS=LCL_SHMM')=>('FREE_AREA_BY_NAME')
EXPORTING
area_name = area_name
affect_server = cl_shm_area=>affect_all_servers.
CREATE OBJECT lo_cts_if TYPE ('\FUNCTION-POOL=SHMA\CLASS=LCL_CTS_INTERFACE') CREATE OBJECT lo_cts_if TYPE ('\FUNCTION-POOL=SHMA\CLASS=LCL_CTS_INTERFACE')
EXPORTING EXPORTING
area = area_name. area = area_name.