How to make a selection screen two fields obligatory

Question

Dear friends...
   I wish to know how i make two fields obligatory in the selection screen
like
   select-options  Po_Num for  ekpo-ebeln obligatory.
   select-options  Po_Date for  ekko-aedat.
   select-options  Material for  mara-matnr.
in the above example i am looking for po_num and po_date both obligatory but if i dont enter data in the po_num, po_dat becomes obligatory and po_dat has no data entererd po_num is obligatory. i wish to know how i achieve single field act as a obligatory in absence of another field. please help in this regards..
thanking you,,,
regards.
Naim

Answer 1

REPORT  ZMM_COMP_POS  no standard page heading line-size 225
tables:  ekko, ekpo, mara.
data: begin of i_ekko occurs 0,
      ebeln like ekko-ebeln,
      ebelp like ekpo-ebelp,
      matnr like mara-matnr,
      aedat like ekko-aedat,
      waers like ekko-waers,
      ernam like ekko-ernam,
      end of i_ekko.
data: begin of i_ekpo occurs 0,
      ebeln like ekpo-ebeln,
      ebelp like ekpo-ebelp,
      matnr like mara-matnr,
      aedat like ekpo-aedat,
      waers like ekko-waers,
      menge like ekpo-menge,
      meins like ekpo-meins,
      ernam like ekko-ernam,
      lgort like ekpo-lgort,
      netwr like ekpo-netwr,
      recd(16) type p decimals 3,
      rec_val(16) type p decimals 3,
      end of i_ekpo.
data: lines type i.
data :itab_output like i_ekpo occurs 0 with header line.
data: itab_output3 like standard table of itab_output .
data  data.
data  total like sy-dbcnt.
data  recd(16) type p decimals 3.
data  rec_val(16) type p decimals 3.
data : it like i_ekpo occurs 0 with header line.
selection-screen begin of block b1 with frame title text-010.
select-options Po_Num for ekpo-ebeln .
select-options Po_Date for ekko-aedat.
select-options Material for mara-matnr.
selection-screen end of block b1.
at selection-screen.
if po_num[] is initial
  and po_date[] is initial.
message e001(00) with 'Make at least one entry'.
endif.
start-of-selection.
if  PO_NUM is initial and
     Po_Date is initial or
     Material is initial.
         select ebeln ebelp matnr
                menge meins netwr
                aedat
                from ekpo
                into corresponding fields of table i_ekpo
                where ebeln in Po_Num.
endif.
        loop at i_ekpo.
              select ebeln aedat waers ernam
                     from ekko
                     into corresponding fields of table i_ekko
                     where ebeln in Po_Num.
              if sy-subrc = 0 .
                 i_ekpo-aedat = i_ekko-aedat.
                 i_ekpo-waers = i_ekko-waers.
                 i_ekpo-ebeln = i_ekko-ebeln.
                 i_ekpo-ernam = i_ekko-ernam.
                 modify i_ekpo transporting ebeln aedat waers
                                            ernam
                                            where ebeln = i_ekko-ebeln.
                 clear i_ekko.
               endif.
           endloop.
           describe table i_ekpo lines lines.
           if lines le 0.
              message e017(zk).
           endif.
      select ebeln ebelp matnr
             menge meins netwr
             werks
             from ekpo
             into corresponding fields of table i_ekpo
             for all entries in i_ekko
             where ebeln = i_ekko-ebeln .
      sort i_ekpo by ebeln ebelp.
      sort i_ekko by ebeln.
      loop at i_ekko.
        read table i_ekpo with key ebeln = i_ekko-ebeln.
        if sy-subrc = 0.
                 i_ekpo-aedat = i_ekko-aedat.
                 i_ekpo-waers = i_ekko-waers.
                 i_ekpo-ebeln = i_ekko-ebeln.
                 i_ekpo-ernam = i_ekko-ernam.
           modify i_ekpo transporting ebeln aedat waers
                                      ernam
                                      where ebeln = i_ekko-ebeln.
       endif.
    endloop.
  describe table i_ekpo lines lines.
  if lines le 0.
    message e017(zk).
  endif.
  loop at i_ekpo.
   write:/1 sy-vline,
       (5) i_ekpo-ebeln left-justified ,sy-vline,
       (10) i_ekpo-ebelp left-justified ,sy-vline,
       (15) i_ekpo-aedat left-justified ,sy-vline,
       (18) i_ekpo-ernam left-justified ,sy-vline,
       (23) i_ekpo-matnr left-justified , sy-vline,
       (27) i_ekpo-menge UNIT i_ekpo-meins left-justified , sy-vline,
       (29) i_ekpo-meins left-justified , sy-vline,
       (31) i_ekpo-netwr CURRENCY 'INR' left-justified ,sy-vline,
       (33) i_ekpo-waers left-justified ,sy-vline.
endloop.
   write:/(743) sy-uline.
top-of-page.
    write:/30  'ESSAR CONSTRUCTIONS LTD.' color 6 inverse.
    write:80 'DATE :' color 6 inverse, sy-datum  color 6 inverse.
    new-line no-scrolling.
    write:/30 'PO Details.' color 7 inverse.
     write: /(743) sy-uline.
  format color col_heading on.
     write:/1 sy-vline.
     write: (5) 'PO no.',sy-vline,
           (10) 'Item no.',sy-vline,
           (15) 'PO Date' color 1,sy-vline,
           (18) 'PO Created By.',sy-vline,
           (23) 'Material No.', sy-vline,
           (27) 'PO Quantity', sy-vline,
           (29) 'PO Unit', sy-vline,
           (31) 'PO Value',sy-vline,
           (33) 'Currency' , sy-vline.
    write:/(743) sy-uline.
    format reset.