如何将SAP Script转换成PDF并上传到SAP服务器[CONVERT_OTFSPOOLJOB_2_PDF]详解编程语言

FORM frm_down_pdf  USING    i_fname 
                            i_tdspoolid. 
 
  DATA:lit_pdf_file    TYPE STANDARD TABLE OF tline, 
       lwa_pdf_file    LIKE LINE OF lit_pdf_file, 
       l_pdf_file_size TYPE i, 
       l_pdf_file_name TYPE string. 
 
  CLEAR  :l_pdf_file_size. 
  REFRESH:lit_pdf_file. 
 
  CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF' 
    EXPORTING 
      src_spoolid              = i_tdspoolid  "spool ID 
      no_dialog                = ' ' 
    IMPORTING 
      pdf_bytecount            = l_pdf_file_size 
    TABLES 
      pdf                      = lit_pdf_file[] "转换后的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. 
" 通过DATASET 将PDF上载到SAP server中指定的目录中 
  OPEN DATASET i_fname FOR OUTPUT IN BINARY MODE. 
  IF sy-subrc = 0. 
    LOOP AT lit_pdf_file INTO lwa_pdf_file. 
      TRANSFER lwa_pdf_file-tdformat TO i_fname. 
      TRANSFER lwa_pdf_file-tdline TO i_fname. 
    ENDLOOP. 
    CLOSE DATASET i_fname. 
  ENDIF. 
ENDFORM.