How to find “Where Used List of InfoObject Value In BEx Report”,

Objective:

Every organization use multiple reports like Sales, Shipping, Billing and Profit & Loss to make good business decision. In this all areas we might have developed and used huge BEx reports, in all reports we might restrict (include/exclude) characteristics(like 0MATERIAL, 0PLANT) values 1001, 2002 for company codes, S01, S02 for Sales organization , Doc Type , Plant to meet business report requirement.

Every organization will expand their business, as part of business growth organization might merge or establish new plant, company codes, sales organizations etc.

Technical Impact due to organization changes.

Due to organization changes we might get into technical challenges/issues for example as part of business expand Company ABC new plant has been acquired (Plant 0567) and now I would like to include this new plant wherever already nearby plants (0545) included to same area manager to analysis inbound/outbound business data,  for this I need to search where existing plant 0545 is restricted so that I can include new plant 0567.

Approaches to find 0545.

• Search manually respective reports in BEx designer like Filters Area, Default Area, Restricted Key Figure  and Selections, etc….might be restricted anywhere in report like cells, so its very tough job if its complex report’s
• Search in table level,  however its required skill like BEx tables and relationship between tables
• Search through FM however its gives unstructured data, need to format and also it works one report at a time.

Solution “One Click Away”

So, I had written ABAP program which will give list of reports which are restricted by given Infoprovider/InfoObect and characteristics value.

Here we can search based on Multiprovider/InfoCube/DSO OR Infoset wise, we have to select Radio button based on requirement as like below

 

Example for Mulitprovider.

 

Example 1

Now, I am searching based on Mulitprovider/InfoCube and selections as like below

 

Multi/Cube Tech Name: ALL (Means all Mulitproviders and Infocubes)

 

Infoobject Tech Name: 0PLANT (For Plant) You can give more infoobjects at a time.

 

Infoobject Value          : ALL (Means for All Plants).

 

 

Output:

 

Provides list of reports restricted by All 0PLANT values

 

Example 2

Now, I am searching based on Mulitprovider/InfoCube and selections as like below

 

Multi/Cube Tech Name: ALL (Means all Mulitproviders and Infocubes)

 

Infoobject Tech Name: 0PLANT (For to Plant) you can give more infoobjects at a time.

 

Infoobject Value            : 1111 (Where Plant equal to 1111).

 

Output

 

Provides list of reports where plant restricted by 1111

 

Example for InfoSet.

Example 1

 

Now, I am searching based on Infoset and selections as like below

 

Multi/Cube Tech Name : ALL (Means all Infosets)

 

Infoobject Tech Name  : 0PLANT (For Plant) You can give more infoobjects at a time.

 

Infoobject Value            : ALL (Means for All Plants).

 

Output:

 

Provides list of reports restricted by All 0PLANT values

 

Example 2

Now, I am searching based on Infoset and selections as like below

 

Multi/Cube Tech Name: ALL (Means all Infosets)

 

Infoobject Tech Name: 0PLANT (For Plant), You can give more infoobjects at a time.

 

Infoobject Value            : 111 (Where Plant equal to 111).

 

Output

 

Provides list of reports where plant restricted by 111

Attached ABAP Code.

REPORT ZBW_ BEX_SEL_TRACK.

 

TABLES: RSZRANGE,RSZ_X_RANGE. “Comment this line in 7.5 BW version
TYPE-POOLS: SLIS.

DATA: I_CHAR_D(80)   TYPE C,
I_OBJECT_D(30) TYPE C,
I_INFOSET_D    TYPE RSQINFOSET,
I_INFOCUBE     TYPE RSINFOPROV.

DATA: SYTABIX     LIKE SY–TABIX,
W_TXTLG     TYPE RSTXTLG,
W_FALIAS    TYPE RSQALIAS,
W_INFOSET   TYPE RSQINFOSET,
W_DEFTP     TYPE RSZDEFTP,
W_MAPNAME   TYPE RSZCOMPID,
W_FNAME     TYPE RSINFOPROV,
W_IOBJNMR   TYPE RSIOBJNM,
FLAG_Q(1)   TYPE C,
FLAG_O(1)   TYPE C,
FLAG_S(1)   TYPE C,
LD_COLOR(1) TYPE C.

DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
GD_LAYOUT    TYPE SLIS_LAYOUT_ALV,
GD_REPID     LIKE SY–REPID.

DATA: LD_LENGTH TYPE I.

DATA: GT_EVENTS     TYPE SLIS_T_EVENT.

*Types declaration

TYPES: BEGIN OF TY_ODS,
ODSOBJECT TYPE RSDODSOBJECT,
END OF TY_ODS.

TYPES: BEGIN OF TY_PROVIDER,
PROVIDER TYPE RSQINFOSET,
END OF TY_PROVIDER.

