tabl_ddl_test.abap

DATA(lo_ddl) = NEW zcl_abapgit_object_tabl_ddl( ).
SELECT obj_name FROM tadir WHERE pgmid = 'R3TR' AND object = 'TABL' AND masterlang = 'E' INTO TABLE @DATA(lt_tadir).
LOOP AT lt_tadir INTO DATA(ls_tadir).
*  IF ls_tadir-obj_name <> 'SOMETHING'.
*    CONTINUE.
*  ENDIF.

  IF sy-tabix MOD 10 = 0.
    cl_progress_indicator=>progress_indicate(
      i_text               = |{ sy-tabix }/{ lines( lt_tadir ) }|
      i_processed          = sy-tabix
      i_total              = lines( lt_tadir )
      i_output_immediately = abap_true ).
  ENDIF.

  TRY.
      DATA(lv_adt) = lo_ddl->serialize_adt( ls_tadir-obj_name ).
    CATCH cx_static_check.
      CONTINUE.
  ENDTRY.
  IF lv_adt CP '*AbapCatalog.replacementObject*'.
    CONTINUE.
  ENDIF.

  DATA(lv_custom) = lo_ddl->serialize( lo_ddl->read_data( ls_tadir-obj_name ) ).
  IF lv_custom = lv_adt.
    WRITE: / ls_tadir-obj_name, 'OK'.
  ELSE.
    ASSERT 1 = 'todo'.
    WRITE: / ls_tadir-obj_name, 'ERROR'.
  ENDIF.
ENDLOOP.