anchor.diff:        ty_tpools_i18n TYPE STANDARD TABLE OF ty_tpool_i18n .
   
       DATA mt_includes_cache TYPE ty_sobj_name_tt .
  +    DATA mt_includes_all TYPE ty_sobj_name_tt .
   
       METHODS check_rfc_parameters
         IMPORTING
  
positive.code:       WHERE progname = lv_program
        AND   r3state = 'A'.                                "#EC CI_SUBRC
  
      LOOP AT lt_includes ASSIGNING <lv_include>.
        SELECT unam AS user udat AS date utime AS time FROM reposrc
          APPENDING CORRESPONDING FIELDS OF TABLE lt_stamps
          WHERE progname = <lv_include>
          AND   r3state = 'A'.                              "#EC CI_SUBRC
      ENDLOOP.
  
      SELECT unam AS user udat AS date utime AS time FROM repotext " Program text pool
        APPENDING CORRESPONDING FIELDS OF TABLE lt_stamps
  
negative.code:              time TYPE t,
             END OF ty_stamps.
  
      DATA: lt_stamps  TYPE STANDARD TABLE OF ty_stamps WITH DEFAULT KEY,
            lv_program TYPE program.
  
      FIELD-SYMBOLS: <ls_stamp>   LIKE LINE OF lt_stamps,
                     <lv_include> LIKE LINE OF mt_includes_all.
  
  
      lv_program = main_name( ).
  
      IF mt_includes_all IS INITIAL.
        CALL FUNCTION 'RS_GET_ALL_INCLUDES'
          EXPORTING
            program      = lv_program
          TABLES
            includetab   = mt_includes_all
          EXCEPTIONS
            not_existent = 1
            no_program   = 2
            OTHERS       = 3.
        IF sy-subrc <> 0.
          zcx_abapgit_exception=>raise( 'Error from RS_GET_ALL_INCLUDES' ).
        ENDIF.
      ENDIF.
  
      SELECT unam AS user udat AS date utime AS time FROM reposrc
  