TYPES: BEGIN OF TY_INFOSET,
INFOSET TYPE RSQINFOSET,
FALIAS  TYPE RSQALIAS,
TALIAS  TYPE RSQALIAS,
FNAME   TYPE RSINFOPROV,
END OF TY_INFOSET.

TYPES: BEGIN OF TY_NAV,
ATRNAVNM TYPE RSATRNAVNM,
END OF TY_NAV.

TYPES: BEGIN OF QRY_DET,
COMPUID  TYPE RSRREPDIR–COMPUID,
INFOCUBE TYPE RSRREPDIR–INFOCUBE,
COMPID   TYPE RSRREPDIR–COMPID,
LASTUSER TYPE RSRREPDIR–LASTUSER,
END OF QRY_DET.

TYPES: BEGIN OF QRY_DESC,
ELTUID TYPE RSZELTTXT–ELTUID,
TXTLG  TYPE RSZELTTXT–TXTLG,
END OF QRY_DESC.

TYPES: C_T_ELTDIR TYPE RSZ_X_ELTDIR,
C_T_RANGE  TYPE RSZ_X_RANGE.

TYPES: BEGIN OF OUTPUT,
COMPID        TYPE RSRREPDIR–COMPID,
TXTLG         TYPE RSZELTTXT–TXTLG,
INFOCUBE      TYPE RSRREPDIR–INFOCUBE,
DEFTP         TYPE RSZELTDIR–DEFTP,
MAPNAME       TYPE RSZELTDIR–MAPNAME,
SIGN(10)      TYPE C,
OPT           TYPE RSZ_OPERATOR,
LOW           TYPE RSCHAVLEXT,
HIGH          TYPE RSCHAVLEXT,
INFOBJ(40)    TYPE C,
INFOBJI(40)   TYPE C,
LASTUSER      TYPE RSRREPDIR–LASTUSER,
LINE_COLOR(4) TYPE C,
END OF OUTPUT.

TYPES: BEGIN OF TY_RSQFOBJ,
INFOSET TYPE RSQINFOSET,
FALIAS  TYPE RSQALIAS,
FNAME   TYPE RSINFOPROV,
END OF TY_RSQFOBJ.

TYPES: BEGIN OF TY_RSZSELECT,
ELTUID TYPE SYSUUID_25,
IOBJNM TYPE RSIOBJNM,
END OF TY_RSZSELECT.
TYPES: BEGIN OF TY_IOBJ,
IOBJNM TYPE RSDIOBJNM,
END OF TY_IOBJ.

*Table declartion
DATA: T_ODS       TYPE STANDARD TABLE OF TY_ODS,
T_IOBJ      TYPE STANDARD TABLE OF TY_IOBJ,
T_INFOSET   TYPE STANDARD TABLE OF TY_INFOSET,
T_PROVIDER  TYPE STANDARD TABLE OF  TY_PROVIDER,
T_NAV       TYPE STANDARD TABLE OF TY_NAV,
T_RSZSELECT TYPE STANDARD TABLE OF TY_RSZSELECT,
T_QRY_DET   TYPE STANDARD TABLE OF QRY_DET,
T_QRY_DESC  TYPE STANDARD TABLE OF QRY_DESC,
T_ELTDIR    TYPE STANDARD TABLE OF  C_T_ELTDIR,
T_RANGE     TYPE STANDARD TABLE OF  C_T_RANGE,
T_OUTPUT    TYPE STANDARD TABLE OF OUTPUT,
T_RSQFOBJ   TYPE STANDARD TABLE OF TY_RSQFOBJ.

*Workarea declartion:
DATA: WA_ODS       TYPE TY_ODS,
WA_IOBJ      TYPE TY_IOBJ,
WA_INFOSET   TYPE TY_INFOSET,
WA_PROVIDER  TYPE TY_PROVIDER,
WA_NAV       TYPE TY_NAV,
WA_RSZSELECT TYPE TY_RSZSELECT,
WA_QRY_DET   TYPE QRY_DET,
WA_QRY_DESC  TYPE QRY_DESC,
WA_ELTDIR    TYPE RSZ_X_ELTDIR,
WA_RANGE     TYPE RSZ_X_RANGE,
WA_OUTPUT    TYPE OUTPUT,
WA_RSQFOBJ   TYPE TY_RSQFOBJ.

PARAMETERS: P_MC RADIOBUTTON GROUP SEL DEFAULT ‘X’ USER-COMMAND AC,
P_IS RADIOBUTTON GROUP SEL.

SELECTION-SCREEN BEGIN OF BLOCK MULTI
WITH FRAME TITLE TITLE2.

