how many lines of custom ABAP code are inside your system?

Updated on December 16, 2009: How many lines of custom ABAP code are inside your system? – Part2

Updated on February 5, 2009: out-of-scope section was added

After the Simple ABAP Benchmark , I’m glad to share here in SDN another simple ABAP tool to monitor your system, it is called ZSDN_simple_ABAP_SLOC_COUNT.

Download 

The utility can be downloaded as Slinkee (SAPLINK) from the project home page http://code.google.com/p/abapsloc/ or create a report in SE38 and paste the following code.

Execute it and read the number of lines at the end of the list. 

*&———————————————————————**& Report  ZSDN_SIMPLE_ABAP_SLOC_COUNT*& Author: Andrea Olivieri, Sergio Ferrari*&         Techedge SpA*& Version: 1.0  – 2009/01/20*& Title   How many lines of custom ABAP code are inside your system?*&———————————————————————*REPORT  zsdn_simple_abap_sloc_count_n LINE-SIZE 255.* Global Data Type [ GDT ;-) ]TYPES: BEGIN OF ty_repository,         devclass  TYPE tadir-devclass,         name      TYPE trdir-name,         object    TYPE tadir-object,         srcsystem TYPE tadir-srcsystem,         author    TYPE tadir-author,         subc      TYPE trdir-subc,         sloc      TYPE i,       END OF ty_repository.DATA: l_repository TYPE ty_repository.DATA: t_repository TYPE STANDARD TABLE OF ty_repository.* defining the selection-screenTABLES: tadir.SELECT-OPTIONS: xpack   FOR tadir-devclass,                xobject FOR tadir-object,                xauthor FOR tadir-obj_name.INITIALIZATION.  PERFORM init_select_options.START-OF-SELECTION.  PERFORM get_obj_set.  PERFORM upd_obj_set_count_class_sloc.  PERFORM count_prog_sloc.END-OF-SELECTION.  PERFORM alv.*&———————————————————————**&      Form  init_select_options*&———————————————————————**       INCLUDE OBJECTS:  PROG, FUGR and CLAS*       EXCLUDE PACKAGES: $TMP and from A to W*       EXCLUDE USERS:    SAP, SAP*, DDIC*———————————————————————-*FORM init_select_options.* Include objects: PROG, FUGR and CLAS  IF xobject[] IS INITIAL.    xobject-sign   = ‘I’. xobject-option = ‘EQ’. xobject-low = ‘PROG’. APPEND xobject.    xobject-sign   = ‘I’. xobject-option = ‘EQ’. xobject-low = ‘FUGR’. APPEND xobject.    xobject-sign   = ‘I’. xobject-option = ‘EQ’. xobject-low = ‘CLAS’. APPEND xobject.  ENDIF.* Exclude packages: $TMP and from A to W  IF xpack[] IS INITIAL.    xpack-sign   = ‘E’. xpack-option = ‘BT’. xpack-low = ‘A’. xpack-high = ‘WZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ’. APPEND xpack.    xpack-sign   = ‘E’. xpack-option = ‘EQ’. xpack-low = ‘$TMP’. APPEND xpack.  ENDIF.* Exclude objects belonging to users: SAP* and DDIC  IF xauthor[] IS INITIAL.    xauthor-sign   = ‘E’. xauthor-option = ‘EQ’.     xauthor-low =   ‘SAP’.  APPEND xauthor.    xauthor-sign   = ‘E’. xauthor-option = ‘EQ’.     xauthor-low =   ‘SAP*’. APPEND xauthor.    xauthor-sign   = ‘E’. xauthor-option = ‘EQ’.     xauthor-low =   ‘DDIC’. APPEND xauthor.  ENDIF.ENDFORM.                    “init_select_options*&———————————————————————**&      Form  get_obj_set*&———————————————————————**       Get from TADIR*———————————————————————-*FORM get_obj_set.  DATA: l_tadir TYPE tadir.  SELECT * FROM tadir INTO l_tadir           WHERE pgmid      EQ ‘R3TR’           AND   obj_name   IN xauthor           AND   object     IN xobject           AND   devclass   IN xpack            AND srcsystem   NE ‘SAP’           AND   author     IN xauthor.               “#EC CI_SGLSELECT    IF NOT l_tadir-obj_name CP ‘_______________________________*’.      MOVE-CORRESPONDING l_tadir TO l_repository.      l_repository-name     = l_tadir-obj_name.      l_repository-devclass = l_tadir-devclass.      APPEND l_repository TO t_repository.    ENDIF.  ENDSELECT.*  SORT t_repository BY devclass name.ENDFORM.                    “get_obj_set*&———————————————————————**&      Form  upd_obj_set_count_class_sloc*&———————————————————————**       …and Compute SLOC for CLAS*———————————————————————-*FORM upd_obj_set_count_class_sloc.  TYPE-POOLS: sedi.  TYPES: BEGIN OF ty_irdir,          name LIKE trdir-name,          devc    LIKE tadir-devclass,        END OF ty_irdir,        BEGIN OF ty_itab,          repname LIKE sy-repid,          devc    LIKE tadir-devclass,        END OF ty_itab,        BEGIN OF ty_crdir,          name LIKE trdir-name,          subc LIKE trdir-subc,          devc    LIKE tadir-devclass,        END OF ty_crdir.  DATA: save_tabix      TYPE sy-tabix,        l_class         TYPE sobj_name,        l_pgmid         TYPE pgmid,        l_object        TYPE trobjtype,        class_name      TYPE programm,        class_pool_name TYPE programm,        lclskey         TYPE seoclskey.  DATA: sourceline      TYPE string.  DATA: l_1st_char      TYPE c.  DATA: l_irdir         TYPE ty_irdir,        l_itab          TYPE ty_itab,        l_itab1         TYPE ty_itab,        l_crdir         TYPE ty_crdir.  DATA: t_irdir TYPE STANDARD TABLE OF ty_irdir,        t_itab  TYPE STANDARD TABLE OF ty_itab,        t_itab1 TYPE STANDARD TABLE OF ty_itab,        t_crdir TYPE STANDARD TABLE OF ty_crdir.  DATA: l_sloc          TYPE i.  LOOP AT t_repository INTO l_repository.    save_tabix = sy-tabix.    CASE l_repository-object.      WHEN ‘PROG’.        SELECT SINGLE subc FROM trdir INTO l_repository-subc WHERE  name = l_repository-name.        IF sy-subrc = 0.          MODIFY t_repository FROM l_repository INDEX save_tabix TRANSPORTING subc .        ENDIF.      WHEN ‘FUGR’.        CONCATENATE ‘SAPL’ l_repository-name INTO l_irdir-name.        l_irdir-devc = l_repository-devclass.        APPEND l_irdir TO t_irdir.        l_repository-name   = l_irdir-name.        l_repository-object = ‘PROG’.        SELECT SINGLE subc FROM trdir INTO l_repository-subc WHERE  name = l_repository-name.        IF sy-subrc = 0.          MODIFY t_repository FROM l_repository INDEX save_tabix TRANSPORTING name object subc.        ENDIF.        CLEAR l_irdir.      WHEN ‘CLAS’.        DATA source_new TYPE sedi_source.        DATA l_inctype(5).        class_name = l_repository-name.        l_pgmid = ‘R3TR’.        l_object = l_repository-object.        l_class = class_name.        CALL FUNCTION ‘SEO_CLASS_GET_CP_NAME’          EXPORTING            pgmid                 = l_pgmid            object                = l_object            obj_name              = l_class          IMPORTING            progname              = class_pool_name          EXCEPTIONS            no_class_or_interface = 1.        IF sy-subrc = 0.          SELECT SINGLE subc FROM trdir INTO l_repository-subc WHERE name = class_pool_name.        ENDIF.        lclskey-clsname = cl_oo_classname_service=>get_clsname_by_include( class_name ).        CLEAR l_class.        CONCATENATE l_repository-name ‘%’ INTO l_class.        SELECT name FROM  trdir INTO TABLE t_crdir WHERE  name  LIKE l_class.        IF NOT t_crdir[] IS INITIAL.          LOOP AT t_crdir INTO l_crdir.            l_inctype = l_crdir-name+30(5) .            REFRESH source_new.            CALL FUNCTION ‘SEO_CLASS_GET_INCLUDE_SOURCE’              EXPORTING                clskey                       = lclskey                inctype                      = l_inctype              IMPORTING                source_expanded              = source_new              EXCEPTIONS                _internal_class_not_existing = 1                not_existing                 = 2                OTHERS                       = 3.            CHECK sy-subrc = 0.*           Compute SLOC !            LOOP AT source_new INTO sourceline.              l_1st_char = sourceline.              IF    sourceline IS INITIAL                 OR l_1st_char = ‘*’.                DELETE source_new INDEX sy-tabix.              ENDIF.            ENDLOOP.            l_sloc = LINES( source_new ).            ADD l_sloc TO l_repository-sloc.          ENDLOOP.          MODIFY t_repository FROM l_repository INDEX save_tabix TRANSPORTING sloc subc.        ENDIF.      WHEN OTHERS. CONTINUE.    ENDCASE.  ENDLOOP.  IF t_irdir[] IS NOT INITIAL.    LOOP AT t_irdir INTO l_irdir.      REFRESH t_itab1.      CALL FUNCTION ‘GET_INCLUDES’        EXPORTING          progname = l_irdir-name        TABLES          incltab  = t_itab1.*     append lines of t_itab1 to itab.      LOOP AT t_itab1 INTO l_itab1.        l_itab-repname = l_itab1-repname.        l_itab-devc    = l_irdir-devc.    “Sometimes it’s false        APPEND l_itab TO t_itab.        CLEAR l_itab.      ENDLOOP.    ENDLOOP.  ENDIF.  DATA: l_trdir TYPE trdir.  LOOP AT t_itab INTO l_itab.    SELECT SINGLE * FROM  trdir INTO l_trdir           WHERE  name  = l_itab-repname            AND    cnam  NOT LIKE ‘SAP%’            AND    cnam  <> ‘DDIC’.    CHECK sy-subrc = 0.    MOVE-CORRESPONDING l_trdir TO l_repository.    l_repository-devclass = l_itab-devc.    l_repository-object   = ‘PROG’.    APPEND l_repository TO t_repository.  ENDLOOP.  SORT t_repository BY name object devclass.  DELETE ADJACENT DUPLICATES FROM t_repository COMPARING name object devclass.ENDFORM.                    “upd_obj_set_count_class_sloc*&———————————————————————**&      Form  count_prog_sloc*&———————————————————————**       text*———————————————————————-*FORM count_prog_sloc.  DATA: l_prog     TYPE c LENGTH 30.  DATA: isource    TYPE TABLE OF string.  DATA: l_1st_char TYPE c.  LOOP AT t_repository INTO l_repository WHERE object = ‘PROG’.*   Compute SLOC !    l_prog = l_repository-name.    READ REPORT l_prog INTO isource.    DATA: l_source_line TYPE string.    LOOP AT isource INTO l_source_line.      l_1st_char = l_source_line.      IF    l_source_line IS INITIAL     “Empty         OR l_1st_char = ‘*’.            “Comment        DELETE isource INDEX sy-tabix.      ENDIF.    ENDLOOP.    l_repository-sloc = LINES( isource ).*   Update SLOC into t_repository    READ TABLE t_repository WITH TABLE KEY name     = l_repository-name                                       devclass = l_repository-devclass                                       object   = l_repository-object                                       srcsystem = l_repository-srcsystem                                       author    = l_repository-author                                       subc      = l_repository-subc                        TRANSPORTING NO FIELDS.    IF sy-subrc = 0.      MODIFY t_repository FROM l_repository INDEX sy-tabix TRANSPORTING sloc.    ENDIF.  ENDLOOP.ENDFORM.                    “count_prog_sloc*&———————————————————————**&      Form  alv*&———————————————————————**       text*———————————————————————-*FORM alv.  DATA: gr_table     TYPE REF TO cl_salv_table,        gr_display   TYPE REF TO cl_salv_display_settings,        gr_functions TYPE REF TO cl_salv_functions,        gr_sorts     TYPE REF TO cl_salv_sorts,        gr_agg       TYPE REF TO cl_salv_aggregations.  TRY.*     Create ALV table      cl_salv_table=>factory( IMPORTING r_salv_table = gr_table CHANGING t_table = t_repository ).*     Set zebra layout      gr_display = gr_table->get_display_settings( ).      gr_display->set_striped_pattern( cl_salv_display_settings=>true ).*     Display all standard function      gr_functions = gr_table->get_functions( ).      gr_functions->set_all( abap_true ).*     Sort      gr_sorts = gr_table->get_sorts( ).      gr_sorts->add_sort( columnname = ‘DEVCLASS’ subtotal = abap_true ).      gr_sorts->add_sort( columnname = ‘NAME’     subtotal = abap_false ).*     Totals      gr_agg = gr_table->get_aggregations( ).      gr_agg->add_aggregation( ‘SLOC’ ).*     Display table      gr_table->display( ).    CATCH cx_salv_msg.      WRITE: / ‘Exception CX_SALV_MSG’.    CATCH cx_salv_not_found.      WRITE: / ‘Exception CX_SALV_NOT_FOUND’.    CATCH cx_salv_data_error.      WRITE: / ‘Exception CX_SALV_DATA_ERROR’.    CATCH cx_salv_existing.      WRITE: / ‘Exception CX_SALV_EXISTING’.  ENDTRY.ENDFORM.                    “alv

