larshp / local-to-global Goto Github PK

REPORT zwbcrossgt.

START-OF-SELECTION.
  PERFORM run.

FORM run.

  DATA: lt_cross TYPE wbcrossgtt.

  SELECT * FROM wbcrossgt INTO TABLE lt_cross
    WHERE include LIKE 'ZCL_ABAPGIT_%'
    AND name LIKE 'Z%'.
  SELECT * FROM tadir INTO TABLE @DATA(lt_tadir)
    WHERE devclass = '$AGLOBAL'.

  LOOP AT lt_tadir INTO DATA(ls_tadir) WHERE object = 'CLAS'.
    DATA(lt_includes) = cl_oo_classname_service=>get_all_class_includes(
      CONV #( ls_tadir-obj_name ) ).

    LOOP AT lt_includes INTO DATA(lv_include).
      LOOP AT lt_cross ASSIGNING FIELD-SYMBOL(<ls_cross>) WHERE include = lv_include.
        <ls_cross>-include = ls_tadir-obj_name.
      ENDLOOP.
    ENDLOOP.
  ENDLOOP.

  LOOP AT lt_cross ASSIGNING <ls_cross>.
    DATA(lv_index) = sy-tabix.

    IF <ls_cross>-name CA '\'.
      SPLIT <ls_cross>-name AT '\' INTO <ls_cross>-name DATA(lv_foo).
    ENDIF.
    IF <ls_cross>-name = <ls_cross>-include.
      DELETE lt_cross INDEX lv_index.
    ENDIF.
  ENDLOOP.

  SORT lt_cross BY name ASCENDING include ASCENDING.
  DELETE ADJACENT DUPLICATES FROM lt_cross COMPARING name include.

  WRITE: / lines( lt_cross ).

  PERFORM result USING lt_cross.

ENDFORM.

FORM result USING pt_cross TYPE wbcrossgtt.

  DATA: lt_result TYPE STANDARD TABLE OF text200 WITH DEFAULT KEY,
        lv_rc     LIKE sy-subrc.


  LOOP AT pt_cross INTO DATA(ls_cross).
    APPEND |{ ls_cross-include } -> { ls_cross-name }| TO lt_result.
  ENDLOOP.

  cl_gui_frontend_services=>clipboard_export(
    IMPORTING
      data                 = lt_result
    CHANGING
      rc                   = lv_rc
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      no_authority         = 4
      OTHERS               = 5 ).
  IF sy-subrc <> 0.
    WRITE: / 'error', sy-subrc.
  ENDIF.
  WRITE: / lv_rc.

ENDFORM.