Field ranges

Question

Hi Gurus!
In my program I ahve a selection screen which allows us to enter data and then
on executing the program it inserst or updates or shows data already exists .
There are 3 field sin the selection screen which allows a numberic value
which can be put there and insert that into the table which it uploads.
These there fields have a range of between 0-10, 00-99, and 00-zz, so
any values in between the range showuld only get inserted bewteen these range .
But when I put anything beyond this range its till inserts it into the table
which is wrong. Should I specify the range for all these fields in my selection
or initialize thos e field with the numbers or teher is something els
ethat I need to do.
selection-screen  begin of block 3 with frame title text-003. " DLS.
parameters:
  pa_zlsd      type zsds_uwi-zlsd modif id g1,      " Location SubDivision.
  pa_zsec      type zsds_uwi-zsec modif id g1,      " Section.
  pa_ztwp      type zsds_uwi-ztwp modif id g1,      " Township.
  pa_zrang    type zsds_uwi-zrange modif id g1,     " Range.
  pa_zmeri     type zsds_uwi-zmeridian modif id g1. " Meridian.
selection-screen  end of block 3.
start-of-selection.
  if pa_dls = cl_abap_typedescr=>true.
    select single * from zwell_dls where
      bukrs     = pa_bukrs and
      land1     = pa_land1 and
      regio     = pa_regio and
      zss       = '1'      and
      zle       = pa_zle   and
      zlsd      = pa_zlsd  and
      zsec      = pa_zsec  and
      ztwp      = pa_ztwp  and
      zrange    = pa_zrang and
      zmeridian = pa_zmeri and
      zevent    = pa_zeven and
      ztype     = 'W'.
Thanks
Aarav

Answer 1

Thanks it works but one thing has stopped , there are two radiobuttons which controil a third selection screen , when first is selected a particluar selection screen comes and when second another comes into play , unfortunatley the second one is  onmot popping out at all and gives me the error messhe for the second insted.
PARAMETERS:
  pa_bukrs TYPE bukrs DEFAULT '1000',
  pa_land1 TYPE kna1-land1 DEFAULT 'CA' OBLIGATORY,         " Land1.
  pa_regio TYPE kna1-regio DEFAULT 'AB' OBLIGATORY, " Region.
  pa_zle      TYPE zdt_zle DEFAULT '00' OBLIGATORY, " Location Exception Code.
  pa_zeven    TYPE zsds_uwi-zevent DEFAULT '00'.    " Event Sequence.
SELECTION-SCREEN  END OF BLOCK 1.
SELECTION-SCREEN  BEGIN OF BLOCK 2 WITH FRAME TITLE text-002. " Mode.
PARAMETERS:
  pa_dls TYPE c RADIOBUTTON GROUP g1
  DEFAULT 'X' USER-COMMAND shift,               " DLS
  pa_nts TYPE c RADIOBUTTON GROUP g1.           " NTS
SELECTION-SCREEN  END OF BLOCK 2.
SELECTION-SCREEN  BEGIN OF BLOCK 3 WITH FRAME TITLE text-003. " DLS.
PARAMETERS:
  pa_zlsd      TYPE zsds_uwi-zlsd MODIF ID g1,      " Location SubDivision.
  pa_zsec      TYPE zsds_uwi-zsec MODIF ID g1,      " Section.
  pa_ztwp      TYPE zsds_uwi-ztwp MODIF ID g1,      " Township.
  pa_zrang    TYPE zsds_uwi-zrange MODIF ID g1,     " Range.
  pa_zmeri     TYPE zsds_uwi-zmeridian MODIF ID g1. " Meridian.
SELECTION-SCREEN  END OF BLOCK 3.
SELECTION-SCREEN  BEGIN OF BLOCK 4 WITH FRAME TITLE text-004. " NTS.
PARAMETERS:
  pa_zqu       TYPE zsds_uwi-zqu   MODIF ID g2 ,   " Quarter Unit.
  pa_zunit     TYPE zsds_uwi-zunit MODIF ID g2 ,   " Unit.
  pa_zbloc    TYPE zsds_uwi-zblock MODIF ID g2,    " Block.
  pa_zshee    TYPE zsds_uwi-zsheet MODIF ID g2,    " Sheet.
  pa_zmusu    TYPE zsds_uwi-zmusub MODIF ID g2,    " Map Unit Subdivision.
  pa_zmaps     TYPE zsds_uwi-zmapsheet MODIF ID g2.
SELECTION-SCREEN  END OF BLOCK 4.
AT SELECTION-SCREEN OUTPUT.
*-Screen grouping for DLS/NTS
  IF pa_dls = 'X'.
    LOOP AT SCREEN.
      CHECK screen-group1 = 'G2'.
      screen-active = 0.
      MODIFY SCREEN.
    ENDLOOP.
  ELSE.
    LOOP AT SCREEN.
      CHECK screen-group2 = 'G1'.
      screen-active = 0.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.
AT SELECTION-SCREEN.
* Check whether region entered is applicable for the survey system selected.
  IF pa_dls = 'X'.
    IF pa_regio NE 'AB' AND pa_regio NE 'MB'
    AND pa_regio NE 'SK' AND pa_regio NE 'BC'.
      MESSAGE e010(zsd).
    ENDIF.
    if pa_zlsd not between 00 and 16 .
      message e044(zsd) .
    elseif pa_zsec not between  00 and 36.
      message e045(zsd) .
    elseif pa_ztwp not between 000 and 126.
      message e046(zsd) .
    elseif pa_zrang  not between 00 and 34.
      message e047(zsd) .
    elseif pa_zmeri not between 00 and 06.
      message e048(zsd) .
    endif.
*endif.
*endif.
  ELSE.
    IF pa_regio NE 'BC'.
      MESSAGE e008(zsd).
    ENDIF.
     if pa_zqu not between 'A' and 'D'.
        message e049(zsd).
      elseif pa_zunit not between 0001 and 126.
        message e050(zsd).
      elseif pa_zbloc not between 'A' and 'L'.
        message e051(zsd).
      elseif pa_zshee not between 001 and 100.
        message e052(zsd).
      elseif pa_zmusu not between 'A' and 'P'.
        message e053(zsd).
      elseif pa_zmaps not between 01 and 16.
        message e054(zsd).
*endif.
*endif.
endif.
  ENDIF.
Thanks