Select querry error

Question

Hi,
while debugging values are populating for mkpftbl but not to msegtbl. can anyone suggest where i am going wrong.
if sy-batch = 'X'.
   select mblnr mjahr bldat cputm
          from mkpf
          into table mkpftbl
          where bldat eq wtoday
          and   tcode2 eq ctcode2.
else.
   select mblnr mjahr bldat cputm
          into table mkpftbl
          from mkpf
          where mblnr in mblnr
          and   mjahr in mjahr
          and   tcode2 eq ctcode2.
endif.
if not mkpftbl[] is initial.
loop at mkpftbl.
   select zeile charg matnr werks menge
          into corresponding fields of table msegtbl
          from mseg
         Appending table msegtbl
          for all entries in mkpftbl
          where mblnr eq mkpftbl-wmblnr
          and   mjahr eq mkpftbl-wmjahr
          and   bwart eq cbwart
          and   werks eq splant.
*endloop.

Answer 1

Hi Nihi
  Try making the changes as highlighted below:
<u><b>Declaration:</b></u>
data: begin of mkpftbl occurs 0,
        <b>wmblnr like mkpf-mblnr, "Material Document Number
        wmjahr like mkpf-mjahr, "Material Document Year
        wbldat like mkpf-bldat, "Document date in document
        wcputm like mkpf-cputm, "Time of Entry</b>
      end of mkpftbl.
data: begin of msegtbl occurs 0,
<b>        wmblnr like mseg-mblnr, "Material Document Number
        wmjahr like mseg-mjahr, "Material Document Year
        wzeile like mseg-zeile, "Item in Material Document
        wmatnr like mseg-matnr, "Material number
        wwerks like mseg-werks, "plant
        wcharg like mseg-charg, "batch number
        wmenge like mseg-menge, "Quantity
        wbldat like mkpf-bldat, "Document date in document
        wcputm like mkpf-cputm, "Time of Entry</b>
      end of msegtbl.
<u><b>Routine For Extraction:</b></u>
data: wrecord type i.
data: wtime type t.
data: wtoday type d.
move sy-datum to wtoday.
move sy-uzeit to wtime.
if wtime eq '000000'.
  wtoday = wtoday - 1.
endif.
status = 1.
if sy-batch = 'X'.
  select mblnr mjahr bldat cputm
  from mkpf
  into table mkpftbl
  where bldat eq wtoday
  and tcode2 eq ctcode2.
else.
  select mblnr mjahr bldat cputm
  into table mkpftbl
  from mkpf
  where mblnr in mblnr
  and mjahr in mjahr
  and tcode2 eq ctcode2.
endif.
if not mkpftbl[] is initial.
  select <b>mblnr mjahr zeile matnr werks charg menge</b>
  from mseg
  <b>into table msegtbl</b>
  for all entries in mkpftbl
  where mblnr eq <b>mkpftbl-wmblnr</b>
  and mjahr eq <b>mkpftbl-wmjahr</b>
  and bwart eq cbwart
  and werks eq splant.
  status = 0.
endif.
  Hope this helps you.
Kind Regards
Eswar