* Dokumentart (TA DC10, Tabelle TDWA)
PARAMETERS: p_type TYPE bapi_doc_aux-doctype OBLIGATORY.
* Dokumentnummer, mit Suchhilfe auf Tabelle DRAW (Dokumentinformationssatz)
PARAMETERS: p_num TYPE bapi_doc_aux-docnumber OBLIGATORY DEFAULT '10000000001' MATCHCODE OBJECT /plmb/dir_elm.
* Teildokument
PARAMETERS: p_part TYPE bapi_doc_aux-docpart OBLIGATORY DEFAULT '000'.
* Dokumentversion
PARAMETERS: p_ver TYPE bapi_doc_aux-docversion OBLIGATORY DEFAULT '00'.
START-OF-SELECTION.
DATA: lv_statusextern TYPE bapi_doc_draw-statusextern.
DATA: lv_statusintern TYPE bapi_doc_draw-statusintern.
DATA: lv_statusdescription TYPE bapi_doc_tdws-description.
DATA: lv_return TYPE bapiret2.
* Read Document Status
CALL FUNCTION 'BAPI_DOCUMENT_GETSTATUS'
EXPORTING
documenttype = p_type
documentnumber = p_num
documentpart = p_part
documentversion = p_ver
IMPORTING
statusextern = lv_statusextern
statusintern = lv_statusintern " Statuswerte in Tabelle TDWS
statusdescription = lv_statusdescription
return = lv_return.
IF lv_return-type CA 'EA'.
ELSE.
cl_demo_output=>write_data( lv_statusextern ).
cl_demo_output=>write_data( lv_statusintern ).
cl_demo_output=>write_data( lv_statusdescription ).
cl_demo_output=>write_data( lv_return ).
* HTML-Code vom Demo-Output holen
DATA(lv_html) = cl_demo_output=>get( ).
* Daten im Inline-Browser im SAP-Fenster anzeigen
cl_abap_browser=>show_html( EXPORTING title = 'Daten'
html_string = lv_html
container = cl_gui_container=>default_screen ).
* cl_gui_container=>default_screen erzwingen
WRITE: space.
ENDIF.