Chinaunix首页 | 论坛 | 博客
  • 博客访问: 23143
  • 博文数量: 6
  • 博客积分: 112
  • 博客等级: 民兵
  • 技术积分: 55
  • 用 户 组: 普通用户
  • 注册时间: 2012-11-03 18:05
文章分类
文章存档

2012年(6)

我的朋友

分类:

2012-11-04 00:06:16

REPORT  z_barry_mod_sel_text.
 
TABLES mara.
 
PARAMETER p_test(10).
SELECT-OPTIONS: s_test FOR mara-matnr ,
                s_matnr FOR mara-matnr .
 
*INITIALIZATION.
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



或者:
REPORT z_barry_test.

PARAMETERS: p_test(20).

AT SELECTION-SCREEN OUTPUT .
  %_p_test_%_app_%-text = p_test.
阅读(742) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~