BW QUERY中的对象调用清单

REPORT ZBW_QUERYOBJ_WHEREUSED.

TABLES RSZELTXREF.

DATA Z_END_FLAG TYPE C  VALUE 'N'.

DATA GT_TMP1 TYPE TABLE OF RSZELTXREF WITH HEADER LINE.
DATA GT_TMP2 TYPE TABLE OF RSZELTXREF WITH HEADER LINE.
DATA GT_RSZELTDIR TYPE TABLE OF RSZELTDIR WITH HEADER LINE.

SELECT-OPTIONS S_OBJ FOR RSZELTXREF-TELTUID OBLIGATORY.

SELECT * INTO TABLE GT_TMP1[]
  FROM RSZELTXREF
  WHERE TELTUID IN S_OBJ
  AND OBJVERS EQ 'A'.

WHILE Z_END_FLAG EQ 'N'.
  GT_TMP2[] = GT_TMP1[].
  CLEAR GT_TMP1[].

  SELECT * APPENDING TABLE GT_RSZELTDIR
    FROM RSZELTDIR
    FOR ALL ENTRIES IN GT_TMP2
    WHERE ELTUID = GT_TMP2-SELTUID
    AND OBJVERS = 'A'.

  SELECT * INTO TABLE GT_TMP1
    FROM RSZELTXREF
    FOR ALL ENTRIES IN GT_TMP2
    WHERE TELTUID = GT_TMP2-SELTUID
    AND OBJVERS EQ 'A'.

  IF SY-SUBRC EQ 0.
    Z_END_FLAG = 'N'.
  ELSE.
    Z_END_FLAG = 'Y'.
  ENDIF.

ENDWHILE.

DELETE GT_RSZELTDIR WHERE MAPNAME IS INITIAL.
SORT GT_RSZELTDIR BY MAPNAME.
DELETE ADJACENT DUPLICATES FROM GT_RSZELTDIR COMPARING MAPNAME.
LOOP AT GT_RSZELTDIR.
  WRITE / GT_RSZELTDIR-MAPNAME.
ENDLOOP.

输入要查询的QUERY对象

输出引用此对象的QUERY列表