STATUS_TEXT 对象状态

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.