TABLES : SSCRFIELDS in OOPS

[Former Member]

Hi Experts,

Could come one suggest me how do I get push buttons on selection screen application bar making use of sccrfields , but not defining statement TABLES : SSCRFIELDS , as this statement is no longer encouraged in OOPS.

I would like to have the same functionality of getting the push button on selection screen but not using tables statement & PF-STATUS.

Please suggest . Rewards for helpful answer.

[Former Member]

Check RSDEMO* and BCALV* in SE38

[varma_narayana]

Hi Amber..

This is the Solution.

**SELECTION SCREEN - CUSTOMIZING GUI STATUS

REPORT ZSEL_GUI .

parameters : p_dsn(30) DEFAULT 'EMP.TXT'.

DATA : V_STATUS TYPE SY-PFKEY VALUE 'SEL1',

"create this in SE41 WITH TYPE Selection Screen

V_rEPID TYPE SY-REPID.

AT SELECTION-SCREEN OUTPUT.

V_REPID = SY-REPID.

DATA itab TYPE TABLE OF sy-ucomm.

APPEND: 'PRIN' TO itab.

APPEND: 'SPOS' TO itab.

CASE sy-dynnr.

WHEN '1000'.

CALL FUNCTION <b>'RS_SET_SELSCREEN_STATUS'</b>

EXPORTING

p_status = V_STATUS

P_PROGRAM = V_REPID "program where the GUI Status is created

TABLES

p_exclude = itab. "Fields to be excluded from Standard GUI

ENDCASE.

AT SELECTION-SCREEN.

<b> CASE SY-UCOMM.</b>

WHEN 'PRIN'.

ENDCASE.

Note : In SE41 GUI Status select the menu path:

EXTRAS -> Adjust Template -> Status type

Select the Radio button "SELECTION SCREEN" and Copy.

This will copy all the Standard buttons of a selection screen.

Then add the new buttons in the App Tool Bar.

<b>REWARD IF HELPFUL.</b>