REPORT z_barry_test2.
TABLES proj.
DATA: stext TYPE co_sttxt.
SELECT-OPTIONS s_pspnr FOR proj-pspnr.
SELECT * FROM proj WHERE pspnr IN s_pspnr.
CALL FUNCTION 'STATUS_TEXT_EDIT'
EXPORTING
objnr = proj-objnr
spras = sy-langu
bypass_buffer = 'X'
IMPORTING
line = stext
EXCEPTIONS
object_not_found = 1
OTHERS = 2.
IF sy-subrc = 0.
WRITE : / proj-pspnr,stext.
ENDIF.
ENDSELECT.
阅读(3870) | 评论(2) | 转发(2) |