Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7189069
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类:

2010-01-18 17:47:51

REPORT z_barry_test NO STANDARD PAGE HEADING.

TABLES equi.
TYPES: imas_bool(1) TYPE c .
TYPESBEGIN OF imas_objnr_act_error_rec,
         invalid_activity        TYPE imas_bool,
         activity_not_allowed    TYPE imas_bool,
         change_status_failed    TYPE imas_bool,
         no_authority            TYPE imas_bool,
       END OF imas_objnr_act_error_rec.
TYPESBEGIN OF imas_objnr_act_msg_rec,
         id TYPE symsgid,
         ty TYPE symsgty,
         no TYPE symsgno,
         v1 TYPE symsgv,
         v2 TYPE symsgv,
         v3 TYPE symsgv,
         v4 TYPE symsgv,
       END OF imas_objnr_act_msg_rec.

DATA:l_error_rec            TYPE imas_objnr_act_error_rec,
     l_msg_rec              TYPE imas_objnr_act_msg_rec,
     l_preform_activity     TYPE c.

PARAMETERS p_equnr TYPE equnr .

SELECT SINGLE * FROM equi WHERE equnr = p_equnr .
CALL FUNCTION 'IMAS_CHANGE_STATUS_SINGLE'
  EXPORTING
    i_objnr      = equi-objnr
    i_activity   = 'LVMS'
    i_check_only = ' '
  IMPORTING
    e_error_rec  = l_error_rec
    e_msg_rec    = l_msg_rec.

*    set_delete         'LKZS',
*    set_inactive       'INAK',
*    reset_inactive     'INAZ',
*    set_for_delete     'LVMS',
*    reset_for_delete   'LVMZ',

IF l_error_rec IS INITIAL.
  COMMIT WORK AND WAIT.
ENDIF.
WRITE l_error_rec.
阅读(5306) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~