larshp

REPORT zdelete.

INCLUDE zabapgit_definitions.

TABLES: tdevc.

SELECT-OPTIONS: s_devc FOR tdevc-devclass.

START-OF-SELECTION.
  PERFORM run.

larshp

FORM package USING iv_package TYPE devclass.

  DATA: ls_data TYPE ty_repo,
        lo_repo TYPE REF TO object,
        lv_xstr TYPE xstring,
        lt_zip  TYPE ty_files_item_tt.

  FIELD-SYMBOLS: <ls_zip> LIKE LINE OF lt_zip.

larshp

    cl_message_helper=>check_msg_kind(
      EXPORTING
        msg     = ir_exception    
      IMPORTING
        t100key = DATA(ls_t100key) )
        
        
        
  methods TO_FPM_SEARCH_ERROR
    importing

larshp

REPORT ztest.

START-OF-SELECTION.
  PERFORM run.

FORM run.

  DATA(lt_objects) = VALUE scit_objs( (
    objtype = 'CLAS'
    objname = 'ZCL_CI_ABAP_NAMING' ) ).

larshp

  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.

larshp

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

        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

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

REPORT zreentrance_ticket.

START-OF-SELECTION.
  PERFORM run.

FORM run.

  DATA: lv_ticket TYPE string.

  CALL FUNCTION 'CREATE_RFC_REENTRANCE_TICKET'

larshp

DATA(lt_plants) = VALUE range_t_werks_d(
  FOR ls_plant IN get_plants( )
  ( option = 'EQ' sign = 'I' low = ls_plant-werks ) ).