problem with screen control

[Former Member]

Hi Experts,

I have created an executable program with standard selection screen (1000). I am calling up custom screen 2000 based on inputs at 1000 screen. when i select 'BACK' option on screen 2000 it comes back to 1000 but if i try to execute the program now ..it does not run ..it comes out..following is the code.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME .

PARAMETERS: s_vkorg like zmecjsd10-vkorg.

PARAMETERS: s_vtweg like zmecjsd10-vtweg.

PARAMETERS: s_kunnr like zmecjsd10-kunnr.

PARAMETERS: s_kdmat like zmecjsd10-kdmat.

SELECTION-SCREEN END OF BLOCK B1.

start-of-selection.

select single * from knmt

where vkorg = s_vkorg

and vtweg = s_vtweg

and kunnr = s_kunnr

and kdmat = s_kdmat.

zmatnr = knmt-matnr+0(8).

call screen 2000.

&----

---

*& Module STATUS_2000 OUTPUT

&----

---

• text

----

---

MODULE STATUS_2000 OUTPUT.

SET PF-STATUS 'ZMECJ01'.

ZMECJSD10-VKORG = knmt-vkorg.

ZMECJSD10-Vtweg = knmt-vtweg.

ZMECJSD10-kunnr = knmt-kunnr.

ZMECJSD10-kdmat = knmt-kdmat.

ZMECJSD11-matnr = zmatnr.

ZMECJSD11-ERDAT = Sy-datum.

name = 'ZMECJSD10-ZFLG'.

ENDMODULE. " STATUS_2000 OUTPUT

&----

---

*& Module USER_COMMAND_2000 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_2000 INPUT.

case ucomm.

when 'SAVE'.

when 'EXIT'.

call SELECTION-SCREEN 1000.

when 'CANC'.

call SELECTION-SCREEN 1000.

when 'BACK'.

call SELECTION-SCREEN 1000.

leave program.

when 'ENTE'.

call SCREEN 2000.

endcase.

ENDMODULE. " USER_COMMAND_2000 INPUT

thanks,

Apps

Edited by: Apps on Sep 30, 2008 7:55 AM

[Former Member]

Hi ,

Instead of following statement,

  call SELECTION-SCREEN 1000.

Use the following statement,

       SET SCREEN 0.
       LEAVE SCREEN.

Regards,

R.Nagarajan.

[Former Member]

Mistakenly the same thing.

Edited by: Nagarajan Ramamoorthy on Sep 30, 2008 3:01 PM

[Former Member]

Hi ,

Yes it worked...thank you very much.

apps