获取ＳＡＰ系统集成类的继承关系

--------------------------------------------------------------------*
*& Report ZGETCONTROLLIST *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT zget_class_list LINE-SIZE 132 NO STANDARD PAGE HEADING .
type-pools: slis.
TABLES: vseoextend.
TYPES: BEGIN OF tyclass,
clsname LIKE vseoextend-clsname,
refclsname LIKE vseoextend-refclsname,
descript LIKE seoclasstx-descript,
END OF tyclass,
BEGIN OF twclass.
INCLUDE TYPE tyclass.
TYPES: parentnum(20) TYPE c,
END OF twclass,
ttwclass TYPE TABLE OF twclass.
DATA: fieldtab TYPE slis_t_fieldcat_alv.
DATA: twclass1 TYPE ttwclass.
DATA: twclass2 LIKE twclass1.
DATA: twclass3 LIKE twclass1.
DATA: twclass1_wa LIKE LINE OF twclass1.
data: twclass2_wa like twclass1_wa.

DATA: yclass TYPE tyclass.
DATA: x TYPE i, y TYPE i, l TYPE i, n TYPE i.
DATA: isub TYPE i.
DATA: iparentnum(2) TYPE c.

PARAMETERS p_cname LIKE vseoextend-clsname OBLIGATORY
default 'CL_GUI_OBJECT'.
PARAMETERS p_check TYPE c AS CHECKBOX.

DEFINE new_grid.
y = sy-linno.
y = y + 2.
skip to line y.
x = sy-colno.
position x.
write '|'.
END-OF-DEFINITION.

DEFINE write_grid.
x = sy-colno.
y = sy-linno.
position x.
write: &1, '|'.
l = sy-colno - x + 1.
x = x - 2.
y = y + 1.
skip to line y.
position x.
uline at x(l).
y = y - 1.
x = sy-colno.
skip to line y.
position x.
END-OF-DEFINITION.

START-OF-SELECTION.
SELECT a~clsname b~descript
INTO CORRESPONDING FIELDS OF yclass
FROM seoclass AS a
INNER JOIN seoclasstx AS b
ON a~clsname = b~clsname AND b~langu = sy-langu
WHERE a~clsname = p_cname.
isub = isub + 1.
IF isub > 99.
CONTINUE.
ENDIF.
MOVE-CORRESPONDING yclass TO twclass1_wa.
PERFORM get_parentnum USING isub CHANGING iparentnum.
twclass1_wa-parentnum = iparentnum.
APPEND twclass1_wa TO twclass1.
ENDSELECT.

twclass2[] = twclass1[].
DESCRIBE TABLE twclass2 LINES n.
WHILE n > 0.
LOOP AT twclass2 into twclass2_wa.
isub = 0.
SELECT a~clsname a~refclsname b~descript
INTO CORRESPONDING FIELDS OF yclass
FROM vseoextend AS a
INNER JOIN seoclasstx AS b
ON a~clsname = b~clsname AND b~langu = sy-langu
WHERE a~refclsname = twclass2_wa-clsname.
isub = isub + 1.
IF isub > 99.
CONTINUE.
ENDIF.
MOVE-CORRESPONDING yclass TO twclass1_wa.
PERFORM get_parentnum USING isub CHANGING iparentnum.
CONCATENATE twclass2_wa-parentnum iparentnum
into twclass1_wa-parentnum.
APPEND twclass1_wa TO twclass1.
APPEND twclass1_wa TO twclass3.
ENDSELECT.
ENDLOOP.
refresh twclass2.
twclass2[] = twclass3[].
refresh twclass3.
DESCRIBE TABLE twclass2 LINES n.
ENDWHILE.

SORT twclass1 BY parentnum.
PERFORM initialize_fieldcat USING fieldtab[].
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
it_fieldcat = fieldtab
TABLES
t_outtab = twclass1.

* LOOP AT twclass1 INTO twclass1_wa.
* new_grid.
* write_grid: twclass1_wa-clsname,
* twclass1_wa-parentnum,
* twclass1_wa-descript.
* ENDLOOP.
* y = sy-linno.
* y = y + 2.
* SKIP TO LINE y.
* x = sy-colno.
* POSITION x.
* WRITE: / sy-dbcnt.

TOP-OF-PAGE.
FORMAT COLOR COL_NEGATIVE.
ULINE AT 2.
WRITE '|'.
POSITION 3.
WRITE: 'CLass Name'.
POSITION 34.
WRITE '|'.
WRITE: 'Parent String'.
POSITION 67.
WRITE '|'.
WRITE: 'Reference Class Name'.
ULINE.
y = sy-linno.
SKIP TO LINE y.
*&---------------------------------------------------------------------*
*& Form Get_parentnum
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_ISUB text
* <--P_IPARENTNUM text
*----------------------------------------------------------------------*
FORM get_parentnum USING p_isub
CHANGING p_iparentnum.
DATA: iparentnum(2) TYPE c.
WRITE p_isub TO iparentnum.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = iparentnum
IMPORTING
output = p_iparentnum.
ENDFORM. " Get_parentnum

FORM initialize_fieldcat USING p_fieldtab TYPE slis_t_fieldcat_alv.
DATA: l_fieldcat TYPE slis_fieldcat_alv.
l_fieldcat-seltext_s = 'CLASS NAME'.
l_fieldcat-outputlen = 30.
l_fieldcat-fieldname = 'CLSNAME'.
APPEND l_fieldcat TO p_fieldtab.
CLEAR l_fieldcat.
l_fieldcat-seltext_s = 'CLASS NAME'.
l_fieldcat-outputlen = 30.
l_fieldcat-fieldname = 'REFCLSNAME'.
APPEND l_fieldcat TO p_fieldtab.
CLEAR l_fieldcat.
l_fieldcat-seltext_s = 'DESCRIPTION'.
l_fieldcat-outputlen = 60.
l_fieldcat-fieldname = 'DESCRIPT'.
APPEND l_fieldcat TO p_fieldtab.
CLEAR l_fieldcat.
l_fieldcat-seltext_s = 'TREENUM'.
l_fieldcat-outputlen = 20.
l_fieldcat-fieldname = 'PARENTNUM'.
APPEND l_fieldcat TO p_fieldtab.
ENDFORM. " INITIALIZE_FIELDCATORD