Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

at selection-screen output

Former Member

‎03-06-2008 8:59 AM

0 Kudos

HI,

this is my code. i want when r1 is 'X' p_tcode should appear and p_pgmna should dissapear , when r2 is 'X' the reverse should happen.

REPORT zuserexit_find.

TABLES : tstc,

tadir,

modsapt,

modact,

trdir,

tfdir,

enlfdir,

sxs_attrt ,

tstct.

DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.

DATA : field1(30).

DATA : v_devclass LIKE tadir-devclass.

DATA wa_tadir TYPE tadir.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.

PARAMETERS : r1 RADIOBUTTON GROUP g1 USER-COMMAND flag DEFAULT 'X',

r2 RADIOBUTTON GROUP g1.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.

PARAMETERS : p_tcode LIKE tstc-tcode MODIF ID id1. "Transaction Code

SELECTION-SCREEN : END OF BLOCK b2.

SELECTION-SCREEN : BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.

PARAMETERS : p_pgmna LIKE tstc-pgmna MODIF ID id2. "Program Name

SELECTION-SCREEN : END OF BLOCK b3.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF screen-group1 = 'id1'.

IF r1 = 'X'.

screen-active = 1.

ELSE.

screen-active = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF screen-group1 = 'id2'.

IF r2 = 'X'.

screen-active = 1.

  • ELSE.

  • screen-active = 1 .

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

6 REPLIES 6

Former Member

‎03-06-2008 9:07 AM

0 Kudos

Hello,

Check the code which s in BOLD.

Make sure that whatever you write in single code should be in CAPS.

TABLES : tstc,

tadir,

modsapt,

modact,

trdir,

tfdir,

enlfdir,

sxs_attrt ,

tstct.

DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.

DATA : field1(30).

DATA : v_devclass LIKE tadir-devclass.

DATA wa_tadir TYPE tadir.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.

PARAMETERS : r1 RADIOBUTTON GROUP g1 USER-COMMAND flag DEFAULT 'X',

r2 RADIOBUTTON GROUP g1.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.

PARAMETERS : p_tcode LIKE tstc-tcode MODIF ID id1. "Transaction Code

SELECTION-SCREEN : END OF BLOCK b2.

SELECTION-SCREEN : BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.

PARAMETERS : p_pgmna LIKE tstc-pgmna MODIF ID id2. "Program Name

SELECTION-SCREEN : END OF BLOCK b3.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF screen-group1 = 'ID1'.

IF r1 = 'X'.

screen-active = 1.

ELSE.

screen-active = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF screen-group1 = 'ID2'.

IF r2 = 'X'.

screen-active = 1.

  • ELSE.

  • screen-active = 1 .

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Neeraj

Former Member

‎03-06-2008 9:08 AM

0 Kudos

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF screen-group1 = 'ID1'.

IF r1 = 'X'.

screen-active = 1.

ELSE.

screen-active = 0.

ENDIF.

ENDIF.

IF screen-group1 = 'ID2'.

IF r2 = 'X'.

screen-active = 1.

ELSE.

screen-active = 0 .

ENDIF.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

Give the above code. It works.

U shud give the modif ids in Caps.

awrd points if useful

Bhupal

Former Member

‎03-06-2008 9:11 AM

0 Kudos

Hi

try this:

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-002.
PARAMETERS : R1 RADIOBUTTON GROUP G1 USER-COMMAND FLAG DEFAULT 'X',
             R2 RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN : BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
PARAMETERS : P_TCODE LIKE TSTC-TCODE MODIF ID ID1. "Transaction Code
SELECTION-SCREEN : END   OF BLOCK B2.

SELECTION-SCREEN : BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
PARAMETERS : P_PGMNA LIKE TSTC-PGMNA MODIF ID ID2. "Program Name
SELECTION-SCREEN : END OF BLOCK B3.

AT SELECTION-SCREEN OUTPUT.

  LOOP AT SCREEN.
    CASE 'X'.
      WHEN R1.
        IF SCREEN-GROUP1 = 'ID2'.
          SCREEN-ACTIVE = 0.
          MODIFY SCREEN.
        ENDIF.
      WHEN R2.
        IF SCREEN-GROUP1 = 'ID1'.
          SCREEN-ACTIVE = 0.
          MODIFY SCREEN.
        ENDIF.
    ENDCASE.
  ENDLOOP.

Max

Former Member

‎03-06-2008 9:11 AM

0 Kudos

hi,

LOOP AT SCREEN.

IF r1 = 'X'.

IF screen-group1 = 'ID1'.

screen-active = 1.

ELSEIF screen-group1 = 'ID2'..

screen-active = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF r2 = 'X'.

IF screen-group1 = 'ID2'.

screen-active = 1.

ELSEscreen-group1 = ID1..

screen-active = 0 .

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

former_member188827
Active Contributor

‎03-06-2008 9:14 AM

0 Kudos

try

TABLES : tstc,

tadir,

modsapt,

modact,

trdir,

tfdir,

enlfdir,

sxs_attrt ,

tstct.

DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.

DATA : field1(30).

DATA : v_devclass LIKE tadir-devclass.

DATA wa_tadir TYPE tadir.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.

PARAMETERS : r1 RADIOBUTTON GROUP g1 USER-COMMAND flag DEFAULT 'X' modif id Z1,

r2 RADIOBUTTON GROUP g1 modif id Z1.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.

PARAMETERS : p_tcode LIKE tstc-tcode MODIF ID ID1. "Transaction Code

SELECTION-SCREEN : END OF BLOCK b2.

SELECTION-SCREEN : BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.

PARAMETERS : p_pgmna LIKE tstc-pgmna MODIF ID ID2. "Program Name

SELECTION-SCREEN : END OF BLOCK b3.

AT SELECTION-SCREEN output.

LOOP AT SCREEN.

IF r1 = 'X'.

IF screen-group1 = 'ID1' or screen-group1 = 'Z1'.

screen-active = 1.

ELSE.

screen-active = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF r2 = 'X'.

IF screen-group1 = 'ID2' or screen-group1 = 'Z1'.

screen-active = 1.

ELSE.

screen-active = 0 .

ENDIF.

MODIFY SCREEN.

ENDIF.

Former Member

‎03-06-2008 9:15 AM

0 Kudos

Hi,

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

If r1 = 'X'.

IF screen-group1 = 'ID1'.

screen-active = 1.

screen-invisible = 0

ELSEif screen-group1 = 'ID2'

screen-active = 0.

screen-invisible = 1.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF r2 = 'X'.

IF screen-group1 = 'ID2'.

screen-active = 1.

screen-invisible = 0.ELSEif screen-group1 = 'ID1'.

screen-active = 0.

screen-invisible = 1

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Cheers!!

Lokesh

Edited by: Lokesh Aggarwal on Mar 6, 2008 9:18 AM