Displaying other fields on reference of a single field in selectin screen

Question

REPORT YOOOOP .
TABLES : MARA .
DATA : ITAB LIKE MARA OCCURS 0 WITH HEADER LINE .
DATA : ITAB2 LIKE MARA OCCURS 0 WITH HEADER LINE .
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME
TITLE T1.
PARAMETERS:
   P_MATNR TYPE MARA-MATNR,
   P_MBRSH LIKE MARA-MBRSH,
   P_MTART LIKE MARA-MTART,
   P_MEINS LIKE MARA-MEINS.
SELECTION-SCREEN PUSHBUTTON /1(20) LB1
USER-COMMAND PB1.
SELECTION-SCREEN
END OF BLOCK B1.
LB1 = 'DISPLAY'.
*SELECT  * FROM MARA INTO ITAB .
*APPEND ITAB.
*ENDSELECT.
CASE SY-UCOMM.
WHEN 'PB1'  .
SELECT SINGLE * FROM MARA INTO ITAB2  WHERE P_MATNR = MARA-MATNR.
  MOVE ITAB-MBRSH TO P_MBRSH.
  MOVE ITAB-MTART TO P_MTART.
ENDCASE .
i want to display the remaining feilds in selection screen when we enter p_matnr field .please i want urgent

Answer 1

Hi,
u need to code this in the event At selection-screen and
fill the values in the parameter and
call the same selection screen say 1000.
I have made some changes in ur program..
This works perfectly fine...
TABLES : MARA .
<b>TABLES SSCRFIELDS.</b>
DATA : ITAB LIKE MARA OCCURS 0 WITH HEADER LINE .
DATA : ITAB2 LIKE MARA OCCURS 0 WITH HEADER LINE .
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME
TITLE T1.
PARAMETERS:
P_MATNR TYPE MARA-MATNR,
P_MBRSH LIKE MARA-MBRSH,
P_MTART LIKE MARA-MTART,
P_MEINS LIKE MARA-MEINS.
SELECTION-SCREEN PUSHBUTTON /1(20) <b>text-001</b>
USER-COMMAND PB1.
SELECTION-SCREEN
END OF BLOCK B1.
<b>At selection-screen.</b>
<b>IF SSCRFIELDS-UCOMM = 'PB1'.</b>
<b>SELECT SINGLE * FROM MARA INTO ITAB2 WHERE matnr = P_MATNR.
P_MBRSH = itab2-mbrsh.
P_MTART = itab2-mtart.
P_MEINS = itab2-meins.</b>
Declare text-001 = 'Display' as text-element.
Regards,
Tanveer.
<b>Please mark helpful answers</b>