├── .abapgit.xml ├── .apack-manifest.xml ├── LICENSE ├── README.md ├── abaplint.json └── src ├── log ├── package.devc.xml ├── zadu_log.fugr.lzadu_logtop.abap ├── zadu_log.fugr.lzadu_logtop.xml ├── zadu_log.fugr.saplzadu_log.abap ├── zadu_log.fugr.saplzadu_log.xml ├── zadu_log.fugr.xml ├── zadu_log.fugr.z_adu_log_display_content.abap ├── zadu_log.msag.xml ├── zadu_log_severit.fugr.lzadu_log_severitf00.abap ├── zadu_log_severit.fugr.lzadu_log_severitf00.xml ├── zadu_log_severit.fugr.lzadu_log_severiti00.abap ├── zadu_log_severit.fugr.lzadu_log_severiti00.xml ├── zadu_log_severit.fugr.lzadu_log_severitt00.abap ├── zadu_log_severit.fugr.lzadu_log_severitt00.xml ├── zadu_log_severit.fugr.lzadu_log_severittop.abap ├── zadu_log_severit.fugr.lzadu_log_severittop.xml ├── zadu_log_severit.fugr.saplzadu_log_severit.abap ├── zadu_log_severit.fugr.saplzadu_log_severit.xml ├── zadu_log_severit.fugr.screen_0100.abap ├── zadu_log_severit.fugr.tableframe_zadu_log_severit.abap ├── zadu_log_severit.fugr.tableproc_zadu_log_severit.abap ├── zadu_log_severit.fugr.xml ├── zadu_log_severit.tabl.xml ├── zadu_log_severits.tobj.xml ├── zcl_adu_log.clas.abap ├── zcl_adu_log.clas.testclasses.abap ├── zcl_adu_log.clas.xml ├── zcx_adu_log.clas.abap ├── zcx_adu_log.clas.xml ├── zif_adu_log.intf.abap └── zif_adu_log.intf.xml ├── package.devc.xml ├── switch ├── package.devc.xml ├── zadu_switch.tabl.xml ├── zadu_switch.vcls.xml ├── zadu_switch_code.doma.xml ├── zadu_switch_code.dtel.xml ├── zadu_switch_name.doma.xml ├── zadu_switch_name.dtel.xml ├── zadu_switch_status.doma.xml ├── zadu_switch_status.dtel.xml ├── zadu_switch_user.tabl.xml ├── zadu_switchc.tobj.xml ├── zaduvswitch.fugr.lzaduvswitchf00.abap ├── zaduvswitch.fugr.lzaduvswitchf00.xml ├── zaduvswitch.fugr.lzaduvswitchi00.abap ├── zaduvswitch.fugr.lzaduvswitchi00.xml ├── zaduvswitch.fugr.lzaduvswitcht00.abap ├── zaduvswitch.fugr.lzaduvswitcht00.xml ├── zaduvswitch.fugr.lzaduvswitchtop.abap ├── zaduvswitch.fugr.lzaduvswitchtop.xml ├── zaduvswitch.fugr.saplzaduvswitch.abap ├── zaduvswitch.fugr.saplzaduvswitch.xml ├── zaduvswitch.fugr.screen_0100.abap ├── zaduvswitch.fugr.screen_0101.abap ├── zaduvswitch.fugr.viewframe_zaduvswitch.abap ├── zaduvswitch.fugr.viewproc_zaduvswitch.abap ├── zaduvswitch.fugr.xml ├── zaduvswitch.view.xml ├── zaduvswitch_user.fugr.lzaduvswitch_userf00.abap ├── zaduvswitch_user.fugr.lzaduvswitch_userf00.xml ├── zaduvswitch_user.fugr.lzaduvswitch_useri00.abap ├── zaduvswitch_user.fugr.lzaduvswitch_useri00.xml ├── zaduvswitch_user.fugr.lzaduvswitch_usert00.abap ├── zaduvswitch_user.fugr.lzaduvswitch_usert00.xml ├── zaduvswitch_user.fugr.lzaduvswitch_usertop.abap ├── zaduvswitch_user.fugr.lzaduvswitch_usertop.xml ├── zaduvswitch_user.fugr.saplzaduvswitch_user.abap ├── zaduvswitch_user.fugr.saplzaduvswitch_user.xml ├── zaduvswitch_user.fugr.screen_0100.abap ├── zaduvswitch_user.fugr.viewframe_zaduvswitch_user.abap ├── zaduvswitch_user.fugr.viewproc_zaduvswitch_user.abap ├── zaduvswitch_user.fugr.xml ├── zaduvswitch_user.view.xml ├── zaduvswitch_userv.tobj.xml ├── zaduvswitchv.tobj.xml ├── zcl_adu_switch.clas.abap ├── zcl_adu_switch.clas.testclasses.abap ├── zcl_adu_switch.clas.xml ├── zcx_adu_switch.clas.abap ├── zcx_adu_switch.clas.xml ├── zif_adu_switch.intf.abap ├── zif_adu_switch.intf.xml ├── zif_adu_switch_condition.intf.abap └── zif_adu_switch_condition.intf.xml ├── tr ├── package.devc.xml ├── zadu_check_transport.msag.xml ├── zadu_chktr_crref.tabl.xml ├── zadu_chktr_crrel.tabl.xml ├── zadu_chktr_head.tabl.xml ├── zadu_chktr_imtim.tabl.xml ├── zadu_chktr_oisum.tabl.xml ├── zadu_chktr_onlim.tabl.xml ├── zadu_chktr_seq.tabl.xml ├── zadu_s_chktr_crref_update.tabl.xml ├── zadu_s_chktr_crrel_update.tabl.xml ├── zadu_s_chktr_head_update.tabl.xml ├── zadu_s_chktr_imtim_update.tabl.xml ├── zadu_s_chktr_oisum_update.tabl.xml ├── zadu_s_chktr_onlim_update.tabl.xml ├── zadu_s_chktr_seq_update.tabl.xml ├── zadu_s_oi_result.tabl.xml ├── zadu_s_oi_results.tabl.xml ├── zadu_t_chktr_crref_update.ttyp.xml ├── zadu_t_chktr_crrel_update.ttyp.xml ├── zadu_t_chktr_imtim_update.ttyp.xml ├── zadu_t_chktr_oisum_update.ttyp.xml ├── zadu_t_chktr_onlim_update.ttyp.xml ├── zadu_t_chktr_seq_update.ttyp.xml ├── zadu_tr_import.prog.abap ├── zadu_tr_import.prog.xml ├── zadu_tr_importcsl.prog.abap ├── zadu_tr_importcsl.prog.xml ├── zadu_tr_importsel.prog.abap ├── zadu_tr_importsel.prog.xml ├── zadu_transport_req.msag.xml ├── zadu_transport_update.fugr.lzadu_transport_updatetop.abap ├── zadu_transport_update.fugr.lzadu_transport_updatetop.xml ├── zadu_transport_update.fugr.saplzadu_transport_update.abap ├── zadu_transport_update.fugr.saplzadu_transport_update.xml ├── zadu_transport_update.fugr.xml ├── zadu_transport_update.fugr.zadu_transport_update_crossref.abap ├── zadu_transport_update.fugr.zadu_transport_update_crossrel.abap ├── zadu_transport_update.fugr.zadu_transport_update_header.abap ├── zadu_transport_update.fugr.zadu_transport_update_imp_time.abap ├── zadu_transport_update.fugr.zadu_transport_update_oi_sum.abap ├── zadu_transport_update.fugr.zadu_transport_update_onl_imp.abap ├── zadu_transport_update.fugr.zadu_transport_update_sequence.abap ├── zcl_adu_check_transport.clas.abap ├── zcl_adu_check_transport.clas.xml ├── zcl_adu_check_transport_reader.clas.abap ├── zcl_adu_check_transport_reader.clas.locals_def.abap ├── zcl_adu_check_transport_reader.clas.locals_imp.abap ├── zcl_adu_check_transport_reader.clas.xml ├── zcl_adu_transport_request.clas.abap ├── zcl_adu_transport_request.clas.xml ├── zcl_adu_utl_transport_request.clas.abap ├── zcl_adu_utl_transport_request.clas.testclasses.abap ├── zcl_adu_utl_transport_request.clas.xml ├── zcx_adu_check_transport.clas.abap ├── zcx_adu_check_transport.clas.xml ├── zcx_adu_transport_request.clas.abap ├── zcx_adu_transport_request.clas.xml ├── zif_adu_check_transport.intf.abap ├── zif_adu_check_transport.intf.xml ├── zif_adu_check_transport_reader.intf.abap ├── zif_adu_check_transport_reader.intf.xml ├── zif_adu_tr_constants.intf.abap ├── zif_adu_tr_constants.intf.xml ├── zif_adu_transport_request.intf.abap ├── zif_adu_transport_request.intf.xml ├── zif_adu_utl_transport_request.intf.abap └── zif_adu_utl_transport_request.intf.xml ├── transform ├── package.devc.xml ├── zcl_adu_transform.clas.abap ├── zcl_adu_transform.clas.xml ├── zcx_adu_transform.clas.abap ├── zcx_adu_transform.clas.xml ├── zif_adu_transform.intf.abap └── zif_adu_transform.intf.xml ├── zadu_crud_ind.doma.xml ├── zadu_crud_ind.dtel.xml ├── zadu_messages.msag.xml ├── zadu_oo_serializ.tabl.xml ├── zadu_oo_serialize.msag.xml ├── zadu_run_code.doma.xml ├── zadu_run_code.dtel.xml ├── zadu_s_gos_attachment.tabl.xml ├── zadu_sdf_teap_envi_status.doma.xml ├── zadu_sdf_teap_envi_status.dtel.xml ├── zadu_t_gos_attachment.ttyp.xml ├── zcl_adu_apack.clas.abap ├── zcl_adu_apack.clas.xml ├── zcl_adu_convert.clas.abap ├── zcl_adu_convert.clas.locals_imp.abap ├── zcl_adu_convert.clas.xml ├── zcl_adu_email.clas.abap ├── zcl_adu_email.clas.xml ├── zcl_adu_general.clas.abap ├── zcl_adu_general.clas.testclasses.abap ├── zcl_adu_general.clas.xml ├── zcl_adu_gos.clas.abap ├── zcl_adu_gos.clas.xml ├── zcl_adu_messages.clas.abap ├── zcl_adu_messages.clas.testclasses.abap ├── zcl_adu_messages.clas.xml ├── zcl_adu_oo_serialize.clas.abap ├── zcl_adu_oo_serialize.clas.xml ├── zcl_adu_run_atc.clas.abap ├── zcl_adu_run_atc.clas.xml ├── zcl_adu_table_pack.clas.abap ├── zcl_adu_table_pack.clas.testclasses.abap ├── zcl_adu_table_pack.clas.xml ├── zcl_adu_texts.clas.abap ├── zcl_adu_texts.clas.testclasses.abap ├── zcl_adu_texts.clas.xml ├── zcx_adu_messages.clas.abap ├── zcx_adu_messages.clas.xml ├── zcx_adu_oo_serialize.clas.abap ├── zcx_adu_oo_serialize.clas.xml ├── zcx_adu_static_check.clas.abap ├── zcx_adu_static_check.clas.xml ├── zif_adu_constants.intf.abap ├── zif_adu_constants.intf.xml ├── zif_adu_convert_time.intf.abap ├── zif_adu_convert_time.intf.xml ├── zif_adu_email.intf.abap ├── zif_adu_email.intf.xml ├── zif_adu_exception_dyn_info.intf.abap ├── zif_adu_exception_dyn_info.intf.xml ├── zif_adu_general.intf.abap ├── zif_adu_general.intf.xml ├── zif_adu_gos.intf.abap ├── zif_adu_gos.intf.xml ├── zif_adu_messages.intf.abap ├── zif_adu_messages.intf.xml ├── zif_adu_run_atc.intf.abap ├── zif_adu_run_atc.intf.xml ├── zif_adu_table_pack.intf.abap ├── zif_adu_table_pack.intf.xml ├── zif_adu_texts.intf.abap └── zif_adu_texts.intf.xml /.abapgit.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | E 6 | /src/ 7 | PREFIX 8 | 9 | /.gitignore 10 | /LICENSE 11 | /README.md 12 | /package.json 13 | /.travis.yml 14 | /.gitlab-ci.yml 15 | /abaplint.json 16 | /azure-pipelines.yml 17 | /.devcontainer.json 18 | 19 | 20 | 21 | SAP_BASIS 22 | 740 23 | 0008 24 | 25 | 26 | ST-PI 27 | 740 28 | 29 | 30 | 31 | 32 | 33 | -------------------------------------------------------------------------------- /.apack-manifest.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | github.com/jrodriguez-rc 6 | abap-dev-utilities 7 | 2.0.0 8 | abapGit 9 | https://github.com/jrodriguez-rc/abap-dev-utilities.git 10 | 11 | 12 | 13 | -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | MIT License 2 | 3 | Copyright (c) 2020 Jaime Rodriguez Capote 4 | 5 | Permission is hereby granted, free of charge, to any person obtaining a copy 6 | of this software and associated documentation files (the "Software"), to deal 7 | in the Software without restriction, including without limitation the rights 8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 9 | copies of the Software, and to permit persons to whom the Software is 10 | furnished to do so, subject to the following conditions: 11 | 12 | The above copyright notice and this permission notice shall be included in all 13 | copies or substantial portions of the Software. 14 | 15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 21 | SOFTWARE. 22 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | [![abap package version](https://img.shields.io/endpoint?url=https://shield.abap.space/version-shield-json/github/jrodriguez-rc/abap-dev-utilities/src/zcl_adu_apack.clas.abap/gc_version&label=version)](.apack-manifest.xml) 2 | [![license](https://img.shields.io/github/license/jrodriguez-rc/abap-dev-utilities)](LICENSE) 3 | ![GitHub branch check runs](https://img.shields.io/github/check-runs/jrodriguez-rc/abap-dev-utilities/main) 4 | 5 | # ABAP Development Utilities 6 | This repository has a group of utilities that you can use in your development 7 | 8 | | Group | Class | Interface | Description | 9 | | ------ | ------ | ------ | ------ | 10 | | General | ZCL_ADU_GENERAL | | General utilities| 11 | | General | ZCL_ADU_TABLE_PACK | ZIF_ADU_TABLE_PACK | Internal table packet selection | 12 | | ATC | ZCL_ADU_RUN_ATC | ZIF_ADU_RUN_ATC | Can run ATC checks and get results | 13 | | Email | ZCL_ADU_EMAIL | ZIF_ADU_EMAIL | e-mail utilities | 14 | | GOS | ZCL_ADU_GOS | ZIF_ADU_GOS | GOS Utility | 15 | | Messages | ZCL_ADU_MESSAGES | ZIF_ADU_MESSAGES | Messages handler | 16 | | Serialization | ZCL_ADU_OO_SERIALIZE | | Object serialization | 17 | | Texts | ZCL_ADU_TEXTS | ZIF_ADU_TEXTS | Utilities for text processing | 18 | | Switch | ZCL_ADU_SWITCH | ZIF_ADU_SWITCH | Check [Wiki](https://github.com/jrodriguez-rc/abap-dev-utilities/wiki/Switch) | 19 | | Transport request | ZCL_ADU_TRANSPORT_REQUEST | ZIF_ADU_TRANSPORT_REQUEST | Transport request management | 20 | | Transport request | ZCL_ADU_UTL_TRANSPORT_REQUEST | ZIF_ADU_UTL_TRANSPORT_REQUEST | Utilities for transport requests | 21 | | Transport request | ZCL_ADU_CHECK_TRANSPORT | ZIF_ADU_CHECK_TRANSPORT | Execute different checks for a transport request. Based on Transport Check Report (See note [2475591](https://launchpad.support.sap.com/#/notes/2475591)) | 22 | | Transport request | ZCL_ADU_CHECK_TRANSPORT_READER | ZIF_ADU_CHECK_TRANSPORT_READER | Read transport checks | 23 | -------------------------------------------------------------------------------- /src/log/package.devc.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ADU: Log 7 | 8 | 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/log/zadu_log.fugr.lzadu_logtop.abap: -------------------------------------------------------------------------------- 1 | FUNCTION-POOL zadu_log. "MESSAGE-ID .. 2 | 3 | * INCLUDE LZADU_LOGD... " Local class definition 4 | -------------------------------------------------------------------------------- /src/log/zadu_log.fugr.lzadu_logtop.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | LZADU_LOGTOP 7 | S 8 | D$ 9 | I 10 | S 11 | X 12 | D$S 13 | X 14 | 15 | 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/log/zadu_log.fugr.saplzadu_log.abap: -------------------------------------------------------------------------------- 1 | ******************************************************************* 2 | * System-defined Include-files. * 3 | ******************************************************************* 4 | INCLUDE lzadu_logtop. " Global Declarations 5 | INCLUDE lzadu_loguxx. " Function Modules 6 | 7 | ******************************************************************* 8 | * User-defined Include-files (if necessary). * 9 | ******************************************************************* 10 | * INCLUDE LZADU_LOGF... " Subroutines 11 | * INCLUDE LZADU_LOGO... " PBO-Modules 12 | * INCLUDE LZADU_LOGI... " PAI-Modules 13 | * INCLUDE LZADU_LOGE... " Events 14 | * INCLUDE LZADU_LOGP... " Local class implement. 15 | * INCLUDE LZADU_LOGT99. " ABAP Unit tests 16 | -------------------------------------------------------------------------------- /src/log/zadu_log.fugr.saplzadu_log.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | SAPLZADU_LOG 7 | S 8 | D$ 9 | F 10 | S 11 | E 12 | X 13 | D$S 14 | X 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/log/zadu_log.fugr.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | ADU: Logger 6 | 7 | LZADU_LOGTOP 8 | SAPLZADU_LOG 9 | 10 | 11 | 12 | Z_ADU_LOG_DISPLAY_CONTENT 13 | ADU: Logger display content 14 | 15 | 16 | I_T_PARAMS 17 | SPAR 18 | 19 | 20 | 21 | 22 | I_T_PARAMS 23 | P 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | -------------------------------------------------------------------------------- /src/log/zadu_log.fugr.z_adu_log_display_content.abap: -------------------------------------------------------------------------------- 1 | FUNCTION z_adu_log_display_content. 2 | *"---------------------------------------------------------------------- 3 | *"*"Local Interface: 4 | *" TABLES 5 | *" I_T_PARAMS STRUCTURE SPAR 6 | *"---------------------------------------------------------------------- 7 | 8 | DATA(lv_content_type) = VALUE #( i_t_params[ param = zif_adu_log=>gc_parameter-content_type ]-value OPTIONAL ). 9 | 10 | DATA(lt_parameters) = i_t_params[]. 11 | 12 | DELETE lt_parameters WHERE param <> zif_adu_log=>gc_parameter-content. 13 | 14 | IF lt_parameters IS INITIAL. 15 | RETURN. 16 | ENDIF. 17 | 18 | DATA(lv_base64) = ``. 19 | 20 | LOOP AT lt_parameters ASSIGNING FIELD-SYMBOL(). 21 | lv_base64 = |{ lv_base64 }{ -value }|. 22 | ENDLOOP. 23 | 24 | DATA(lv_content) = cl_http_utility=>decode_base64( lv_base64 ). 25 | 26 | CASE lv_content_type. 27 | WHEN if_rest_media_type=>gc_appl_json. 28 | CALL TRANSFORMATION sjson2html 29 | SOURCE XML lv_content 30 | RESULT XML DATA(lv_json_html). 31 | 32 | cl_abap_browser=>show_html( html_string = cl_abap_codepage=>convert_from( lv_json_html ) ). 33 | 34 | WHEN if_rest_media_type=>gc_appl_xml. 35 | cl_abap_browser=>show_xml( lv_content ). 36 | 37 | WHEN OTHERS. 38 | cl_demo_output=>display( data = lv_content ). 39 | 40 | ENDCASE. 41 | 42 | ENDFUNCTION. 43 | -------------------------------------------------------------------------------- /src/log/zadu_log.msag.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_LOG 7 | E 8 | Logger messages 9 | 10 | 11 | 12 | E 13 | ZADU_LOG 14 | 001 15 | Display content => 16 | 17 | 18 | 19 | S 20 | 21 | 22 | 23 | S 24 | ZADU_LOG 25 | Mensajes del logger 26 | 27 | 28 | 29 | 30 | S 31 | 001 32 | Mostrar contenido => 33 | 34 | 35 | 36 | 37 | 38 | -------------------------------------------------------------------------------- /src/log/zadu_log_severit.fugr.lzadu_log_severitf00.abap: -------------------------------------------------------------------------------- 1 | *---------------------------------------------------------------------* 2 | * view related FORM routines 3 | *---------------------------------------------------------------------* 4 | 5 | * base table related FORM-routines............. 6 | INCLUDE LSVIMFTX . 7 | -------------------------------------------------------------------------------- /src/log/zadu_log_severit.fugr.lzadu_log_severitf00.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | LZADU_LOG_SEVERITF00 7 | X 8 | S 9 | D$ 10 | I 11 | S 12 | E 13 | X 14 | D$S 15 | X 16 | 17 | 18 | 19 | 20 | -------------------------------------------------------------------------------- /src/log/zadu_log_severit.fugr.lzadu_log_severiti00.abap: -------------------------------------------------------------------------------- 1 | *---------------------------------------------------------------------* 2 | * view related PAI modules 3 | *---------------------------------------------------------------------* 4 | 5 | INCLUDE LSVIMITX . "base table related PAI modules 6 | -------------------------------------------------------------------------------- /src/log/zadu_log_severit.fugr.lzadu_log_severiti00.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | LZADU_LOG_SEVERITI00 7 | X 8 | S 9 | D$ 10 | I 11 | S 12 | E 13 | X 14 | D$S 15 | X 16 | 17 | 18 | 19 | 20 | -------------------------------------------------------------------------------- /src/log/zadu_log_severit.fugr.lzadu_log_severitt00.abap: -------------------------------------------------------------------------------- 1 | *---------------------------------------------------------------------* 2 | * view related data declarations 3 | *---------------------------------------------------------------------* 4 | *...processing: ZADU_LOG_SEVERIT................................* 5 | DATA: BEGIN OF STATUS_ZADU_LOG_SEVERIT . "state vector 6 | INCLUDE STRUCTURE VIMSTATUS. 7 | DATA: END OF STATUS_ZADU_LOG_SEVERIT . 8 | CONTROLS: TCTRL_ZADU_LOG_SEVERIT 9 | TYPE TABLEVIEW USING SCREEN '0100'. 10 | *.........table declarations:.................................* 11 | TABLES: *ZADU_LOG_SEVERIT . 12 | TABLES: ZADU_LOG_SEVERIT . 13 | 14 | * general table data declarations.............. 15 | INCLUDE LSVIMTDT . 16 | -------------------------------------------------------------------------------- /src/log/zadu_log_severit.fugr.lzadu_log_severitt00.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | LZADU_LOG_SEVERITT00 7 | S 8 | D$ 9 | I 10 | S 11 | E 12 | X 13 | D$S 14 | X 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/log/zadu_log_severit.fugr.lzadu_log_severittop.abap: -------------------------------------------------------------------------------- 1 | FUNCTION-POOL ZADU_LOG_SEVERIT MESSAGE-ID SV. 2 | 3 | * INCLUDE LZADU_LOG_SEVERITD... " Local class definition 4 | INCLUDE LSVIMDAT . "general data decl. 5 | INCLUDE LZADU_LOG_SEVERITT00 . "view rel. data dcl. 6 | -------------------------------------------------------------------------------- /src/log/zadu_log_severit.fugr.lzadu_log_severittop.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | LZADU_LOG_SEVERITTOP 7 | S 8 | D$ 9 | I 10 | S 11 | X 12 | D$S 13 | X 14 | 15 | 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/log/zadu_log_severit.fugr.saplzadu_log_severit.abap: -------------------------------------------------------------------------------- 1 | ******************************************************************* 2 | * System-defined Include-files. * 3 | ******************************************************************* 4 | INCLUDE LZADU_LOG_SEVERITTOP. " Global Declarations 5 | INCLUDE LZADU_LOG_SEVERITUXX. " Function Modules 6 | 7 | ******************************************************************* 8 | * User-defined Include-files (if necessary). * 9 | ******************************************************************* 10 | * INCLUDE LZADU_LOG_SEVERITF... " Subroutines 11 | * INCLUDE LZADU_LOG_SEVERITO... " PBO-Modules 12 | * INCLUDE LZADU_LOG_SEVERITI... " PAI-Modules 13 | * INCLUDE LZADU_LOG_SEVERITE... " Events 14 | * INCLUDE LZADU_LOG_SEVERITP... " Local class implement. 15 | * INCLUDE LZADU_LOG_SEVERITT99. " ABAP Unit tests 16 | INCLUDE LZADU_LOG_SEVERITF00 . " subprograms 17 | INCLUDE LZADU_LOG_SEVERITI00 . " PAI modules 18 | INCLUDE LSVIMFXX . " subprograms 19 | INCLUDE LSVIMOXX . " PBO modules 20 | INCLUDE LSVIMIXX . " PAI modules 21 | -------------------------------------------------------------------------------- /src/log/zadu_log_severit.fugr.saplzadu_log_severit.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | SAPLZADU_LOG_SEVERIT 7 | X 8 | S 9 | D$ 10 | F 11 | S 12 | E 13 | X 14 | D$S 15 | X 16 | 17 | 18 | 19 | 20 | -------------------------------------------------------------------------------- /src/log/zadu_log_severit.fugr.screen_0100.abap: -------------------------------------------------------------------------------- 1 | PROCESS BEFORE OUTPUT. 2 | MODULE LISTE_INITIALISIEREN. 3 | LOOP AT EXTRACT WITH CONTROL 4 | TCTRL_ZADU_LOG_SEVERIT CURSOR NEXTLINE. 5 | MODULE LISTE_SHOW_LISTE. 6 | ENDLOOP. 7 | * 8 | PROCESS AFTER INPUT. 9 | MODULE LISTE_EXIT_COMMAND AT EXIT-COMMAND. 10 | MODULE LISTE_BEFORE_LOOP. 11 | LOOP AT EXTRACT. 12 | MODULE LISTE_INIT_WORKAREA. 13 | CHAIN. 14 | FIELD ZADU_LOG_SEVERIT-OBJECT . 15 | FIELD ZADU_LOG_SEVERIT-SUBOBJECT . 16 | FIELD ZADU_LOG_SEVERIT-LOWER_PROBLEM_CLASS . 17 | MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST. 18 | ENDCHAIN. 19 | FIELD VIM_MARKED MODULE LISTE_MARK_CHECKBOX. 20 | CHAIN. 21 | FIELD ZADU_LOG_SEVERIT-OBJECT . 22 | FIELD ZADU_LOG_SEVERIT-SUBOBJECT . 23 | MODULE LISTE_UPDATE_LISTE. 24 | ENDCHAIN. 25 | ENDLOOP. 26 | MODULE LISTE_AFTER_LOOP. 27 | -------------------------------------------------------------------------------- /src/log/zadu_log_severit.fugr.tableframe_zadu_log_severit.abap: -------------------------------------------------------------------------------- 1 | *---------------------------------------------------------------------* 2 | * program for: TABLEFRAME_ZADU_LOG_SEVERIT 3 | *---------------------------------------------------------------------* 4 | FUNCTION TABLEFRAME_ZADU_LOG_SEVERIT . 5 | 6 | PERFORM TABLEFRAME TABLES X_HEADER X_NAMTAB DBA_SELLIST DPL_SELLIST 7 | EXCL_CUA_FUNCT 8 | USING CORR_NUMBER VIEW_ACTION VIEW_NAME. 9 | 10 | ENDFUNCTION. 11 | -------------------------------------------------------------------------------- /src/log/zadu_log_severit.fugr.tableproc_zadu_log_severit.abap: -------------------------------------------------------------------------------- 1 | *---------------------------------------------------------------------* 2 | * program for: TABLEPROC_ZADU_LOG_SEVERIT 3 | *---------------------------------------------------------------------* 4 | FUNCTION TABLEPROC_ZADU_LOG_SEVERIT . 5 | 6 | PERFORM TABLEPROC. 7 | 8 | ENDFUNCTION. 9 | -------------------------------------------------------------------------------- /src/log/zadu_log_severits.tobj.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_LOG_SEVERIT 7 | S 8 | X 9 | CUST 10 | 3 11 | 12 | 13 | E 14 | ZADU_LOG_SEVERIT 15 | S 16 | ADU: Disable logs by severity 17 | 18 | 19 | 20 | ZADU_LOG_SEVERIT 21 | S 22 | ZADU_LOG_SEVERIT 23 | X 24 | X 25 | 26 | 27 | 28 | 29 | ZADU_LOG_SEVERIT 30 | &NC& 31 | 32 | 33 | ZADU_LOG_SEVERIT 34 | ZADU_LOG_SEVERIT 35 | 1 36 | 0100 37 | X 38 | X 39 | 40 | 41 | 42 | 43 | 44 | -------------------------------------------------------------------------------- /src/log/zcl_adu_log.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_LOG 7 | E 8 | Logger (SLG1) 9 | 1 10 | X 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | S 18 | Logger (SLG1) 19 | 20 | 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /src/log/zcx_adu_log.clas.abap: -------------------------------------------------------------------------------- 1 | CLASS zcx_adu_log DEFINITION 2 | PUBLIC 3 | INHERITING FROM zcx_adu_static_check 4 | CREATE PUBLIC. 5 | 6 | PUBLIC SECTION. 7 | 8 | CONSTANTS: 9 | "! Display content 10 | BEGIN OF display_content, 11 | msgid TYPE symsgid VALUE 'ZADU_LOG', 12 | msgno TYPE symsgno VALUE '001', 13 | attr1 TYPE scx_attrname VALUE '', 14 | attr2 TYPE scx_attrname VALUE '', 15 | attr3 TYPE scx_attrname VALUE '', 16 | attr4 TYPE scx_attrname VALUE '', 17 | END OF display_content. 18 | 19 | METHODS constructor 20 | IMPORTING textid LIKE if_t100_message=>t100key OPTIONAL 21 | text1 TYPE csequence OPTIONAL 22 | text2 TYPE csequence OPTIONAL 23 | text3 TYPE csequence OPTIONAL 24 | text4 TYPE csequence OPTIONAL 25 | !previous LIKE previous OPTIONAL. 26 | 27 | PROTECTED SECTION. 28 | 29 | PRIVATE SECTION. 30 | 31 | ENDCLASS. 32 | 33 | 34 | 35 | CLASS zcx_adu_log IMPLEMENTATION. 36 | 37 | 38 | METHOD constructor ##ADT_SUPPRESS_GENERATION. 39 | 40 | super->constructor( textid = textid 41 | text1 = text1 42 | text2 = text2 43 | text3 = text3 44 | text4 = text4 45 | previous = previous ). 46 | 47 | ENDMETHOD. 48 | 49 | 50 | ENDCLASS. 51 | -------------------------------------------------------------------------------- /src/log/zcx_adu_log.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCX_ADU_LOG 7 | E 8 | ADU: Logger Exception 9 | 40 10 | 1 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | S 18 | ADU: Excepción Logger 19 | 20 | 21 | 22 | 23 | CONSTRUCTOR 24 | E 25 | CONSTRUCTOR 26 | 27 | 28 | CONSTRUCTOR 29 | S 30 | CONSTRUCTOR 31 | 32 | 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /src/log/zif_adu_log.intf.abap: -------------------------------------------------------------------------------- 1 | INTERFACE zif_adu_log 2 | PUBLIC. 3 | 4 | CONSTANTS: 5 | BEGIN OF gc_parameter, 6 | content_type TYPE balpar VALUE 'CTYPE', 7 | content TYPE balpar VALUE 'DATA', 8 | END OF gc_parameter. 9 | 10 | CONSTANTS: 11 | BEGIN OF gc_message_class, 12 | very_important TYPE balprobcl VALUE '1', 13 | important TYPE balprobcl VALUE '2', 14 | medium TYPE balprobcl VALUE '3', 15 | additinal_information TYPE balprobcl VALUE '4', 16 | other TYPE balprobcl VALUE '', 17 | END OF gc_message_class. 18 | 19 | TYPES: 20 | BEGIN OF ty_message, 21 | type TYPE msgty, 22 | id TYPE msgid, 23 | number TYPE msgno, 24 | variable1 TYPE msgv1, 25 | variable2 TYPE msgv2, 26 | variable3 TYPE msgv3, 27 | variable4 TYPE msgv4, 28 | END OF ty_message. 29 | 30 | METHODS add_exception 31 | IMPORTING ix_exception TYPE REF TO cx_root 32 | RETURNING VALUE(ri_result) TYPE REF TO zif_adu_log. 33 | 34 | METHODS add_message 35 | IMPORTING is_message TYPE bal_s_msg 36 | RETURNING VALUE(ri_result) TYPE REF TO zif_adu_log. 37 | 38 | METHODS add_bapiret_message 39 | IMPORTING is_message TYPE bapiret2 40 | RETURNING VALUE(ri_result) TYPE REF TO zif_adu_log. 41 | 42 | METHODS add_content 43 | IMPORTING iv_json TYPE string 44 | is_custom_message TYPE ty_message OPTIONAL 45 | RETURNING VALUE(ri_result) TYPE REF TO zif_adu_log. 46 | 47 | METHODS add_content_by_type 48 | IMPORTING iv_content TYPE string 49 | iv_content_type TYPE balpval 50 | is_custom_message TYPE ty_message OPTIONAL 51 | RETURNING VALUE(ri_result) TYPE REF TO zif_adu_log. 52 | 53 | METHODS add_content_json 54 | IMPORTING iv_json TYPE string 55 | is_custom_message TYPE ty_message OPTIONAL 56 | RETURNING VALUE(ri_result) TYPE REF TO zif_adu_log. 57 | 58 | METHODS add_content_xml 59 | IMPORTING iv_xml TYPE string 60 | is_custom_message TYPE ty_message OPTIONAL 61 | RETURNING VALUE(ri_result) TYPE REF TO zif_adu_log. 62 | 63 | METHODS add_text 64 | IMPORTING iv_type TYPE sy-msgty DEFAULT zif_adu_messages=>gc_severity-error 65 | iv_text TYPE zif_adu_messages=>ty_message_text 66 | RETURNING VALUE(ri_result) TYPE REF TO zif_adu_log. 67 | 68 | METHODS save 69 | RETURNING VALUE(ri_result) TYPE REF TO zif_adu_log. 70 | 71 | ENDINTERFACE. 72 | -------------------------------------------------------------------------------- /src/log/zif_adu_log.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_LOG 7 | E 8 | Logger (SLG1) 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | S 16 | Logger (SLG1) 17 | 18 | 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /src/package.devc.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | Development Tools 7 | 8 | 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/switch/package.devc.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ADU: Switch 7 | 8 | 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/switch/zadu_switch.vcls.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_SWITCH 7 | Switch 8 | 9 | 10 | 11 | ZADU_SWITCH 12 | ZADUVSWITCH 13 | Switch 14 | ZADUVSWITCH 15 | R 16 | 01 17 | 01 18 | X 19 | 20 | 21 | ZADU_SWITCH 22 | ZADUVSWITCH_USER 23 | Users 24 | ZADUVSWITCH 25 | S 26 | 02 27 | 02 28 | 29 | 30 | 31 | 32 | ZADU_SWITCH 33 | ZADUVSWITCH 34 | ZADUVSWITCH 35 | 36 | 37 | ZADU_SWITCH 38 | ZADUVSWITCH_USER 39 | CLIENT 40 | ZADUVSWITCH 41 | CLIENT 42 | 43 | 44 | ZADU_SWITCH 45 | ZADUVSWITCH_USER 46 | CODE 47 | ZADUVSWITCH 48 | CODE 49 | 50 | 51 | 52 | 53 | 54 | -------------------------------------------------------------------------------- /src/switch/zadu_switch_code.doma.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_SWITCH_CODE 7 | E 8 | CHAR 9 | 000030 10 | 000030 11 | ZADU_SWITCH 12 | Switch Code 13 | 14 | 15 | S 16 | 17 | 18 | 19 | S 20 | Código Switch 21 | 22 | 23 | 24 | 25 | 26 | -------------------------------------------------------------------------------- /src/switch/zadu_switch_code.dtel.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_SWITCH_CODE 7 | E 8 | ZADU_SWITCH_CODE 9 | 55 10 | 10 11 | 20 12 | 40 13 | Switch Code 14 | Switch Code 15 | Code 16 | Code 17 | Switch Code 18 | E 19 | D 20 | 21 | 22 | S 23 | 24 | 25 | 26 | S 27 | Código Switch 28 | Código Switch 29 | Código 30 | Código 31 | Código Switch 32 | 33 | 34 | 35 | 36 | 37 | -------------------------------------------------------------------------------- /src/switch/zadu_switch_name.doma.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_SWITCH_NAME 7 | E 8 | CHAR 9 | 000120 10 | 000120 11 | X 12 | Switch Name 13 | 14 | 15 | S 16 | 17 | 18 | 19 | S 20 | Nombre Switch 21 | 22 | 23 | 24 | 25 | 26 | -------------------------------------------------------------------------------- /src/switch/zadu_switch_name.dtel.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_SWITCH_NAME 7 | E 8 | ZADU_SWITCH_NAME 9 | 55 10 | 10 11 | 20 12 | 40 13 | Switch Name 14 | Switch Name 15 | Name 16 | Name 17 | Switch Name 18 | E 19 | D 20 | 21 | 22 | S 23 | 24 | 25 | 26 | S 27 | Nombre Switch 28 | Nombre Switch 29 | Nombre 30 | Nombre 31 | Nombre Switch 32 | 33 | 34 | 35 | 36 | 37 | -------------------------------------------------------------------------------- /src/switch/zadu_switch_status.doma.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_SWITCH_STATUS 7 | E 8 | CHAR 9 | 000010 10 | 000010 11 | X 12 | Switch Status 13 | 14 | 15 | 16 | 0001 17 | E 18 | Disabled 19 | 20 | 21 | 0002 22 | E 23 | CUSTOMCOND 24 | Enabled by custom condition 25 | 26 | 27 | 0003 28 | E 29 | USER 30 | Enabled by user 31 | 32 | 33 | 0004 34 | E 35 | ENABLED 36 | Enabled 37 | 38 | 39 | 40 | S 41 | 42 | 43 | 44 | S 45 | Estado Switch 46 | 47 | 48 | 49 | 50 | 0001 51 | S 52 | Deshabilitado 53 | 54 | 55 | 0002 56 | S 57 | CUSTOMCOND 58 | Habilitado por condición personalizada 59 | 60 | 61 | 0003 62 | S 63 | USER 64 | Habilitado por usuario 65 | 66 | 67 | 0004 68 | S 69 | ENABLED 70 | Habilitado 71 | 72 | 73 | 74 | 75 | 76 | -------------------------------------------------------------------------------- /src/switch/zadu_switch_status.dtel.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_SWITCH_STATUS 7 | E 8 | ZADU_SWITCH_STATUS 9 | 55 10 | 10 11 | 20 12 | 40 13 | Switch Status 14 | Switch Status 15 | Status 16 | Status 17 | Switch Status 18 | E 19 | D 20 | 21 | 22 | S 23 | 24 | 25 | 26 | S 27 | Estado Switch 28 | Estado Switch 29 | Estado 30 | Estado 31 | Estado Switch 32 | 33 | 34 | 35 | 36 | 37 | -------------------------------------------------------------------------------- /src/switch/zadu_switch_user.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_SWITCH_USER 7 | E 8 | TRANSP 9 | X 10 | Switch enabled by user 11 | A 12 | 1 13 | 14 | 15 | ZADU_SWITCH_USER 16 | A 17 | 0 18 | APPL0 19 | N 20 | 21 | 22 | 23 | CLIENT 24 | X 25 | MANDT 26 | 0 27 | X 28 | E 29 | 30 | 31 | CODE 32 | X 33 | ZADU_SWITCH_CODE 34 | ZADU_SWITCH 35 | 0 36 | X 37 | P 38 | E 39 | 40 | 41 | USERNAME 42 | X 43 | UNAME 44 | 0 45 | X 46 | E 47 | 48 | 49 | 50 | 51 | CODE 52 | ZADU_SWITCH_USER 53 | CLIENT 54 | ZADU_SWITCH 55 | CLIENT 56 | 0001 57 | MANDT 58 | CLNT 59 | 60 | 61 | CODE 62 | ZADU_SWITCH_USER 63 | CODE 64 | ZADU_SWITCH 65 | CODE 66 | 0002 67 | ZADU_SWITCH_CODE 68 | CHAR 69 | 70 | 71 | 72 | 73 | CODE 74 | ZADU_SWITCH 75 | 76 | 77 | 78 | S 79 | 80 | 81 | 82 | S 83 | Switch habilitado por usuario 84 | 85 | 86 | 87 | 88 | ZADU_SWITCH_USER 89 | &NC& 90 | 91 | 92 | 93 | 94 | 95 | -------------------------------------------------------------------------------- /src/switch/zadu_switchc.tobj.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_SWITCH 7 | C 8 | X 9 | APPL 10 | 2 11 | 3 12 | 13 | 14 | E 15 | ZADU_SWITCH 16 | C 17 | Switch 18 | 19 | 20 | 21 | ZADU_SWITCH 22 | C 23 | ZADUVSWITCH 24 | X 25 | 26 | 27 | ZADU_SWITCH 28 | C 29 | ZADUVSWITCH_USER 30 | X 31 | 32 | 33 | 34 | 35 | ZADU_SWITCH 36 | &NC& 37 | 38 | 39 | 40 | 41 | 42 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch.fugr.lzaduvswitchf00.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | LZADUVSWITCHF00 7 | X 8 | S 9 | D$ 10 | I 11 | S 12 | E 13 | X 14 | D$S 15 | X 16 | 17 | 18 | 19 | 20 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch.fugr.lzaduvswitchi00.abap: -------------------------------------------------------------------------------- 1 | *---------------------------------------------------------------------* 2 | * view related PAI modules 3 | *---------------------------------------------------------------------* 4 | *...processing: ZADUVSWITCH.....................................* 5 | *---------------------------------------------------------------------* 6 | *---------------------------------------------------------------------* 7 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch.fugr.lzaduvswitchi00.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | LZADUVSWITCHI00 7 | X 8 | S 9 | D$ 10 | I 11 | S 12 | E 13 | X 14 | D$S 15 | X 16 | 17 | 18 | 19 | 20 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch.fugr.lzaduvswitcht00.abap: -------------------------------------------------------------------------------- 1 | *---------------------------------------------------------------------* 2 | * view related data declarations 3 | *---------------------------------------------------------------------* 4 | *...processing: ZADUVSWITCH.....................................* 5 | TABLES: ZADUVSWITCH, *ZADUVSWITCH. "view work areas 6 | CONTROLS: TCTRL_ZADUVSWITCH 7 | TYPE TABLEVIEW USING SCREEN '0100'. 8 | DATA: BEGIN OF STATUS_ZADUVSWITCH. "state vector 9 | INCLUDE STRUCTURE VIMSTATUS. 10 | DATA: END OF STATUS_ZADUVSWITCH. 11 | * Table for entries selected to show on screen 12 | DATA: BEGIN OF ZADUVSWITCH_EXTRACT OCCURS 0010. 13 | INCLUDE STRUCTURE ZADUVSWITCH. 14 | INCLUDE STRUCTURE VIMFLAGTAB. 15 | DATA: END OF ZADUVSWITCH_EXTRACT. 16 | * Table for all entries loaded from database 17 | DATA: BEGIN OF ZADUVSWITCH_TOTAL OCCURS 0010. 18 | INCLUDE STRUCTURE ZADUVSWITCH. 19 | INCLUDE STRUCTURE VIMFLAGTAB. 20 | DATA: END OF ZADUVSWITCH_TOTAL. 21 | 22 | *.........table declarations:.................................* 23 | TABLES: ZADU_SWITCH . 24 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch.fugr.lzaduvswitcht00.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | LZADUVSWITCHT00 7 | S 8 | D$ 9 | I 10 | S 11 | E 12 | X 13 | D$S 14 | X 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch.fugr.lzaduvswitchtop.abap: -------------------------------------------------------------------------------- 1 | FUNCTION-POOL ZADUVSWITCH MESSAGE-ID SV. 2 | 3 | * INCLUDE LZADUVSWITCHD... " Local class definition 4 | INCLUDE LSVIMDAT . "general data decl. 5 | INCLUDE LZADUVSWITCHT00 . "view rel. data dcl. 6 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch.fugr.lzaduvswitchtop.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | LZADUVSWITCHTOP 7 | S 8 | D$ 9 | I 10 | S 11 | X 12 | D$S 13 | X 14 | 15 | 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch.fugr.saplzaduvswitch.abap: -------------------------------------------------------------------------------- 1 | ******************************************************************* 2 | * System-defined Include-files. * 3 | ******************************************************************* 4 | INCLUDE LZADUVSWITCHTOP. " Global Declarations 5 | INCLUDE LZADUVSWITCHUXX. " Function Modules 6 | 7 | ******************************************************************* 8 | * User-defined Include-files (if necessary). * 9 | ******************************************************************* 10 | * INCLUDE LZADUVSWITCHF... " Subroutines 11 | * INCLUDE LZADUVSWITCHO... " PBO-Modules 12 | * INCLUDE LZADUVSWITCHI... " PAI-Modules 13 | * INCLUDE LZADUVSWITCHE... " Events 14 | * INCLUDE LZADUVSWITCHP... " Local class implement. 15 | * INCLUDE LZADUVSWITCHT99. " ABAP Unit tests 16 | INCLUDE LZADUVSWITCHF00 . " subprograms 17 | INCLUDE LZADUVSWITCHI00 . " PAI modules 18 | INCLUDE LSVIMFXX . " subprograms 19 | INCLUDE LSVIMOXX . " PBO modules 20 | INCLUDE LSVIMIXX . " PAI modules 21 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch.fugr.saplzaduvswitch.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | SAPLZADUVSWITCH 7 | X 8 | S 9 | D$ 10 | F 11 | S 12 | E 13 | X 14 | D$S 15 | X 16 | 17 | 18 | 19 | 20 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch.fugr.screen_0100.abap: -------------------------------------------------------------------------------- 1 | PROCESS BEFORE OUTPUT. 2 | MODULE LISTE_INITIALISIEREN. 3 | LOOP AT EXTRACT WITH CONTROL 4 | TCTRL_ZADUVSWITCH CURSOR NEXTLINE. 5 | MODULE LISTE_SHOW_LISTE. 6 | ENDLOOP. 7 | * 8 | PROCESS AFTER INPUT. 9 | MODULE LISTE_EXIT_COMMAND AT EXIT-COMMAND. 10 | MODULE LISTE_BEFORE_LOOP. 11 | LOOP AT EXTRACT. 12 | MODULE LISTE_INIT_WORKAREA. 13 | CHAIN. 14 | FIELD ZADUVSWITCH-CODE . 15 | FIELD ZADUVSWITCH-STATUS . 16 | FIELD ZADUVSWITCH-NAME . 17 | FIELD ZADUVSWITCH-CUSTOM_CHECK . 18 | MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST. 19 | ENDCHAIN. 20 | FIELD VIM_MARKED MODULE LISTE_MARK_CHECKBOX. 21 | CHAIN. 22 | FIELD ZADUVSWITCH-CODE . 23 | MODULE LISTE_UPDATE_LISTE. 24 | ENDCHAIN. 25 | ENDLOOP. 26 | MODULE LISTE_AFTER_LOOP. 27 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch.fugr.screen_0101.abap: -------------------------------------------------------------------------------- 1 | PROCESS BEFORE OUTPUT. 2 | MODULE detail_init. 3 | * 4 | PROCESS AFTER INPUT. 5 | MODULE DETAIL_EXIT_COMMAND AT EXIT-COMMAND. 6 | MODULE DETAIL_SET_PFSTATUS. 7 | CHAIN. 8 | FIELD ZADUVSWITCH-CODE . 9 | FIELD ZADUVSWITCH-STATUS . 10 | FIELD ZADUVSWITCH-NAME . 11 | FIELD ZADUVSWITCH-CUSTOM_CHECK . 12 | MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST. 13 | endchain. 14 | chain. 15 | FIELD ZADUVSWITCH-CODE . 16 | module detail_pai. 17 | endchain. 18 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch.fugr.viewproc_zaduvswitch.abap: -------------------------------------------------------------------------------- 1 | *---------------------------------------------------------------------* 2 | * program for: VIEWPROC_ZADUVSWITCH 3 | *---------------------------------------------------------------------* 4 | FUNCTION VIEWPROC_ZADUVSWITCH . 5 | *----------------------------------------------------------------------* 6 | * Initialization: set field-symbols etc. * 7 | *----------------------------------------------------------------------* 8 | IF LAST_VIEW_INFO NE VIEW_NAME. 9 | ASSIGN ZADUVSWITCH TO . 10 | ASSIGN *ZADUVSWITCH TO . 11 | ASSIGN STATUS_ZADUVSWITCH TO . 12 | PERFORM INITIALISIEREN. 13 | ENDIF. 14 | PERFORM JUSTIFY_ACTION_MODE. 15 | MOVE: VIEW_ACTION TO MAINT_MODE, 16 | CORR_NUMBER TO CORR_NBR. 17 | 18 | *----------------------------------------------------------------------* 19 | * Get data from database * 20 | *----------------------------------------------------------------------* 21 | IF FCODE EQ READ OR FCODE EQ READ_AND_EDIT. 22 | PERFORM PREPARE_READ_REQUEST. 23 | IF X_HEADER-FRM_RP_GET NE SPACE. 24 | PERFORM (X_HEADER-FRM_RP_GET) IN PROGRAM. 25 | ELSE. 26 | PERFORM GET_DATA_ZADUVSWITCH. 27 | ENDIF. 28 | IF FCODE EQ READ_AND_EDIT. FCODE = EDIT. ENDIF. 29 | ENDIF. 30 | 31 | CASE FCODE. 32 | WHEN EDIT. " Edit read data 33 | PERFORM CALL_DYNPRO. 34 | PERFORM CHECK_UPD. 35 | *....................................................................* 36 | 37 | WHEN SAVE. " Write data into database 38 | PERFORM PREPARE_SAVING. 39 | IF -UPD_FLAG NE SPACE. 40 | IF X_HEADER-FRM_RP_UPD NE SPACE. 41 | PERFORM (X_HEADER-FRM_RP_UPD) IN PROGRAM. 42 | ELSE. 43 | IF SY-SUBRC EQ 0. 44 | PERFORM DB_UPD_ZADUVSWITCH. 45 | ENDIF. 46 | ENDIF. 47 | PERFORM AFTER_SAVING. 48 | ENDIF. 49 | *....................................................................* 50 | 51 | WHEN RESET_LIST. " Refresh all marked entries of EXTRACT from db 52 | PERFORM RESET_ENTRIES USING LIST_BILD. 53 | *....................................................................* 54 | 55 | WHEN RESET_ENTRY. " Refresh single entry from database 56 | PERFORM RESET_ENTRIES USING DETAIL_BILD. 57 | *....................................................................... 58 | ENDCASE. 59 | MOVE STATUS_ZADUVSWITCH-UPD_FLAG TO UPDATE_REQUIRED. 60 | ENDFUNCTION. 61 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch.view.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADUVSWITCH 7 | A 8 | E 9 | V 10 | ZADU_SWITCH 11 | Switch 12 | C 13 | A 14 | X 15 | 16 | 17 | 18 | ZADUVSWITCH 19 | ZADU_SWITCH 20 | 0001 21 | ZADU_SWITCH 22 | 23 | 24 | 25 | 26 | CLIENT 27 | ZADU_SWITCH 28 | CLIENT 29 | X 30 | 31 | 32 | CODE 33 | ZADU_SWITCH 34 | CODE 35 | X 36 | 37 | 38 | STATUS 39 | ZADU_SWITCH 40 | STATUS 41 | F 42 | X 43 | 44 | 45 | NAME 46 | ZADU_SWITCH 47 | NAME 48 | 49 | 50 | CUSTOM_CHECK 51 | ZADU_SWITCH 52 | CUSTOM_CHECK 53 | VSEOIMPLEM 54 | P 55 | 56 | 57 | 58 | 59 | ZADUVSWITCH 60 | &NC& 61 | 62 | 63 | 64 | S 65 | 66 | 67 | 68 | S 69 | Switch 70 | 71 | 72 | 73 | 74 | 75 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch_user.fugr.lzaduvswitch_userf00.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | LZADUVSWITCH_USERF00 7 | X 8 | S 9 | D$ 10 | I 11 | S 12 | E 13 | X 14 | D$S 15 | X 16 | 17 | 18 | 19 | 20 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch_user.fugr.lzaduvswitch_useri00.abap: -------------------------------------------------------------------------------- 1 | *---------------------------------------------------------------------* 2 | * view related PAI modules 3 | *---------------------------------------------------------------------* 4 | *...processing: ZADUVSWITCH_USER................................* 5 | *---------------------------------------------------------------------* 6 | *---------------------------------------------------------------------* 7 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch_user.fugr.lzaduvswitch_useri00.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | LZADUVSWITCH_USERI00 7 | X 8 | S 9 | D$ 10 | I 11 | S 12 | E 13 | X 14 | D$S 15 | X 16 | 17 | 18 | 19 | 20 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch_user.fugr.lzaduvswitch_usert00.abap: -------------------------------------------------------------------------------- 1 | *---------------------------------------------------------------------* 2 | * view related data declarations 3 | *---------------------------------------------------------------------* 4 | *...processing: ZADUVSWITCH_USER................................* 5 | TABLES: ZADUVSWITCH_USER, *ZADUVSWITCH_USER. "view work areas 6 | CONTROLS: TCTRL_ZADUVSWITCH_USER 7 | TYPE TABLEVIEW USING SCREEN '0100'. 8 | DATA: BEGIN OF STATUS_ZADUVSWITCH_USER. "state vector 9 | INCLUDE STRUCTURE VIMSTATUS. 10 | DATA: END OF STATUS_ZADUVSWITCH_USER. 11 | * Table for entries selected to show on screen 12 | DATA: BEGIN OF ZADUVSWITCH_USER_EXTRACT OCCURS 0010. 13 | INCLUDE STRUCTURE ZADUVSWITCH_USER. 14 | INCLUDE STRUCTURE VIMFLAGTAB. 15 | DATA: END OF ZADUVSWITCH_USER_EXTRACT. 16 | * Table for all entries loaded from database 17 | DATA: BEGIN OF ZADUVSWITCH_USER_TOTAL OCCURS 0010. 18 | INCLUDE STRUCTURE ZADUVSWITCH_USER. 19 | INCLUDE STRUCTURE VIMFLAGTAB. 20 | DATA: END OF ZADUVSWITCH_USER_TOTAL. 21 | 22 | *.........table declarations:.................................* 23 | TABLES: ZADU_SWITCH . 24 | TABLES: ZADU_SWITCH_USER . 25 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch_user.fugr.lzaduvswitch_usert00.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | LZADUVSWITCH_USERT00 7 | S 8 | D$ 9 | I 10 | S 11 | E 12 | X 13 | D$S 14 | X 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch_user.fugr.lzaduvswitch_usertop.abap: -------------------------------------------------------------------------------- 1 | FUNCTION-POOL ZADUVSWITCH_USER MESSAGE-ID SV. 2 | 3 | * INCLUDE LZADUVSWITCH_USERD... " Local class definition 4 | INCLUDE LSVIMDAT . "general data decl. 5 | INCLUDE LZADUVSWITCH_USERT00 . "view rel. data dcl. 6 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch_user.fugr.lzaduvswitch_usertop.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | LZADUVSWITCH_USERTOP 7 | S 8 | D$ 9 | I 10 | S 11 | X 12 | D$S 13 | X 14 | 15 | 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch_user.fugr.saplzaduvswitch_user.abap: -------------------------------------------------------------------------------- 1 | ******************************************************************* 2 | * System-defined Include-files. * 3 | ******************************************************************* 4 | INCLUDE LZADUVSWITCH_USERTOP. " Global Declarations 5 | INCLUDE LZADUVSWITCH_USERUXX. " Function Modules 6 | 7 | ******************************************************************* 8 | * User-defined Include-files (if necessary). * 9 | ******************************************************************* 10 | * INCLUDE LZADUVSWITCH_USERF... " Subroutines 11 | * INCLUDE LZADUVSWITCH_USERO... " PBO-Modules 12 | * INCLUDE LZADUVSWITCH_USERI... " PAI-Modules 13 | * INCLUDE LZADUVSWITCH_USERE... " Events 14 | * INCLUDE LZADUVSWITCH_USERP... " Local class implement. 15 | * INCLUDE LZADUVSWITCH_USERT99. " ABAP Unit tests 16 | INCLUDE LZADUVSWITCH_USERF00 . " subprograms 17 | INCLUDE LZADUVSWITCH_USERI00 . " PAI modules 18 | INCLUDE LSVIMFXX . " subprograms 19 | INCLUDE LSVIMOXX . " PBO modules 20 | INCLUDE LSVIMIXX . " PAI modules 21 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch_user.fugr.saplzaduvswitch_user.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | SAPLZADUVSWITCH_USER 7 | X 8 | S 9 | D$ 10 | F 11 | S 12 | E 13 | X 14 | D$S 15 | X 16 | 17 | 18 | 19 | 20 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch_user.fugr.screen_0100.abap: -------------------------------------------------------------------------------- 1 | PROCESS BEFORE OUTPUT. 2 | MODULE LISTE_INITIALISIEREN. 3 | LOOP AT EXTRACT WITH CONTROL 4 | TCTRL_ZADUVSWITCH_USER CURSOR NEXTLINE. 5 | MODULE LISTE_SHOW_LISTE. 6 | ENDLOOP. 7 | MODULE FILL_SUBSTFLDS. 8 | * 9 | PROCESS AFTER INPUT. 10 | MODULE LISTE_EXIT_COMMAND AT EXIT-COMMAND. 11 | MODULE LISTE_BEFORE_LOOP. 12 | LOOP AT EXTRACT. 13 | MODULE LISTE_INIT_WORKAREA. 14 | CHAIN. 15 | FIELD ZADUVSWITCH_USER-USERNAME . 16 | MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST. 17 | ENDCHAIN. 18 | FIELD VIM_MARKED MODULE LISTE_MARK_CHECKBOX. 19 | CHAIN. 20 | FIELD ZADUVSWITCH_USER-USERNAME . 21 | MODULE LISTE_UPDATE_LISTE. 22 | ENDCHAIN. 23 | ENDLOOP. 24 | MODULE LISTE_AFTER_LOOP. 25 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch_user.fugr.viewproc_zaduvswitch_user.abap: -------------------------------------------------------------------------------- 1 | *---------------------------------------------------------------------* 2 | * program for: VIEWPROC_ZADUVSWITCH_USER 3 | *---------------------------------------------------------------------* 4 | FUNCTION VIEWPROC_ZADUVSWITCH_USER . 5 | *----------------------------------------------------------------------* 6 | * Initialization: set field-symbols etc. * 7 | *----------------------------------------------------------------------* 8 | IF LAST_VIEW_INFO NE VIEW_NAME. 9 | ASSIGN ZADUVSWITCH_USER TO . 10 | ASSIGN *ZADUVSWITCH_USER TO . 11 | ASSIGN STATUS_ZADUVSWITCH_USER TO . 12 | PERFORM INITIALISIEREN. 13 | ENDIF. 14 | PERFORM JUSTIFY_ACTION_MODE. 15 | MOVE: VIEW_ACTION TO MAINT_MODE, 16 | CORR_NUMBER TO CORR_NBR. 17 | 18 | *----------------------------------------------------------------------* 19 | * Get data from database * 20 | *----------------------------------------------------------------------* 21 | IF FCODE EQ READ OR FCODE EQ READ_AND_EDIT. 22 | PERFORM PREPARE_READ_REQUEST. 23 | IF X_HEADER-FRM_RP_GET NE SPACE. 24 | PERFORM (X_HEADER-FRM_RP_GET) IN PROGRAM. 25 | ELSE. 26 | PERFORM GET_DATA_ZADUVSWITCH_USER. 27 | ENDIF. 28 | IF FCODE EQ READ_AND_EDIT. FCODE = EDIT. ENDIF. 29 | ENDIF. 30 | 31 | CASE FCODE. 32 | WHEN EDIT. " Edit read data 33 | PERFORM CALL_DYNPRO. 34 | PERFORM CHECK_UPD. 35 | *....................................................................* 36 | 37 | WHEN SAVE. " Write data into database 38 | PERFORM PREPARE_SAVING. 39 | IF -UPD_FLAG NE SPACE. 40 | IF X_HEADER-FRM_RP_UPD NE SPACE. 41 | PERFORM (X_HEADER-FRM_RP_UPD) IN PROGRAM. 42 | ELSE. 43 | IF SY-SUBRC EQ 0. 44 | PERFORM DB_UPD_ZADUVSWITCH_USER. 45 | ENDIF. 46 | ENDIF. 47 | PERFORM AFTER_SAVING. 48 | ENDIF. 49 | *....................................................................* 50 | 51 | WHEN RESET_LIST. " Refresh all marked entries of EXTRACT from db 52 | PERFORM RESET_ENTRIES USING LIST_BILD. 53 | *....................................................................* 54 | 55 | WHEN RESET_ENTRY. " Refresh single entry from database 56 | PERFORM RESET_ENTRIES USING DETAIL_BILD. 57 | *....................................................................... 58 | ENDCASE. 59 | MOVE STATUS_ZADUVSWITCH_USER-UPD_FLAG TO UPDATE_REQUIRED. 60 | ENDFUNCTION. 61 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch_user.view.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADUVSWITCH_USER 7 | A 8 | E 9 | V 10 | ZADU_SWITCH_USER 11 | Switch Users 12 | C 13 | A 14 | X 15 | 16 | 17 | 18 | ZADUVSWITCH_USER 19 | ZADU_SWITCH_USER 20 | 0001 21 | ZADU_SWITCH_USER 22 | 23 | 24 | ZADUVSWITCH_USER 25 | ZADU_SWITCH 26 | 0002 27 | ZADU_SWITCH_USER 28 | CODE 29 | E 30 | 31 | 32 | 33 | 34 | CLIENT 35 | ZADU_SWITCH_USER 36 | CLIENT 37 | X 38 | S 39 | 40 | 41 | CODE 42 | ZADU_SWITCH_USER 43 | CODE 44 | X 45 | S 46 | ZADU_SWITCH 47 | P 48 | 49 | 50 | USERNAME 51 | ZADU_SWITCH_USER 52 | USERNAME 53 | X 54 | 55 | 56 | 57 | 58 | ZADUVSWITCH_USER 59 | ZADU_SWITCH 60 | CLIENT 61 | EQ 62 | ZADU_SWITCH_USER 63 | CLIENT 64 | F 65 | ZADU_SWITCH_USER 66 | CODE 67 | E 68 | 69 | 70 | ZADUVSWITCH_USER 71 | ZADU_SWITCH 72 | CODE 73 | EQ 74 | ZADU_SWITCH_USER 75 | CODE 76 | F 77 | ZADU_SWITCH_USER 78 | CODE 79 | E 80 | 81 | 82 | 83 | 84 | ZADUVSWITCH_USER 85 | &NC& 86 | 87 | 88 | 89 | S 90 | 91 | 92 | 93 | S 94 | Switch Usuarios 95 | 96 | 97 | 98 | 99 | 100 | -------------------------------------------------------------------------------- /src/switch/zaduvswitch_userv.tobj.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADUVSWITCH_USER 7 | V 8 | X 9 | APPL 10 | 3 11 | 12 | 13 | E 14 | ZADUVSWITCH_USER 15 | V 16 | Switch Users 17 | 18 | 19 | 20 | ZADUVSWITCH_USER 21 | V 22 | ZADU_SWITCH_USER 23 | X 24 | X 25 | 26 | 27 | 28 | 29 | ZADUVSWITCH_USER 30 | &NC& 31 | 32 | 33 | ZADUVSWITCH_USER 34 | ZADUVSWITCH_USER 35 | 1 36 | 0100 37 | X 38 | 39 | 40 | 41 | 42 | 43 | -------------------------------------------------------------------------------- /src/switch/zaduvswitchv.tobj.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADUVSWITCH 7 | V 8 | X 9 | APPL 10 | 3 11 | 12 | 13 | E 14 | ZADUVSWITCH 15 | V 16 | Switch 17 | 18 | 19 | 20 | ZADUVSWITCH 21 | V 22 | ZADU_SWITCH 23 | X 24 | X 25 | 26 | 27 | 28 | 29 | ZADUVSWITCH 30 | &NC& 31 | 32 | 33 | ZADUVSWITCH 34 | ZADUVSWITCH 35 | 2 36 | 0100 37 | 0101 38 | X 39 | 40 | 41 | 42 | 43 | 44 | -------------------------------------------------------------------------------- /src/switch/zcl_adu_switch.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_SWITCH 7 | E 8 | Switch 9 | 1 10 | X 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | S 18 | Switch 19 | 20 | 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /src/switch/zcx_adu_switch.clas.abap: -------------------------------------------------------------------------------- 1 | CLASS zcx_adu_switch DEFINITION 2 | PUBLIC 3 | INHERITING FROM zcx_adu_static_check 4 | CREATE PUBLIC. 5 | 6 | PUBLIC SECTION. 7 | METHODS constructor 8 | IMPORTING textid LIKE if_t100_message=>t100key OPTIONAL 9 | text1 TYPE csequence OPTIONAL 10 | text2 TYPE csequence OPTIONAL 11 | text3 TYPE csequence OPTIONAL 12 | text4 TYPE csequence OPTIONAL 13 | !previous LIKE previous OPTIONAL. 14 | 15 | PROTECTED SECTION. 16 | 17 | PRIVATE SECTION. 18 | 19 | ENDCLASS. 20 | 21 | 22 | 23 | CLASS zcx_adu_switch IMPLEMENTATION. 24 | 25 | 26 | METHOD constructor ##ADT_SUPPRESS_GENERATION. 27 | 28 | super->constructor( textid = textid 29 | text1 = text1 30 | text2 = text2 31 | text3 = text3 32 | text4 = text4 33 | previous = previous ). 34 | 35 | ENDMETHOD. 36 | 37 | 38 | ENDCLASS. 39 | -------------------------------------------------------------------------------- /src/switch/zcx_adu_switch.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCX_ADU_SWITCH 7 | E 8 | Switch Exception 9 | 40 10 | 1 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | S 18 | Excepción Switch 19 | 20 | 21 | 22 | 23 | CONSTRUCTOR 24 | E 25 | CONSTRUCTOR 26 | 27 | 28 | CONSTRUCTOR 29 | S 30 | CONSTRUCTOR 31 | 32 | 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /src/switch/zif_adu_switch.intf.abap: -------------------------------------------------------------------------------- 1 | INTERFACE zif_adu_switch 2 | PUBLIC. 3 | 4 | CONSTANTS: 5 | BEGIN OF gc_status, 6 | disabled TYPE zadu_switch_status VALUE '', 7 | custom_condition TYPE zadu_switch_status VALUE 'CUSTOMCOND', 8 | user TYPE zadu_switch_status VALUE 'USER', 9 | enabled TYPE zadu_switch_status VALUE 'ENABLED', 10 | END OF gc_status. 11 | 12 | METHODS get_status 13 | RETURNING 14 | VALUE(result) TYPE zadu_switch_status. 15 | 16 | METHODS is_active 17 | IMPORTING 18 | is_custom_data_check TYPE any OPTIONAL 19 | RETURNING 20 | VALUE(result) TYPE abap_bool. 21 | 22 | ENDINTERFACE. 23 | -------------------------------------------------------------------------------- /src/switch/zif_adu_switch.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_SWITCH 7 | E 8 | Switch 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | S 16 | Switch 17 | 18 | 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /src/switch/zif_adu_switch_condition.intf.abap: -------------------------------------------------------------------------------- 1 | INTERFACE zif_adu_switch_condition 2 | PUBLIC. 3 | 4 | METHODS is_active 5 | IMPORTING 6 | is_data_check TYPE any OPTIONAL 7 | RETURNING 8 | VALUE(result) TYPE abap_bool. 9 | 10 | ENDINTERFACE. 11 | -------------------------------------------------------------------------------- /src/switch/zif_adu_switch_condition.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_SWITCH_CONDITION 7 | E 8 | Switch Condition 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | S 16 | Condición Switch 17 | 18 | 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /src/tr/package.devc.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ADU: Transport Requests 7 | 8 | 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/tr/zadu_check_transport.msag.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_CHECK_TRANSPORT 7 | E 8 | Check Transports 9 | 10 | 11 | 12 | E 13 | ZADU_CHECK_TRANSPORT 14 | 001 15 | RFC Error &1 16 | 17 | 18 | E 19 | ZADU_CHECK_TRANSPORT 20 | 002 21 | Error in &1 22 | 23 | 24 | E 25 | ZADU_CHECK_TRANSPORT 26 | 003 27 | No checks executed 28 | 29 | 30 | E 31 | ZADU_CHECK_TRANSPORT 32 | 004 33 | Error insert &1 in table &2 34 | 35 | 36 | E 37 | ZADU_CHECK_TRANSPORT 38 | 005 39 | Error updating &1 in table &2 40 | 41 | 42 | E 43 | ZADU_CHECK_TRANSPORT 44 | 006 45 | Error deleting &1 in table &2 46 | 47 | 48 | E 49 | ZADU_CHECK_TRANSPORT 50 | 007 51 | Authority check &1 failed for &2 52 | 53 | 54 | E 55 | ZADU_CHECK_TRANSPORT 56 | 008 57 | No logs found 58 | 59 | 60 | 61 | 62 | 63 | -------------------------------------------------------------------------------- /src/tr/zadu_chktr_crref.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_CHKTR_CRREF 7 | E 8 | TRANSP 9 | X 10 | X 11 | Check Transport Cross Reference Log 12 | E 13 | A 14 | 1 15 | 16 | 17 | ZADU_CHKTR_CRREF 18 | A 19 | 0 20 | APPL0 21 | N 22 | 23 | 24 | 25 | CLIENT 26 | X 27 | 0 28 | C 29 | 000006 30 | X 31 | CLNT 32 | 000003 33 | CLNT 34 | 35 | 36 | RUN_CODE 37 | X 38 | ZADU_RUN_CODE 39 | 0 40 | X 41 | E 42 | 43 | 44 | TRANSPORT_REQUEST 45 | X 46 | TRKORR 47 | 0 48 | X 49 | E 50 | 51 | 52 | SEQUENCE 53 | X 54 | 0 55 | X 56 | 000004 57 | X 58 | INT4 59 | 000010 60 | INT4 61 | 62 | 63 | .INCLUDE 64 | 0 65 | /SDF/TEAP_ENVI_ANA_RESULT 66 | S 67 | Environment Analysis Result (contains latest TR) 68 | S 69 | DATA 70 | 71 | 72 | 73 | 74 | 75 | -------------------------------------------------------------------------------- /src/tr/zadu_chktr_crrel.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_CHKTR_CRREL 7 | E 8 | TRANSP 9 | X 10 | X 11 | Check Transport Cross Release Log 12 | E 13 | A 14 | 1 15 | 16 | 17 | ZADU_CHKTR_CRREL 18 | A 19 | 0 20 | APPL0 21 | N 22 | 23 | 24 | 25 | CLIENT 26 | X 27 | 0 28 | C 29 | 000006 30 | X 31 | CLNT 32 | 000003 33 | CLNT 34 | 35 | 36 | RUN_CODE 37 | X 38 | ZADU_RUN_CODE 39 | 0 40 | X 41 | E 42 | 43 | 44 | TRANSPORT_REQUEST 45 | X 46 | TRKORR 47 | 0 48 | X 49 | E 50 | 51 | 52 | SEQUENCE 53 | X 54 | 0 55 | X 56 | 000004 57 | X 58 | INT4 59 | 000010 60 | INT4 61 | 62 | 63 | .INCLUDE 64 | 0 65 | /SDF/TEAP_SCV_CRIT_OBJ 66 | S 67 | Software Component Version Criticality on Object level 68 | S 69 | DATA 70 | 71 | 72 | 73 | 74 | 75 | -------------------------------------------------------------------------------- /src/tr/zadu_chktr_imtim.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_CHKTR_IMTIM 7 | E 8 | TRANSP 9 | X 10 | X 11 | Check Transport Import Time Log 12 | E 13 | A 14 | 1 15 | 16 | 17 | ZADU_CHKTR_IMTIM 18 | A 19 | 0 20 | APPL0 21 | N 22 | 23 | 24 | 25 | CLIENT 26 | X 27 | 0 28 | C 29 | 000006 30 | X 31 | CLNT 32 | 000003 33 | CLNT 34 | 35 | 36 | RUN_CODE 37 | X 38 | ZADU_RUN_CODE 39 | 0 40 | X 41 | E 42 | 43 | 44 | TRANSPORT_REQUEST 45 | X 46 | TRKORR 47 | 0 48 | X 49 | E 50 | 51 | 52 | SEQUENCE 53 | X 54 | 0 55 | X 56 | 000004 57 | X 58 | INT4 59 | 000010 60 | INT4 61 | 62 | 63 | .INCLUDE 64 | 0 65 | /SDF/TEAP_TR_IMP_TIME 66 | S 67 | Transport Request import time 68 | S 69 | DATA 70 | 71 | 72 | 73 | 74 | 75 | -------------------------------------------------------------------------------- /src/tr/zadu_chktr_oisum.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_CHKTR_OISUM 7 | E 8 | TRANSP 9 | X 10 | X 11 | Check Transport Online Import Summary Log 12 | E 13 | A 14 | 1 15 | 16 | 17 | ZADU_CHKTR_OISUM 18 | A 19 | 0 20 | APPL0 21 | N 22 | 23 | 24 | 25 | CLIENT 26 | X 27 | 0 28 | C 29 | 000006 30 | X 31 | CLNT 32 | 000003 33 | CLNT 34 | 35 | 36 | RUN_CODE 37 | X 38 | ZADU_RUN_CODE 39 | 0 40 | X 41 | E 42 | 43 | 44 | TRANSPORT_REQUEST 45 | X 46 | TRKORR 47 | 0 48 | X 49 | E 50 | 51 | 52 | SEQUENCE 53 | X 54 | 0 55 | X 56 | 000004 57 | X 58 | INT4 59 | 000010 60 | INT4 61 | 62 | 63 | .INCLUDE 64 | 0 65 | ZADU_S_OI_RESULTS 66 | S 67 | Online Import Result Summary 68 | S 69 | DATA 70 | 71 | 72 | 73 | 74 | 75 | -------------------------------------------------------------------------------- /src/tr/zadu_chktr_onlim.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_CHKTR_ONLIM 7 | E 8 | TRANSP 9 | X 10 | X 11 | Check Transport Online Import Log 12 | E 13 | A 14 | 1 15 | 16 | 17 | ZADU_CHKTR_ONLIM 18 | A 19 | 0 20 | APPL0 21 | N 22 | 23 | 24 | 25 | CLIENT 26 | X 27 | 0 28 | C 29 | 000006 30 | X 31 | CLNT 32 | 000003 33 | CLNT 34 | 35 | 36 | RUN_CODE 37 | X 38 | ZADU_RUN_CODE 39 | 0 40 | X 41 | E 42 | 43 | 44 | TRANSPORT_REQUEST 45 | X 46 | TRKORR 47 | 0 48 | X 49 | E 50 | 51 | 52 | SEQUENCE 53 | X 54 | 0 55 | X 56 | 000004 57 | X 58 | INT4 59 | 000010 60 | INT4 61 | 62 | 63 | .INCLUDE 64 | 0 65 | ZADU_S_OI_RESULT 66 | S 67 | Online Import Result 68 | S 69 | DATA 70 | 71 | 72 | 73 | 74 | 75 | -------------------------------------------------------------------------------- /src/tr/zadu_chktr_seq.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_CHKTR_SEQ 7 | E 8 | TRANSP 9 | X 10 | X 11 | Check Transport Sequence Log 12 | A 13 | 1 14 | 15 | 16 | ZADU_CHKTR_SEQ 17 | A 18 | 0 19 | APPL0 20 | N 21 | 22 | 23 | 24 | CLIENT 25 | X 26 | 0 27 | C 28 | 000006 29 | X 30 | CLNT 31 | 000003 32 | CLNT 33 | 34 | 35 | RUN_CODE 36 | X 37 | ZADU_RUN_CODE 38 | 0 39 | X 40 | E 41 | 42 | 43 | TRANSPORT_REQUEST 44 | X 45 | TRKORR 46 | 0 47 | X 48 | E 49 | 50 | 51 | SEQUENCE 52 | X 53 | 0 54 | X 55 | 000004 56 | X 57 | INT4 58 | 000010 59 | INT4 60 | 61 | 62 | .INCLUDE 63 | 0 64 | /SDF/TEAP_DGP_CONFLICT 65 | S 66 | Conflicts found in Downgrade protection 67 | S 68 | DATA 69 | 70 | 71 | 72 | 73 | 74 | -------------------------------------------------------------------------------- /src/tr/zadu_s_chktr_crref_update.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_S_CHKTR_CRREF_UPDATE 7 | E 8 | INTTAB 9 | X 10 | Check Transport Cross Reference DB update 11 | E 12 | 1 13 | 14 | 15 | 16 | .INCLUDE 17 | 0 18 | ZADU_CHKTR_CRREF 19 | S 20 | Check Transport Cross Reference Log 21 | S 22 | DB_DATA 23 | 24 | 25 | CRUD_IND 26 | ZADU_CRUD_IND 27 | 0 28 | X 29 | F 30 | E 31 | 32 | 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /src/tr/zadu_s_chktr_crrel_update.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_S_CHKTR_CRREL_UPDATE 7 | E 8 | INTTAB 9 | X 10 | Check Transport Cross Release DB update 11 | E 12 | 1 13 | 14 | 15 | 16 | .INCLUDE 17 | 0 18 | ZADU_CHKTR_CRREL 19 | S 20 | Check Transport Cross Release Log 21 | S 22 | DB_DATA 23 | 24 | 25 | CRUD_IND 26 | ZADU_CRUD_IND 27 | 0 28 | X 29 | F 30 | E 31 | 32 | 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /src/tr/zadu_s_chktr_head_update.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_S_CHKTR_HEAD_UPDATE 7 | E 8 | INTTAB 9 | X 10 | Check Transport Header DB update 11 | E 12 | 1 13 | 14 | 15 | 16 | .INCLUDE 17 | 0 18 | ZADU_CHKTR_HEAD 19 | S 20 | Check Transport Header 21 | S 22 | DB_DATA 23 | 24 | 25 | CRUD_IND 26 | ZADU_CRUD_IND 27 | 0 28 | X 29 | F 30 | E 31 | 32 | 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /src/tr/zadu_s_chktr_imtim_update.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_S_CHKTR_IMTIM_UPDATE 7 | E 8 | INTTAB 9 | X 10 | Check Transport Import Time DB update 11 | E 12 | 1 13 | 14 | 15 | 16 | .INCLUDE 17 | 0 18 | ZADU_CHKTR_IMTIM 19 | S 20 | Check Transport Import Time Log 21 | S 22 | DB_DATA 23 | 24 | 25 | CRUD_IND 26 | ZADU_CRUD_IND 27 | 0 28 | X 29 | F 30 | E 31 | 32 | 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /src/tr/zadu_s_chktr_oisum_update.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_S_CHKTR_OISUM_UPDATE 7 | E 8 | INTTAB 9 | X 10 | Check Transport Online Import Summary DB update 11 | E 12 | 1 13 | 14 | 15 | 16 | .INCLUDE 17 | 0 18 | ZADU_CHKTR_OISUM 19 | S 20 | Check Transport Online Import Summary Log 21 | S 22 | DB_DATA 23 | 24 | 25 | CRUD_IND 26 | ZADU_CRUD_IND 27 | 0 28 | X 29 | F 30 | E 31 | 32 | 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /src/tr/zadu_s_chktr_onlim_update.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_S_CHKTR_ONLIM_UPDATE 7 | E 8 | INTTAB 9 | X 10 | Check Transport Online Import DB update 11 | E 12 | 1 13 | 14 | 15 | 16 | .INCLUDE 17 | 0 18 | ZADU_CHKTR_ONLIM 19 | S 20 | Check Transport Online Import Log 21 | S 22 | DB_DATA 23 | 24 | 25 | CRUD_IND 26 | ZADU_CRUD_IND 27 | 0 28 | X 29 | F 30 | E 31 | 32 | 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /src/tr/zadu_s_chktr_seq_update.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_S_CHKTR_SEQ_UPDATE 7 | E 8 | INTTAB 9 | X 10 | Check Transport Sequence DB update 11 | E 12 | 1 13 | 14 | 15 | 16 | .INCLUDE 17 | 0 18 | ZADU_CHKTR_SEQ 19 | S 20 | Check Transport Sequence Log 21 | S 22 | DB_DATA 23 | 24 | 25 | CRUD_IND 26 | ZADU_CRUD_IND 27 | 0 28 | X 29 | F 30 | E 31 | 32 | 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /src/tr/zadu_s_oi_result.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_S_OI_RESULT 7 | E 8 | INTTAB 9 | Online Import Result 10 | E 11 | 1 12 | 13 | 14 | 15 | TRKORR 16 | TRKORR 17 | 0 18 | E 19 | 20 | 21 | OBJECT 22 | TROBJTYPE 23 | 0 24 | D 25 | E 26 | 27 | 28 | OBJ_NAME 29 | TROBJ_NAME 30 | 0 31 | E 32 | 33 | 34 | COMPONENT 35 | UFPS_POSID 36 | 0 37 | E 38 | 39 | 40 | ACCNT 41 | DEC12 42 | 0 43 | E 44 | 45 | 46 | CHCNT 47 | DEC12 48 | 0 49 | E 50 | 51 | 52 | OCCTB 53 | OBLKB 54 | 0 55 | E 56 | 57 | 58 | ACTION 59 | DEPACTION 60 | 0 61 | E 62 | 63 | 64 | EXECNT 65 | DEC20 66 | 0 67 | E 68 | 69 | 70 | EXECNT_DD 71 | DEC20 72 | 0 73 | E 74 | 75 | 76 | CRIOBJ 77 | FLAG 78 | 0 79 | X 80 | F 81 | E 82 | 83 | 84 | CRITICALITY 85 | CHAR4 86 | 0 87 | E 88 | 89 | 90 | 91 | 92 | 93 | -------------------------------------------------------------------------------- /src/tr/zadu_s_oi_results.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_S_OI_RESULTS 7 | E 8 | INTTAB 9 | Online Import Result Summary 10 | E 11 | 1 12 | 13 | 14 | 15 | TRKORR 16 | TRKORR 17 | 0 18 | E 19 | 20 | 21 | AS4USER 22 | AS4USER 23 | 0 24 | E 25 | 26 | 27 | ACCNT 28 | DEC12 29 | 0 30 | E 31 | 32 | 33 | CHCNT 34 | DEC12 35 | 0 36 | E 37 | 38 | 39 | OCCTB 40 | OBLKB 41 | 0 42 | E 43 | 44 | 45 | ACTION 46 | DEPACTION 47 | 0 48 | E 49 | 50 | 51 | EXECNT 52 | DEC20 53 | 0 54 | E 55 | 56 | 57 | EXECNT_DD 58 | DEC20 59 | 0 60 | E 61 | 62 | 63 | CRIOBJ 64 | FLAG 65 | 0 66 | X 67 | F 68 | E 69 | 70 | 71 | REQ_IN_TAR 72 | FLAG 73 | 0 74 | X 75 | F 76 | E 77 | 78 | 79 | CRITICALITY 80 | CHAR4 81 | 0 82 | E 83 | 84 | 85 | 86 | 87 | 88 | -------------------------------------------------------------------------------- /src/tr/zadu_t_chktr_crref_update.ttyp.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_T_CHKTR_CRREF_UPDATE 7 | E 8 | ZADU_S_CHKTR_CRREF_UPDATE 9 | S 10 | STRU 11 | T 12 | D 13 | N 14 | Check Transport Cross Reference DB update 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/tr/zadu_t_chktr_crrel_update.ttyp.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_T_CHKTR_CRREL_UPDATE 7 | E 8 | ZADU_S_CHKTR_CRREL_UPDATE 9 | S 10 | STRU 11 | T 12 | D 13 | N 14 | Check Transport Cross Release DB update 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/tr/zadu_t_chktr_imtim_update.ttyp.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_T_CHKTR_IMTIM_UPDATE 7 | E 8 | ZADU_S_CHKTR_IMTIM_UPDATE 9 | S 10 | STRU 11 | T 12 | D 13 | N 14 | Check Transport Import Time DB update 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/tr/zadu_t_chktr_oisum_update.ttyp.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_T_CHKTR_OISUM_UPDATE 7 | E 8 | ZADU_S_CHKTR_OISUM_UPDATE 9 | S 10 | STRU 11 | T 12 | D 13 | N 14 | Check Transport Online Import Summary DB update 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/tr/zadu_t_chktr_onlim_update.ttyp.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_T_CHKTR_ONLIM_UPDATE 7 | E 8 | ZADU_S_CHKTR_ONLIM_UPDATE 9 | S 10 | STRU 11 | T 12 | D 13 | N 14 | Check Transport Online Import DB update 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/tr/zadu_t_chktr_seq_update.ttyp.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_T_CHKTR_SEQ_UPDATE 7 | E 8 | ZADU_S_CHKTR_SEQ_UPDATE 9 | S 10 | STRU 11 | T 12 | D 13 | N 14 | Check Transport Sequence DB update 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/tr/zadu_tr_import.prog.abap: -------------------------------------------------------------------------------- 1 | *&---------------------------------------------------------------------* 2 | *& Report zadu_tr_import 3 | *&---------------------------------------------------------------------* 4 | *& 5 | *&---------------------------------------------------------------------* 6 | REPORT zadu_tr_import. 7 | 8 | INCLUDE zadu_tr_importsel. 9 | INCLUDE zadu_tr_importcsl. 10 | 11 | AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path. 12 | lcl_process=>help_path( ). 13 | 14 | START-OF-SELECTION. 15 | NEW lcl_process( )->run( ). 16 | -------------------------------------------------------------------------------- /src/tr/zadu_tr_importcsl.prog.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_TR_IMPORTCSL 7 | S 8 | D$ 9 | I 10 | X 11 | D$S 12 | X 13 | 14 | 15 | 16 | R 17 | Import ZADU_TR_IMPORTCSL 18 | 24 19 | 20 | 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /src/tr/zadu_tr_importsel.prog.abap: -------------------------------------------------------------------------------- 1 | *&---------------------------------------------------------------------* 2 | *& Include zadu_tr_importsel 3 | *&---------------------------------------------------------------------* 4 | 5 | SELECTION-SCREEN BEGIN OF BLOCK opt WITH FRAME TITLE TEXT-opt. 6 | 7 | PARAMETERS p_zip TYPE abap_bool AS CHECKBOX. 8 | PARAMETERS p_recurs TYPE abap_bool AS CHECKBOX DEFAULT 'X'. 9 | 10 | SELECTION-SCREEN END OF BLOCK opt. 11 | 12 | SELECTION-SCREEN BEGIN OF BLOCK path WITH FRAME TITLE TEXT-pat. 13 | 14 | PARAMETERS p_path TYPE string LOWER CASE OBLIGATORY. 15 | 16 | SELECTION-SCREEN END OF BLOCK path. 17 | -------------------------------------------------------------------------------- /src/tr/zadu_tr_importsel.prog.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_TR_IMPORTSEL 7 | S 8 | D$ 9 | I 10 | X 11 | D$S 12 | X 13 | 14 | 15 | 16 | R 17 | Include ZADU_TR_IMPORTSEL 18 | 25 19 | 20 | 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /src/tr/zadu_transport_update.fugr.lzadu_transport_updatetop.abap: -------------------------------------------------------------------------------- 1 | FUNCTION-POOL zadu_transport_update. "MESSAGE-ID .. 2 | 3 | * INCLUDE LZADU_TRANSPORT_UPDATED... " Local class definition 4 | -------------------------------------------------------------------------------- /src/tr/zadu_transport_update.fugr.lzadu_transport_updatetop.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | LZADU_TRANSPORT_UPDATETOP 7 | S 8 | D$ 9 | I 10 | S 11 | X 12 | D$S 13 | X 14 | 15 | 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/tr/zadu_transport_update.fugr.saplzadu_transport_update.abap: -------------------------------------------------------------------------------- 1 | ******************************************************************* 2 | * System-defined Include-files. * 3 | ******************************************************************* 4 | INCLUDE lzadu_transport_updatetop. " Global Declarations 5 | INCLUDE lzadu_transport_updateuxx. " Function Modules 6 | 7 | ******************************************************************* 8 | * User-defined Include-files (if necessary). * 9 | ******************************************************************* 10 | * INCLUDE LZADU_TRANSPORT_UPDATEF... " Subroutines 11 | * INCLUDE LZADU_TRANSPORT_UPDATEO... " PBO-Modules 12 | * INCLUDE LZADU_TRANSPORT_UPDATEI... " PAI-Modules 13 | * INCLUDE LZADU_TRANSPORT_UPDATEE... " Events 14 | * INCLUDE LZADU_TRANSPORT_UPDATEP... " Local class implement. 15 | * INCLUDE LZADU_TRANSPORT_UPDATET99. " ABAP Unit tests 16 | -------------------------------------------------------------------------------- /src/tr/zadu_transport_update.fugr.saplzadu_transport_update.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | SAPLZADU_TRANSPORT_UPDATE 7 | S 8 | D$ 9 | F 10 | S 11 | E 12 | X 13 | D$S 14 | X 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/tr/zadu_transport_update.fugr.zadu_transport_update_crossref.abap: -------------------------------------------------------------------------------- 1 | FUNCTION zadu_transport_update_crossref. 2 | *"---------------------------------------------------------------------- 3 | *"*"Update Function Module: 4 | *" 5 | *"*"Local Interface: 6 | *" IMPORTING 7 | *" VALUE(CROSS_REFERENCE_UPDATES) TYPE ZADU_T_CHKTR_CRREF_UPDATE 8 | *"---------------------------------------------------------------------- 9 | 10 | DATA: database_data TYPE zadu_chktr_crref. 11 | 12 | LOOP AT cross_reference_updates REFERENCE INTO DATA(cross_reference_update). 13 | 14 | database_data = cross_reference_update->*. 15 | 16 | CASE cross_reference_update->crud_ind. 17 | WHEN zif_adu_constants=>crud-create. 18 | INSERT zadu_chktr_crref FROM @database_data. 19 | IF sy-subrc <> 0. 20 | MESSAGE ID zcx_adu_check_transport=>error_insert_table-msgid 21 | TYPE 'X' 22 | NUMBER zcx_adu_check_transport=>error_insert_table-msgno 23 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_CRREF'. 24 | ENDIF. 25 | 26 | WHEN zif_adu_constants=>crud-update. 27 | UPDATE zadu_chktr_crref FROM @database_data. 28 | IF sy-subrc <> 0. 29 | MESSAGE ID zcx_adu_check_transport=>error_update_table-msgid 30 | TYPE 'X' 31 | NUMBER zcx_adu_check_transport=>error_update_table-msgno 32 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_CRREF'. 33 | ENDIF. 34 | 35 | WHEN zif_adu_constants=>crud-delete. 36 | DELETE zadu_chktr_crref FROM @database_data. 37 | IF sy-subrc <> 0. 38 | MESSAGE ID zcx_adu_check_transport=>error_delete_table-msgid 39 | TYPE 'X' 40 | NUMBER zcx_adu_check_transport=>error_delete_table-msgno 41 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_CRREF'. 42 | ENDIF. 43 | 44 | ENDCASE. 45 | 46 | ENDLOOP. 47 | 48 | ENDFUNCTION. 49 | -------------------------------------------------------------------------------- /src/tr/zadu_transport_update.fugr.zadu_transport_update_crossrel.abap: -------------------------------------------------------------------------------- 1 | FUNCTION zadu_transport_update_crossrel. 2 | *"---------------------------------------------------------------------- 3 | *"*"Local Interface: 4 | *" IMPORTING 5 | *" VALUE(CROSS_RELEASE_UPDATES) TYPE ZADU_T_CHKTR_CRREL_UPDATE 6 | *"---------------------------------------------------------------------- 7 | 8 | DATA: database_data TYPE zadu_chktr_crrel. 9 | 10 | LOOP AT cross_release_updates REFERENCE INTO DATA(cross_release_update). 11 | 12 | database_data = cross_release_update->*. 13 | 14 | CASE cross_release_update->crud_ind. 15 | WHEN zif_adu_constants=>crud-create. 16 | INSERT zadu_chktr_crrel FROM @database_data. 17 | IF sy-subrc <> 0. 18 | MESSAGE ID zcx_adu_check_transport=>error_insert_table-msgid 19 | TYPE 'X' 20 | NUMBER zcx_adu_check_transport=>error_insert_table-msgno 21 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_CRREL'. 22 | ENDIF. 23 | 24 | WHEN zif_adu_constants=>crud-update. 25 | UPDATE zadu_chktr_crrel FROM @database_data. 26 | IF sy-subrc <> 0. 27 | MESSAGE ID zcx_adu_check_transport=>error_update_table-msgid 28 | TYPE 'X' 29 | NUMBER zcx_adu_check_transport=>error_update_table-msgno 30 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_CRREL'. 31 | ENDIF. 32 | 33 | WHEN zif_adu_constants=>crud-delete. 34 | DELETE zadu_chktr_crrel FROM @database_data. 35 | IF sy-subrc <> 0. 36 | MESSAGE ID zcx_adu_check_transport=>error_delete_table-msgid 37 | TYPE 'X' 38 | NUMBER zcx_adu_check_transport=>error_delete_table-msgno 39 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_CRREL'. 40 | ENDIF. 41 | 42 | ENDCASE. 43 | 44 | ENDLOOP. 45 | 46 | ENDFUNCTION. 47 | -------------------------------------------------------------------------------- /src/tr/zadu_transport_update.fugr.zadu_transport_update_header.abap: -------------------------------------------------------------------------------- 1 | FUNCTION zadu_transport_update_header. 2 | *"---------------------------------------------------------------------- 3 | *"*"Update Function Module: 4 | *" 5 | *"*"Local Interface: 6 | *" IMPORTING 7 | *" VALUE(HEADER) TYPE ZADU_S_CHKTR_HEAD_UPDATE 8 | *"---------------------------------------------------------------------- 9 | 10 | DATA: header_db TYPE zadu_chktr_head. 11 | 12 | header_db = header. 13 | 14 | CASE header-crud_ind. 15 | WHEN zif_adu_constants=>crud-create. 16 | INSERT zadu_chktr_head FROM @header_db. 17 | IF sy-subrc <> 0. 18 | MESSAGE ID zcx_adu_check_transport=>error_insert_table-msgid 19 | TYPE 'X' 20 | NUMBER zcx_adu_check_transport=>error_insert_table-msgno 21 | WITH header_db-run_code 'ZADU_CHKTR_HEAD'. 22 | ENDIF. 23 | 24 | WHEN zif_adu_constants=>crud-update. 25 | UPDATE zadu_chktr_head FROM @header_db. 26 | IF sy-subrc <> 0. 27 | MESSAGE ID zcx_adu_check_transport=>error_update_table-msgid 28 | TYPE 'X' 29 | NUMBER zcx_adu_check_transport=>error_update_table-msgno 30 | WITH header_db-run_code 'ZADU_CHKTR_HEAD'. 31 | ENDIF. 32 | 33 | WHEN zif_adu_constants=>crud-delete. 34 | DELETE zadu_chktr_head FROM @header_db. 35 | IF sy-subrc <> 0. 36 | MESSAGE ID zcx_adu_check_transport=>error_delete_table-msgid 37 | TYPE 'X' 38 | NUMBER zcx_adu_check_transport=>error_delete_table-msgno 39 | WITH header_db-run_code 'ZADU_CHKTR_HEAD'. 40 | ENDIF. 41 | 42 | ENDCASE. 43 | 44 | ENDFUNCTION. 45 | -------------------------------------------------------------------------------- /src/tr/zadu_transport_update.fugr.zadu_transport_update_imp_time.abap: -------------------------------------------------------------------------------- 1 | FUNCTION zadu_transport_update_imp_time. 2 | *"---------------------------------------------------------------------- 3 | *"*"Local Interface: 4 | *" IMPORTING 5 | *" VALUE(IMPORT_TIME_UPDATES) TYPE ZADU_T_CHKTR_IMTIM_UPDATE 6 | *"---------------------------------------------------------------------- 7 | 8 | DATA: database_data TYPE zadu_chktr_imtim. 9 | 10 | LOOP AT import_time_updates REFERENCE INTO DATA(import_time_update). 11 | 12 | database_data = import_time_update->*. 13 | 14 | CASE import_time_update->crud_ind. 15 | WHEN zif_adu_constants=>crud-create. 16 | INSERT zadu_chktr_imtim FROM @database_data. 17 | IF sy-subrc <> 0. 18 | MESSAGE ID zcx_adu_check_transport=>error_insert_table-msgid 19 | TYPE 'X' 20 | NUMBER zcx_adu_check_transport=>error_insert_table-msgno 21 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_IMTIM'. 22 | ENDIF. 23 | 24 | WHEN zif_adu_constants=>crud-update. 25 | UPDATE zadu_chktr_imtim FROM @database_data. 26 | IF sy-subrc <> 0. 27 | MESSAGE ID zcx_adu_check_transport=>error_update_table-msgid 28 | TYPE 'X' 29 | NUMBER zcx_adu_check_transport=>error_update_table-msgno 30 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_IMTIM'. 31 | ENDIF. 32 | 33 | WHEN zif_adu_constants=>crud-delete. 34 | DELETE zadu_chktr_imtim FROM @database_data. 35 | IF sy-subrc <> 0. 36 | MESSAGE ID zcx_adu_check_transport=>error_delete_table-msgid 37 | TYPE 'X' 38 | NUMBER zcx_adu_check_transport=>error_delete_table-msgno 39 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_IMTIM'. 40 | ENDIF. 41 | 42 | ENDCASE. 43 | 44 | ENDLOOP. 45 | 46 | ENDFUNCTION. 47 | -------------------------------------------------------------------------------- /src/tr/zadu_transport_update.fugr.zadu_transport_update_oi_sum.abap: -------------------------------------------------------------------------------- 1 | FUNCTION zadu_transport_update_oi_sum. 2 | *"---------------------------------------------------------------------- 3 | *"*"Update Function Module: 4 | *" 5 | *"*"Local Interface: 6 | *" IMPORTING 7 | *" VALUE(ONLINE_IMPORT_SUMMARY_UPDATES) TYPE 8 | *" ZADU_T_CHKTR_OISUM_UPDATE 9 | *"---------------------------------------------------------------------- 10 | 11 | DATA: database_data TYPE zadu_chktr_oisum. 12 | 13 | LOOP AT online_import_summary_updates REFERENCE INTO DATA(online_import_summary_update). 14 | 15 | database_data = online_import_summary_update->*. 16 | 17 | CASE online_import_summary_update->crud_ind. 18 | WHEN zif_adu_constants=>crud-create. 19 | INSERT zadu_chktr_oisum FROM @database_data. 20 | IF sy-subrc <> 0. 21 | MESSAGE ID zcx_adu_check_transport=>error_insert_table-msgid 22 | TYPE 'X' 23 | NUMBER zcx_adu_check_transport=>error_insert_table-msgno 24 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_OISUM'. 25 | ENDIF. 26 | 27 | WHEN zif_adu_constants=>crud-update. 28 | UPDATE zadu_chktr_oisum FROM @database_data. 29 | IF sy-subrc <> 0. 30 | MESSAGE ID zcx_adu_check_transport=>error_update_table-msgid 31 | TYPE 'X' 32 | NUMBER zcx_adu_check_transport=>error_update_table-msgno 33 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_OISUM'. 34 | ENDIF. 35 | 36 | WHEN zif_adu_constants=>crud-delete. 37 | DELETE zadu_chktr_oisum FROM @database_data. 38 | IF sy-subrc <> 0. 39 | MESSAGE ID zcx_adu_check_transport=>error_delete_table-msgid 40 | TYPE 'X' 41 | NUMBER zcx_adu_check_transport=>error_delete_table-msgno 42 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_OISUM'. 43 | ENDIF. 44 | 45 | ENDCASE. 46 | 47 | ENDLOOP. 48 | 49 | ENDFUNCTION. 50 | -------------------------------------------------------------------------------- /src/tr/zadu_transport_update.fugr.zadu_transport_update_onl_imp.abap: -------------------------------------------------------------------------------- 1 | FUNCTION zadu_transport_update_onl_imp. 2 | *"---------------------------------------------------------------------- 3 | *"*"Local Interface: 4 | *" IMPORTING 5 | *" VALUE(ONLINE_IMPORT_UPDATES) TYPE ZADU_T_CHKTR_ONLIM_UPDATE 6 | *"---------------------------------------------------------------------- 7 | 8 | DATA: database_data TYPE zadu_chktr_onlim. 9 | 10 | LOOP AT online_import_updates REFERENCE INTO DATA(online_import_update). 11 | 12 | database_data = online_import_update->*. 13 | 14 | CASE online_import_update->crud_ind. 15 | WHEN zif_adu_constants=>crud-create. 16 | INSERT zadu_chktr_onlim FROM @database_data. 17 | IF sy-subrc <> 0. 18 | MESSAGE ID zcx_adu_check_transport=>error_insert_table-msgid 19 | TYPE 'X' 20 | NUMBER zcx_adu_check_transport=>error_insert_table-msgno 21 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_ONLIM'. 22 | ENDIF. 23 | 24 | WHEN zif_adu_constants=>crud-update. 25 | UPDATE zadu_chktr_onlim FROM @database_data. 26 | IF sy-subrc <> 0. 27 | MESSAGE ID zcx_adu_check_transport=>error_update_table-msgid 28 | TYPE 'X' 29 | NUMBER zcx_adu_check_transport=>error_update_table-msgno 30 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_ONLIM'. 31 | ENDIF. 32 | 33 | WHEN zif_adu_constants=>crud-delete. 34 | DELETE zadu_chktr_onlim FROM @database_data. 35 | IF sy-subrc <> 0. 36 | MESSAGE ID zcx_adu_check_transport=>error_delete_table-msgid 37 | TYPE 'X' 38 | NUMBER zcx_adu_check_transport=>error_delete_table-msgno 39 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_ONLIM'. 40 | ENDIF. 41 | 42 | ENDCASE. 43 | 44 | ENDLOOP. 45 | 46 | ENDFUNCTION. 47 | -------------------------------------------------------------------------------- /src/tr/zadu_transport_update.fugr.zadu_transport_update_sequence.abap: -------------------------------------------------------------------------------- 1 | FUNCTION zadu_transport_update_sequence. 2 | *"---------------------------------------------------------------------- 3 | *"*"Local Interface: 4 | *" IMPORTING 5 | *" VALUE(SEQUENCE_UPDATES) TYPE ZADU_T_CHKTR_SEQ_UPDATE 6 | *"---------------------------------------------------------------------- 7 | 8 | DATA: database_data TYPE zadu_chktr_seq. 9 | 10 | LOOP AT sequence_updates REFERENCE INTO DATA(sequence_update). 11 | 12 | database_data = sequence_update->*. 13 | 14 | CASE sequence_update->crud_ind. 15 | WHEN zif_adu_constants=>crud-create. 16 | INSERT zadu_chktr_seq FROM @database_data. 17 | IF sy-subrc <> 0. 18 | MESSAGE ID zcx_adu_check_transport=>error_insert_table-msgid 19 | TYPE 'X' 20 | NUMBER zcx_adu_check_transport=>error_insert_table-msgno 21 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_SEQ'. 22 | ENDIF. 23 | 24 | WHEN zif_adu_constants=>crud-update. 25 | UPDATE zadu_chktr_seq FROM @database_data. 26 | IF sy-subrc <> 0. 27 | MESSAGE ID zcx_adu_check_transport=>error_update_table-msgid 28 | TYPE 'X' 29 | NUMBER zcx_adu_check_transport=>error_update_table-msgno 30 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_SEQ'. 31 | ENDIF. 32 | 33 | WHEN zif_adu_constants=>crud-delete. 34 | DELETE zadu_chktr_seq FROM @database_data. 35 | IF sy-subrc <> 0. 36 | MESSAGE ID zcx_adu_check_transport=>error_delete_table-msgid 37 | TYPE 'X' 38 | NUMBER zcx_adu_check_transport=>error_delete_table-msgno 39 | WITH |{ database_data-run_code }{ database_data-sequence }| 'ZADU_CHKTR_SEQ'. 40 | ENDIF. 41 | 42 | ENDCASE. 43 | 44 | ENDLOOP. 45 | 46 | ENDFUNCTION. 47 | -------------------------------------------------------------------------------- /src/tr/zcl_adu_check_transport.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_CHECK_TRANSPORT 7 | E 8 | Check transport 9 | 1 10 | X 11 | X 12 | X 13 | 14 | 15 | 16 | 17 | -------------------------------------------------------------------------------- /src/tr/zcl_adu_check_transport_reader.clas.locals_def.abap: -------------------------------------------------------------------------------- 1 | CLASS lcl_event_handler DEFINITION DEFERRED. 2 | CLASS zcl_adu_check_transport_reader DEFINITION LOCAL FRIENDS lcl_event_handler. 3 | CLASS lcl_event_handler DEFINITION 4 | FRIENDS zcl_adu_check_transport_reader. 5 | 6 | PUBLIC SECTION. 7 | METHODS constructor 8 | IMPORTING 9 | reader TYPE REF TO zcl_adu_check_transport_reader 10 | salv_table TYPE REF TO cl_salv_table. 11 | 12 | PRIVATE SECTION. 13 | DATA: 14 | reader TYPE REF TO zcl_adu_check_transport_reader, 15 | salv_table TYPE REF TO cl_salv_table. 16 | 17 | METHODS header_link_click 18 | FOR EVENT if_salv_events_actions_table~link_click OF cl_salv_events_table 19 | IMPORTING 20 | row 21 | column. 22 | 23 | METHODS oi_summary_link_click 24 | FOR EVENT if_salv_events_actions_table~link_click OF cl_salv_events_table 25 | IMPORTING 26 | row 27 | column. 28 | 29 | ENDCLASS. 30 | 31 | CLASS lcl_salv_data DEFINITION 32 | FRIENDS zcl_adu_check_transport_reader lcl_event_handler. 33 | 34 | PRIVATE SECTION. 35 | DATA: 36 | header TYPE STANDARD TABLE OF zif_adu_check_transport_reader=>ts_header 37 | WITH EMPTY KEY, 38 | cross_reference TYPE STANDARD TABLE OF zif_adu_check_transport_reader=>ts_cross_reference 39 | WITH EMPTY KEY, 40 | sequence TYPE STANDARD TABLE OF zif_adu_check_transport_reader=>ts_sequence 41 | WITH EMPTY KEY, 42 | cross_release TYPE STANDARD TABLE OF zif_adu_check_transport_reader=>ts_cross_release 43 | WITH EMPTY KEY, 44 | import_time TYPE STANDARD TABLE OF zif_adu_check_transport_reader=>ts_import_time 45 | WITH EMPTY KEY, 46 | online_import_summary TYPE STANDARD TABLE OF zif_adu_check_transport_reader=>ts_online_import_summary 47 | WITH EMPTY KEY, 48 | online_import TYPE STANDARD TABLE OF zif_adu_check_transport_reader=>ts_online_import 49 | WITH EMPTY KEY. 50 | 51 | ENDCLASS. 52 | -------------------------------------------------------------------------------- /src/tr/zcl_adu_check_transport_reader.clas.locals_imp.abap: -------------------------------------------------------------------------------- 1 | CLASS lcl_event_handler IMPLEMENTATION. 2 | 3 | 4 | METHOD constructor. 5 | 6 | me->reader = reader. 7 | me->salv_table = salv_table. 8 | 9 | ENDMETHOD. 10 | 11 | 12 | METHOD header_link_click. 13 | 14 | DATA(log_header) = reader->salv_data->header[ row ]. 15 | 16 | TRY. 17 | 18 | CASE column. 19 | WHEN 'CROSS_REFERENCE_MESSAGES'. 20 | reader->zif_adu_check_transport_reader~display_cross_reference( 21 | run_code = log_header-run_code 22 | transport_request = log_header-transport_request ). 23 | 24 | WHEN 'SEQUENCE_MESSAGES'. 25 | reader->zif_adu_check_transport_reader~display_sequence( 26 | run_code = log_header-run_code 27 | transport_request = log_header-transport_request ). 28 | 29 | WHEN 'CROSS_RELEASE_MESSAGES'. 30 | reader->zif_adu_check_transport_reader~display_cross_release( 31 | run_code = log_header-run_code 32 | transport_request = log_header-transport_request ). 33 | 34 | WHEN 'IMPORT_TIME_MESSAGES'. 35 | reader->zif_adu_check_transport_reader~display_import_time( 36 | run_code = log_header-run_code 37 | transport_request = log_header-transport_request ). 38 | 39 | WHEN 'ONLINE_IMPORT_MESSAGES'. 40 | reader->zif_adu_check_transport_reader~display_online_import_summary( 41 | run_code = log_header-run_code 42 | transport_request = log_header-transport_request ). 43 | 44 | ENDCASE. 45 | 46 | CATCH zcx_adu_check_transport INTO DATA(check_transport_exception). 47 | MESSAGE check_transport_exception TYPE 'S' DISPLAY LIKE 'E'. 48 | ENDTRY. 49 | 50 | ENDMETHOD. 51 | 52 | 53 | METHOD oi_summary_link_click. 54 | 55 | DATA(online_import_summary) = reader->salv_data->online_import_summary[ row ]. 56 | 57 | TRY. 58 | 59 | IF column = 'DETAILS_ICON'. 60 | reader->zif_adu_check_transport_reader~display_online_import( 61 | run_code = online_import_summary-run_code 62 | transport_request = online_import_summary-transport_request ). 63 | ENDIF. 64 | 65 | CATCH zcx_adu_check_transport INTO DATA(check_transport_exception). 66 | MESSAGE check_transport_exception TYPE 'S' DISPLAY LIKE 'E'. 67 | ENDTRY. 68 | 69 | ENDMETHOD. 70 | 71 | 72 | ENDCLASS. 73 | -------------------------------------------------------------------------------- /src/tr/zcl_adu_transport_request.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_TRANSPORT_REQUEST 7 | E 8 | Transport Request 9 | 1 10 | X 11 | X 12 | X 13 | 14 | 15 | 16 | 17 | -------------------------------------------------------------------------------- /src/tr/zcl_adu_utl_transport_request.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_UTL_TRANSPORT_REQUEST 7 | E 8 | Utility: Transport Request 9 | 1 10 | X 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | 18 | -------------------------------------------------------------------------------- /src/tr/zcx_adu_check_transport.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCX_ADU_CHECK_TRANSPORT 7 | E 8 | Check transport Exceptions 9 | 40 10 | 1 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | CONSTRUCTOR 18 | E 19 | CONSTRUCTOR 20 | 21 | 22 | RAISE_SYSTEM 23 | E 24 | Raise exception with system attribute message 25 | 26 | 27 | 28 | 29 | RAISE_SYSTEM 30 | ZCX_ADU_CHECK_TRANSPORT 31 | E 32 | Check exception 33 | 34 | 35 | 36 | 37 | 38 | -------------------------------------------------------------------------------- /src/tr/zcx_adu_transport_request.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCX_ADU_TRANSPORT_REQUEST 7 | E 8 | Check transport Exceptions 9 | 40 10 | 1 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | CONSTRUCTOR 18 | E 19 | CONSTRUCTOR 20 | 21 | 22 | RAISE_SYSTEM 23 | E 24 | Raise exception with system attribute message 25 | 26 | 27 | 28 | 29 | RAISE_SYSTEM 30 | ZCX_ADU_TRANSPORT_REQUEST 31 | E 32 | Exception 33 | 34 | 35 | 36 | 37 | 38 | -------------------------------------------------------------------------------- /src/tr/zif_adu_check_transport.intf.abap: -------------------------------------------------------------------------------- 1 | "!