SELECT-OPTIONS: I_MULTI FOR I_INFOSET_D DEFAULT ‘ALL’ OBLIGATORY MODIF ID UC2.
SELECT-OPTIONS: I_OBJECM FOR I_OBJECT_D  DEFAULT ‘0PLANT’ OBLIGATORY MODIF ID UC2.
SELECT-OPTIONS: I_CHARM FOR I_CHAR_D  DEFAULT ‘ALL’ OBLIGATORY MODIF ID UC2.

SELECTION-SCREEN END   OF BLOCK MULTI.

SELECTION-SCREEN BEGIN OF BLOCK INFOSET
WITH FRAME TITLE TITLE1.

SELECT-OPTIONS: I_INFSET FOR  I_INFOCUBE DEFAULT ‘ALL’ OBLIGATORY MODIF ID UC1.
SELECT-OPTIONS: I_OBJECT FOR I_OBJECT_D  DEFAULT ‘0PLANT’ OBLIGATORY MODIF ID UC1.
SELECT-OPTIONS: I_CHAR FOR I_CHAR_D  DEFAULT ‘ALL’ OBLIGATORY MODIF ID UC1.

SELECTION-SCREEN END   OF BLOCK INFOSET.

***************************** Performs *******************************

CLEAR: T_PROVIDER,T_NAV,T_QRY_DET,T_QRY_DESC, T_RANGE,T_ELTDIR,T_RSQFOBJ,T_ODS.

*Error handling
IF I_OBJECT–LOW EQ ‘ALL’.
MESSAGE E208(00) WITH ‘(ALL) is invalid InfoObject,enter Valid InfoObject’ .
ENDIF.

IF I_OBJECM–LOW EQ ‘ALL’.
MESSAGE E208(00) WITH ‘(ALL) is invalid InfoObject,enter Valid InfoObject’ .
ENDIF.

INITIALIZATION.
TITLE1 = ‘Infoset’.
TITLE2 = ‘Multiprovider/Infocube/ODS’.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.
IF P_MC = ‘X’.
IF SCREEN–GROUP1 = ‘UC1’.
SCREEN–INPUT = ‘0’.
ENDIF.
IF SCREEN–GROUP1 = ‘UC2’.
SCREEN–INPUT = ‘1’.
ENDIF.
ELSEIF P_IS = ‘X’.
IF SCREEN–GROUP1 = ‘UC2’.
SCREEN–INPUT = ‘0’.
ENDIF.
IF SCREEN–GROUP1 = ‘UC1’.
SCREEN–INPUT = ‘1’.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.

START-OF-SELECTION.

PERFORM SELECTION_FILL.
PERFORM QUERY_DETAILS.
PERFORM PROCESSDATA.
PERFORM BUILD_FIELDCATALOG.
PERFORM BUILD_LAYOUT.
PERFORM BUILD_EVENTS.
PERFORM DISPLAY_ALV_REPORT.
PERFORM CLEAR_TABS.

***************************** Forms *******************************

FORM SELECTION_FILL .
IF P_IS EQ ‘X’.
IF I_INFSET–LOW EQ ‘ALL’.
SELECT INFOSET FROM RSQISET INTO TABLE T_PROVIDER
WHERE OBJVERS = ‘A’.

ELSE.
SELECT INFOSET FROM RSQISET INTO TABLE T_PROVIDER
FOR ALL ENTRIES IN  I_INFSET WHERE INFOSET = I_INFSET–LOW.

ENDIF.

IF I_OBJECT–LOW IS NOT INITIAL.
SELECT ATRNAVNM FROM RSDATRNAV INTO TABLE T_NAV FOR ALL ENTRIES IN
I_OBJECT WHERE ATTRINM = I_OBJECT–LOW AND
OBJVERS = ‘A’.

IF T_NAV IS NOT INITIAL.
LOOP AT T_NAV INTO WA_NAV.
I_OBJECT–LOW = WA_NAV–ATRNAVNM.
I_OBJECT–SIGN = ‘I’.
I_OBJECT–OPTION = ‘EQ’.
APPEND I_OBJECT.
ENDLOOP.
ENDIF.

SORT I_OBJECT BY LOW.
DELETE ADJACENT DUPLICATES FROM I_OBJECT COMPARING LOW.

SELECT ELTUID IOBJNM FROM RSZSELECT INTO TABLE T_RSZSELECT WHERE IOBJNM IN I_OBJECM AND
OBJVERS = ‘A’.
IF SY–SUBRC = 0.
SORT T_RSZSELECT BY ELTUID IOBJNM.
ENDIF.

ENDIF.

ELSEIF P_MC EQ ‘X’.

IF I_MULTI–LOW EQ ‘ALL’.
SELECT INFOCUBE FROM RSDCUBE INTO TABLE T_PROVIDER
WHERE CUBETYPE NE ‘A’ AND
OBJVERS = ‘A’.

