Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 8411

Re: open dataset in binary mode-data missing in pdf file

$
0
0

Pls find the code..

In this case, the pdf file tax values are missing out as shown above screenshot..

i also tried with legacy binary mode and binary mode code page 1100.

 

* Convert OTF Data to pdf data
   CALL FUNCTION 'CONVERT_OTF'
     EXPORTING
       format                = 'PDF'
     IMPORTING
       bin_filesize          = pdf_size
     TABLES
       otf                   = ls_job_info-otfdata
       lines                 = lines
     EXCEPTIONS
       err_max_linewidth     = 1
       err_format            = 2
       err_conv_not_possible = 3
       err_bad_otf           = 4
       OTHERS                = 5.
   IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   ENDIF.

   LOOP AT lines INTO ls_lines.
     ASSIGN ls_lines TO <fs_x> CASTING.
     CONCATENATE lv_content <fs_x> INTO lv_content IN BYTE MODE.
   ENDLOOP.

*  call SCREEN 9001.

   SHIFT wa_final1-vbeln LEFT DELETING LEADING '0'.
   SHIFT wa_final1-bstkd LEFT DELETING LEADING '0'.
   SHIFT wa_final1-kunnr LEFT DELETING LEADING '0'.

   IF sy-sysid = 'DEV' AND  sy-mandt = '046'.   " Development Server or Client.

     CONCATENATE 'E:\OrdAckNotfctn\Acknowledgements\' wa_final1-erdat
        '_' wa_final1-bstkd '_' wa_final1-vbeln '_' wa_final1-kunnr '.Pdf'
        INTO file_name.

     OPEN DATASET file_name FOR OUTPUT IN BINARY MODE. "TEXT MODE ENCODING DEFAULT.
     LOOP AT lines INTO ls_lines.
       TRANSFER ls_lines TO file_name.
     ENDLOOP.
     CLOSE DATASET file_name.
     MESSAGE 'File has been Transfered' TYPE 'S'.

   ELSEIF sy-sysid = 'SBX' AND  sy-mandt = '046'. " Testing Server or Client.

     CONCATENATE 'E:\OrdAckNotfctn\Acknowledgements\' wa_final1-erdat
          '_' wa_final1-bstkd '_' wa_final1-vbeln '_' wa_final1-kunnr '.Pdf'
          INTO file_name.

     OPEN DATASET file_name FOR OUTPUT IN LEGACY BINARY MODE. "TEXT MODE ENCODING DEFAULT.
     LOOP AT lines INTO ls_lines.
       TRANSFER ls_lines TO file_name.
     ENDLOOP.
     CLOSE DATASET file_name.
     MESSAGE 'File has been Transfered' TYPE 'S'.

   ELSEIF sy-sysid = 'PRD' AND  sy-mandt = '046'. " Production Server or Client.

     CONCATENATE 'E:\OrdAckNotfctn\Acknowledgements\' wa_final1-erdat
       '_' wa_final1-bstkd '_' wa_final1-vbeln '_' wa_final1-kunnr '.Pdf'
       INTO file_name.

     OPEN DATASET file_name FOR OUTPUT IN BINARY MODE. "TEXT MODE ENCODING DEFAULT.
     LOOP AT lines INTO ls_lines.
       TRANSFER ls_lines TO file_name.
     ENDLOOP.
     CLOSE DATASET file_name.
     MESSAGE 'File has been Transfered' TYPE 'S'.
   ENDIF.


Viewing all articles
Browse latest Browse all 8411

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>