I am using below code but in tabstrip tag function code is not working properly
would any body help me.
REPORT ZSUBSCREENS.
tables:crhd,afru,zsabpce.
data: itab like zsabpce occurs 0 with header line.
controls:tab1 type tabstrip.
controls:control1 type tableview using screen '200'.
data:ok_code1 like sy-ucomm,
okcode1 like sy-ucomm.
tab1-activetab = 'DISPLAY'.
call screen 100.
&----
*& Module STATUS_0100 OUTPUT
&----
----
module STATUS_0100 output.
SET PF-STATUS 'ZSTATUS'.
tab1-ACTIVETAB = 'DISP'.
endmodule.
&----
*& Module USER_COMMAND_0100 INPUT
&----
----
MODULE user_command_0100 INPUT.
*tab1-activetab = 'DISP'.
*tab1-activetab = 'ok_code1'.
okcode1 = ok_code1.
clear ok_code1.
*tab1-activetab = 'okcode1'.
*case ok_code1.
if okcode1 = 'DISP'.
SELECT * FROM zsabpce INTO CORRESPONDING FIELDS OF TABLE itab WHERE
zdate = zsabpce-zdate.
if sy-subrc <> 0.
message i000(001) with 'record not found'.
exit.
endif.
elseif okcode1 = 'BACK'.
leave program.
*endcase.
endif.
ENDMODULE. " USER_COMMAND_0100 INPUT
What is the problem would any body help me.
Bluesky
