**&---------------------------------------------------------------------*
**& Report ZSPOOLTOPDF
**&
**&---------------------------------------------------------------------*
**&
**&
**&---------------------------------------------------------------------*
*
REPORT zspooltopdf.
*---Data Declarations
*Tables
TABLES: tsp01, rststype.
* Internal table
DATA: it_tsp01 TYPE STANDARD TABLE OF tsp01 WITH HEADER LINE,
it_table TYPE STANDARD TABLE OF soli WITH HEADER LINE,
it_table1 TYPE STANDARD TABLE OF soli WITH HEADER LINE,
it_otf TYPE STANDARD TABLE OF itcoo WITH HEADER LINE,
it_doc LIKE TABLE OF docs,
it_pdf LIKE TABLE OF tline,
it_pdf1 LIKE TABLE OF tline WITH HEADER LINE.
* Work area
DATA: wa_tsp01 LIKE LINE OF it_tsp01,
wa_pdf LIKE LINE OF it_pdf1.
* Varialbles
DATA: v_string(11) TYPE c VALUE '%',
v_lines TYPE i,
v_size TYPE i,
v_client LIKE tst01-dclient,
v_name LIKE tst01-dname,
v_objtype LIKE rststype-type,
v_type TYPE rststype-type,
v_otf TYPE c.
* Constants
CONSTANTS: c_eof TYPE soli VALUE '//'.
**&---------------------------------------------------------------------*
INITIALIZATION.
*---Selection Screen
SELECT-OPTIONS: s_spool FOR tsp01-rqident. "Spool id
PARAMETERS: p_date LIKE sy-datum DEFAULT sy-datum, "Today's date
p_dept LIKE tsp01-rqdivision, "Department
p_file TYPE string DEFAULT 'C:\temp\test1.pdf'.
*---Start of selection
START-OF-SELECTION.
CONCATENATE p_date v_string INTO v_string.
*---get the list of spool nummbers
SELECT *
INTO TABLE it_tsp01
FROM tsp01
WHERE rqident IN s_spool
AND rqdivision EQ p_dept
AND rqcretime LIKE v_string.
IF sy-subrc <> 0.
PERFORM bd_textbox_err(rstxpdft) USING 80
'Spoolauftrag existiert nicht'(003).
EXIT.
ENDIF.
IF NOT it_tsp01[] IS INITIAL.
LOOP AT it_tsp01 INTO wa_tsp01.
CLEAR: v_client, v_name, v_type, v_otf, v_objtype.
v_client = wa_tsp01-rqclient.
v_name = wa_tsp01-rqo1name.
CALL FUNCTION 'RSTS_GET_ATTRIBUTES'
EXPORTING
authority = 'SP01'
client = v_client
name = v_name
part = 1
IMPORTING
type = v_type
objtype = v_objtype
EXCEPTIONS
fb_error = 1
fb_rsts_other = 2
no_object = 3
no_permission = 4.
IF v_objtype(3) = 'OTF'.
v_otf = 'X'.
ELSE.
v_otf = space.
ENDIF.
IF v_otf = 'X'.
*---convert the spool to an internal table
REFRESH it_table.
CALL FUNCTION 'RSPO_RETURN_SPOOLJOB'
EXPORTING
rqident = wa_tsp01-rqident
first_line = 1
last_line = 0
TABLES
buffer = it_table
EXCEPTIONS
no_such_job = 1
job_contains_no_data = 2
selection_empty = 3
no_permission = 4
can_not_access = 5
read_error = 6
type_no_match = 7
OTHERS = 8.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CLEAR v_lines.
DESCRIBE TABLE it_table LINES v_lines.
DELETE it_table INDEX v_lines.
* merge the spools to one big table
LOOP AT it_table.
APPEND it_table TO it_table1.
ENDLOOP.
AT LAST.
APPEND c_eof TO it_table1.
ENDAT.
ENDIF.
ENDLOOP.
LOOP AT it_table1.
CLEAR it_otf.
it_otf = it_table1.
APPEND it_otf.
ENDLOOP.
*---Convert OTF into PDF
CALL FUNCTION 'CONVERT_OTF_2_PDF'
EXPORTING
use_otf_mc_cmd = 'X'
IMPORTING
bin_filesize = v_size
TABLES
otf = it_otf
doctab_archive = it_doc
lines = it_pdf
EXCEPTIONS
err_conv_not_possible = 1
err_otf_mc_noendmarker = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*---Dowload to file
IF sy-batch NE 'X'.
CALL METHOD cl_gui_frontend_services=>gui_download
EXPORTING
filename = p_file
filetype = 'BIN'
CHANGING
data_tab = it_pdf.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ELSE.
DATA: BEGIN OF it_mess_att OCCURS 0,
i_buffer TYPE string,
END OF it_mess_att.
DATA : gd_buffer TYPE string.
DATA: wa_mess_att LIKE gd_buffer.
CLEAR it_mess_att.
REFRESH it_mess_att[].
LOOP AT it_pdf INTO wa_pdf.
APPEND wa_pdf TO it_pdf1.
CLEAR wa_pdf.
ENDLOOP.
* Transfer the 132-long strings to 255-long strings
LOOP AT it_pdf1.
TRANSLATE it_pdf1 USING ' ~'.
CONCATENATE gd_buffer it_pdf1 INTO gd_buffer.
ENDLOOP.
TRANSLATE gd_buffer USING '~ '.
DO.
wa_mess_att = gd_buffer.
APPEND it_mess_att.
SHIFT gd_buffer LEFT BY 255 PLACES.
IF gd_buffer IS INITIAL.
EXIT.
ENDIF.
ENDDO.
OPEN DATASET p_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc NE 0.
EXIT.
ELSE.
* LOOP AT it_pdf1.
* TRANSFER it_pdf1 TO p_file.
* ENDLOOP.
CLOSE DATASET p_file.
ENDIF.
ENDIF.
ENDIF.
