Problem with selection screen input

Question

my problem is when i enter l2_gr or l1_vbeln or l2_vbeln, in the selection screen, the output should come according to that.I am not getting the correct result.
form summ_report.
  data: l2gr like ekbe-belnr.
   select fs_plant  fv_plant    f~r_plant
          fl1_sto        pl1_delivery  p~l1_gr
          pl2_sto        pl2_delivery  p~bsl_err_message
          kebeln         pl1_pgi       p~l2_pgi
   into (dochdr-swerks,   dochdr-vwerks,   dochdr-rwerks,
         dochdr-l1sto,    docitem-l1xblnr, docitem-l1gr,
        docitem-l2sto,   docitem-l2xblnr, docitem-err_msg,
         tabekko-ebeln,   docitem-l1pgi,   docitem-l2pgi)
   from zdochdr as f inner join zdocitem as p
                      on fl1_sto  =  pl1_sto inner join
            ekko as k on pl1_sto  = kebeln
   where f~s_plant     in s_werks  and
         f~v_plant        in v_werks  and
         f~r_plant  in r_werks  and
         f~l1_sto           in l1_sto   and
         p~l1_delivery      in l1_xblnr and
         p~l1_gr            in l1_gr    and
         p~l2_sto           in l2_sto   and
         p~l2_delivery      in l2_xblnr and
         k~aedat            in s_aedat.
move : dochdr-swerks    to  final_data-i_swerks,
        dochdr-vwerks    to  final_data-i_vwerks,
        dochdr-rwerks    to  final_data-i_rwerks,
        dochdr-l1sto     to  final_data-i_l1sto,
        docitem-l1xblnr  to  final_data-i_l1xblnr,
        docitem-l1gr     to  final_data-i_l1gr,
        docitem-l2sto    to  final_data-i_l2sto,
        docitem-l2xblnr  to  final_data-i_l2xblnr,
        docitem-l2pgi    to  final_data-i_l2pgi,
        docitem-l1pgi    to  final_data-i_l1pgi,
        docitem-err_msg  to  final_data-i_errmsg.
        append final_data.
    endselect.
L2 Goods receipt
loop at final_data.
  select single belnr from ekbe into l2gr
    where ebeln = final_data-i_l2sto and
              belnr in l2_gr and
              bwart = '101' and
              bewtp = 'E' and
              vgabe = '1'.
  if sy-subrc eq 0.
    move l2gr to final_data-i_l2gr.
  endif.
leg1 Billing document
select vbeln from vbfa into (tabvbfa-vbeln)
  where vbeln in l1_vbeln and vbelv in (final_data-i_l2xblnr,final_data-i_l1xblnr).
select single vbeln from vbrk into tabvbrk-vbeln
   where vbeln = tabvbfa-vbeln and fkart = 'IV'.
  if sy-subrc eq 0.
     move tabvbrk-vbeln to final_data-i_l1vbeln.
  endif.
   endselect.
leg2 Billing document
select vbeln from vbfa into (tabvbfa-vbeln1)
         where vbeln in l2_vbeln and
         vbelv in (final_data-i_l2xblnr,
                         final_data-i_l1xblnr).
select single vbeln from vbrk into tabvbrk-vbeln1 where
                vbeln = tabvbfa-vbeln1 and fkart = 'ZTYS'.
    if sy-subrc eq 0.
        move tabvbrk-vbeln1 to final_data-i_l2vbeln.
    endif.
   endselect.
<b>if not l2_gr is initial or
    not l1_vbeln is initial or
     not l2_vbeln is initial.</b>        modify final_data.
  else.
     delete final_data.
  endif.
  endloop.
endform.
please help....
Thanks,
fractal.

Answer 1

I think the code in bold is what you are trying to do.
form summ_report.
  data: l2gr like ekbe-belnr.
  select f~s_plant f~v_plant     f~r_plant
         f~l1_sto  p~l1_delivery p~l1_gr
         p~l2_sto  p~l2_delivery p~bsl_err_message
         k~ebeln   p~l1_pgi      p~l2_pgi
    into (dochdr-swerks, dochdr-vwerks,   dochdr-rwerks,
          dochdr-l1sto,  docitem-l1xblnr, docitem-l1gr,
          docitem-l2sto, docitem-l2xblnr, docitem-err_msg,
          tabekko-ebeln, docitem-l1pgi,   ocitem-l2pgi)
    from zdochdr as f inner join zdocitem as p
      on f~l1_sto = p~l1_sto inner join ekko as k
      on p~l1_sto = k~ebeln
   where f~s_plant     in s_werks
     and f~v_plant     in v_werks
     and f~r_plant     in r_werks
     and f~l1_sto      in l1_sto
     and p~l1_delivery in l1_xblnr
     and p~l1_gr       in l1_gr
     and p~l2_sto      in l2_sto
     and p~l2_delivery in l2_xblnr
     and k~aedat       in s_aedat.
    move: dochdr-swerks   to final_data-i_swerks,
          dochdr-vwerks   to final_data-i_vwerks,
          dochdr-rwerks   to final_data-i_rwerks,
          dochdr-l1sto    to final_data-i_l1sto,
          docitem-l1xblnr to final_data-i_l1xblnr,
          docitem-l1gr    to final_data-i_l1gr,
          docitem-l2sto   to final_data-i_l2sto,
          docitem-l2xblnr to final_data-i_l2xblnr,
          docitem-l2pgi   to final_data-i_l2pgi,
          docitem-l1pgi   to final_data-i_l1pgi,
          docitem-err_msg to final_data-i_errmsg.
    append final_data.
  endselect.
* L2 Goods receipt
  loop at final_data.
    select single belnr from ekbe
                        into l2gr
                       where ebeln = final_data-i_l2sto
                         and belnr in l2_gr
                         and bwart = '101'
                         and bewtp = 'E'
                         and vgabe = '1'.
    if sy-subrc eq 0.
      move l2gr to final_data-i_l2gr.
    endif.
* leg1 Billing document
    select vbeln from vbfa
                 into tabvbfa-vbeln
                where vbeln in l1_vbeln
                  and vbelv in (final_data-i_l2xblnr,final_data-i_l1xblnr).
      select single vbeln from vbrk
                          into tabvbrk-vbeln
                         where vbeln = tabvbfa-vbeln
                           and fkart = 'IV'.
      if sy-subrc eq 0.
        move tabvbrk-vbeln to final_data-i_l1vbeln.
      endif.
    endselect.
* leg2 Billing document
    select vbeln from vbfa
                 into tabvbfa-vbeln1
                where vbeln in l2_vbeln
                  and vbelv in (final_data-i_l2xblnr, final_data-i_l1xblnr).
      select single vbeln from vbrk
                          into tabvbrk-vbeln1
                         where vbeln = tabvbfa-vbeln1
                           and fkart = 'ZTYS'.
      if sy-subrc eq 0.
        move tabvbrk-vbeln1 to final_data-i_l2vbeln.
      endif.
    endselect.
    if not <b>final_data-i_l2gr</b>    is initial or
       not <b>final_data-i_l1vbeln</b> is initial or
       not <b>final_data-i_l2vbeln</b> is initial.
      modify final_data.
    else.
      delete final_data.
    endif.
  endloop.
endform.