Action selon ENV et PARAM USER

form _bypass using iv_name type syst_uname changing ev_bypass type xfeld.
* Si on est en DEV lis le paramètre ZEEB_BYPASS pour éviter les contrôles
  data :  lv_logsys type logsys,
          lt_usrpar type ustyp_t_parameters.
  field-symbols <ls_usrpar> like line of lt_usrpar.
  call function 'OWN_LOGICAL_SYSTEM_GET'
    importing
      own_logical_system             = lv_logsys
    exceptions
      own_logical_system_not_defined = 1
      others                         = 2.
  if lv_logsys eq cv_sys_dev.
    call function 'SUSR_USER_PARAMETERS_GET'
      exporting
        user_name           = iv_name
      tables
        user_parameters     = lt_usrpar
      exceptions
        user_name_not_exist = 1
        others              = 2.
    if sy-subrc <> 0.
    endif.
    read table lt_usrpar with key parid = cv_param_bypass assigning <ls_usrpar>.
    if <ls_usrpar> is assigned.
      if <ls_usrpar>-parva = abap_true.
        ev_bypass = abap_true.
        message i022 with cv_param_bypass.
        return.
      endif.
    endif.
  endif.
endform.