Check transport

2 | INTERFACE zif_adu_check_transport 3 | PUBLIC. 4 | 5 | TYPES: 6 | tt_result_cross_reference TYPE STANDARD TABLE OF /sdf/teap_envi_ana_result WITH DEFAULT KEY, 7 | tt_result_sequence TYPE STANDARD TABLE OF /sdf/teap_dgp_conflict WITH DEFAULT KEY, 8 | tt_result_cross_release TYPE STANDARD TABLE OF /sdf/teap_scv_crit_obj WITH DEFAULT KEY, 9 | tt_result_import_time TYPE STANDARD TABLE OF /sdf/teap_tr_imp_time WITH DEFAULT KEY, 10 | tt_result_online_import_sum TYPE STANDARD TABLE OF zadu_s_oi_results WITH DEFAULT KEY, 11 | tt_result_online_import_all TYPE STANDARD TABLE OF zadu_s_oi_result WITH DEFAULT KEY. 12 | 13 | TYPES: 14 | BEGIN OF ts_result_online_import, 15 | summary TYPE zif_adu_check_transport=>tt_result_online_import_sum, 16 | all TYPE zif_adu_check_transport=>tt_result_online_import_all, 17 | END OF ts_result_online_import. 18 | 19 | TYPES: 20 | BEGIN OF ts_result_all, 21 | run_code TYPE zadu_run_code, 22 | results_cross_reference TYPE zif_adu_check_transport=>tt_result_cross_reference, 23 | results_sequence TYPE zif_adu_check_transport=>tt_result_sequence, 24 | results_cross_release TYPE zif_adu_check_transport=>tt_result_cross_release, 25 | results_import_time TYPE zif_adu_check_transport=>tt_result_import_time, 26 | results_online_import TYPE ts_result_online_import, 27 | END OF ts_result_all. 28 | 29 | METHODS check_cross_reference 30 | RETURNING 31 | VALUE(result) TYPE zif_adu_check_transport=>tt_result_cross_reference 32 | RAISING 33 | zcx_adu_check_transport. 34 | 35 | METHODS check_sequence 36 | RETURNING 37 | VALUE(result) TYPE zif_adu_check_transport=>tt_result_sequence 38 | RAISING 39 | zcx_adu_check_transport. 40 | 41 | METHODS check_cross_release 42 | RETURNING 43 | VALUE(result) TYPE zif_adu_check_transport=>tt_result_cross_release 44 | RAISING 45 | zcx_adu_check_transport. 46 | 47 | METHODS check_import_time 48 | RETURNING 49 | VALUE(result) TYPE zif_adu_check_transport=>tt_result_import_time 50 | RAISING 51 | zcx_adu_check_transport. 52 | 53 | METHODS check_online_import 54 | RETURNING 55 | VALUE(result) TYPE zif_adu_check_transport=>ts_result_online_import 56 | RAISING 57 | zcx_adu_check_transport. 58 | 59 | METHODS check_all 60 | RETURNING 61 | VALUE(result) TYPE zif_adu_check_transport=>ts_result_all 62 | RAISING 63 | zcx_adu_check_transport. 64 | 65 | METHODS save_results 66 | IMPORTING 67 | commit TYPE abap_bool DEFAULT abap_true 68 | RAISING 69 | zcx_adu_check_transport. 70 | 71 | ENDINTERFACE. 72 | -------------------------------------------------------------------------------- /src/tr/zif_adu_check_transport.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_CHECK_TRANSPORT 7 | E 8 | Check transport 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/tr/zif_adu_check_transport_reader.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_CHECK_TRANSPORT_READER 7 | E 8 | Check transport reader 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/tr/zif_adu_tr_constants.intf.abap: -------------------------------------------------------------------------------- 1 | INTERFACE zif_adu_tr_constants 2 | PUBLIC. 3 | 4 | CONSTANTS: 5 | BEGIN OF gc_path, 6 | trans TYPE string VALUE `/usr/sap/trans`, 7 | data TYPE string VALUE `data`, 8 | cofiles TYPE string VALUE `cofiles`, 9 | END OF gc_path. 10 | 11 | CONSTANTS: 12 | BEGIN OF gc_status, 13 | modificable TYPE trstatus VALUE 'D', 14 | modificable_protected TYPE trstatus VALUE 'L', 15 | release_started TYPE trstatus VALUE 'O', 16 | released TYPE trstatus VALUE 'R', 17 | released_protection TYPE trstatus VALUE 'N', 18 | END OF gc_status. 19 | 20 | ENDINTERFACE. 21 | -------------------------------------------------------------------------------- /src/tr/zif_adu_tr_constants.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_TR_CONSTANTS 7 | E 8 | Transport Requests constants 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/tr/zif_adu_transport_request.intf.abap: -------------------------------------------------------------------------------- 1 | "!

