Number of lines of an ABAP

Question

Hello ,
I need a hitlist of customer programms with the most numbers of lines, or programmes with more than 5.000 lines of coding.
Is there a table ?
Which table holds the coding ?
Thanks for any answer you know.
Cheers
Simone

Answer 1

Hello Simone
Below you find a variation of my previous report adjusted for reading function groups:
*& Report  ZUS_SDN_ABAP_SOURCE_CODE_1
*& Thread: Number of lines of an ABAP
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="817091"></a>
REPORT  zus_sdn_abap_source_code_1.
TYPE-POOLS: sedi, suni.
TABLES: tlibg.
TABLES: tfdir.
DATA: go_source       TYPE REF TO cl_wb_source,
      gs_trkey        TYPE trkey,
      gt_functab      TYPE suni_functab,
      gs_func         LIKE LINE OF gt_functab,
      gd_repid        TYPE sy-repid,
      gt_source       TYPE sedi_source,
      gt_linenumbers  TYPE sedi_linenumbers,
      gd_msg          TYPE bapi_msg.
PARAMETERS:
  p_fugr    TYPE tlibg-area DEFAULT 'ZUS_SDN_ALV_SCREEN'.
START-OF-SELECTION.
  CALL FUNCTION 'FUNCTION_INCLUDE_INFO'
    IMPORTING
      functab                   = gt_functab
*     NAMESPACE                 =
*     PNAME                     =
    CHANGING
*     FUNCNAME                  =
      group                     = p_fugr
*     INCLUDE                   =
    EXCEPTIONS
      function_not_exists       = 1
      include_not_exists        = 2
      group_not_exists          = 3
      no_selections             = 4
      no_function_include       = 5
      OTHERS                    = 6.
  IF sy-subrc NE 0.
    MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    RETURN.
  ENDIF.
  READ TABLE gt_functab INTO gs_func INDEX 1. " just read 1st fm
  CLEAR: gs_trkey.
  SELECT SINGLE * FROM appl_func INTO CORRESPONDING FIELDS OF gs_trkey
    WHERE obj_name = p_fugr.
  CHECK ( syst-subrc = 0 ).
**  gs_trkey-devclass = 'ZUS_SDN1'.
  gs_trkey-obj_type = 'FUGR'.
**  gs_trkey-obj_name = p_fugr.
  gs_trkey-sub_type = 'FUNC'.
  gs_trkey-sub_name = gs_func-funcname.
  gd_repid = gs_func-funcincl.  " include of fm
  CREATE OBJECT go_source
    EXPORTING
      transport_key = gs_trkey
*      source_name = 'ZUS_SDN_ABAP_SOURCE_CODE'
*      modification_mode =
*      abap_editor =
*      method_key =
  CALL METHOD go_source->read_source
    EXPORTING
*      status                        = SPACE
*      toggle_enh_status             = SPACE
      source_name                   = gd_repid
*      initialize_edit_control       = ' '
*      load_from_temp_storage        = 'X'
*      load_from_temp_storage_uncond = SPACE
*      with_conversion               = 'X'
*      mode                          =
*      with_enhancements             = 'X'
*      insert_impl_enh_points        = ' '
*    IMPORTING
*      source_tab                    =
*    CHANGING
*      mod_instance                  =
    EXCEPTIONS
      cancelled                     = 1
      not_found                     = 2
      read_protected                = 3
      enhancement_locked            = 4
      OTHERS                        = 5.
  IF sy-subrc NE 0.
    MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    RETURN.
  ENDIF.
  CALL METHOD go_source->get_source_tab
*    EXPORTING
*      use_attribute = space
*      use_control   = space
    IMPORTING
      SOURCE        = gt_source.
**  CALL METHOD go_source->get_linenumbers
**    IMPORTING
**      linenum = gt_linenumbers.
**  DESCRIBE TABLE gt_linenumbers.
  DESCRIBE TABLE gt_source.
  IF ( syst-tfill > 50 ).
    CONCATENATE 'FB' gs_func-funcname
                'contains > 50 coding lines'
      INTO gd_msg SEPARATED BY space.
    MESSAGE gd_msg TYPE 'I'.
  ENDIF.
END-OF-SELECTION.
Regards
  Uwe