Hi Experts,
I wrote a module pool Program with a requirement like this. I am having 3 fields in first box and in second box iam having some other fields.In the first box i have to enter 3 fields, after that if I press Display button it should fetch data in the second box fields. Code is working fine. But the issue is in the first box after entering first field when Iam pressing enter data is disappearing i mean data is clearing. It should not happen like this . Please tell me the Solution.For understanding purpose . Iam sending my Code also.
PROGRAM ZSALES_SCREEN2.
&----
*& Module USER_COMMAND_0100 INPUT
&----
----
module USER_COMMAND_0100 input.
tables:zsalesoff_take.
data:jtab like zsalesoff_take occurs 0 with header line.
case sy-ucomm.
when 'INS'.
move zsalesoff_take to jtab.
append jtab.
insert into zsalesoff_take values jtab.
if sy-subrc = 0.
message I000(010) with 'inserted'.
else.
message e001(002) with 'not inserted'.
endif.
when 'UPD'.
move zsalesoff_take to jtab.
append jtab.
update zsalesoff_take from table jtab.
if sy-subrc = 0.
message I000(010) with 'updated'.
else.
message e001(002) with 'not updated'.
endif.
when 'DISP'.
select single * from zsalesoff_take into jtab where dist_name = zsalesoff_take-dist_name
and zdate = zsalesoff_take-zdate
and Z_SUBDEALER = zsalesoff_take-z_subdealer.
WHEN 'CLE'.
clear jtab.
WHEN 'BACK'.
leave Program.
when 'Exit'.
leave program.
when 'REP'.
call transaction 'ZSOT1'.
endcase.
endmodule. " USER_COMMAND_0100 INPUT
&----
*& Module STATUS_0100 OUTPUT
&----
----
module STATUS_0100 output.
SET PF-STATUS 'ZSTAT'.
SET TITLEBAR 'SALES OFF-TAKE REPORT'.
move-corresponding jtab to zsalesoff_take.
endmodule. " STATUS_0100 OUTPUT
Bluesky