Transport Request

2 | INTERFACE zif_adu_transport_request 3 | PUBLIC. 4 | 5 | TYPES: 6 | tt_copy_client_log TYPE STANDARD TABLE OF cccflow WITH DEFAULT KEY. 7 | 8 | "!

Change target

9 | "! 10 | "! @parameter target |

New target

11 | "! @raising zcx_adu_transport_request |

Exception

12 | METHODS change_target 13 | IMPORTING 14 | target TYPE tr_target 15 | RAISING 16 | zcx_adu_transport_request. 17 | 18 | "!

Copy transport request to current client

19 | "! 20 | "! @parameter source_client |

Source client, by default TR client

21 | "! @parameter test_run |

Test execution

22 | "! @parameter include_tasks |

Copy included tasks

23 | "! @raising zcx_adu_transport_request |

Exception

24 | METHODS copy_to_current_client 25 | IMPORTING 26 | source_client TYPE ccmand OPTIONAL 27 | test_run TYPE cctestrun OPTIONAL 28 | include_tasks TYPE incl_task DEFAULT abap_true 29 | RAISING 30 | zcx_adu_transport_request. 31 | 32 | "!

Get copy TR log between clients

33 | "! 34 | "! @parameter source |

Source client

35 | "! @parameter target |

Target client

