TYPES: BEGIN OF GTY_F4_EBELP,
EBELN TYPE EBELN,
EBELP TYPE EBELP,
END OF GTY_F4_EBELP.
DATA: IT_F4_EBELP TYPE TABLE OF GTY_F4_EBELP.
PROCESS ON VALUE-REQUEST.
FIELD GS_RR_HDR-IMGRP MODULE CREATE_LIST.
FIELD GS_RR_HDR-EBELP MODULE F4_EBELP.
MODULE F4_EBELP INPUT.
SELECT
EBELN
EBELP
FROM EKPO
INTO CORRESPONDING FIELDS OF TABLE IT_F4_EBELP
WHERE EBELN EQ GS_RR_HDR-EBELN.
SORT IT_F4_EBELP BY EBELP.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
* DDIC_STRUCTURE = ' '
RETFIELD = 'EBELP'
* PVALKEY = ' '
DYNPPROG = SY-CPROG
DYNPNR = SY-DYNNR
DYNPROFIELD = 'GS_RR_HDR-EBELP'
* STEPL = 0
* WINDOW_TITLE =
* VALUE = ' '
VALUE_ORG = 'S'
* MULTIPLE_CHOICE = ' '
* DISPLAY = ' '
* CALLBACK_PROGRAM = ' '
* CALLBACK_FORM = ' '
* CALLBACK_METHOD =
* MARK_TAB =
* IMPORTING
* USER_RESET =
TABLES
VALUE_TAB = IT_F4_EBELP
* FIELD_TAB =
* RETURN_TAB =
* DYNPFLD_MAPPING =
* EXCEPTIONS
* PARAMETER_ERROR = 1
* NO_VALUES_FOUND = 2
* OTHERS = 3
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
ENDMODULE. " F4_EBELP INPUT
No comments:
Post a Comment