Code: Alles auswählen.
* Anzahl der Tabellen-Zeilen für den Text (RAW)
DESCRIBE TABLE objtxt LINES tab_lines.
READ TABLE objtxt INDEX tab_lines.
doc_chng-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
* Creation of the entry for the compressed document
CLEAR objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'RAW'.
APPEND objpack.
* Anzahl der Tabellen-Zeilen für das Attachment
CLEAR tab_lines.
DESCRIBE TABLE objbin LINES tab_lines.
objhead = 'SPOOL.PDF'.
APPEND objhead.
* Creation of the entry for the compressed attachment
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'PDF'.
objpack-obj_name = 'SPOOL'.
objpack-obj_descr = p_report.
objpack-doc_size = tab_lines * 255.
APPEND objpack.