topic Re: at selection-screen output in Application Development and Automation Discussions

at selection-screen output

Former Member — Thu, 06 Mar 2008 08:59:15 GMT

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.

Re: at selection-screen output

Former Member — Thu, 06 Mar 2008 09:07:30 GMT

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

Re: at selection-screen output

Former Member — Thu, 06 Mar 2008 09:08:54 GMT

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF screen-group1 = 'ID1'.

IF r1 = 'X'.

screen-active = 1.

ELSE.

screen-active = 0.

ENDIF.

IF screen-group1 = 'ID2'.

IF r2 = 'X'.

screen-active = 1.

ELSE.

screen-active = 0 .

ENDIF.

MODIFY SCREEN.

ENDLOOP.

Give the above code. It works.

U shud give the modif ids in Caps.

awrd points if useful

Bhupal

Re: at selection-screen output

Former Member — Thu, 06 Mar 2008 09:11:12 GMT

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

Re: at selection-screen output

Former Member — Thu, 06 Mar 2008 09:11:15 GMT

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.

Re: at selection-screen output

former_member188827 — Thu, 06 Mar 2008 09:14:02 GMT

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.

Re: at selection-screen output

Former Member — Thu, 06 Mar 2008 09:15:51 GMT

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