Conversion of QC21 sap script to pdf

Question

Hello Experts
I was working on QC21 sap script layout,got guidance from u guys & i managed to finish.
now can anyone tell me how to convert the sap script to pdf format?
Kash

Answer 1

Hi,
if u wish to automate the process, then u can write the following code...
DATA: V_PRINT_PARMS LIKE PRI_PARAMS.
DATA: V_PDFSPOOLID TYPE TSP01-RQIDENT,
          V_RQIDENT TYPE TSP01-RQIDENT.
DATA: V_RQ2NAME TYPE STRING.
DATA: T_PDF LIKE TLINE OCCURS 0 WITH HEADER LINE.
DATA: T_RSPAR TYPE STANDARD TABLE OF RSPARAMS.
To Setup The Print Parameters
CALL FUNCTION 'GET_PRINT_PARAMETERS'
  EXPORTING
    AUTHORITY   = SPACE
    COPIES    = '1'
    COVER_PAGE    = SPACE
    DATA_SET     = SPACE
    DEPARTMENT      = SPACE
    DESTINATION    = SPACE
    EXPIRATION     = '1'
    IMMEDIATELY     = SPACE
    LAYOUT     = SPACE
    MODE       = SPACE
    NEW_LIST_ID    = 'X'
    NO_DIALOG      = 'X'
    USER     = SY-UNAME
  IMPORTING
    OUT_PARAMETERS     = V_PRINT_PARMS.
IF SY-SUBRC EQ 0.
Submit Program & Store Spool ID Into Memory
CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
    EXPORTING
      CURR_REPORT     = 'RQCAAP01'
    TABLES
      SELECTION_TABLE = T_RSPAR.
ENDIF.
SUBMIT RQCAAP01 VIA SELECTION-SCREEN TO SAP-SPOOL WITHOUT SPOOL DYNPRO
           SPOOL PARAMETERS V_PRINT_PARMS
           WITH SELECTION-TABLE T_RSPAR
           AND RETURN.
Retrieving Spool ID From TSP01 Table
CONCATENATE V_RQ2NAME SY-UNAME INTO V_RQ2NAME.
SELECT * FROM TSP01
WHERE RQ2NAME EQ V_RQ2NAME ORDER BY RQCRETIME DESCENDING.
  V_RQIDENT = TSP01-RQIDENT.
  EXIT.
ENDSELECT.
IF SY-SUBRC NE 0.
  CLEAR V_RQIDENT.
ENDIF.
To Convert Spool ID To PDF Format
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
  EXPORTING
    SRC_SPOOLID              = V_RQIDENT
  TABLES
    PDF                      = T_PDF.
IF SY-SUBRC EQ 0.
To Download The File In PDF Format
to get file name and location for saving
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
    EXPORTING
      WINDOW_TITLE         = 'Select The Path Where The PDF Should Be Saved'
      DEFAULT_FILE_NAME    = 'Certificate Of Analysis.PDF'
    CHANGING
      FILENAME             = v_filename
      PATH                 = v_filepath
      FULLPATH             = v_fullpath.
To download the PDF file
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      FILENAME                = v_fullpath
      FILETYPE                = 'BIN'
    TABLES
      DATA_TAB                = T_PDF.
ENDIF.
I hope this resolves ur issue...
Regards,
Radhika