Hi forum, I'm not getting output in this program..kindly help me out...
Report test no standard page heading line-count 65(3) line-size 150.
tables : mara, marc, mard, makt, lfa1, lfb1, lfbk, vbak, vbap, vbrp, lips.
data : begin of itab1 occurs 0,
lifnr like lfa1-lifnr,
end of itab1.
data : begin of itab2 occurs 0,
matnr like marc-matnr,
werks like marc-werks,
end of itab2.
selection-screen: begin of block b1 WITH FRAME TITLE text-001.
select-options :
s_lifnr for lfa1-lifnr modif id s1.
selection-screen end of block b1 .
selection-screen: begin of block b2 WITH FRAME TITLE text-002.
parameters : s_matnr type marc-matnr modif id s2.
werks type marc-werks modif id s3.
selection-screen end of block b2.
selection-screen: begin of block b3 WITH FRAME TITLE text-003.
parameters : s_posnr like vbap-posnr modif id s3.
selection-screen end of block b3.
selection-screen: begin of block b4 WITH FRAME TITLE text-004.
parameters : R1 radiobutton group rad1,
R2 radiobutton group rad1.
R3 radiobutton group rad1.
selection-screen end of block b4.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF R1 EQ 'X' AND SCREEN-GROUP1 EQ 'S2'.
SCREEN-INPUT = 0.
MODIFY SCREEN.
elseif SCREEN-GROUP1 EQ 'S3'.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
IF R2 EQ 'X' AND SCREEN-GROUP1 EQ 'S1'.
SCREEN-INPUT = 0.
MODIFY SCREEN.
elseif SCREEN-GROUP1 EQ 'S3'.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
*IF R3 EQ 'X' AND SCREEN-GROUP2 EQ 'S1'.
*SCREEN-INPUT = 0.
*MODIFY SCREEN.
*elseif SCREEN-GROUP1 EQ 'S2'.
SCREEN-INPUT = 0.
*MODIFY SCREEN.
*ENDIF.
ENDLOOP.
at selection-screen.
if r1 = 'x'.
select lifnr from lfa1 into corresponding fields of table itab1 where lifnr in s_lifnr.
loop at itab1.
write : / itab1-lifnr.
endloop.
endif.
if r2 = 'x'.
select matnr werks from marc into corresponding fields of table itab2 where matnr in s_matnr.
loop at itab2.
write : / itab2-matnr.
endloop.
endif.