select querry error

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