Output to spool

Question

how do i submit the ALV
                         output of the current progrm  to the spool with the syntax
  SUBMIT demo_list_output TO SAP-SPOOL
    SPOOL   PARAMETERS pripar
    ARCHIVE PARAMETERS arcpar
    WITHOUT SPOOL DYNPRO.
my task is to convert the alv o/p to pdf to email in background daily,but i am facing problem in passing the output to the sap-spool could anyone please help me out
thanks & regards

Answer 1

hi,
go through the below code...
Declaration of local constants
  CONSTANTS :  LC_PAART LIKE SY-PAART VALUE 'X_65_132',  " Paper Format
               LC_LOCL  TYPE SYPDEST VALUE 'LOCL'.       " Destination
If print option is selected.
  IF P_PRINT IS NOT INITIAL.
    MOVE C_X TO V_PRINT.
  ELSE.
    CLEAR V_PRINT.
  ENDIF.
Setup the Print Parmaters
  CALL FUNCTION 'GET_PRINT_PARAMETERS'
    EXPORTING
      AUTHORITY              = SPACE
      IMMEDIATELY            = V_PRINT
      NEW_LIST_ID            = C_X
      NO_DIALOG              = C_X
      USER                   = SY-UNAME
    IMPORTING
      OUT_PARAMETERS         = V_PRINT_PARMS
    EXCEPTIONS
      ARCHIVE_INFO_NOT_FOUND = 1
      INVALID_PRINT_PARAMS   = 2
      INVALID_ARCHIVE_PARAMS = 3
      OTHERS                 = 4.
  IF SY-SUBRC NE 0.
    CLEAR : V_PRINT_PARMS.
  ENDIF.
The printer destination has to be  set up
  IF V_PRINT_PARMS-PDEST = SPACE.
    V_PRINT_PARMS-PDEST = LC_LOCL.
  ENDIF.
Explicitly set line width, and output format so that
the PDF conversion comes out OK
  V_PRINT_PARMS-LINSZ = C_LINSZ.
  V_PRINT_PARMS-PAART = LC_PAART.
then write..
  NEW-PAGE PRINT ON PARAMETERS V_PRINT_PARMS NO DIALOG.
perform dispaly_output.
NEW-PAGE PRINT OFF.
for PDF conversion use teh below code..
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.
now u have to use the below code for PDF conversion
Declaration of local variables
  DATA : LV_BYTECOUNT  TYPE I,
         LV_CANCEL(1)  TYPE C,
         LV_FILENAME1  LIKE RLGRAP-FILENAME.    "File name
Declaration of local constants
  CONSTANTS: LC_PDF(4) TYPE C VALUE '.PDF'.
  CONCATENATE P_DNLOC
              SY-REPID
              LC_PDF
      INTO LV_FILENAME1.
Convert Spool to PDF
  CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
    EXPORTING
      SRC_SPOOLID              = V_RQIDENT
      NO_DIALOG                = C_X
      DST_DEVICE               = V_PRINT_PARMS-PDEST
    IMPORTING
      PDF_BYTECOUNT            = LV_BYTECOUNT
    TABLES
      PDF                      = I_PDF
    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.
  IF SY-SUBRC NE 0.
    REFRESH : I_PDF.
  ENDIF.
  IF P_PDF IS NOT INITIAL.
To  Download to PDF format
    PERFORM DOWNLOAD_W_EXT(RSTXPDFT) TABLES I_PDF
                                      USING LV_FILENAME1
                                            LC_PDF
                                            'BIN'
                                            LV_BYTECOUNT
                                            LV_CANCEL.
ENDIF.
regards,
nagaraj