Regarding display objects in same screen

[Former Member]

Hi Guru's,

I have a small problem here, i have developed a report having two screens, and now if the user click on any of the row of any of the two reports then another report should be displayed. I can easily use 2 screens and navigate through the second screen when the user clicks, but i want to use the same screen, by freeing the current grid and container, but i am unable to do it, can you please tell me the correct alternative?

Thanks & Regards,

Swordfish.

[Former Member]

@swordfish

I am sorry I am not very clear with your requirement.

Are you writing a dialog program?

Regards,

Sumit Nene.

[Former Member]

HI Sumeet,

Yeah it is a dialog program using OOPS. I wanna use one screen . instead of two.

The modules are given below.

&----

---

*& Module STATUS_9000 OUTPUT

&----

---

• text

----

---

module STATUS_9000 output.

if o_docking is initial.

SET PF-STATUS 'ZSTATUS'. "GUI Status

SET TITLEBAR 'ZTITLE'. "Title

IF C_FI_CO EQ 'X'.

• Creating Objects

perform create_objects.

• Filling top of page

perform fill_top_of_page.

• Filling the fieldcatalog table

perform build_fieldcat.

*Creating the final fieldcat

perform build_final_fieldcat.

• Displaying the output

perform display_output.

ENDIF.

endif.

if o_docking2 is initial.

SET PF-STATUS 'ZSTATUS'. "GUI Status

SET TITLEBAR 'ZTITLE'. "Title

IF C_CO_FI EQ 'X'.

• Creating Objects

perform create_objects2.

• Filling top of page

perform fill_top_of_page2.

• Filling the fieldcatalog table

perform build_fieldcat2.

*Creating the final fieldcat

perform build_copa_fieldcat.

• Displaying the output

perform display_output2.

ENDIF.

endif.

endmodule. " STATUS_9000 OUTPUT

&----

---

*& Module USER_COMMAND_9000 INPUT

&----

---

• PAI

----

---

module USER_COMMAND_9000 input.

data lv_ucomm type sy-ucomm.

lv_ucomm = sy-ucomm.

CASE lv_ucomm.

WHEN 'CANCEl' OR 'EXIT'.

perform free_objects.

LEAVE PROGRAM.

when 'BACK'.

IF C_FI_CO EQ 'X'.

perform free_objects.

ENDIF.

IF C_CO_FI EQ 'X'.

perform free_objects2.

ENDIF.

set screen '0'.

leave screen.

ENDCASE.

endmodule. " USER_COMMAND_9000 INPUT