36 | "! @parameter include_test |

Include test log

37 | METHODS get_copy_client_log 38 | IMPORTING 39 | source TYPE mandt OPTIONAL 40 | target TYPE mandt OPTIONAL 41 | include_test TYPE abap_bool OPTIONAL 42 | RETURNING 43 | VALUE(result) TYPE zif_adu_transport_request=>tt_copy_client_log. 44 | 45 | "!

Get transport request header

46 | "! 47 | "! @parameter result |

Header

48 | METHODS get_header 49 | RETURNING 50 | VALUE(result) TYPE trwbo_request_header. 51 | 52 | "!

Get transport request zipped in a file

53 | "! 54 | "! @parameter result |

Zip file

55 | "! @raising zcx_adu_transport_request |

Exception

56 | METHODS get_zip_file 57 | RETURNING 58 | VALUE(result) TYPE xstring 59 | RAISING 60 | zcx_adu_transport_request. 61 | 62 | ENDINTERFACE. 63 | -------------------------------------------------------------------------------- /src/tr/zif_adu_utl_transport_request.intf.abap: -------------------------------------------------------------------------------- 1 | INTERFACE zif_adu_utl_transport_request 2 | PUBLIC. 3 | 4 | TYPES ty_file_content TYPE STANDARD TABLE OF raw255 WITH EMPTY KEY. 5 | 6 | TYPES: BEGIN OF ty_content, 7 | transport_request TYPE trkorr, 8 | cofile TYPE ty_file_content, 9 | cofile_filesize TYPE i, 10 | data TYPE ty_file_content, 11 | data_filesize TYPE i, 12 | END OF ty_content, 13 | ty_contents TYPE HASHED TABLE OF ty_content WITH UNIQUE KEY transport_request. 14 | 15 | TYPES: BEGIN OF ty_import_result, 16 | transport_request TYPE trkorr, 17 | tms_alert TYPE stmscalert, 18 | END OF ty_import_result, 19 | ty_import_results TYPE STANDARD TABLE OF ty_import_result WITH EMPTY KEY. 20 | 21 | METHODS get_path_cofiles 22 | RETURNING VALUE(rv_result) TYPE string. 23 | 24 | METHODS get_path_data 25 | RETURNING VALUE(rv_result) TYPE string. 26 | 27 | METHODS get_path_trans 28 | RETURNING VALUE(rv_result) TYPE string. 29 | 30 | METHODS build_filename_cofiles 31 | IMPORTING iv_transport_request TYPE trkorr 32 | RETURNING VALUE(rv_result) TYPE string. 33 | 34 | METHODS build_filename_data 35 | IMPORTING iv_transport_request TYPE trkorr 36 | RETURNING VALUE(rv_result) TYPE string. 37 | 38 | METHODS build_path_cofiles 39 | IMPORTING iv_transport_request TYPE trkorr 40 | RETURNING VALUE(rv_result) TYPE string. 41 | 42 | METHODS build_path_data 43 | IMPORTING iv_transport_request TYPE trkorr 44 | RETURNING VALUE(rv_result) TYPE string. 45 | 46 | METHODS is_filename_valid 47 | IMPORTING iv_filename TYPE string 48 | RETURNING VALUE(rv_result) TYPE abap_bool. 49 | 50 | METHODS convert_filename_to_tr 51 | IMPORTING iv_filename TYPE string 52 | RETURNING VALUE(rv_result) TYPE trkorr 53 | RAISING zcx_adu_transport_request. 54 | 55 | METHODS read_header 56 | IMPORTING iv_transport_request TYPE trkorr 57 | RETURNING VALUE(rs_result) TYPE trwbo_request_header 58 | RAISING zcx_adu_transport_request. 59 | 60 | METHODS add_to_queue 61 | IMPORTING iv_transport_request TYPE trkorr 62 | RETURNING VALUE(rs_result) TYPE stmscalert 63 | RAISING zcx_adu_transport_request. 64 | 65 | METHODS import 66 | IMPORTING it_content TYPE ty_contents 67 | iv_add_queue TYPE abap_bool DEFAULT abap_true 68 | RETURNING VALUE(rt_result) TYPE ty_import_results 69 | RAISING zcx_adu_transport_request. 70 | 71 | METHODS zip_import 72 | IMPORTING iv_zip TYPE xstring 73 | iv_add_queue TYPE abap_bool DEFAULT abap_true 74 | RETURNING VALUE(rt_result) TYPE ty_import_results 75 | RAISING zcx_adu_transport_request. 76 | 77 | METHODS zip_to_content 78 | IMPORTING iv_zip TYPE xstring 79 | RETURNING VALUE(rt_result) TYPE ty_contents 80 | RAISING zcx_adu_transport_request. 81 | 82 | ENDINTERFACE. 83 | -------------------------------------------------------------------------------- /src/tr/zif_adu_utl_transport_request.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_UTL_TRANSPORT_REQUEST 7 | E 8 | Utility: Transport Request 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/transform/package.devc.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ADU: Transform 7 | 8 | 9 | 10 | 11 | -------------------------------------------------------------------------------- /src/transform/zcl_adu_transform.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_TRANSFORM 7 | E 8 | Transformer 9 | 1 10 | X 11 | X 12 | X 13 | 14 | 15 | 16 | 17 | -------------------------------------------------------------------------------- /src/transform/zcx_adu_transform.clas.abap: -------------------------------------------------------------------------------- 1 | CLASS zcx_adu_transform DEFINITION 2 | PUBLIC 3 | INHERITING FROM zcx_adu_static_check 4 | CREATE PUBLIC. 5 | 6 | PUBLIC SECTION. 7 | 8 | METHODS constructor 9 | IMPORTING textid LIKE if_t100_message=>t100key OPTIONAL 10 | text1 TYPE csequence OPTIONAL 11 | text2 TYPE csequence OPTIONAL 12 | text3 TYPE csequence OPTIONAL 13 | text4 TYPE csequence OPTIONAL 14 | !previous LIKE previous OPTIONAL. 15 | 16 | PROTECTED SECTION. 17 | 18 | PRIVATE SECTION. 19 | 20 | ENDCLASS. 21 | 22 | 23 | 24 | CLASS zcx_adu_transform IMPLEMENTATION. 25 | 26 | 27 | METHOD constructor ##ADT_SUPPRESS_GENERATION. 28 | 29 | super->constructor( textid = textid 30 | text1 = text1 31 | text2 = text2 32 | text3 = text3 33 | text4 = text4 34 | previous = previous ). 35 | 36 | ENDMETHOD. 37 | 38 | 39 | ENDCLASS. 40 | -------------------------------------------------------------------------------- /src/transform/zcx_adu_transform.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCX_ADU_TRANSFORM 7 | E 8 | Transformer exception 9 | 40 10 | 1 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | CONSTRUCTOR 18 | E 19 | CONSTRUCTOR 20 | 21 | 22 | 23 | 24 | 25 | -------------------------------------------------------------------------------- /src/transform/zif_adu_transform.intf.abap: -------------------------------------------------------------------------------- 1 | INTERFACE zif_adu_transform 2 | PUBLIC. 3 | 4 | METHODS create_result_type 5 | RETURNING VALUE(result) TYPE REF TO data 6 | RAISING zcx_adu_transform. 7 | 8 | METHODS move_results 9 | IMPORTING !input TYPE any 10 | EXPORTING !output TYPE any 11 | RAISING zcx_adu_transform. 12 | 13 | ENDINTERFACE. 14 | -------------------------------------------------------------------------------- /src/transform/zif_adu_transform.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_TRANSFORM 7 | E 8 | Transformer 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/zadu_crud_ind.doma.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_CRUD_IND 7 | E 8 | CHAR 9 | 000001 10 | 000001 11 | X 12 | CRUD Indicator 13 | E 14 | 15 | 16 | 17 | 0001 18 | E 19 | C 20 | Create 21 | 22 | 23 | 0002 24 | E 25 | R 26 | Read 27 | 28 | 29 | 0003 30 | E 31 | U 32 | Update 33 | 34 | 35 | 0004 36 | E 37 | D 38 | Delete 39 | 40 | 41 | 42 | S 43 | 44 | 45 | 46 | S 47 | Indicador CRUD 48 | 49 | 50 | 51 | 52 | 0001 53 | S 54 | C 55 | Crear 56 | 57 | 58 | 0002 59 | S 60 | R 61 | Leer 62 | 63 | 64 | 0003 65 | S 66 | U 67 | Actualizar 68 | 69 | 70 | 0004 71 | S 72 | D 73 | Eliminar 74 | 75 | 76 | 77 | 78 | 79 | -------------------------------------------------------------------------------- /src/zadu_crud_ind.dtel.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_CRUD_IND 7 | E 8 | ZADU_CRUD_IND 9 | 55 10 | 10 11 | 20 12 | 40 13 | CRUD Indicator 14 | CRUD Indicator 15 | CRUD Ind. 16 | CRUD Indicator 17 | CRUD Indicator 18 | E 19 | D 20 | 21 | 22 | S 23 | 24 | 25 | 26 | S 27 | Indicador CRUD 28 | Indicador CRUD 29 | Ind. CRUD 30 | Indicador CRUD 31 | Indicador CRUD 32 | 33 | 34 | 35 | 36 | 37 | -------------------------------------------------------------------------------- /src/zadu_messages.msag.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_MESSAGES 7 | E 8 | Messages 9 | 10 | 11 | 12 | E 13 | ZADU_MESSAGES 14 | 001 15 | &1 &2 (&3 line &4) 16 | 17 | 18 | E 19 | ZADU_MESSAGES 20 | 002 21 | Data type not compatible. 22 | 23 | 24 | E 25 | ZADU_MESSAGES 26 | 999 27 | &1&2&3&4 28 | 29 | 30 | 31 | S 32 | 33 | 34 | 35 | S 36 | ZADU_MESSAGES 37 | Mensajes 38 | 39 | 40 | 41 | 42 | S 43 | 001 44 | &1 &2 (&3 línea &4) 45 | 46 | 47 | S 48 | 002 49 | El tipo de datos no es compatible. 50 | 51 | 52 | S 53 | 999 54 | &1&2&3&4 55 | 56 | 57 | 58 | 59 | 60 | -------------------------------------------------------------------------------- /src/zadu_oo_serializ.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_OO_SERIALIZ 7 | E 8 | TRANSP 9 | X 10 | Serialization objects 11 | E 12 | A 13 | 1 14 | 15 | 16 | ZADU_OO_SERIALIZ 17 | A 18 | 0 19 | APPL0 20 | N 21 | 22 | 23 | 24 | CLIENT 25 | X 26 | 0 27 | C 28 | 000006 29 | X 30 | CLNT 31 | 000003 32 | CLNT 33 | 34 | 35 | TIMESTAMP 36 | X 37 | TIMESTAMPL 38 | 0 39 | X 40 | E 41 | 42 | 43 | TYPE 44 | X 45 | 0 46 | C 47 | 000040 48 | X 49 | CHAR 50 | 000020 51 | CHAR 52 | Type 53 | 54 | 55 | CODE 56 | X 57 | 0 58 | C 59 | 000040 60 | X 61 | CHAR 62 | 000020 63 | CHAR 64 | Code 65 | 66 | 67 | OBJECT 68 | 0 69 | g 70 | 000008 71 | STRG 72 | STRG 73 | Serialized object 74 | 75 | 76 | 77 | S 78 | 79 | 80 | 81 | S 82 | Serialización de objetos 83 | 84 | 85 | 86 | 87 | 88 | -------------------------------------------------------------------------------- /src/zadu_oo_serialize.msag.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_OO_SERIALIZE 7 | E 8 | Serialization objects 9 | 10 | 11 | 12 | E 13 | ZADU_OO_SERIALIZE 14 | 001 15 | Type is empty 16 | 17 | 18 | E 19 | ZADU_OO_SERIALIZE 20 | 002 21 | Code is empty 22 | 23 | 24 | E 25 | ZADU_OO_SERIALIZE 26 | 003 27 | Error saving data 28 | 29 | 30 | 31 | S 32 | 33 | 34 | 35 | S 36 | ZADU_OO_SERIALIZE 37 | Serialización de objetos 38 | 39 | 40 | 41 | 42 | S 43 | 001 44 | El tipo está vacío 45 | 46 | 47 | S 48 | 002 49 | El código está vacío 50 | 51 | 52 | S 53 | 003 54 | Error guardando datos 55 | 56 | 57 | 58 | 59 | 60 | -------------------------------------------------------------------------------- /src/zadu_run_code.doma.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_RUN_CODE 7 | E 8 | CHAR 9 | 000032 10 | 000032 11 | X 12 | Run Code 13 | E 14 | 15 | 16 | S 17 | 18 | 19 | 20 | S 21 | Código de Ejecución 22 | 23 | 24 | 25 | 26 | 27 | -------------------------------------------------------------------------------- /src/zadu_run_code.dtel.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_RUN_CODE 7 | E 8 | ZADU_RUN_CODE 9 | 55 10 | 10 11 | 20 12 | 40 13 | Run Code 14 | Run Code 15 | Run Code 16 | Run Code 17 | Run Code 18 | E 19 | D 20 | 21 | 22 | S 23 | 24 | 25 | 26 | S 27 | Código de Ejecución 28 | Código de Ejecución 29 | Cód. Ejec. 30 | Código de Ejecución 31 | Código de Ejecución 32 | 33 | 34 | 35 | 36 | 37 | -------------------------------------------------------------------------------- /src/zadu_s_gos_attachment.tabl.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_S_GOS_ATTACHMENT 7 | E 8 | INTTAB 9 | X 10 | GOS Attachment 11 | E 12 | 1 13 | 14 | 15 | 16 | .INCLUDE 17 | 0 18 | GOS_S_ATTCONT 19 | S 20 | GOS API: Structure for Attachment and Content 21 | S 22 | ATTACHMENT 23 | 24 | 25 | MIMETYPE 26 | W3CONTTYPE 27 | 0 28 | E 29 | 30 | 31 | 32 | S 33 | 34 | 35 | 36 | S 37 | Adjuntos GOS 38 | 39 | 40 | 41 | 42 | 43 | -------------------------------------------------------------------------------- /src/zadu_sdf_teap_envi_status.dtel.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_SDF_TEAP_ENVI_STATUS 7 | E 8 | ZADU_SDF_TEAP_ENVI_STATUS 9 | 25 10 | 10 11 | 15 12 | 20 13 | CDMC: CTS Comparison Status of the Object 14 | Comparison Status 15 | Status 16 | Comp Status 17 | Comparision Status 18 | E 19 | D 20 | 21 | 22 | D 23 | S 24 | 25 | 26 | 27 | D 28 | CDMC: CTS-Vergleichsstatus des Objekts 29 | Vergleichsstatus 30 | Status 31 | Vergl.-Status 32 | Vergleichsstatus 33 | 34 | 35 | S 36 | CDMC: Estado de comparación CTS de objeto 37 | Estado de comparación 38 | Estado 39 | Estado compar. 40 | Estado comparación 41 | 42 | 43 | 44 | 45 | 46 | -------------------------------------------------------------------------------- /src/zadu_t_gos_attachment.ttyp.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZADU_T_GOS_ATTACHMENT 7 | E 8 | ZADU_S_GOS_ATTACHMENT 9 | S 10 | STRU 11 | T 12 | D 13 | N 14 | GOS Attachments 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /src/zcl_adu_apack.clas.abap: -------------------------------------------------------------------------------- 1 | "!