SLOC Reference

Source lines of code (SLOC)  is just an indicator, I don’t want to give it too much relevance but it can be useful for example to estimate the upgrade effort or to evaluate the amount of work allocated for each of yours packages.

You can compare your system with well known software (source Wikipedia):

• Windows XP:      45 million lines of code
• Windows Vista:  50 million lines of code (see here)
• Mac OS:              86 million lines of code ( see here) 

and also with the standard SAP system:

• SAP (ABAP):      238 million lines of ABAP (see here)

Let’s build up our SDN database 

To compare apples with apples, I prepared a public Google spreadsheet where you can publish the SLOC of your ABAP system. It’s not suggested to specify your company but it could be interesting to know the country (where the system is maintained) and the year of the first implementation.

The form to update the spreadsheet is available here

The spreadsheet is available here 

Additional notes

The tool has been developed during our free time from work by Andrea Olivieri (he is really an ABAP Guru) and myself; please note that we had no time to optimize it.

We exclude ABAP generated by special frameworks (e.g. Report writer, SAP Query, Web Dynpro, LSMW, …) filtering by Source System, Owner and Package.

Supported releases

SAP ECC 6.0

Out-of-scope

This utility doesn’t take into account the code contained in the following objects:

• BSP
• Adobe Form/SMARTFORMs/SAPScript
• XSLT