SELECT ODSOBJECT FROM RSDODSO INTO TABLE T_ODS
WHERE OBJVERS = ‘A’.

IF SY–SUBRC = 0.

LOOP AT T_ODS INTO WA_ODS.
WA_PROVIDER–PROVIDER  = WA_ODS–ODSOBJECT.
APPEND WA_PROVIDER TO T_PROVIDER.
ENDLOOP.

ENDIF.
SELECT IOBJNM FROM RSDIOBJ INTO TABLE T_IOBJ WHERE OBJVERS = ‘A’ AND
OBJSTAT = ‘ACT’ AND
ATRONLYFL = ”   .
IF SY–SUBRC = 0.

LOOP AT T_IOBJ INTO WA_IOBJ.
WA_PROVIDER–PROVIDER = WA_IOBJ–IOBJNM.
APPEND WA_PROVIDER TO T_PROVIDER.
ENDLOOP.
ENDIF.
ELSE.
SELECT INFOCUBE FROM RSDCUBE INTO TABLE T_PROVIDER
FOR ALL ENTRIES IN  I_MULTI WHERE INFOCUBE = I_MULTI–LOW AND
OBJVERS = ‘A’.

SELECT ODSOBJECT FROM RSDODSO INTO TABLE T_ODS
FOR ALL ENTRIES IN I_MULTI WHERE ODSOBJECT = I_MULTI–LOW AND
OBJVERS = ‘A’.

IF SY–SUBRC EQ 0.
LOOP AT T_ODS INTO WA_ODS.
WA_PROVIDER–PROVIDER  = WA_ODS–ODSOBJECT.
APPEND WA_PROVIDER TO T_PROVIDER.
ENDLOOP.
ENDIF.

SELECT IOBJNM FROM RSDIOBJ INTO TABLE T_IOBJ WHERE IOBJNM IN I_MULTI AND
OBJVERS = ‘A’ AND
OBJSTAT = ‘ACT’ AND
ATRONLYFL = ”   .
IF SY–SUBRC = 0.
LOOP AT T_IOBJ INTO WA_IOBJ.
WA_PROVIDER–PROVIDER = WA_IOBJ–IOBJNM.
APPEND WA_PROVIDER TO T_PROVIDER.
ENDLOOP.
ENDIF.

ENDIF.

IF I_OBJECM–LOW IS NOT INITIAL.
SELECT ATRNAVNM FROM RSDATRNAV INTO TABLE T_NAV FOR ALL ENTRIES IN
I_OBJECM WHERE ATTRINM = I_OBJECM–LOW AND
OBJVERS = ‘A’.

IF T_NAV IS NOT INITIAL.
LOOP AT T_NAV INTO WA_NAV.
I_OBJECM–LOW = WA_NAV–ATRNAVNM.
I_OBJECM–SIGN = ‘I’.
I_OBJECM–OPTION = ‘EQ’.
APPEND I_OBJECM.
ENDLOOP.
ENDIF.

SORT I_OBJECM BY LOW.
DELETE ADJACENT DUPLICATES FROM I_OBJECM COMPARING LOW.

SELECT ELTUID IOBJNM FROM RSZSELECT INTO TABLE T_RSZSELECT WHERE IOBJNM IN I_OBJECM AND
OBJVERS = ‘A’.
IF SY–SUBRC = 0.
SORT T_RSZSELECT BY ELTUID IOBJNM.
ENDIF.

ENDIF.

ENDIF.

ENDFORM.                    ” SELECTION_FILL

*&———————————————————————*
*&      Form  query_details
*&———————————————————————*
*       text
*———————————————————————-*
FORM QUERY_DETAILS .
SELECT COMPUID INFOCUBE COMPID LASTUSER FROM RSRREPDIR INTO TABLE T_QRY_DET FOR ALL ENTRIES IN
T_PROVIDER WHERE INFOCUBE = T_PROVIDER–PROVIDER AND
OBJVERS = ‘A’.
SORT T_QRY_DET BY COMPUID.

SELECT ELTUID TXTLG FROM RSZELTTXT INTO CORRESPONDING FIELDS OF TABLE T_QRY_DESC
FOR ALL ENTRIES IN T_QRY_DET WHERE ELTUID = T_QRY_DET–COMPUID AND OBJVERS = ‘A’.
SORT T_QRY_DESC BY ELTUID.

IF P_IS EQ ‘X’.
SELECT INFOSET FALIAS FNAME FROM RSQFOBJ INTO TABLE T_RSQFOBJ FOR ALL ENTRIES IN
T_PROVIDER WHERE INFOSET =  T_PROVIDER–PROVIDER AND
FNAME IN I_OBJECT AND
OBJVERS = ‘A’.
SORT T_RSQFOBJ BY INFOSET FALIAS FNAME.
ENDIF.
ENDFORM.                   ” QUERY_DETAILS
*&———————————————————————*
*&      Form  PROCESSDATA
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM PROCESSDATA .
LOOP AT T_QRY_DET  INTO WA_QRY_DET.
CLEAR: SYTABIX.
SYTABIX = SY–TABIX.