ABAP Development Utilities APACK

2 | CLASS zcl_adu_apack DEFINITION 3 | PUBLIC FINAL 4 | CREATE PUBLIC. 5 | 6 | PUBLIC SECTION. 7 | INTERFACES if_apack_manifest. 8 | 9 | CONSTANTS gc_version TYPE string VALUE '2.0.0' ##NO_TEXT. 10 | CONSTANTS gc_group TYPE string VALUE 'github.com/jrodriguez-rc' ##NO_TEXT. 11 | CONSTANTS gc_artifact_id TYPE string VALUE 'abap-dev-utilities' ##NO_TEXT. 12 | CONSTANTS gc_repository TYPE string VALUE 'https://github.com/jrodriguez-rc/abap-dev-utilities.git' ##NO_TEXT. 13 | 14 | "!

CONSTRUCTOR

15 | "! 16 | METHODS constructor. 17 | 18 | PROTECTED SECTION. 19 | 20 | PRIVATE SECTION. 21 | 22 | ENDCLASS. 23 | 24 | 25 | 26 | CLASS zcl_adu_apack IMPLEMENTATION. 27 | 28 | 29 | METHOD constructor. 30 | 31 | if_apack_manifest~descriptor = VALUE #( group_id = gc_group 32 | artifact_id = gc_artifact_id 33 | version = gc_version 34 | git_url = gc_repository ). 35 | 36 | ENDMETHOD. 37 | 38 | 39 | ENDCLASS. 40 | -------------------------------------------------------------------------------- /src/zcl_adu_apack.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_APACK 7 | E 8 | ABAP Development Utilities APACK 9 | 1 10 | X 11 | X 12 | X 13 | 14 | 15 | 16 | S 17 | ABAP Development Utilities APACK 18 | 19 | 20 | 21 | 22 | CONSTRUCTOR 23 | E 24 | CONSTRUCTOR 25 | 26 | 27 | CONSTRUCTOR 28 | S 29 | CONSTRUCTOR 30 | 31 | 32 | 33 | 34 | 35 | -------------------------------------------------------------------------------- /src/zcl_adu_convert.clas.abap: -------------------------------------------------------------------------------- 1 | CLASS zcl_adu_convert DEFINITION 2 | PUBLIC FINAL 3 | CREATE PRIVATE. 4 | 5 | PUBLIC SECTION. 6 | 7 | CLASS-DATA time TYPE REF TO zif_adu_convert_time READ-ONLY. 8 | 9 | CLASS-METHODS class_constructor. 10 | 11 | PROTECTED SECTION. 12 | 13 | PRIVATE SECTION. 14 | 15 | ENDCLASS. 16 | 17 | 18 | 19 | CLASS zcl_adu_convert IMPLEMENTATION. 20 | 21 | 22 | METHOD class_constructor. 23 | 24 | time = NEW lcl_time( ). 25 | 26 | ENDMETHOD. 27 | 28 | 29 | ENDCLASS. 30 | -------------------------------------------------------------------------------- /src/zcl_adu_convert.clas.locals_imp.abap: -------------------------------------------------------------------------------- 1 | CLASS lcl_time DEFINITION FINAL. 2 | 3 | PUBLIC SECTION. 4 | 5 | INTERFACES zif_adu_convert_time. 6 | 7 | PROTECTED SECTION. 8 | 9 | PRIVATE SECTION. 10 | 11 | CONSTANTS gc_day_in_sec TYPE i VALUE 86400. 12 | 13 | ENDCLASS. 14 | 15 | 16 | 17 | CLASS lcl_time IMPLEMENTATION. 18 | 19 | 20 | METHOD zif_adu_convert_time~timestamp_abap_to_java. 21 | 22 | " Based on CL_PCO_UTILITY=>CONVERT_ABAP_TIMESTAMP_TO_JAVA 23 | 24 | CONVERT TIME STAMP iv_timestamp TIME ZONE '' INTO DATE DATA(lv_current_date) TIME DATA(lv_current_time). 25 | 26 | " Milliseconds for the days since January 1, 1970, 00:00:00 GMT 27 | " one day has 86400 seconds 28 | DATA(lv_date) = CONV d( '19700101' ). 29 | DATA(lv_days_i) = lv_current_date - lv_date. 30 | 31 | " Timestamp for passed days until today in seconds 32 | DATA(lv_days_timestamp) = CONV timestampl( lv_days_i * gc_day_in_sec ). 33 | 34 | DATA(lv_sec_i) = CONV i( lv_current_time ). 35 | 36 | " Timestamp for time at present day 37 | DATA(lv_secs_timestamp) = CONV timestampl( lv_sec_i ). 38 | 39 | rv_result = lv_days_timestamp + lv_secs_timestamp. 40 | 41 | ENDMETHOD. 42 | 43 | 44 | METHOD zif_adu_convert_time~timestamp_abap_to_java_msec. 45 | 46 | DATA lv_dummy TYPE string ##NEEDED. 47 | 48 | DATA(lv_timestamp) = zif_adu_convert_time~timestamp_abap_to_java( iv_timestamp ). 49 | 50 | lv_timestamp = lv_timestamp * 1000. 51 | 52 | DATA(lv_miliseconds) = ( iv_timestamp MOD 1 ) * 1000. 53 | 54 | SPLIT |{ lv_timestamp }| AT '.' INTO DATA(lv_java_timestamp) lv_dummy. 55 | 56 | rv_result = lv_java_timestamp + CONV i( lv_miliseconds ). 57 | 58 | ENDMETHOD. 59 | 60 | 61 | METHOD zif_adu_convert_time~timestamp_java_to_abap. 62 | 63 | " Based on CL_PCO_UTILITY=>CONVERT_JAVA_TIMESTAMP_TO_ABAP 64 | 65 | " IV_TIMESTAMP stores milliseconds since January 1, 1970, 00:00:00 GMT 66 | DATA(lv_timestamp) = SWITCH timestampl( strlen( |{ iv_timestamp }| ) " timestamp in seconds 67 | WHEN 10 THEN iv_timestamp 68 | WHEN 13 THEN iv_timestamp / 1000 ). 69 | 70 | " One day has 86400 seconds: Timestamp in days 71 | DATA(lv_days_i) = CONV i( lv_timestamp DIV gc_day_in_sec ). 72 | DATA(lv_date) = CONV d( '19700101' ). 73 | DATA(lv_date_result) = CONV d( lv_date + lv_days_i ). 74 | 75 | " Rest seconds (timestamp - days) 76 | DATA(lv_sec_i) = CONV i( lv_timestamp MOD gc_day_in_sec ). 77 | DATA(lv_time_result) = CONV t( lv_sec_i ). 78 | 79 | " Rest sec and milli seconds 80 | DATA(lv_timsmsec) = CONV timestampl( lv_timestamp MOD gc_day_in_sec ). 81 | lv_timsmsec = lv_timsmsec - lv_sec_i. 82 | 83 | CONVERT DATE lv_date_result TIME lv_time_result INTO TIME STAMP rv_result TIME ZONE ''. 84 | 85 | rv_result = rv_result + lv_timsmsec. 86 | 87 | ENDMETHOD. 88 | 89 | 90 | ENDCLASS. 91 | -------------------------------------------------------------------------------- /src/zcl_adu_convert.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_CONVERT 7 | E 8 | Convert 9 | 1 10 | X 11 | X 12 | X 13 | 14 | 15 | 16 | 17 | -------------------------------------------------------------------------------- /src/zcl_adu_email.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_EMAIL 7 | E 8 | Email utilities 9 | 1 10 | X 11 | X 12 | X 13 | 14 | 15 | 16 | S 17 | Utilidades email 18 | 19 | 20 | 21 | 22 | 23 | -------------------------------------------------------------------------------- /src/zcl_adu_general.clas.testclasses.abap: -------------------------------------------------------------------------------- 1 | CLASS ltcl_structure_test DEFINITION FINAL 2 | FOR TESTING 3 | RISK LEVEL HARMLESS 4 | DURATION SHORT. 5 | 6 | PUBLIC SECTION. 7 | 8 | PRIVATE SECTION. 9 | METHODS components_from_simple_struc FOR TESTING 10 | RAISING zcx_adu_messages. 11 | 12 | METHODS components_from_complex_struc FOR TESTING 13 | RAISING zcx_adu_messages. 14 | 15 | ENDCLASS. 16 | 17 | CLASS ltcl_structure_test IMPLEMENTATION. 18 | 19 | 20 | METHOD components_from_simple_struc. 21 | 22 | DATA(utility) = zcl_adu_general=>get_instance( ). 23 | 24 | DATA(components) = utility->get_structure_fields( structure_name = 'BAPIRET2' ). 25 | 26 | cl_abap_unit_assert=>assert_equals( act = lines( components ) 27 | exp = 14 ). 28 | 29 | ENDMETHOD. 30 | 31 | 32 | METHOD components_from_complex_struc. 33 | 34 | DATA: 35 | BEGIN OF ls_complex_struc. 36 | INCLUDE TYPE bapiret2. 37 | DATA: 38 | structure TYPE bapiret2, 39 | field_test TYPE string, 40 | END OF ls_complex_struc. 41 | 42 | DATA(utility) = zcl_adu_general=>get_instance( ). 43 | 44 | DATA(components) = 45 | utility->get_structure_fields( 46 | structure_description = CAST #( cl_abap_datadescr=>describe_by_data( ls_complex_struc ) ) ). 47 | 48 | cl_abap_unit_assert=>assert_equals( act = lines( components ) 49 | exp = 16 ). 50 | 51 | ENDMETHOD. 52 | 53 | 54 | ENDCLASS. 55 | -------------------------------------------------------------------------------- /src/zcl_adu_general.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_GENERAL 7 | E 8 | General utilities 9 | 1 10 | X 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | S 18 | Utilidades generales 19 | 20 | 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /src/zcl_adu_gos.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_GOS 7 | E 8 | GOS Attachments 9 | 1 10 | X 11 | X 12 | X 13 | 14 | 15 | 16 | S 17 | Adjuntos GOS 18 | 19 | 20 | 21 | 22 | 23 | -------------------------------------------------------------------------------- /src/zcl_adu_messages.clas.testclasses.abap: -------------------------------------------------------------------------------- 1 | CLASS ltcl_system_messages DEFINITION FINAL 2 | FOR TESTING 3 | RISK LEVEL HARMLESS 4 | DURATION SHORT. 5 | 6 | PUBLIC SECTION. 7 | 8 | PRIVATE SECTION. 9 | METHODS with_message FOR TESTING 10 | RAISING zcx_adu_messages. 11 | 12 | METHODS without_message FOR TESTING 13 | RAISING zcx_adu_messages. 14 | 15 | ENDCLASS. 16 | 17 | 18 | CLASS ltcl_system_messages IMPLEMENTATION. 19 | 20 | 21 | METHOD without_message. 22 | 23 | NEW zcl_adu_messages( )->add_exception( NEW zcx_adu_messages( ) ). 24 | 25 | cl_abap_unit_assert=>assert_initial( sy-msgty ). 26 | cl_abap_unit_assert=>assert_initial( sy-msgid ). 27 | cl_abap_unit_assert=>assert_initial( sy-msgno ). 28 | cl_abap_unit_assert=>assert_initial( sy-msgv1 ). 29 | cl_abap_unit_assert=>assert_initial( sy-msgv2 ). 30 | cl_abap_unit_assert=>assert_initial( sy-msgv3 ). 31 | cl_abap_unit_assert=>assert_initial( sy-msgv4 ). 32 | 33 | ENDMETHOD. 34 | 35 | 36 | METHOD with_message. 37 | 38 | MESSAGE ID zcx_adu_messages=>data_type_not_compatible-msgid 39 | TYPE 'E' 40 | NUMBER zcx_adu_messages=>data_type_not_compatible-msgno 41 | INTO DATA(null). 42 | 43 | NEW zcl_adu_messages( )->add_exception( NEW zcx_adu_messages( ) ). 44 | 45 | cl_abap_unit_assert=>assert_equals( act = sy-msgty 46 | exp = 'E' ). 47 | 48 | cl_abap_unit_assert=>assert_equals( act = sy-msgid 49 | exp = zcx_adu_messages=>data_type_not_compatible-msgid ). 50 | 51 | cl_abap_unit_assert=>assert_equals( act = sy-msgno 52 | exp = zcx_adu_messages=>data_type_not_compatible-msgno ). 53 | 54 | ENDMETHOD. 55 | 56 | 57 | ENDCLASS. 58 | -------------------------------------------------------------------------------- /src/zcl_adu_messages.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_MESSAGES 7 | E 8 | Messages 9 | 1 10 | X 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | S 18 | Mensajes 19 | 20 | 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /src/zcl_adu_oo_serialize.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_OO_SERIALIZE 7 | E 8 | Serialize: Check Transport 9 | 1 10 | X 11 | X 12 | X 13 | 14 | 15 | 16 | S 17 | Serialización: Validación de Transporte 18 | 19 | 20 | 21 | 22 | 23 | -------------------------------------------------------------------------------- /src/zcl_adu_run_atc.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_RUN_ATC 7 | E 8 | Run ABAP Test Cockpit checks 9 | 1 10 | X 11 | X 12 | X 13 | 14 | 15 | 16 | S 17 | Ejecutar validaciones ABAP Test Cockpit 18 | 19 | 20 | 21 | 22 | 23 | -------------------------------------------------------------------------------- /src/zcl_adu_table_pack.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_TABLE_PACK 7 | E 8 | Table packet 9 | 1 10 | X 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | S 18 | Paquete de tablas 19 | 20 | 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /src/zcl_adu_texts.clas.testclasses.abap: -------------------------------------------------------------------------------- 1 | CLASS ltcl_itf DEFINITION FINAL 2 | FOR TESTING 3 | RISK LEVEL HARMLESS 4 | DURATION SHORT. 5 | 6 | PRIVATE SECTION. 7 | METHODS itf_to_string FOR TESTING. 8 | 9 | ENDCLASS. 10 | 11 | 12 | CLASS ltcl_itf IMPLEMENTATION. 13 | 14 | 15 | METHOD itf_to_string. 16 | 17 | DATA(lv_expected) = 18 | `Line 1 ` && 19 | ` ` && 20 | `Still on line 1 ` && 21 | ` ` && 22 | `Still on line 1` && 23 | cl_abap_char_utilities=>newline && 24 | `Line 2 ` && 25 | ` ` && 26 | `Still on line 2` && 27 | cl_abap_char_utilities=>newline && 28 | `Line 3`. 29 | 30 | DATA(lv_string) = 31 | zcl_adu_texts=>get( )->itf_to_string( VALUE #( ( tdformat = '*' tdline = 'Line 1' ) 32 | ( tdformat = ' ' tdline = 'Still on line 1' ) 33 | ( tdformat = ' ' tdline = 'Still on line 1' ) 34 | ( tdformat = '/' tdline = 'Line 2' ) 35 | ( tdformat = ' ' tdline = 'Still on line 2' ) 36 | ( tdformat = '*' tdline = 'Line 3' ) ) ). 37 | 38 | cl_abap_unit_assert=>assert_equals( act = lv_string exp = lv_expected ). 39 | 40 | ENDMETHOD. 41 | 42 | 43 | ENDCLASS. 44 | -------------------------------------------------------------------------------- /src/zcl_adu_texts.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCL_ADU_TEXTS 7 | E 8 | Text processing 9 | 1 10 | X 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | S 18 | Procesamiento de textos 19 | 20 | 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /src/zcx_adu_messages.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCX_ADU_MESSAGES 7 | E 8 | Messages Exceptions 9 | 40 10 | 1 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | S 18 | Excepciones de Mensajes 19 | 20 | 21 | 22 | 23 | CONSTRUCTOR 24 | E 25 | CONSTRUCTOR 26 | 27 | 28 | CONSTRUCTOR 29 | S 30 | CONSTRUCTOR 31 | 32 | 33 | RAISE_SYSTEM 34 | E 35 | Raise exception with system attribute message 36 | 37 | 38 | RAISE_SYSTEM 39 | S 40 | Lanzar excepción con mensaje de atributo del sistema 41 | 42 | 43 | 44 | 45 | RAISE_SYSTEM 46 | ZCX_ADU_MESSAGES 47 | E 48 | Exception 49 | 50 | 51 | RAISE_SYSTEM 52 | ZCX_ADU_MESSAGES 53 | S 54 | Excepción 55 | 56 | 57 | 58 | 59 | 60 | -------------------------------------------------------------------------------- /src/zcx_adu_oo_serialize.clas.abap: -------------------------------------------------------------------------------- 1 | "!

