Lars Hvam larshp
🤷♂️
larshp
/ MDKP_FIXTR.abap
Created
May 28, 2018 15:41
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| INCLUDE mm61xval. | |
| START-OF-SELECTION. | |
| PERFORM run. | |
| FORM run. | |
| DATA: ls_mt61d TYPE mt61d, | |
| ls_cm61x TYPE cm61x, |
larshp
/ soamanager_logon.abap
Last active
May 3, 2018 11:59
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| DATA(lt_list) = cl_srt_wsp_account_factory=>if_srt_wsp_account_factory~list( ). | |
| DATA(li_account) = cl_srt_wsp_account_factory=>if_srt_wsp_account_factory~get_user_account( | |
| im_user_account_name = 'NAME' | |
| im_user_account_type = 'LOCAL' ). | |
| li_account->get_service_user_credentials( | |
| IMPORTING | |
| ex_username = DATA(lv_username) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| DATA(lt_plants) = VALUE range_t_werks_d( | |
| FOR ls_plant IN get_plants( ) | |
| ( option = 'EQ' sign = 'I' low = ls_plant-werks ) ). | |
larshp
/ zreentrance_ticket.abap
Last active
March 17, 2018 11:49
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| REPORT zreentrance_ticket. | |
| START-OF-SELECTION. | |
| PERFORM run. | |
| FORM run. | |
| DATA: lv_ticket TYPE string. | |
| CALL FUNCTION 'CREATE_RFC_REENTRANCE_TICKET' |
larshp
/ classrun.abap
Created
March 17, 2018 08:50
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL. | |
| PUBLIC SECTION. | |
| INTERFACES: | |
| if_oo_adt_intrnl_classrun PARTIALLY IMPLEMENTED. | |
| PRIVATE SECTION. | |
| METHODS: main FOR TESTING. | |
| ENDCLASS. "ltcl_Test |
larshp
/ openoffice_bootstrap.java
Created
October 25, 2017 12:41
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| List oooOptions = OOoServer.getDefaultOOoOptions(); | |
| oooOptions.add("-nofirststartwizard"); | |
| oooOptions.add("-headless"); | |
| OOoServer oooServer = new OOoServer(openoffice, oooOptions); | |
| BootstrapSocketConnector bootstrapSocketConnector = new BootstrapSocketConnector(oooServer); | |
| xContext = bootstrapSocketConnector.connect(); |
larshp
/ zfib1.abap
Last active
October 17, 2017 12:39
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| REPORT zfib01. | |
| PARAMETERs: p_n TYPE i DEFAULT 13. | |
| START-of-SELECTION. | |
| PERform run. | |
| DATA: r TYPE i, b. | |
| FORM run. | |
| PERFORM f USING p_n r. | |
| WRITE r. | |
| ENDFORM. | |
| * this form calculates fibonac numbers |
larshp
/ packed_to_hex.abap
Last active
January 17, 2022 15:52
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| METHOD convert. | |
| DATA lv_packed TYPE p LENGTH 4. | |
| FIELD-SYMBOLS <lv_hex> TYPE x. | |
| lv_packed = iv_int. | |
| ASSIGN lv_packed TO <lv_hex> CASTING TYPE x. | |
| rv_xstr = <lv_hex>. | |
| ENDMETHOD. |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| REPORT ztest. | |
| START-OF-SELECTION. | |
| PERFORM run. | |
| FORM run. | |
| DATA(lt_objects) = VALUE scit_objs( ( | |
| objtype = 'CLAS' | |
| objname = 'ZCL_CI_ABAP_NAMING' ) ). |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| cl_message_helper=>check_msg_kind( | |
| EXPORTING | |
| msg = ir_exception | |
| IMPORTING | |
| t100key = DATA(ls_t100key) ) | |
| methods TO_FPM_SEARCH_ERROR | |
| importing |