How do I save ALV Grid O/P to spool

Question

Hi All,
           I have a requirement of saving alv grid output to spool. How can this be done?
could I get any help on this?
Thanks & Regards,
Deepak Raj

Answer 1

DATA: BEGIN OF i_mara OCCURS 0,
  matnr LIKE mara-matnr.
  DATA: END OF i_mara.
  DATA: v_dest LIKE tsp01-rqdest,
  v_handle LIKE sy-tabix,
  v_spool_id LIKE tsp01-rqident,
  v_rc TYPE c,
  v_errmessage(100) TYPE c,
  v_text(70) TYPE c.
START-OF-SELECTION.
  SELECT matnr FROM mara INTO TABLE i_mara.
  CALL FUNCTION 'RSPO_OPEN_SPOOLREQUEST'
       EXPORTING
            dest            = 'LOCL'
           layout          =
           name            =
           suffix1         =
           suffix2         =
           copies          =
           prio            =
           immediate_print =
           auto_delete     =
           titleline       =
           receiver        =
           division        =
           authority       =
           posname         =
           acttime         =
            lifetime        = '8'
           append          =
           coverpage       =
           codepage        =
           doctype         =
       importing
            handle          = v_handle
            spoolid         = gd_spool_nr
            rc              = v_rc
            errmessage      = v_errmessage.
  LOOP AT i_mara.
    v_text = i_mara-matnr.
    CALL FUNCTION 'RSPO_WRITE_SPOOLREQUEST'
         EXPORTING
              handle           = v_handle
              text             = v_text
              length           =
              codepage         =
              truncate         =
         importing
              rc               = v_rc
              errmessage       = v_errmessage
         EXCEPTIONS
              handle_not_valid = 1
              OTHERS           = 2.
    IF sy-subrc 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
  ENDLOOP.
  CALL FUNCTION 'RSPO_CLOSE_SPOOLREQUEST'
       EXPORTING
            handle           = v_handle
       IMPORTING
            rc               = v_rc
            errmessage       = v_errmessage
       EXCEPTIONS
            handle_not_valid = 1
            OTHERS           = 2.
  IF sy-subrc 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
       EXPORTING
            src_spoolid              = gd_spool_nr
            no_dialog                = c_no
            dst_device               = c_device
       IMPORTING
            pdf_bytecount            = gd_bytecount
       TABLES
            pdf                      = it_pdf_output
       EXCEPTIONS
            err_no_abap_spooljob     = 1
            err_no_spooljob          = 2
            err_no_permission        = 3
            err_conv_not_possible    = 4
            err_bad_destdevice       = 5
            user_cancelled           = 6
            err_spoolerror           = 7
            err_temseerror           = 8
            err_btcjob_open_failed   = 9
            err_btcjob_submit_failed = 10
            err_btcjob_close_failed  = 11
            OTHERS                   = 12.
  CHECK sy-subrc = 0.
get the spool number
Declaration of local variables.
  DATA:
  lv_rq2name LIKE tsp01-rq2name.
  CONCATENATE sy-repid+0(8)
  sy-uname+0(3)
  INTO lv_rq2name SEPARATED BY '_'.
Get the spool number.
  SELECT * FROM tsp01 WHERE rq2name = lv_rq2name
  ORDER BY rqcretime DESCENDING.
    v_rqident = tsp01-rqident.
    EXIT.
  ENDSELECT.
  IF sy-subrc NE 0.
    CLEAR v_rqident.
  ENDIF