Serialization objects

2 | CLASS zcx_adu_oo_serialize DEFINITION 3 | PUBLIC 4 | INHERITING FROM zcx_adu_static_check 5 | CREATE PUBLIC. 6 | 7 | PUBLIC SECTION. 8 | 9 | CONSTANTS: 10 | "! Type is empty 11 | BEGIN OF type_is_empty, 12 | msgid TYPE symsgid VALUE 'ZADU_OO_SERIALIZE' ##NO_TEXT, 13 | msgno TYPE symsgno VALUE '001' ##NO_TEXT, 14 | attr1 TYPE scx_attrname VALUE 'TEXT1' ##NO_TEXT, 15 | attr2 TYPE scx_attrname VALUE 'TEXT2' ##NO_TEXT, 16 | attr3 TYPE scx_attrname VALUE 'TEXT3' ##NO_TEXT, 17 | attr4 TYPE scx_attrname VALUE 'TEXT4' ##NO_TEXT, 18 | END OF type_is_empty. 19 | 20 | CONSTANTS: 21 | "! Code is empty 22 | BEGIN OF code_is_empty, 23 | msgid TYPE symsgid VALUE 'ZADU_OO_SERIALIZE' ##NO_TEXT, 24 | msgno TYPE symsgno VALUE '002' ##NO_TEXT, 25 | attr1 TYPE scx_attrname VALUE 'TEXT1' ##NO_TEXT, 26 | attr2 TYPE scx_attrname VALUE 'TEXT2' ##NO_TEXT, 27 | attr3 TYPE scx_attrname VALUE 'TEXT3' ##NO_TEXT, 28 | attr4 TYPE scx_attrname VALUE 'TEXT4' ##NO_TEXT, 29 | END OF code_is_empty. 30 | 31 | CONSTANTS: 32 | "! Error saving data 33 | BEGIN OF error_saving_data, 34 | msgid TYPE symsgid VALUE 'ZADU_OO_SERIALIZE' ##NO_TEXT, 35 | msgno TYPE symsgno VALUE '003' ##NO_TEXT, 36 | attr1 TYPE scx_attrname VALUE 'TEXT1' ##NO_TEXT, 37 | attr2 TYPE scx_attrname VALUE 'TEXT2' ##NO_TEXT, 38 | attr3 TYPE scx_attrname VALUE 'TEXT3' ##NO_TEXT, 39 | attr4 TYPE scx_attrname VALUE 'TEXT4' ##NO_TEXT, 40 | END OF error_saving_data. 41 | 42 | "!

