Abap Select Options

parameters : so_bukrs like bkpf-bukrs default '6890' obligatory.
select-options so_lifnr for bseg-lifnr obligatory. "'220065'.
select-options so_budat for bkpf-budat.


selection-screen: begin of block head3 with frame title text-101.
parameters: so_po radiobutton group rad1 modif id a user-command r default 'X',
            so_npo radiobutton group rad1 modif id c.
selection-screen: end of block head3.

selection-screen: begin of block groupbox2 with frame title text-201.

select-options so_mtart for ekpo-mtart no intervals modif id b.
select-options so_hkont for bseg-hkont no intervals modif id d default '21211001'.
parameters : so_spec as checkbox modif id e user-command r.
select-options so_umskz for bseg-umskz modif id f.

selection-screen: end of block groupbox2.



at selection-screen output.

  if so_npo = ''.
    loop at screen.
      if screen-group1 = 'D' or screen-group1 = 'E' or screen-group1 = 'F'.
        clear so_hkont[].
        screen-invisible = '1'.
        screen-input = '0'.
        modify screen.
      endif.
    endloop.
  endif.

  if so_po = ''.
    loop at screen.
      if screen-group1 = 'B'.
        clear so_mtart[].
        screen-invisible = '1'.
        screen-input = '0'.
        modify screen.
      endif.
    endloop.
  endif.

  if so_spec = ''.
    loop at screen.
      if screen-group1 = 'F'.
        clear so_umskz[].
        screen-invisible = '1'.
        screen-input = '0'.
        modify screen.
      endif.
    endloop.
  endif.