Programmausgabe in Spool schreiben für weitere Verarbeitung im anderen Programm

• DATA: print_parameters TYPE pri_params,
• gt_data TYPE TABLE OF rspo_ds,
• gt_data_flag TYPE TABLE OF rspo_ds,
• ls_data_flag TYPE rspo_ds,
• gt_output TYPE TABLE OF rspo_index,
• gs_spool TYPE tsp01sys,
• ls_valid TYPE char01, "#EC NEEDED
• ls_valid_for_spool_creation TYPE char01. "#EC NEEDED
• CONSTANTS lc_spool_name TYPE sypri_plist VALUE 'ZMON_222'.
• " CONSTANTS lc_spool_name TYPE sypri_plist VALUE 'ZMON_ARCHPRU'.
• "Set Spool para. like spoolname
• CALL FUNCTION 'GET_PRINT_PARAMETERS'
• EXPORTING
• destination = 'LP01'
• list_name = lc_spool_name
• no_dialog = 'X'
• IMPORTING
• out_parameters = print_parameters
• valid = ls_valid
• valid_for_spool_creation = ls_valid_for_spool_creation
• EXCEPTIONS
• archive_info_not_found = 1
• invalid_print_params = 2
• invalid_archive_params = 3
• OTHERS = 4.
• SUBMIT oadestck TO SAP-SPOOL
• SPOOL PARAMETERS print_parameters
• WITHOUT SPOOL DYNPRO
• AND RETURN.
• SELECT * INTO @DATA(ls_tsp01) FROM tsp01 WHERE rq2name = @lc_spool_name ORDER BY rqcretime DESCENDING.
• ENDSELECT.
• "Get spoolnumber
• CALL FUNCTION 'RSPO_ISELECT_TSP01'
• EXPORTING
• rfcsystem = sy-sysid
• rqident = ls_tsp01-rqident
• IMPORTING
• tsp01_elem = gs_spool
• EXCEPTIONS
• error = 1
• OTHERS = 2.
• "Get Spool Content
• CALL FUNCTION 'RSPO_IRETURN_RAW_DATA'
• EXPORTING
• rq = gs_spool
• TABLES
• line_buffer = gt_data
• page_index = gt_output
• EXCEPTIONS
• error = 1
• OTHERS = 2.
• "Check spool content for errors
• IF gt_data IS NOT INITIAL.
• LOOP AT gt_data INTO DATA(ls_data).
• IF 'FEHLER' CO ls_data-data_line OR 'ERROR' CO ls_data-data_line.
• MOVE-CORRESPONDING ls_data TO ls_data_flag.
• ls_data_flag-data_line = ls_data_flag-data_line+18.
• APPEND ls_data_flag TO gt_data_flag.
• ENDIF.
• ENDLOOP.
• ENDIF.