CALL FUNCTION ‘RSZ_X_COMPONENT_GET’
EXPORTING
I_COMPUID  = WA_QRY_DET–COMPUID
I_OBJVERS  = ‘A’
TABLES
C_T_ELTDIR = T_ELTDIR
C_T_RANGE  = T_RANGE.

IF P_IS EQ ‘X’.

SORT T_RANGE BY SELTP.
DELETE T_RANGE WHERE SELTP NE 1.
SORT T_RANGE BY LOWFLAG.
DELETE T_RANGE WHERE LOWFLAG EQ 2 OR LOWFLAG EQ 3.
SORT T_RANGE BY LOW.
ELSEIF P_MC EQ ‘X’.

SORT T_RANGE BY SELTP.
DELETE T_RANGE WHERE SELTP NE 1 AND SELTP NE 2.
SORT T_RANGE BY LOWFLAG.
DELETE T_RANGE WHERE LOWFLAG EQ 2 OR LOWFLAG EQ 3.
SORT T_RANGE BY LOW.
ENDIF.

IF P_IS EQ ‘X’.

IF I_CHAR–LOW EQ ‘ALL’.
ELSE.
SORT T_RANGE BY LOW.
DELETE T_RANGE WHERE LOW NOT IN I_CHAR.
ENDIF.

ELSEIF P_MC EQ ‘X’.

IF  I_CHARM–LOW EQ ‘ALL’.
ELSE.
SORT T_RANGE BY LOW.
DELETE T_RANGE WHERE LOW NOT IN I_CHARM.
ENDIF.

SORT T_RANGE BY IOBJNM.
DELETE T_RANGE WHERE IOBJNM NOT IN I_OBJECM.

ENDIF.

SORT T_RANGE BY ELTUID.
SORT T_ELTDIR BY ELTUID.

LOOP AT T_RANGE INTO WA_RANGE.
CLEAR: W_TXTLG, W_FALIAS, W_INFOSET,W_DEFTP,W_MAPNAME,W_FNAME,W_IOBJNMR,
FLAG_Q, FLAG_O, FLAG_S.

IF P_IS EQ ‘X’.

SPLIT WA_RANGE–IOBJNM AT ‘___’ INTO W_INFOSET W_FALIAS.
READ TABLE T_RSQFOBJ INTO WA_RSQFOBJ WITH KEY
INFOSET = W_INFOSET
FALIAS = W_FALIAS BINARY SEARCH.
IF SY–SUBRC EQ 0.
FLAG_O = ‘X’.
W_FNAME = WA_RSQFOBJ–FNAME.
W_IOBJNMR = WA_RANGE–IOBJNM.
ENDIF.

ELSEIF  P_MC EQ ‘X’.
FLAG_O = ‘X’.
W_IOBJNMR = WA_RANGE–IOBJNM.
ENDIF.

READ TABLE T_QRY_DESC INTO WA_QRY_DESC WITH KEY ELTUID
= WA_QRY_DET–COMPUID BINARY SEARCH.
IF SY–SUBRC EQ 0.
W_TXTLG = WA_QRY_DESC–TXTLG.
FLAG_Q = ‘X’.
ENDIF.

READ TABLE T_ELTDIR INTO WA_ELTDIR WITH KEY ELTUID
= WA_RANGE–ELTUID BINARY SEARCH.
IF SY–SUBRC EQ 0.
W_DEFTP = WA_ELTDIR–DEFTP.
W_MAPNAME = WA_ELTDIR–MAPNAME.
FLAG_S = ‘X’.
ENDIF.

IF FLAG_Q EQ ‘X’ AND
FLAG_O EQ ‘X’ AND
FLAG_S EQ ‘X’.
CLEAR FLAG_S.
LD_COLOR = LD_COLOR + 1.
IF LD_COLOR = 3.
LD_COLOR = 1.
ENDIF.
CONCATENATE ‘C’ LD_COLOR ’10’ INTO WA_OUTPUT–LINE_COLOR.

