Code: Alles auswählen.
DATA: wa_params LIKE pri_params,
* lv_DAYS(1) TYPE N VALUE 2,
lv_count(3) TYPE n VALUE 1,
lv_valid TYPE c.
*--- Druckparameter setzen & Bild zur Drucksteuerung überspringen ---*
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING destination = 'LOCL'
copies = lv_count
list_name = 'RPTEDT00'
list_text = 'Versand Zeitnachweisformular'
immediately = ' '
* RELEASE = 'X'
* NEW_LIST_ID = 'X'
* EXPIRATION = DAYS
line_size = 90
line_count = 65
layout = 'X_65_90_A4_HOCH'
sap_cover_page = ' '
cover_page = ' '
* RECEIVER = 'SAP*' "???? Versorgen????
* DEPARTMENT = 'System' "???? Versorgen????
no_dialog = 'X'
IMPORTING out_parameters = wa_params
valid = lv_valid.
IF lv_valid EQ space.
*Errorhandling
ELSE.
*--- Zeitnachweisformular (RPTEDT00) als Spool-Auftrag erzeugen ---*
SUBMIT rptedt00
*** Hintergrundverarbeitung von RPTEDT00
USING SELECTION-SET gp_def_v
WITH pnppernr-low EQ pernr-pernr
*** Spool-Angaben
TO SAP-SPOOL
SPOOL PARAMETERS wa_params
WITHOUT SPOOL DYNPRO
AND RETURN.
ENDIF.Warum verwendest du dann nicht den SUBMIT-Zusatz "EXPORTING LIST TO MEMORY"?Stentor hat geschrieben:Hallo Experten,
hätte da mal eine Frage:
Ich starte das Programm RPTEDT00 (Zeitnachweisformular) mittels SUBMIT ... TO SAP-SPOOL und lasse mir einen Spool-Auftrag erzeugen. Diesen möchte ich dann im laufenden Programm weiterverarbeiten.
Code: Alles auswählen.
data l_covtext(21).
data l_tstamp(11) type p decimals 7.
get time stamp field l_tstamp.
unpack l_tstamp to l_covtext.
SUBMIT .... TO SAP-SPOOL
COVER TEXT l_covtext
...
...
Code: Alles auswählen.
TABLES tsp01.
DATA: spoolid LIKE tsp01-rqident.
NEW-PAGE PRINT ON
IMMEDIATELY ' '
COVER TEXT 'Übersicht'
KEEP IN SPOOL 'X'
SAP COVER PAGE ' '
LIST NAME 'PDFTEMP'
DESTINATION 'LOCL'
NO DIALOG.
write: / 'Bla Bla'.
NEW-PAGE PRINT OFF.
SELECT * FROM tsp01 WHERE rqowner = sy-uname
AND rq2name = 'PDFTEMP'
ORDER BY rqcretime ASCENDING.
spoolid = tsp01-rqident.
ENDSELECT.
Code: Alles auswählen.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING
LIST_NAME = lv_liname
LIST_TEXT = 'List to PDF'
IMMEDIATELY = space
NO_DIALOG = true
IMPORTING
OUT_PARAMETERS = print_parameters
VALID = valid_flag
EXCEPTIONS
INVALID_PRINT_PARAMS = 2.
.....
SUBMIT (p_repid) USING SELECTION-SET p_slset
WITH pnpbegda EQ pn-begda
WITH pnpendda EQ pn-endda
WITH pnppernr-low EQ pernr-pernr
TO SAP-SPOOL
SPOOL PARAMETERS print_parameters
WITHOUT SPOOL DYNPRO
AND RETURN.