REPORT z_barry_test NO STANDARD PAGE HEADING.
TABLES equi.
TYPES: imas_bool(1) TYPE c .
TYPES: BEGIN 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.
TYPES: BEGIN 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.
阅读(5300) | 评论(0) | 转发(0) |