WA_OUTPUT–COMPID  = WA_QRY_DET–COMPID.
WA_OUTPUT–TXTLG  = W_TXTLG.
WA_OUTPUT–INFOCUBE  = WA_QRY_DET–INFOCUBE.
WA_OUTPUT–DEFTP = W_DEFTP.
WA_OUTPUT–MAPNAME = W_MAPNAME.
IF WA_RANGE–SIGN EQ ‘I’.
WA_OUTPUT–SIGN  = ‘Include’.
ELSEIF WA_RANGE–SIGN EQ ‘E’.
WA_OUTPUT–SIGN  = ‘Exclude’.
ENDIF.
WA_OUTPUT–OPT  = WA_RANGE–OPT.
WA_OUTPUT–LOW = WA_RANGE–LOW.
WA_OUTPUT–HIGH = WA_RANGE–HIGH.
IF P_IS EQ ‘X’.
WA_OUTPUT–INFOBJ = W_FNAME.
ELSEIF P_MC EQ ‘X’.
WA_OUTPUT–INFOBJ = W_IOBJNMR.
ENDIF.
WA_OUTPUT–INFOBJI = W_IOBJNMR.
WA_OUTPUT–LASTUSER  = WA_QRY_DET–LASTUSER.

APPEND WA_OUTPUT  TO T_OUTPUT.

ENDIF.

ENDLOOP.
CLEAR: T_RANGE.

IF  T_RANGE IS NOT INITIAL. “07/09/2018
LOOP AT T_RSZSELECT INTO WA_RSZSELECT.
IF P_IS EQ ‘X’.
*LD_COLOR = 0.

SPLIT WA_RSZSELECT–IOBJNM AT ‘___’ INTO W_INFOSET W_FALIAS.
READ TABLE T_RSQFOBJ INTO WA_RSQFOBJ WITH KEY
INFOSET = W_INFOSET
FALIAS = W_FALIAS BINARY SEARCH.
IF SY–SUBRC EQ 0.
FLAG_O = ‘X’.
W_FNAME = WA_RSQFOBJ–FNAME.
W_IOBJNMR = WA_RSZSELECT–IOBJNM.
ENDIF.

ELSEIF  P_MC EQ ‘X’.
FLAG_O = ‘X’.
W_IOBJNMR = WA_RSZSELECT–IOBJNM.
ENDIF.

READ TABLE T_QRY_DESC INTO WA_QRY_DESC WITH KEY ELTUID
= WA_QRY_DET–COMPUID BINARY SEARCH.
IF SY–SUBRC EQ 0.
W_TXTLG = WA_QRY_DESC–TXTLG.
FLAG_Q = ‘X’.
ENDIF.

READ TABLE T_ELTDIR INTO WA_ELTDIR WITH KEY ELTUID
= WA_RSZSELECT–ELTUID BINARY SEARCH.
IF SY–SUBRC EQ 0.
W_DEFTP = WA_ELTDIR–DEFTP.
W_MAPNAME = WA_ELTDIR–MAPNAME.
FLAG_S = ‘X’.
ENDIF.

*        LD_COLOR = LD_COLOR + 1.

IF FLAG_Q EQ ‘X’ AND
FLAG_O EQ ‘X’ AND
FLAG_S EQ ‘X’.
CLEAR FLAG_S.
*        LD_COLOR = LD_COLOR + 1.
*        IF LD_COLOR = 1.
*          LD_COLOR = 0.
*        ENDIF.
*          CONCATENATE ‘C’ LD_COLOR ’10’ INTO WA_OUTPUT-LINE_COLOR.
*          CONCATENATE ‘C’  ’10’ INTO WA_OUTPUT-LINE_COLOR.
*          LD_COLOR = 1.

WA_OUTPUT–COMPID  = WA_QRY_DET–COMPID.
WA_OUTPUT–TXTLG  = W_TXTLG.
WA_OUTPUT–INFOCUBE  = WA_QRY_DET–INFOCUBE.
WA_OUTPUT–DEFTP = W_DEFTP.
WA_OUTPUT–MAPNAME = W_MAPNAME.
IF WA_RANGE–SIGN EQ ‘I’.
WA_OUTPUT–SIGN  = ‘Include’.
ELSEIF WA_RANGE–SIGN EQ ‘E’.
WA_OUTPUT–SIGN  = ‘Exclude’.
ENDIF.
WA_OUTPUT–OPT  = ”.“WA_RANGE-OPT.
WA_OUTPUT–LOW = ”.“WA_RANGE-LOW.
WA_OUTPUT–HIGH = ”.“WA_RANGE-HIGH.
IF P_IS EQ ‘X’.
WA_OUTPUT–INFOBJ = W_FNAME.
ELSEIF P_MC EQ ‘X’.
WA_OUTPUT–INFOBJ = W_IOBJNMR.
ENDIF.
WA_OUTPUT–INFOBJI = W_IOBJNMR.
WA_OUTPUT–LASTUSER  = WA_QRY_DET–LASTUSER.

APPEND WA_OUTPUT  TO T_OUTPUT.
ENDIF.

