Screen Refreshment

[Former Member]

Hi All

I have one issue in my report. I display report in a normal screen using SUPPRESS DIALOG. I use HIDE statement to enable AT LINE-SELECTION event. When I double click the report line another window opens as popup. I should be able to enter new value to the selected line items and, when I click OK button in popup the new value have to be updated in the report list. Then when I click Back button in the screen the initial screen (selection screen) have to come.

I could able to update the report list when I change value with popup. But I could not come to selection screen (first screen) from the screen where I display my report list with single BACK button click.

I tried with the following code in USER-COMMAND event of BACK button.

LEAVE TO SCREEN 0

SET SCREEN 1000. LEAVE SCREEN.

CALL TRANSACTION 'XXXX'

None is working.

Anybody faced this same issue?

My actual requirement is same as Tcode: MC40.

Please give me a solution.

Thanks in advance.

Bala

[Former Member]

Hi Hari,

Theres an option like this check it out if it works for you.

CALL SELECTION-SCREEN <dynnr> ...

Cheers

VJ

Message was edited by: Vijayendra Rao

[Former Member]

HI

GOOD

CHECK OUT THIS PROGRAM OF SUPPRESS DIALOG

PROGRAM SAPMSYST MESSAGE-ID 00.

.

.

.

" IMRE OUTPUT

&----

---

*& Module LILI OUTPUT

&----

---

• text *

----

---

MODULE LILI OUTPUT.

CALL SCREEN 9876 STARTING AT 10 1 ENDING AT 75 23.

ENDMODULE. " LILI OUTPUT

&----

---

*& Module LALA OUTPUT

&----

---

• text *

----

---

MODULE LALA OUTPUT.

TABLES: T000.

DATA: FDIR(70) VALUE '/usr/sap/trans/message/m.',

RECORD(256),

DSN(70).

SUPPRESS DIALOG.

LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.

NEW-PAGE NO-TITLE NO-HEADING.

SET TITLEBAR '123'.

WRITE: / 'The following clients are accessible in the'

, SY-SYSID(3), 'system:'.

WRITE: / ' (Choose one by double clicking on it)'.

SKIP.

SELECT * FROM T000 CLIENT SPECIFIED.

WRITE: / ' ',

T000-MANDT COLOR 2, T000-MTEXT COLOR 2. HIDE T000-MANDT.

ENDSELECT.

CLEAR T000-MANDT.

SKIP 1.

WRITE: / 'Please report any problems to:'.

SKIP 1.

WRITE: / '.......'

COLOR 2.

SKIP 1.

WRITE: / 'System Messages:'.

• skip 1.

• concatenate fdir sy-sysid(3) into dsn.

• open dataset dsn in text mode for input.

• if sy-subrc ne 0.

• skip 1.

• write: / 'Error opening the system message file ' color 6

• , sy-subrc.

• else.

• do.

• read dataset dsn into record.

• if sy-subrc ne 0.

• exit.

• endif.

• if record(1) ne '#'.

• write: / record.

• endif.

• enddo.

• close dataset dsn.

• endif.

ENDMODULE. " LALA OUTPUT

&----

---

*& Event AT LINE-SELECTION

&----

---

AT LINE-SELECTION.

READ LINE SY-INDEX.

IF T000-MANDT IS INITIAL. EXIT. ENDIF.

RSYST-MANDT = T000-MANDT.

LEAVE SCREEN.

CLEAR T000.

THANKS

MRUTYUN

[Former Member]

Hi

If you have create a new (secondary) list in the event AT LINE-SELECTION, after pressing BACK the system back to first (primary list).

So you haven't to create a secondary list if you want to back to selection-screen and you can do it setting the system variable SY-LSIND to 0:

AT LINE-SELECTION.

SY-LSIND = SY-LSIND - 1.

WRITE: 'Bla bla.....'.

Max