Displaying a spool which is in PDF format in SAP

Question

Hi Friends,
We have a requirement where we need to display a W2 form for employee in PDF format.  Through SP01, I can see the pdf file.  How can I programatically display this W2 using ABAP program.
I have tried various function modules related to spools, but most of them didn't work as the spool was in ADSF format.
Your inputs or suggestions are awaited.

Answer 1

Hello,
  DATA:
    V_LRQCLIENT      TYPE TSP01-RQCLIENT,
    V_LRQO1NAME      TYPE TSP01-RQO1NAME,
    V_LCLIENT        TYPE RSTSTYPE-CLIENT,
    V_LNAME          TYPE RSTSTYPE-NAME.
Begin of addition SCR FIE759-ECC6.0 D11K924073 04/13/2010.
  data rq       type tsp01.
  data bin_size type i.
  data dummy    type table of rspoattr.
End of addition SCR FIE759-ECC6.0 D11K924073 04/13/2010.
  DATA:
    C_LSP01          TYPE RSTSTYPE-AUTHCHECKD    VALUE 'SP01'.
Begin of Insertion for D11K915826
  DATA:
    V_LPAGENUM       TYPE TSP01-RQAPPRULE.
End   of Insertion for D11K915826
Retrieve spool details.
Access using full primary key, RQIDENT.
Begin of Change for D11K915826
  SELECT SINGLE RQCLIENT RQO1NAME RQAPPRULE
    INTO (V_LRQCLIENT, V_LRQO1NAME, V_LPAGENUM)
End   of Change for D11K915826
    FROM TSP01
   WHERE RQIDENT = P_SPOOL.
Return code check is not needed, always successful.
Begin of Insertion for D11K915826
  IF V_LPAGENUM > 99 AND SY-BATCH IS INITIAL.
    MESSAGE S000(ZPES) DISPLAY LIKE C_E WITH TEXT-015 TEXT-016.
  ELSE.
End   of Insertion for D11K915826
  V_LNAME     = V_LRQO1NAME.
  V_LCLIENT   = V_LRQCLIENT.
Call function module to retrieve spool attributes.
  call function 'RSPO_GET_ATTRIBUTES_SPOOLJOB'
    exporting
      rqident     = p_spool  "Spool no
    importing
      rq          = rq
    tables
      attributes  = dummy
    exceptions
      no_such_job = 1
      others      = 2.
  if sy-subrc <> 0.
    message e126(po) with P_SPOOL.
  endif.
IF V_OBJTYPE+0(3)  = C_OTF.
  --- convert spool request into PDF, dependent on document type ---
  if rq-rqdoctype = 'OTF' or rq-rqdoctype = 'SMART'.
Convert spool to PDF.
    CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
      EXPORTING
        SRC_SPOOLID                    = P_SPOOL
Begin of change SCR FIE759-ECC6.0 D11K924073 04/13/2010.
        NO_DIALOG                     = SPACE
       IMPORTING
         pdf_bytecount                 = bin_size
         bin_file                      = pdf_xstring
End of change SCR FIE759-ECC6.0 D11K924073 04/13/2010.
      TABLES
        PDF                            = I_PDF
      EXCEPTIONS
        ERR_NO_OTF_SPOOLJOB            = 1
        ERR_NO_SPOOLJOB                = 2
        ERR_NO_PERMISSION              = 3
        ERR_CONV_NOT_POSSIBLE          = 4
        ERR_BAD_DSTDEVICE              = 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 <> 0.
Begin of change SCR FIE759-ECC6.0 D11K924073 04/13/2010.
     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     message e712(po) with sy-subrc 'CONVERT_OTFSPOOLJOB_2_PDF'.
End of change SCR FIE759-ECC6.0 D11K924073 04/13/2010.
    ENDIF.
Begin of change SCR FIE759-ECC6.0 D11K924073 04/13/2010.
ELSE.
elseif rq-rqdoctype = 'LIST'.
Convert Spool to PDF.
    CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
      EXPORTING
        SRC_SPOOLID              = P_SPOOL
Begin of change SCR FIE759-ECC6.0 D11K924073 04/13/2010.
        NO_DIALOG               = SPACE
       IMPORTING
         pdf_bytecount            = bin_size
         bin_file                 = pdf_xstring
End of change SCR FIE759-ECC6.0 D11K924073 04/13/2010.
      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 <> 0.
Begin of change SCR FIE759-ECC6.0 D11K924073 04/13/2010.
     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     message e712(po) with sy-subrc 'CONVERT_ABAPSPOOLJOB_2_PDF'.
End of change SCR FIE759-ECC6.0 D11K924073 04/13/2010.
    ENDIF.
Begin of addition SCR FIE759-ECC6.0 D11K924073 04/13/2010.
ELSE.
     message e789(po) with rq-rqdoctype.
  ENDIF.
  pdf_size = bin_size.
End of addition SCR FIE759-ECC6.0 D11K924073 04/13/2010.
  IF I_PDF[] IS NOT INITIAL.
Transfer pdf document to Unix.
    Use FM GUI_DOWNLOAD to download the pdf data to presentation server.
Thanks.
ramya.