Raise exception with system attribute message

43 | "! 44 | "! @raising zcx_adu_oo_serialize |

Exception

45 | CLASS-METHODS raise_system 46 | RAISING zcx_adu_oo_serialize. 47 | 48 | "!

CONSTRUCTOR

49 | METHODS constructor 50 | IMPORTING textid LIKE if_t100_message=>t100key OPTIONAL 51 | text1 TYPE csequence OPTIONAL 52 | text2 TYPE csequence OPTIONAL 53 | text3 TYPE csequence OPTIONAL 54 | text4 TYPE csequence OPTIONAL 55 | !previous LIKE previous OPTIONAL. 56 | 57 | PROTECTED SECTION. 58 | 59 | PRIVATE SECTION. 60 | 61 | ENDCLASS. 62 | 63 | 64 | 65 | CLASS zcx_adu_oo_serialize IMPLEMENTATION. 66 | 67 | 68 | METHOD constructor ##ADT_SUPPRESS_GENERATION. 69 | 70 | super->constructor( textid = textid 71 | text1 = text1 72 | text2 = text2 73 | text3 = text3 74 | text4 = text4 75 | previous = previous ). 76 | 77 | ENDMETHOD. 78 | 79 | 80 | METHOD raise_system. 81 | 82 | RAISE EXCEPTION TYPE zcx_adu_oo_serialize 83 | EXPORTING 84 | textid = get_system_textid( ) 85 | text1 = sy-msgv1 86 | text2 = sy-msgv2 87 | text3 = sy-msgv3 88 | text4 = sy-msgv4. 89 | 90 | ENDMETHOD. 91 | 92 | 93 | ENDCLASS. 94 | -------------------------------------------------------------------------------- /src/zcx_adu_oo_serialize.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCX_ADU_OO_SERIALIZE 7 | E 8 | Serialization objects 9 | 40 10 | 1 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | S 18 | Serialización de objetos 19 | 20 | 21 | 22 | 23 | CONSTRUCTOR 24 | E 25 | CONSTRUCTOR 26 | 27 | 28 | CONSTRUCTOR 29 | S 30 | CONSTRUCTOR 31 | 32 | 33 | RAISE_SYSTEM 34 | E 35 | Raise exception with system attribute message 36 | 37 | 38 | RAISE_SYSTEM 39 | S 40 | Lanzar excepción con mensaje de atributo del sistema 41 | 42 | 43 | 44 | 45 | RAISE_SYSTEM 46 | ZCX_ADU_OO_SERIALIZE 47 | E 48 | Exception 49 | 50 | 51 | 52 | 53 | 54 | -------------------------------------------------------------------------------- /src/zcx_adu_static_check.clas.abap: -------------------------------------------------------------------------------- 1 | CLASS zcx_adu_static_check DEFINITION 2 | PUBLIC 3 | INHERITING FROM cx_static_check 4 | CREATE PUBLIC. 5 | 6 | PUBLIC SECTION. 7 | INTERFACES if_t100_message. 8 | 9 | DATA text1 TYPE string READ-ONLY. 10 | DATA text2 TYPE string READ-ONLY. 11 | DATA text3 TYPE string READ-ONLY. 12 | DATA text4 TYPE string READ-ONLY. 13 | 14 | CLASS-METHODS get_system_textid 15 | RETURNING VALUE(result) TYPE scx_t100key. 16 | 17 | METHODS constructor 18 | IMPORTING textid LIKE if_t100_message=>t100key OPTIONAL 19 | text1 TYPE csequence OPTIONAL 20 | text2 TYPE csequence OPTIONAL 21 | text3 TYPE csequence OPTIONAL 22 | text4 TYPE csequence OPTIONAL 23 | !previous LIKE previous OPTIONAL. 24 | 25 | PROTECTED SECTION. 26 | 27 | PRIVATE SECTION. 28 | 29 | ENDCLASS. 30 | 31 | 32 | 33 | CLASS zcx_adu_static_check IMPLEMENTATION. 34 | 35 | 36 | METHOD get_system_textid. 37 | 38 | result-msgid = sy-msgid. 39 | result-msgno = sy-msgno. 40 | result-attr1 = 'TEXT1'. 41 | result-attr2 = 'TEXT2'. 42 | result-attr3 = 'TEXT3'. 43 | result-attr4 = 'TEXT4'. 44 | 45 | ENDMETHOD. 46 | 47 | 48 | METHOD constructor ##ADT_SUPPRESS_GENERATION. 49 | 50 | super->constructor( previous = previous ). 51 | 52 | me->text1 = text1. 53 | me->text2 = text2. 54 | me->text3 = text3. 55 | me->text4 = text4. 56 | 57 | CLEAR me->textid. 58 | IF textid IS INITIAL. 59 | if_t100_message~t100key = if_t100_message=>default_textid. 60 | ELSE. 61 | if_t100_message~t100key = textid. 62 | ENDIF. 63 | 64 | ENDMETHOD. 65 | 66 | 67 | ENDCLASS. 68 | -------------------------------------------------------------------------------- /src/zcx_adu_static_check.clas.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZCX_ADU_STATIC_CHECK 7 | E 8 | Static Check Exception 9 | 40 10 | 1 11 | X 12 | X 13 | X 14 | 15 | 16 | 17 | S 18 | Excepción de comprobación estática 19 | 20 | 21 | 22 | 23 | CONSTRUCTOR 24 | E 25 | CONSTRUCTOR 26 | 27 | 28 | CONSTRUCTOR 29 | S 30 | CONSTRUCTOR 31 | 32 | 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /src/zif_adu_constants.intf.abap: -------------------------------------------------------------------------------- 1 | "!

