Skip to Content
0
Former Member
Jan 02, 2008 at 06:23 AM

No output!!!

31 Views

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.