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.