CHECK sy-tcode = 'AS02' OR sy-tcode = 'AS01'.

*필드값 읽어올때 사용할 인터널 테이블
*필드엑싯은 필드엑싯만 있는 전용 Function Group을 만들어서
*사용하고 scr_fields 선언은 top에 한번만 하면 된다.
*여기서는 그냥 보여주기 편하게 하기위해 함수내에 선언함
  DATA : scr_fields LIKE dynpread OCCURS 1 WITH HEADER LINE.
*

  DATA : lv_gsber  LIKE  anlz-gsber.

*사업영역 값 읽어오기
  CLEAR: scr_fields[].
  scr_fields-fieldname = 'ANLZ-GSBER'.  "F1에 나오는 화면 필드값
  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_gsber = scr_fields-fieldvalue.

  IF lv_gsber NE '2000'.
    MESSAGE e398(00) WITH '사업영역은 2000만 입력해주세요'.
    EXIT.

  ENDIF.