ENDLOOP.
REFRESH : T_RANGE.
DELETE T_QRY_DET  INDEX SYTABIX.
ENDIF.    “07/09/2018 “if given value not exist report then do not add to output.

*    IF LD_COLOR = 1.
*       LD_COLOR = 0.
*    ENDIF.

ENDLOOP.
SORT T_OUTPUT.
DELETE ADJACENT DUPLICATES FROM T_OUTPUT COMPARING ALL FIELDS.
ENDFORM.                    ” PROCESSDATA

*&———————————————————————*
*&      Form  build_fieldcatalog
*&———————————————————————*
*       text
*———————————————————————-*
FORM BUILD_FIELDCATALOG.

FIELDCATALOG–FIELDNAME    = ‘COMPID’.
FIELDCATALOG–SELTEXT_M    = ‘Report Tech Name’.
FIELDCATALOG–OUTPUTLEN    = 10.
FIELDCATALOG–EMPHASIZE    = ‘X’.
FIELDCATALOG–COL_POS      = 1.
APPEND FIELDCATALOG  TO FIELDCATALOG.
CLEAR  FIELDCATALOG.

FIELDCATALOG–FIELDNAME    = ‘TXTLG’.
FIELDCATALOG–SELTEXT_M    = ‘Report Name’.
FIELDCATALOG–OUTPUTLEN    = 60.
FIELDCATALOG–EMPHASIZE    = ‘X’.
FIELDCATALOG–COL_POS      = 2.
APPEND FIELDCATALOG  TO FIELDCATALOG.
CLEAR  FIELDCATALOG.

FIELDCATALOG–FIELDNAME    = ‘INFOCUBE’.
FIELDCATALOG–SELTEXT_M    = ‘InfoProvider’.
FIELDCATALOG–OUTPUTLEN    = 10.
FIELDCATALOG–EMPHASIZE    = ‘X’.
FIELDCATALOG–COL_POS      = 3.

APPEND FIELDCATALOG  TO FIELDCATALOG.
CLEAR  FIELDCATALOG.

FIELDCATALOG–FIELDNAME    = ‘DEFTP’.
FIELDCATALOG–SELTEXT_M    = ‘Element Type’.
FIELDCATALOG–OUTPUTLEN    = 10.
FIELDCATALOG–EMPHASIZE    = ‘X’.
FIELDCATALOG–COL_POS      = 4.
APPEND FIELDCATALOG  TO FIELDCATALOG.
CLEAR  FIELDCATALOG.

FIELDCATALOG–FIELDNAME    = ‘MAPNAME’.
FIELDCATALOG–SELTEXT_M    = ‘Element Name’.
FIELDCATALOG–OUTPUTLEN    = 40.
FIELDCATALOG–EMPHASIZE    = ‘X’.
FIELDCATALOG–COL_POS      = 5.
APPEND FIELDCATALOG  TO FIELDCATALOG.
CLEAR  FIELDCATALOG.

FIELDCATALOG–FIELDNAME    = ‘SIGN’.
FIELDCATALOG–SELTEXT_M    = ‘Include/Exclude’.
FIELDCATALOG–OUTPUTLEN    = 10.
FIELDCATALOG–EMPHASIZE    = ‘X’.
FIELDCATALOG–COL_POS      = 6.
APPEND FIELDCATALOG  TO FIELDCATALOG.
CLEAR  FIELDCATALOG.

FIELDCATALOG–FIELDNAME    = ‘OPT’.
FIELDCATALOG–SELTEXT_M    = ‘Option’.
FIELDCATALOG–OUTPUTLEN    = 20.
FIELDCATALOG–EMPHASIZE    = ‘X’.
FIELDCATALOG–COL_POS      = 7.
APPEND FIELDCATALOG  TO FIELDCATALOG.
CLEAR  FIELDCATALOG.

FIELDCATALOG–FIELDNAME    = ‘LOW’.
FIELDCATALOG–SELTEXT_M    = ‘Low’.
FIELDCATALOG–OUTPUTLEN    = 80.
FIELDCATALOG–EMPHASIZE    = ‘X’.
FIELDCATALOG–COL_POS      = 8.
APPEND FIELDCATALOG  TO FIELDCATALOG.
CLEAR  FIELDCATALOG.

FIELDCATALOG–FIELDNAME    = ‘HIGH’.
FIELDCATALOG–SELTEXT_M    = ‘High’.
FIELDCATALOG–OUTPUTLEN    = 20.
FIELDCATALOG–EMPHASIZE    = ‘X’.
FIELDCATALOG–COL_POS      = 9.
APPEND FIELDCATALOG  TO FIELDCATALOG.
CLEAR  FIELDCATALOG.

