*사업자등록번호 값 체크
  IF sy-tcode = 'FD01'.

*사업자등록번호 값이 중복되는지 검사 ------------------------------

    DATA : lt_kna1  LIKE kna1 OCCURS 0 WITH HEADER LINE.

    DATA : lv_subrc LIKE sy-subrc,
           lv_kunnr  LIKE  kna1-kunnr,
           lv_stcd2  LIKE  kna1-stcd1.

    CLEAR : lv_kunnr, lv_stcd2, lv_subrc, lt_kna1, lt_kna1[].

*사업자등록번호 들고오기
    CLEAR: scr_fields[].
    scr_fields-fieldname = 'KNA1-STCD2'.
    APPEND scr_fields.

    CALL FUNCTION 'DYNP_VALUES_READ'
      EXPORTING
        dyname               = sy-cprog
        dynumb               = sy-dynnr
      TABLES
        dynpfields           = scr_fields
      EXCEPTIONS
        invalid_abapworkarea = 1
        invalid_dynprofield  = 2
        invalid_dynproname   = 3
        invalid_dynpronummer = 4
        invalid_request      = 5
        no_fielddescription  = 6
        invalid_parameter    = 7
        undefind_error       = 8
        OTHERS               = 9.

    CHECK sy-subrc = 0.
    READ TABLE scr_fields INDEX 1.
    lv_stcd2 = scr_fields-fieldvalue.

*사업자등록번호 체크
    IF NOT lv_stcd2 IS INITIAL.
      CLEAR : lv_subrc.

SELECT SINGLE * INTO TABLE lt_kna1
             FROM  kna1
WHERE stcd2 = lv_stcd2.
lv_subrc = sy-subrc.

      IF lv_subrc = 0.
        MESSAGE e398(00) WITH '동일한 사업자번호가 이미 존재합니다’.
        EXIT.
      ENDIF.
    ENDIF.
ENDIF.