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
Showing results for 
Search instead for 
Did you mean: 

selection-screen coding

Former Member
0 Kudos
52

hi,

i am created the two push buttons .

one is to for view and another is to for exit.

while am click the view button it displays the records of internal table.

after i saw the records of internal table .

problems is here only.

i want to create one pushbutton below on the display screen i.e where the records of internal table are shown

the name of the push button is back when i click the back button it goes to first screen. where the view and exit button are shown.

i dont know how to coding .

plz tell .

here the coding

AT SELECTION-SCREEN.

CASE SYST-UCOMM.

WHEN 'VIEW'.

LEAVE TO LIST-PROCESSING.

SELECT * FROM YSUSTAB1 INTO TABLE IT1.

LOOP AT IT1 INTO YSUSTAB1.

WRITE:/ YSUSTAB1-NAME, YSUSTAB1-ROLLNO.

ENDLOOP.

WHEN 'EXIT'.

LEAVE TO SCREEN 0.

ENDCASE.

4 REPLIES 4

Former Member
0 Kudos
35

Hi,

just write code like this,

when 'BACK'.

leave to screen '1000'.

endcase.

reward points if useful,

seshu.

0 Kudos
35

hi,

i want to create one more pushbutton namely back placed below the display screen of the internal table records.

i dont know how to create the pushbutton on that display screen. plz tell the coding.

0 Kudos
35

Hi,

Try using the below code

SELECTION-SCREEN: PUSHBUTTON2(10) PB1 USER-COMMAND back.

CASE SYST-UCOMM.

WHEN 'BACK'.

LEAVE TO {previous screen number where you have view and exit buttons}.

If its a standard selection screen then give it as 1000.

Regards,

Chandru

0 Kudos
35

HI,

i am checked my program it displays

the error such as with form routines and function modules, the selection-screen statement is not allowed

check whether my program is correct or not. ?

REPORT YSUSCREEN1.

TABLES YSUSTAB1.

SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE TEXT-000.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN PUSHBUTTON 10(20) TEXT-001 USER-COMMAND VIEW.

SELECTION-SCREEN PUSHBUTTON 50(20) TEXT-002 USER-COMMAND EXIT.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK BLOCK1.

DATA IT1 LIKE YSUSTAB1 OCCURS 2.

SELECT * FROM YSUSTAB1 INTO TABLE IT1.

AT SELECTION-SCREEN.

CASE SYST-UCOMM.

WHEN 'VIEW'.

LEAVE TO LIST-PROCESSING.

SELECT * FROM YSUSTAB1 INTO TABLE IT1.

LOOP AT IT1 INTO YSUSTAB1.

WRITE:/ YSUSTAB1-NAME, YSUSTAB1-ROLLNO.

ENDLOOP.

SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE TEXT-000.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN PUSHBUTTON 10(20) PB1 USER-COMMAND BACK.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK BLOCK1.

CASE SYST-UCOMM.

WHEN 'BACK'

LEAVE TO SCREEN '1000'.

ENDCASE.

WHEN 'EXIT'.

LEAVE TO SCREEN 0.

ENDCASE.