FIELDCATALOG–FIELDNAME    = ‘INFOBJ’.
FIELDCATALOG–SELTEXT_M    = ‘InfoObject’.
FIELDCATALOG–OUTPUTLEN    = 40.
FIELDCATALOG–EMPHASIZE    = ‘X’.
FIELDCATALOG–COL_POS      = 10.
APPEND FIELDCATALOG  TO FIELDCATALOG.
CLEAR  FIELDCATALOG.

FIELDCATALOG–FIELDNAME    = ‘INFOBJI’.
FIELDCATALOG–SELTEXT_M    = ‘Reference Object’.
FIELDCATALOG–OUTPUTLEN    = 15.
FIELDCATALOG–EMPHASIZE    = ‘X’.
FIELDCATALOG–COL_POS      = 11.
APPEND FIELDCATALOG  TO FIELDCATALOG.
CLEAR  FIELDCATALOG.

FIELDCATALOG–FIELDNAME    = ‘LASTUSER’.
FIELDCATALOG–SELTEXT_M    = ‘Changed By’.
FIELDCATALOG–OUTPUTLEN    = 20.
FIELDCATALOG–EMPHASIZE    = ‘X’.
FIELDCATALOG–COL_POS      = 12.
APPEND FIELDCATALOG  TO FIELDCATALOG.
CLEAR  FIELDCATALOG.

ENDFORM.                    ” BUILD_FIELDCATALOG

*&———————————————————————*
*&      Form  build_layout
*&———————————————————————*
*       text
*———————————————————————-*
FORM BUILD_LAYOUT.

GD_LAYOUT–NO_INPUT           = ‘X’.
GD_LAYOUT–COLWIDTH_OPTIMIZE  = ‘X’.
GD_LAYOUT–TOTALS_TEXT        = ‘Totals’(201).
GD_LAYOUT–TOTALS_ONLY        = ‘X’.
GD_LAYOUT–INFO_FIELDNAME =      ‘LINE_COLOR’.

*  gd_layout-f2code            = ‘DISP’.  “Sets fcode for when double
*                                         “click(press f2)
GD_LAYOUT–ZEBRA             = ‘X’.
*  gd_layout-group_change_edit = ‘X’.
GD_LAYOUT–HEADER_TEXT       = ‘Report List’.
ENDFORM.                    ” BUILD_LAYOUT

*&———————————————————————*
*&      Form  build_events
*&———————————————————————*
*       text
*———————————————————————-*
FORM BUILD_EVENTS.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION ‘REUSE_ALV_EVENTS_GET’
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS   = GT_EVENTS[].
READ TABLE GT_EVENTS  WITH KEY NAME =  SLIS_EV_TOP_OF_PAGE
INTO  LS_EVENT.
IF SY–SUBRC = 0.
MOVE ‘TOP-OF-PAGE’ TO LS_EVENT–FORM.
APPEND LS_EVENT  TO GT_EVENTS.
ENDIF.

READ TABLE GT_EVENTS  WITH KEY NAME =  SLIS_EV_END_OF_LIST
INTO  LS_EVENT.
IF SY–SUBRC = 0.
MOVE ‘END_OF_LIST’ TO LS_EVENT–FORM.
APPEND LS_EVENT  TO GT_EVENTS.
ENDIF.
ENDFORM.                    ” BUILD_EVENTS

*&———————————————————————*
*&      Form  display_alv_report
*&———————————————————————*
*       text
*———————————————————————-*
FORM DISPLAY_ALV_REPORT.
GD_REPID = SY–REPID.
CALL FUNCTION ‘REUSE_ALV_LIST_DISPLAY’
EXPORTING
I_CALLBACK_PROGRAM = GD_REPID
*     i_callback_user_command = ‘USER_COMMAND’
*     i_grid_title       = outtext
IS_LAYOUT          = GD_LAYOUT
IT_FIELDCAT        = FIELDCATALOG[]
*     it_special_groups  = gd_tabgroup
IT_EVENTS          = GT_EVENTS
I_SAVE             = ‘X’
*     is_variant         = z_template
TABLES
T_OUTTAB           = T_OUTPUT
EXCEPTIONS
PROGRAM_ERROR      = 1
OTHERS             = 2.
IF SY–SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

ENDFORM.                    ” DISPLAY_ALV_REPORT
*&———————————————————————*
*&      Form  CLEAR_TABS
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM CLEAR_TABS .
CLEAR:T_INFOSET,
T_PROVIDER,
T_NAV,
T_QRY_DET,
T_QRY_DESC,
T_ELTDIR,
T_RANGE,
T_OUTPUT,
T_RSQFOBJ,
T_RANGE,
T_ELTDIR,
T_ODS.
ENDFORM.                    ” CLEAR_TABS

 

Note:

• Added code, provided option to  search ODS wise also,
• And changed selection screen sequence for more convenient

 

Thanks for reading Blog.