动态改变选择屏幕选择文本

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