FORM check_faus  USING    p_table TYPE tabname16
                          p_field TYPE fieldname
                          p_bschl LIKE bsis-bschl
                 CHANGING p_ch_faus TYPE c.

  DATA: modif LIKE tmodu-modif,
        faus1 LIKE tbsl-faus1,
        faus2 LIKE tbsl-faus1,
        pos   LIKE sy-tabix.

  p_ch_faus = '-'.

  SELECT SINGLE modif FROM tmodu INTO modif
          WHERE fauna = 'SKB1-FAUS1'
          AND   tabnm = p_table
          AND   feldn = p_field
          AND   koart = 'S'.

  CHECK sy-subrc IS INITIAL.

  CALL FUNCTION 'FI_FIELD_SELECTION_DETERMINE'
    EXPORTING
      i_bschl     = p_bschl
      i_bukrs     = wa_fb01-bukrs
      i_saknr     = wa_fb01-hkont
    IMPORTING
      e_faus1     = faus1
      e_faus2     = faus2
    EXCEPTIONS
      customizing = 1
      OTHERS      = 2.

  CHECK sy-subrc IS INITIAL.

  IF modif > 90.
    pos = modif - 91.
    p_ch_faus = faus2+pos(1).
  ELSEIF modif < 50.
    pos = modif - 1.
    p_ch_faus = faus1+pos(1).
  ELSE.
    p_ch_faus = '-'.
  ENDIF.

ENDFORM.                    " check_faus