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.
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.