自己开发的ABAP代码版本查看工具

REPORT ZTEST_CAG_CAT.


PARAMETERS: cname TYPE SEOCOMPO-clsname OBLIGATORY DEFAULT 'CL_CRM_OPPORTUNITY_MPC_EXT',

            mname TYPE seocompo-cmpname OBLIGATORY DEFAULT 'DEFINE_OPPORTUNITY'.


data: lv_name TYPE vrsd-objname,

      lt_version TYPE STANDARD TABLE OF vrsd,

      lt_table TYPE STANDARD TABLE OF ABAPTXT255,

      lt_trdir TYPE STANDARD TABLE OF TRDIR,

      lt_VSMODISRC TYPE STANDARD TABLE OF SMODISRC,

      lt_VSMODILOG TYPE STANDARD TABLE OF SMODILOG.


lv_name = cname && '%' && mname.


SELECT objname versno datum zeit FROM vrsd INTO CORRESPONDING FIELDS OF TABLE lt_version

   WHERE objname LIKE lv_name ORDER BY versno DESCENDING.


LOOP AT lt_version ASSIGNING FIELD-SYMBOL(<version>).

   CALL FUNCTION 'SVRS_GET_REPS_FROM_OBJECT'

     EXPORTING

       object_name                        = <version>-objname

       object_type                        = 'METH'

       versno                             = <version>-versno

     TABLES

       repos_tab                          = lt_table

       TRDIR_TAB                          = lt_trdir

       VSMODISRC                          = lt_VSMODISRC

       VSMODILOG                          = lt_VSMODILOG.


   ASSERT sy-subrc = 0.


   WRITE: / 'version number: ' COLOR COL_GROUP, <version>-versno COLOR COL_NEGATIVE,

   'Date: ' COLOR COL_KEY, <version>-datum COLOR COL_HEADING, ' time: ' COLOR COL_POSITIVE, <version>-zeit COLOR COL_NORMAL.


   LOOP AT lt_table ASSIGNING FIELD-SYMBOL(<line>).

      WRITE: / <line>-line.

   ENDLOOP.

ENDLOOP.