Code: Alles auswählen.
* Erstellen des Eintrags zur komprimierten Anlage
OBJPACK-TRANSF_BIN = 'X'.
OBJPACK-HEAD_START = 1.
OBJPACK-HEAD_NUM = 0.
OBJPACK-BODY_START = z_anf.
OBJPACK-BODY_NUM = TAB_LINES.
OBJPACK-DOC_TYPE = exttab(3).
OBJPACK-OBJ_NAME = 'ANLAGE'.
read table exttab index 1.
OBJPACK-OBJ_DESCR = exttab.
*OBJPACK-DOC_SIZE = size.
objpack-doc_size = ( tab_lines - 1 ) * 255 + strlen( objbin ).
APPEND OBJPACK.
add tab_lines to z_anf.
Code: Alles auswählen.
* Versenden des Dokuments
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
EXPORTING
DOCUMENT_DATA = DOC_CHNG
PUT_IN_OUTBOX = 'X'
TABLES
PACKING_LIST = OBJPACK
OBJECT_HEADER = OBJHEAD
* CONTENTS_BIN = objbin
CONTENTS_hex = objbin
CONTENTS_TXT = OBJTXT
RECEIVERS = RECLIST