topic Re: Return to selection screen in Application Development and Automation Discussions

Return to selection screen

Former Member — Wed, 26 Jul 2006 15:32:10 GMT

Hello,

In the program i am writing now, I intended to have the program return back to the selection screen whenever I encountered an error and the user pressed the green tick on the pop up box for the error message. However, what happens to me right now is that all I have is a blank screen with SAP on the title area if I do, for example,

MESSAGE e161(q6) WITH wa_defn-fieldname 'System'.

May I know how can I accomplish that? Thanks!

Regards,

Anyi

Re: Return to selection screen

RichHeilman — Wed, 26 Jul 2006 15:34:16 GMT

Call this message in the AT SELECION-SCREEN event.

at selection-screen.

MESSAGE e161(q6) WITH wa_defn-fieldname 'System'.

Regards,

Rich Heilman

Re: Return to selection screen

Former Member — Wed, 26 Jul 2006 15:35:32 GMT

hi,

do this

MESSAGE e161(q6) WITH wa_defn-fieldname 'System' display like 'S'.

EXIT.

dont use write statement in the report before error message.

Please Reward Points & Mark Helpful Answers

To mark Helpful Answers ;click radio Button next to the post.

RadioButtons

o Helpful Answer

o Very helpful Answer

o Problem Solved.

Click any of the above button next to the post; as per the anwers

To close the thread; Click Probelm solved Radio Button next to the post , which u feel is best possible answers

Re: Return to selection screen

Former Member — Wed, 26 Jul 2006 17:21:40 GMT

But I thought an Error message would immediately stop the entire program and the part to exit loop does not even exit. Furthermore, I do not want to generate the report, I want it to go back to selection screen without actually generate the report. Is that possible? Thanks a lot!

Anyi

Re: Return to selection screen

RichHeilman — Wed, 26 Jul 2006 17:38:50 GMT

Then you must do your validation with the message in the AT SELECTION-SCREEN event.

Is this not working for you?

Regards,

Rich Heilman

Re: Return to selection screen

Laxmana_Appana_ — Wed, 26 Jul 2006 17:40:55 GMT

Hi,

check this :

in that case raise your error message with STOP statement like below, then system will stop the further processing and it will come back to selection screen.

MESSAGE s161(q6) WITH wa_defn-fieldname 'System'.

STOP.

Regards

Appana

Message was edited by: L Appana

Re: Return to selection screen

Former Member — Wed, 26 Jul 2006 17:49:13 GMT

if it is in the start-of-selection event...

message i000(fb) with 'Error'.

exit.

if it is inside of a form...

message i000(fb) with 'Error'.

gv_error = 'X'.

exit.

then in the calling form and/or start-of-selection...

check gv_error is initial.

Re: Return to selection screen

Former Member — Wed, 26 Jul 2006 17:49:30 GMT

> Then you must do your validation with the message in

> the AT SELECTION-SCREEN event.

> Is this not working for you?

> Regards,

> Rich Heilman

I did put that in the At Selection-Screen event, but all it threw to me was a blank screen with title 'SAP'...

Anyi

Re: Return to selection screen

Former Member — Wed, 26 Jul 2006 17:58:27 GMT

Use LEAVE LIST-PROCESSING.

AT SELECTION-SCREEN.

Check for sy-ucomm eq 'ONLI'.

*Select Data.

And If you want to give any status message give the status message and mark a flag eq X.

Check for this flag and use LEAVE LIST-PROCESSING.

Regards,

Prakash

Re: Return to selection screen

RichHeilman — Wed, 26 Jul 2006 18:01:58 GMT

Can you please post your code?

Regards,

Rich Heilman

Re: Return to selection screen

Former Member — Wed, 26 Jul 2006 18:30:15 GMT

REPORT ysample.

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

SELECT-OPTIONS: s_cust FOR but000-partner OBLIGATORY, "Business Partner

s_status FOR zspa_supstat-zzsptstatus " Status

NO INTERVALS NO-EXTENSION

MATCHCODE OBJECT zs_supstat_es.

SELECTION-SCREEN END OF BLOCK a1.

***********************************************************************

AT SELECTION SCREEN

***********************************************************************

AT SELECTION-SCREEN.

PERFORM check_selection_screen_data.

*Select Installation.

CHECK sy-ucomm EQ c_onli.

PERFORM select_data.

**********************************************************

START OF SELECTION

**********************************************************

START-OF-SELECTION.

*-- Display Installation List

IF ws_execute EQ c_x AND NOT i_final[] IS INITIAL.

CALL SCREEN 9000.

ELSE.

MESSAGE s001(zmmm) WITH 'No data found'.

LEAVE LIST-PROCESSING.

ENDIF.

*&----

*& Form select_data

*&----

Select Installation from Business partner

*----

Select Installation from EANL Table

SELECT a~anlage

a~anlart

a~zzkunnr

a~zzsptstatus

b~str_erg2

b~haus

INTO TABLE i_installation

FROM eanl AS a INNER JOIN evbs AS b

ON a_{vstelle EQ b}vstelle

WHERE a~zzkunnr IN s_cust

AND a~zzsptstatus IN s_status

AND a~sparte EQ c_sparte.

IF sy-subrc NE 0.

MESSAGE s001(zesspa) WITH text-004.

EXIT.

ELSE.

ws_execute = c_x.

ENDIF.

ENDFORM. " select_data