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

selection-screen coding

Former Member — Sat, 16 Feb 2008 10:03:05 GMT

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.

Re: selection-screen coding

Former Member — Sat, 16 Feb 2008 10:10:01 GMT

Hi,

just write code like this,

when 'BACK'.

leave to screen '1000'.

endcase.

reward points if useful,

seshu.

Re: selection-screen coding

Former Member — Sat, 16 Feb 2008 10:14:20 GMT

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.

Re: selection-screen coding

Former Member — Sat, 16 Feb 2008 10:21:52 GMT

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

Re: selection-screen coding

Former Member — Sat, 16 Feb 2008 10:36:57 GMT

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.