Chinaunix首页 | 论坛 | 博客
  • 博客访问: 202915
  • 博文数量: 49
  • 博客积分: 1410
  • 博客等级: 上尉
  • 技术积分: 520
  • 用 户 组: 普通用户
  • 注册时间: 2008-03-24 09:35
文章分类

全部博文(49)

文章存档

2008年(49)

我的朋友

分类:

2008-04-18 10:55:23

REPORT  z_temp_demo.
TYPE-POOLS vrm.
DATA: itab TYPE vrm_values,
      wa_tab TYPE vrm_value.

PARAMETERS p_no LIKE zstudent-stu_no AS LISTBOX VISIBLE LENGTH 20.


INITIALIZATION.
  wa_tab-key = '1'.
  wa_tab-text = 'Manager'.
  APPEND wa_tab TO itab.

  wa_tab-key = '2'.
  wa_tab-text = 'Worker'.
  APPEND wa_tab TO itab.

  wa_tab-key = '3'.
  wa_tab-text = 'supervisor'.
  APPEND wa_tab TO itab.

 

 

AT SELECTION-SCREEN OUTPUT.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'P_NO'
      values = itab.

 

START-OF-SELECTION.
  WRITE: p_no.

阅读(995) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~