report z_barry_mod_sel_text.
tables mara.
parameter p_test(10) .
select-options: s_test for mara-matnr ,
s_matnr for mara-matnr .
at selection-screen output.
perform mod_sel_text using sy-repid 'P' 'P_TEST' 'P 类型测试' .
perform mod_sel_text using sy-repid 'S' 'S_TEST' 'S 类型测试' .
*&---------------------------------------------------------------------*
*& FORM MOD_SEL_TEXT
*&---------------------------------------------------------------------*
form mod_sel_text using p_repid kind parameter text .
data sel type rsseltexts occurs 1 with header line.
refresh sel.
sel -name = parameter.
sel -kind = kind.
sel -text = text.
append sel.
call function 'SELECTION_TEXTS_MODIFY'
exporting
program = p_repid
tables
seltexts = sel
exceptions
program_not_found = 1
program_cannot_be_generated = 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.
endform. "MOD_SEL_TEXT
tables mara.
parameter p_test(10) .
select-options: s_test for mara-matnr ,
s_matnr for mara-matnr .
at selection-screen output.
perform mod_sel_text using sy-repid 'P' 'P_TEST' 'P 类型测试' .
perform mod_sel_text using sy-repid 'S' 'S_TEST' 'S 类型测试' .
*&---------------------------------------------------------------------*
*& FORM MOD_SEL_TEXT
*&---------------------------------------------------------------------*
form mod_sel_text using p_repid kind parameter text .
data sel type rsseltexts occurs 1 with header line.
refresh sel.
sel -name = parameter.
sel -kind = kind.
sel -text = text.
append sel.
call function 'SELECTION_TEXTS_MODIFY'
exporting
program = p_repid
tables
seltexts = sel
exceptions
program_not_found = 1
program_cannot_be_generated = 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.
endform. "MOD_SEL_TEXT