Serach help in module pool programming
With the help of below T-code you can write serach help
Serch Help In Module Pool Programming Language
PROCESS ON VALUE-REQUEST.
FIELD vbak-ZZPORTLD MODULE f4_ZZORTLD.
FIELD vbak-ZZPORTLD MODULE f4_ZZORTLD.
MODULE f4_zzortld INPUT.
TYPES: BEGIN OF ty_value,
ZCODE TYPE ZCODE,
ZSDPORT TYPE ZSDPORT1,
END OF ty_value.
DATA: lt_value TYPE STANDARD TABLE OF ty_value,
lw_value TYPE ty_value.
SELECT ZCODE ZSDPORT INTO TABLE lt_value FROM ZSDPORT.
* WHERE ebeln = rm08m-ebeln.
SORT lt_value BY ZCODE ZSDPORT.
DELETE ADJACENT DUPLICATES FROM lt_value COMPARING ZCODE ZSDPORT.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'ZCODE'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'VBAK-ZZPORTLD'
value_org = 'S'
TABLES
value_tab = lt_value
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
ENDMODULE.
TYPES: BEGIN OF ty_value,
ZCODE TYPE ZCODE,
ZSDPORT TYPE ZSDPORT1,
END OF ty_value.
DATA: lt_value TYPE STANDARD TABLE OF ty_value,
lw_value TYPE ty_value.
SELECT ZCODE ZSDPORT INTO TABLE lt_value FROM ZSDPORT.
* WHERE ebeln = rm08m-ebeln.
SORT lt_value BY ZCODE ZSDPORT.
DELETE ADJACENT DUPLICATES FROM lt_value COMPARING ZCODE ZSDPORT.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'ZCODE'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'VBAK-ZZPORTLD'
value_org = 'S'
TABLES
value_tab = lt_value
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
ENDMODULE.
Comments
Post a Comment