弹窗输入内容，返回内容 不使用屏幕

DATA : L_RETURNCODE TYPE C .
DATA : L_DATUM TYPE SY-DATUM .

PERFORM GET_CHANGE_DATE USING '01' L_DATUM L_RETURNCODE .
CHECK L_RETURNCODE NE 'A' .
WRITE L_DATUM.

*&---------------------------------------------------------------------*
*&      Form  GET_CHANGE_DATE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_IND         text
*      -->P_BUDAT       text
*      -->P_RETURNCODE  text
*----------------------------------------------------------------------*
FORM GET_CHANGE_DATE USING P_IND P_BUDAT P_RETURNCODE .
  DATA: LT_FIELDS LIKE TABLE OF SVAL WITH HEADER LINE .
  DATA: L_RETURNCODE TYPE C .
  DATA: L_DATUM TYPE SY-DATUM .

  CASE P_IND .
    WHEN '01' .
      LT_FIELDS-TABNAME = 'MKPF'.
      LT_FIELDS-FIELDNAME = 'BUDAT'.
      LT_FIELDS-FIELDTEXT = '日期'.
      LT_FIELDS-FIELD_OBL = 'X' . " Required field flag
      L_DATUM = SY-DATUM .
      LT_FIELDS-VALUE = L_DATUM .
      APPEND LT_FIELDS.

      CALL FUNCTION 'POPUP_GET_VALUES'
        EXPORTING
          POPUP_TITLE = '输入日期'
        IMPORTING
          RETURNCODE  = P_RETURNCODE
        TABLES
          FIELDS      = LT_FIELDS.

  ENDCASE .

  IF P_RETURNCODE = 'A'. " 取消..
    EXIT.
  ELSE.
    READ TABLE LT_FIELDS INDEX 1 .
    P_BUDAT = LT_FIELDS-VALUE .
  ENDIF .

ENDFORM. " GET_CHANGE_DATE