Constants

2 | INTERFACE zif_adu_constants 3 | PUBLIC. 4 | 5 | CONSTANTS: 6 | "!

C (Create) - R (Read) - U (Update) - D (Delete)

7 | BEGIN OF crud, 8 | create TYPE zadu_crud_ind VALUE 'C' ##NO_TEXT, 9 | read TYPE zadu_crud_ind VALUE 'R' ##NO_TEXT, 10 | update TYPE zadu_crud_ind VALUE 'U' ##NO_TEXT, 11 | delete TYPE zadu_crud_ind VALUE 'D' ##NO_TEXT, 12 | END OF crud. 13 | 14 | CONSTANTS: 15 | BEGIN OF check_cross_reference_status, 16 | only_in_source TYPE zadu_sdf_teap_envi_status VALUE '1' ##NO_TEXT, 17 | only_in_target TYPE zadu_sdf_teap_envi_status VALUE '2' ##NO_TEXT, 18 | different_version TYPE zadu_sdf_teap_envi_status VALUE '3' ##NO_TEXT, 19 | same_version TYPE zadu_sdf_teap_envi_status VALUE '4' ##NO_TEXT, 20 | not_supported TYPE zadu_sdf_teap_envi_status VALUE '5' ##NO_TEXT, 21 | not_in_both_systems TYPE zadu_sdf_teap_envi_status VALUE '6' ##NO_TEXT, 22 | inconsistent_source TYPE zadu_sdf_teap_envi_status VALUE '7' ##NO_TEXT, 23 | locked_target TYPE zadu_sdf_teap_envi_status VALUE '8' ##NO_TEXT, 24 | function_not_fit_in_group TYPE zadu_sdf_teap_envi_status VALUE '9' ##NO_TEXT, 25 | user_inconsistent_source TYPE zadu_sdf_teap_envi_status VALUE 'A' ##NO_TEXT, 26 | END OF check_cross_reference_status. 27 | 28 | CONSTANTS: 29 | BEGIN OF severity, 30 | error TYPE zif_adu_check_transport_reader=>ty_severity VALUE '1' ##NO_TEXT, 31 | warning TYPE zif_adu_check_transport_reader=>ty_severity VALUE '2' ##NO_TEXT, 32 | info TYPE zif_adu_check_transport_reader=>ty_severity VALUE '3' ##NO_TEXT, 33 | END OF severity. 34 | 35 | ENDINTERFACE. 36 | -------------------------------------------------------------------------------- /src/zif_adu_constants.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_CONSTANTS 7 | E 8 | Constants 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | S 16 | Constantes 17 | 18 | 19 | 20 | 21 | CRUD 22 | E 23 | C (Create) - R (Read) - U (Update) - D (Delete) 24 | 25 | 26 | CRUD 27 | S 28 | C (Crear) - R (Leer) - U (Actualizar) - D (Eliminar) 29 | 30 | 31 | 32 | 33 | 34 | -------------------------------------------------------------------------------- /src/zif_adu_convert_time.intf.abap: -------------------------------------------------------------------------------- 1 | INTERFACE zif_adu_convert_time 2 | PUBLIC. 3 | 4 | TYPES ty_epoch TYPE p LENGTH 13 DECIMALS 0. 5 | 6 | METHODS timestamp_abap_to_java 7 | IMPORTING iv_timestamp TYPE timestampl 8 | RETURNING VALUE(rv_result) TYPE ty_epoch. 9 | 10 | METHODS timestamp_abap_to_java_msec 11 | IMPORTING iv_timestamp TYPE timestampl 12 | RETURNING VALUE(rv_result) TYPE ty_epoch. 13 | 14 | METHODS timestamp_java_to_abap 15 | IMPORTING iv_timestamp TYPE ty_epoch 16 | RETURNING VALUE(rv_result) TYPE timestampl. 17 | 18 | ENDINTERFACE. 19 | -------------------------------------------------------------------------------- /src/zif_adu_convert_time.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_CONVERT_TIME 7 | E 8 | Convert time 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/zif_adu_email.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_EMAIL 7 | E 8 | Email utilities 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | S 16 | Utilidades email 17 | 18 | 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /src/zif_adu_exception_dyn_info.intf.abap: -------------------------------------------------------------------------------- 1 | "!

Exception Dynpro information

2 | INTERFACE zif_adu_exception_dyn_info 3 | PUBLIC. 4 | 5 | DATA: 6 | parameter TYPE bapiret2-parameter READ-ONLY, 7 | row TYPE bapiret2-row READ-ONLY, 8 | field TYPE bapiret2-field READ-ONLY. 9 | 10 | ENDINTERFACE. 11 | -------------------------------------------------------------------------------- /src/zif_adu_exception_dyn_info.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_EXCEPTION_DYN_INFO 7 | E 8 | Exception Dynpro information 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | S 16 | Excepción información Dynpro 17 | 18 | 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /src/zif_adu_general.intf.abap: -------------------------------------------------------------------------------- 1 | INTERFACE zif_adu_general 2 | PUBLIC. 3 | 4 | TYPES: 5 | BEGIN OF ty_file_name_extension, 6 | filename TYPE string, 7 | extension TYPE string, 8 | END OF ty_file_name_extension. 9 | 10 | CLASS-METHODS get 11 | RETURNING VALUE(result) TYPE REF TO zif_adu_general. 12 | 13 | METHODS get_structure_fields 14 | IMPORTING structure_name TYPE csequence OPTIONAL 15 | structure_description TYPE REF TO cl_abap_datadescr OPTIONAL 16 | recursive TYPE abap_bool DEFAULT abap_true 17 | RETURNING VALUE(result) TYPE cl_abap_structdescr=>component_table. 18 | 19 | METHODS split_filename_extension 20 | IMPORTING iv_filename TYPE csequence 21 | RETURNING VALUE(result) TYPE ty_file_name_extension. 22 | 23 | METHODS get_timestamp 24 | RETURNING VALUE(result) TYPE timestamp. 25 | 26 | METHODS get_date 27 | RETURNING VALUE(result) TYPE d. 28 | 29 | METHODS get_time 30 | RETURNING VALUE(result) TYPE t. 31 | 32 | METHODS get_system_time_zone 33 | RETURNING VALUE(result) TYPE timezone. 34 | 35 | ENDINTERFACE. 36 | -------------------------------------------------------------------------------- /src/zif_adu_general.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_GENERAL 7 | E 8 | General Utilities 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | 16 | -------------------------------------------------------------------------------- /src/zif_adu_gos.intf.abap: -------------------------------------------------------------------------------- 1 | INTERFACE zif_adu_gos 2 | PUBLIC. 3 | 4 | TYPES: 5 | BEGIN OF ty_file_content, 6 | filename TYPE string, 7 | description TYPE string, 8 | content TYPE string, 9 | content_x TYPE xstring, 10 | END OF ty_file_content, 11 | ty_files_content TYPE STANDARD TABLE OF ty_file_content WITH KEY filename. 12 | 13 | TYPES ty_files_key TYPE STANDARD TABLE OF gos_s_attkey WITH KEY atta_id atta_cat. 14 | 15 | METHODS attach 16 | IMPORTING it_files TYPE ty_files_content 17 | RAISING cx_gos_api. 18 | 19 | METHODS delete 20 | IMPORTING it_files TYPE ty_files_key 21 | RAISING cx_gos_api. 22 | 23 | METHODS get_attachment_list 24 | RETURNING VALUE(result) TYPE gos_t_atta 25 | RAISING cx_gos_api. 26 | 27 | METHODS get_attachment 28 | IMPORTING is_key TYPE gos_s_attkey 29 | RETURNING VALUE(result) TYPE zadu_s_gos_attachment 30 | RAISING cx_gos_api. 31 | 32 | METHODS get_attachments 33 | RETURNING VALUE(result) TYPE zadu_t_gos_attachment 34 | RAISING cx_gos_api. 35 | 36 | METHODS update 37 | IMPORTING it_files TYPE gos_t_attcont 38 | RAISING cx_gos_api. 39 | 40 | ENDINTERFACE. 41 | -------------------------------------------------------------------------------- /src/zif_adu_gos.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_GOS 7 | E 8 | GOS Attachments 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | S 16 | Adjuntos GOS 17 | 18 | 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /src/zif_adu_messages.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_MESSAGES 7 | E 8 | ADU: Messages 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | S 16 | ADU: Mensajes 17 | 18 | 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /src/zif_adu_run_atc.intf.abap: -------------------------------------------------------------------------------- 1 | "!

ABAP Test Cockpit checks

2 | INTERFACE zif_adu_run_atc 3 | PUBLIC . 4 | 5 | TYPES: 6 | BEGIN OF ts_result, 7 | findings TYPE cl_satc_adt_ch_factory=>ty_atc_verdicts, 8 | has_caused_abortion TYPE abap_bool, 9 | END OF ts_result. 10 | 11 | METHODS check 12 | IMPORTING 13 | object_keys TYPE satc_t_r3tr_keys 14 | RETURNING 15 | VALUE(result) TYPE zif_adu_run_atc=>ts_result 16 | RAISING 17 | cx_adt_rest. 18 | 19 | ENDINTERFACE. 20 | -------------------------------------------------------------------------------- /src/zif_adu_run_atc.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_RUN_ATC 7 | E 8 | ABAP Test Cockpit checks 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | S 16 | Validaciones ABAP Test Cockpit 17 | 18 | 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /src/zif_adu_table_pack.intf.abap: -------------------------------------------------------------------------------- 1 | INTERFACE zif_adu_table_pack 2 | PUBLIC. 3 | 4 | METHODS get_next 5 | EXPORTING 6 | et_table TYPE ANY TABLE. 7 | 8 | ENDINTERFACE. 9 | -------------------------------------------------------------------------------- /src/zif_adu_table_pack.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_TABLE_PACK 7 | E 8 | Table packet 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | S 16 | Paquete de tablas 17 | 18 | 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /src/zif_adu_texts.intf.abap: -------------------------------------------------------------------------------- 1 | INTERFACE zif_adu_texts 2 | PUBLIC. 3 | 4 | TYPES: 5 | BEGIN OF ts_tag_replace, 6 | tag TYPE string, 7 | text TYPE string, 8 | END OF ts_tag_replace, 9 | tt_tag_replace TYPE HASHED TABLE OF ts_tag_replace WITH UNIQUE KEY tag. 10 | 11 | CLASS-METHODS get 12 | RETURNING 13 | VALUE(result) TYPE REF TO zif_adu_texts. 14 | 15 | METHODS itf_to_string 16 | IMPORTING 17 | itf TYPE tline_tab 18 | language TYPE sy-langu DEFAULT sy-langu 19 | newline_char TYPE abap_char1 DEFAULT cl_abap_char_utilities=>newline 20 | RETURNING 21 | VALUE(result) TYPE string. 22 | 23 | METHODS itf_to_text_stream 24 | IMPORTING 25 | itf TYPE tline_tab 26 | language TYPE sy-langu DEFAULT sy-langu 27 | RETURNING 28 | VALUE(result) TYPE soli_tab. 29 | 30 | METHODS read_standard_text 31 | IMPORTING 32 | text TYPE tdobname 33 | language TYPE sy-langu DEFAULT sy-langu 34 | tag_replace TYPE zif_adu_texts=>tt_tag_replace OPTIONAL 35 | RETURNING 36 | VALUE(result) TYPE soli_tab. 37 | 38 | METHODS read_standard_text_itf 39 | IMPORTING 40 | text TYPE tdobname 41 | language TYPE sy-langu DEFAULT sy-langu 42 | tag_replace TYPE zif_adu_texts=>tt_tag_replace OPTIONAL 43 | RETURNING 44 | VALUE(result) TYPE tline_tab. 45 | 46 | METHODS read_textpool 47 | IMPORTING 48 | program TYPE program 49 | language TYPE langu DEFAULT sy-langu 50 | RETURNING 51 | VALUE(result) TYPE textpool_table. 52 | 53 | METHODS read_textpool_single 54 | IMPORTING 55 | program TYPE program 56 | id TYPE textpoolid 57 | key TYPE textpoolky 58 | language TYPE langu DEFAULT sy-langu 59 | RETURNING 60 | VALUE(result) TYPE textpooltx. 61 | 62 | METHODS text_string_to_tab 63 | IMPORTING 64 | !text TYPE string 65 | RETURNING 66 | VALUE(result) TYPE soli_tab. 67 | 68 | ENDINTERFACE. 69 | -------------------------------------------------------------------------------- /src/zif_adu_texts.intf.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | ZIF_ADU_TEXTS 7 | E 8 | Text processing 9 | 2 10 | 1 11 | X 12 | 13 | 14 | 15 | S 16 | Procesamiento de textos 17 | 18 | 19 | 20 | 21 | 22 | --------------------------------------------------------------------------------