ABAP自定义Search help

来源：互联网发布：java获取环境变量编辑：程序博客网时间：2024/05/19 07:43

DATA L_ENDDA TYPE SY-DATUM.
  IF P_DATE IS INITIAL.
    CONCATENATE SY-DATUM(4) '1231' INTO L_ENDDA.
  ELSE.
    CONCATENATE P_DATE(4) '1231' INTO L_ENDDA.
  ENDIF.

  DATA:
  LV_RESET(1) TYPE C,
  LT_RETURN_TAB TYPE TABLE OF DDSHRETVAL,
  LT_FILED_TAB TYPE TABLE OF DFIES,
  BEGIN OF LT_GRADE OCCURS 0,
  GRADE TYPE ZZRCG,
  END OF LT_GRADE,
  LW_RETURN TYPE DDSHRETVAL,
  LW_FILED TYPE DFIES.
  CONSTANTS:
  LCNS_RETFIELD TYPE DFIES-FIELDNAME VALUE 'GRADE',"表中的字段名
  LCNS_DNF TYPE HELP_INFO-DYNPROFLD VALUE 'S_GRADE-LOW',
  LCNS_VALUE_ORG TYPE DDBOOL_D VALUE 'S'.
  SELECT ZZRCG
  FROM Z02HRTRCHARGE
  INTO TABLE LT_GRADE WHERE ENDDA = L_ENDDA.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD        = LCNS_RETFIELD
      DYNPPROG        = SY-REPID
      DYNPNR          = SY-DYNNR
      DYNPROFIELD     = LCNS_DNF
      WINDOW_TITLE    = TEXT-010
      VALUE_ORG       = LCNS_VALUE_ORG
    IMPORTING
      USER_RESET      = LV_RESET
    TABLES
      VALUE_TAB       = LT_GRADE[]
      RETURN_TAB      = LT_RETURN_TAB
    EXCEPTIONS
      PARAMETER_ERROR = 1
      NO_VALUES_FOUND = 2
      OTHERS          = 3.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID
    TYPE SY-MSGTY
    NUMBER SY-MSGNO
    WITH SY-MSGV1
    SY-MSGV2
    SY-MSGV3
    SY-MSGV4.
  ENDIF.