Manchmal ist es nötig, einen eigenen Spool zu erzeugen.
e.g.: SP01 / Spool mit 2 Zeilen text erzeugen.
- Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
- *&---------------------------------------------------------------------*
- *& Report ZCREATE_SPOOL
- *&---------------------------------------------------------------------*
- *&
- *&---------------------------------------------------------------------*
- REPORT zcreate_spool.
- PERFORM write_spool.
- *&---------------------------------------------------------------------*
- *& Form WRITE_LOG
- *&---------------------------------------------------------------------*
- * text
- *----------------------------------------------------------------------*
- * --> p1 text
- * <-- p2 text
- *----------------------------------------------------------------------*
- FORM write_spool.
- lv_handle TYPE sy-tabix,
- lv_spool_id TYPE tsp01-rqident,
- lv_name TYPE tsp01-rq0name,
- lv_titleline TYPE tsp01-rqtitle,
- lv_receiver TYPE tsp01-rqreceiver,
- lv_rc TYPE c,
- lv_errmsg(100) TYPE c,
- lv_text(70) TYPE c,
- lv_spool_nr TYPE tsp01-rqident.
- "
- lv_receiver,
- lv_titleline,
- lv_handle,
- lv_spool_nr,
- lv_rc,
- lv_errmsg.
- * Set the name,title,receiver of the spool
- lv_name = 'LIST1S'.
- lv_titleline = 'My own Spool request'.
- lv_receiver = sy-uname.
- * Open the spool request for an ABAPLIST
- CALL FUNCTION 'RSPO_OPEN_SPOOLREQUEST'
- EXPORTING
- dest = 'LP01'
- name = lv_name
- copies = 1
- immediate_print = ' '
- titleline = lv_titleline
- receiver = lv_receiver
- doctype = 'LIST'
- IMPORTING
- handle = lv_handle
- spoolid = lv_spool_nr
- rc = lv_rc
- errmessage = lv_errmsg.
- * Write One line to the Spool incl. a horizontal Tab
- "lv_row = 'Lorem ipsum dolor sit amet, his et malis senserit, '.
- 'Lorem ipsum dolor sit amet,'
- 'his et malis senserit, '
- INTO lv_row SEPARATED BY c_ht.
- CALL FUNCTION 'RSPO_WRITE_SPOOLREQUEST'
- EXPORTING
- handle = lv_handle
- text = lv_row
- "length = 3
- IMPORTING
- rc = lv_rc
- errmessage = lv_errmsg
- EXCEPTIONS
- handle_not_valid = 1
- OTHERS = 2.
- * Write One line to the Spool
- lv_row = 'Veri natum voluptua nam cu, quo no tation lobortis tractatos. '.
- CALL FUNCTION 'RSPO_WRITE_SPOOLREQUEST'
- EXPORTING
- handle = lv_handle
- text = lv_row
- "length = 3
- IMPORTING
- rc = lv_rc
- errmessage = lv_errmsg
- EXCEPTIONS
- handle_not_valid = 1
- OTHERS = 2.
- * Close the spool request
- CALL FUNCTION 'RSPO_CLOSE_SPOOLREQUEST'
- EXPORTING
- handle = lv_handle
- IMPORTING
- rc = lv_rc
- errmessage = lv_errmsg
- EXCEPTIONS
- handle_not_valid = 1
- OTHERS = 2.
- 'File Extraction results sent to spool' lv_spool_nr.
- GeSHi ©
gruß Jens