Example
*** Screen Flow ***
PROCESS ON VALUE-REQUEST.
FIELD scn_kokrs MODULE create_value_request.
*** ABAP Editor ***
MODULE create_value_request INPUT.
DATA: BEGIN OF itab_request OCCURS 0,
kokrs LIKE TKA01-KOKRS,
bezei LIKE TKA01-BEZEI,
END OF itab_request.
SELECT KOKRS BEZEI
FROM TKA01
INTO TABLE itab_request.
CALL FUNCTION ’F4IF_INT_TABLE_VALUE_REQUEST’
EXPORTING
retfield = ’KOKRS’
value_org = ’S’
TABLES
value_tab = itab_request
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.
ENDMODULE.
No comments:
Post a Comment