PARAMETERS: content TYPE /ipro/tdocmnt-content DEFAULT 'DLA',document TYPE /ipro/tdocmnt-docmnt_id.
*data: document TYPE /ipro/tdocmnt-docmnt_id value '0000000815'.DATA: lt_contents TYPE /ipro/tt_contents,lo_content TYPE REF TO /ipro/if_content,lo_doc_factory TYPE REF TO /ipro/if_docb_factory,lo_document TYPE REF TO /ipro/if_document,lv_content TYPE string,lo_exception TYPE REF TO /ipro/cx_serializer_failed_at,lv_error_text TYPE string.lv_content = content.CALL FUNCTION '/IPRO/CONTENT_FACTORY'EXPORTINGpiv_name = lv_contentIMPORTINGpet_contents = lt_contents.READ TABLE lt_contents INTO lo_content INDEX 1.
CHECK lo_content IS BOUND.
lo_doc_factory = lo_content->get_docb_factory( ).
TRY.lo_document ?= lo_doc_factory->open( piv_docmnt_id = document ).CATCH /ipro/cx_serializer_failed_at INTO lo_exception.lv_error_text = lo_exception->get_name( ).WRITE: /,lv_error_text.
ENDTRY.data: ls_output TYPE /IPRO/S_OUTPUT.
WRITE sy-uzeit.
lo_document->/ipro/if_output~enable( '1' ).
ls_output = lo_document->/IPRO/IF_OUTPUT~GENERATE( '1' ).