Skip to content

Instantly share code, notes, and snippets.

View larshp's full-sized avatar
🤷‍♂️
ABAP and more ABAP 拉尔斯

Lars Hvam larshp

🤷‍♂️
ABAP and more ABAP 拉尔斯
View GitHub Profile
@larshp
larshp / ticket.abap
Last active February 25, 2021 15:51
METHOD zif_abapgit_exit~http_client.
DATA: lv_ticket TYPE text4096,
ls_bapiret2 TYPE bapiret2.
* Or create RFC calling function module CREATE_RFC_REENTRANCE_TICKET
CALL FUNCTION '/PLMI/EASYDMS_CREATE_SSOTICKET'
DESTINATION 'SOMETHING'
IMPORTING
ev_ticket = lv_ticket
es_return = ls_bapiret2
Escape::
ExitApp
Return
#n:: ; Windows Key + N
index := 1
text =
Loop, read, C:\Users\Desktop\input.txt
{
Loop, parse, A_LoopReadLine, %A_Tab%
{
INCLUDE mm61xval.
START-OF-SELECTION.
PERFORM run.
FORM run.
DATA: ls_mt61d TYPE mt61d,
ls_cm61x TYPE cm61x,
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)
DATA(lt_plants) = VALUE range_t_werks_d(
FOR ls_plant IN get_plants( )
( option = 'EQ' sign = 'I' low = ls_plant-werks ) ).
REPORT zreentrance_ticket.
START-OF-SELECTION.
PERFORM run.
FORM run.
DATA: lv_ticket TYPE string.
CALL FUNCTION 'CREATE_RFC_REENTRANCE_TICKET'
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
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
larshp / zfib1.abap
Last active October 17, 2017 12:39
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
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.