topic Re: Recreating or Refreshing Spool in Application Development and Automation Discussions

Recreating or Refreshing Spool

Former Member — Fri, 19 Jan 2007 12:33:39 GMT

sending payslip via email.

REPORT ZPAYSLIP_EMAIL_01_PDF .

*DATA DECLARATION

DATA: gd_recsize TYPE i.

Spool IDs

TYPES: BEGIN OF t_tbtcp.

INCLUDE STRUCTURE tbtcp.

TYPES: END OF t_tbtcp.

DATA: it_tbtcp TYPE STANDARD TABLE OF t_tbtcp INITIAL SIZE 0,

wa_tbtcp TYPE t_tbtcp.

Job Runtime Parameters

DATA: gd_eventid LIKE tbtcm-eventid,

gd_eventparm LIKE tbtcm-eventparm,

gd_external_program_active LIKE tbtcm-xpgactive,

gd_jobcount LIKE tbtcm-jobcount,

gd_jobname LIKE tbtcm-jobname,

gd_stepcount LIKE tbtcm-stepcount,

gd_error TYPE sy-subrc,

gd_reciever TYPE sy-subrc.

DATA: w_recsize TYPE i.

DATA: gd_subject LIKE sodocchgi1-obj_descr,

it_mess_bod LIKE solisti1 OCCURS 0 WITH HEADER LINE,

it_mess_att LIKE solisti1 OCCURS 0 WITH HEADER LINE,

gd_sender_type LIKE soextreci1-adr_typ,

gd_attachment_desc TYPE so_obj_nam,

gd_attachment_name TYPE so_obj_des.

Spool to PDF conversions

DATA: gd_spool_nr LIKE tsp01-rqident,

gd_destination LIKE rlgrap-filename,

gd_bytecount LIKE tst01-dsize,

gd_buffer TYPE string.

Binary store for PDF

DATA: BEGIN OF it_pdf_output OCCURS 0.

INCLUDE STRUCTURE tline.

DATA: END OF it_pdf_output.

CONSTANTS: c_dev LIKE sy-sysid VALUE 'DEV',

c_no(1) TYPE c VALUE ' ',

c_device(4) TYPE c VALUE 'LOCL'.

tables: PV000,

T549Q,

PA0001,

V_T514D,

HRPY_RGDIR,

PA0002,

PA0105.

data: begin of ITAB occurs 0,

MTEXT(25) type C,

PERNR like PA0001-PERNR,

ABKRS like PA0001-ABKRS,

ENAME like PA0001-ENAME,

USRID_LONG like PA0105-USRID_LONG,

end of ITAB.

data: W_BEGDA like HRPY_RGDIR-FPBEG,

W_ENDDA like HRPY_RGDIR-FPEND.

data: RETURN like BAPIRETURN1 occurs 0 with header line.

data: P_INFO like PC407,

P_FORM like PC408 occurs 0 with header line,

P_P_FORM like PC408 occurs 0 with header line.

data: P_IDX type I,

MY_MONTH type T549Q-PABRP,

STR_MY_MONTH(2) type C,

MY_YEAR type T549Q-PABRJ,

STR_MY_YEAR(4) type C.

data: begin of P_INDEX occurs 0,

INDEX type I,

end of P_INDEX.

constants:

begin of F__LTYPE, "type of line

CMD like PC408-LTYPE value '/:', "command

TXT like PC408-LTYPE value 's', "textline

end of F__LTYPE.

constants:

begin of F__CMD, "commands

NEWPAGE like PC408-LINDA value '<NEW-PAGE>',

end of F__CMD.

data: P_LIST like ABAPLIST occurs 1 with header line.

Data : p_email1 LIKE PA0105-USRID_long.

Data : p_sender LIKE PA0105-USRID_long.

----

INITIALIZATION *

----

initialization.

----

SELECTION SCREEN *

----

selection-screen begin of block BL1.

parameters: S_ABKRS like PV000-ABKRS obligatory default 'Z1'.

parameters: S_PERMO like T549Q-PABRP obligatory default '01'.

parameters: S_PABRP like T549Q-PABRP obligatory.

parameters: S_PABRJ like T549Q-PABRJ obligatory.

*parameters: S_PERNR like PA0001-PERNR obligatory.

select-options: S_PERNR for PA0001-PERNR.

*select-options: S_ORGEH for PA0001-ORGEH.

parameters: PAY_VAR like BAPI7004-PAYSLIP_VARIANT obligatory.

selection-screen end of block BL1.

----

AT SELECTION-SCREEN *

----

at selection-screen.

if SY-UCOMM ='ONLI'.

if S_PABRP > 24 or S_PABRP < 1.

message E999(YHR) with 'Improper Payroll Period'.

endif.

if S_PABRP > 9.

MY_MONTH = S_PABRP - 10 + 1.

STR_MY_MONTH = MY_MONTH.

MY_YEAR = S_PABRJ + 1.
STR_MY_YEAR = MY_YEAR.
else.

MY_MONTH = S_PABRP + 3.

STR_MY_MONTH = MY_MONTH.

MY_YEAR = S_PABRJ.
STR_MY_YEAR = MY_YEAR.

endif.

modified by Coul

if S_PERMO NE '1'.

message E999(YHR) with 'Improper Payroll Period Parameters'.

endif.

MY_YEAR = S_PABRJ.

STR_MY_YEAR = MY_YEAR.

shift STR_MY_MONTH left deleting leading SPACE.

shift STR_MY_MONTH right deleting trailing SPACE.

translate STR_MY_MONTH using ' 0'.

get payrol period first and last dates _ added by Coul

SELECT SINGLE *

FROM T549Q

WHERE PERMO = S_PERMO "Period param.; 02 = semi-monthly

AND PABRJ = S_PABRJ "Payroll period year

AND PABRP = S_PABRP. "Payroll period no.

W_BEGDA = T549Q-BEGDA.

W_ENDDA = T549Q-ENDDA.

concatenate STR_MY_YEAR STR_MY_MONTH '01' into W_BEGDA.
call function 'HR_HCP_GET_LAST_DAY_OF_MONTH'
exporting
IM_DATE = W_BEGDA
importing

EX_DATE_IS_MONTHEND =

EX_LAST_DAY_OF_MONTH = W_ENDDA.

select PA0001_{PERNR PA0001}ABKRS PA0001~ENAME

into corresponding fields of table ITAB

from PA0001

join PA0000

on PA0000_{PERNR eq PA0001}PERNR

join HRPY_RGDIR

on PA0001_{PERNR eq HRPY_RGDIR}PERNR

where PA0001~PERNR in S_PERNR

*where PA0001~ORGEH in S_ORGEH

and PA0001~ABKRS eq S_ABKRS

and PA0000~STAT2 eq '3'

and PA0001~ENDDA ge '99991231'

and PA0001~PLANS ne '99999999'

group by PA0001~PERNR PA0001~ABKRS PA0001~ENAME.

if SY-SUBRC <> 0.

message E999(YHR) with 'No record(s) found.'.

endif.

endif. "SY-UCOMM ='ONLI'

Write statement to represent report output. Spool request is created
if write statement is executed in background. This could also be an
ALV grid which would be converted to PDF without any extra effort
WRITE 'Hello World'.

code Added for Getting the Pay Slip. on 12-1-2007
Need to Put Scrren Elements for
PERNR
SEQNR &
PAY_VAR

CONSTANTS:

BEGIN OF F__LTYPE, "type of line

CMD LIKE PC408-LTYPE VALUE '/:', "command

TXT LIKE PC408-LTYPE VALUE ' ', "textline

END OF F__LTYPE.

CONSTANTS:

BEGIN OF F__CMD, "commands

NEWPAGE LIKE PC408-LINDA VALUE '<NEW-PAGE>',

END OF F__CMD.

data: P_INFO like PC407,

P_FORM like PC408 occurs 0 with header line,

RETURN like BAPIRETURN1 occurs 0 with header line.

sort ITAB by PERNR.

loop at ITAB.

clear : P_INFO, P_P_FORM, P_FORM.

refresh : P_P_FORM, P_FORM.

select single *

from HRPY_RGDIR

where PERNR eq ITAB-PERNR

and FPBEG ge W_BEGDA

*and FPEND le W_ENDDA

and SRTZA eq 'A'.

call function 'GET_PAYSLIP'

exporting

EMPLOYEE_NUMBER = ITAB-PERNR

SEQUENCE_NUMBER = HRPY_RGDIR-SEQNR

PAYSLIP_VARIANT = PAY_VAR

importing

RETURN = RETURN

P_INFO = P_INFO

tables

P_FORM = P_FORM.

new-page

line-size p_info-pcols

line-count p_info-psize

no-title

no-heading.

SET BLANK LINES ON.

LOOP AT P_FORM.

CASE P_FORM-LTYPE.

WHEN F__LTYPE-TXT.

WRITE:/ P_FORM-LINDA.

WHEN F__LTYPE-CMD.

IF P_FORM-LINDA EQ F__CMD-NEWPAGE.

NEW-PAGE.

ENDIF.

ENDCASE.

ENDLOOP.

SET BLANK LINES OFF.

new-page.

commit work.

new-page print off.

extracting the e-mail address

select single *

from PA0105

where PERNR eq ITAB-PERNR

and SUBTY eq 'MAIL'

and SUBTY eq '0010'

*and USRID ne ''

and PA0105~ENDDA eq '99991231'.

IF SY-SUBRC = 0.

p_email1 = PA0105-USRID_long.

translate p_email1 to lower case.

ITAB-USRID_LONG = p_email1.

p_sender = SPACE.

endif.

IF sy-batch EQ 'X'.

PERFORM get_job_details.

PERFORM obtain_spool_id.

PERFORM convert_spool_to_pdf.

PERFORM process_email.

if p_delspl EQ 'X'.
PERFORM delete_spool.
endif.

IF sy-sysid = c_dev.

wait up to 5 seconds.

SUBMIT rsconn01 WITH mode = 'INT'

WITH output = 'X'

AND RETURN.

ENDIF.

ELSE.

SKIP.

WRITE:/ 'Program must be executed in background in-order for spool'

'request to be created.'.

ENDIF.

modify ITAB.

endloop. "end loop at ITAB

----

FORM delete_spool *

----

FORM delete_spool.

DATA: ld_spool_nr TYPE tsp01_sp0r-rqid_char.

ld_spool_nr = gd_spool_nr.

CHECK p_delspl <> c_no.

CALL FUNCTION 'RSPO_R_RDELETE_SPOOLREQ'

EXPORTING

spoolid = ld_spool_nr.

ENDFORM.

----

FORM obtain_spool_id *

----

FORM obtain_spool_id.

CHECK NOT ( gd_jobname IS INITIAL ).

CHECK NOT ( gd_jobcount IS INITIAL ).

SELECT * FROM tbtcp

INTO TABLE it_tbtcp

WHERE jobname = gd_jobname

AND jobcount = gd_jobcount

AND stepcount = gd_stepcount

AND listident <> '0000000000'

ORDER BY jobname

jobcount

stepcount.

READ TABLE it_tbtcp INTO wa_tbtcp INDEX 1.

IF sy-subrc = 0.

message s004(zdd) with gd_spool_nr.

gd_spool_nr = wa_tbtcp-listident.

MESSAGE s004(zdd) WITH gd_spool_nr.

ELSE.

MESSAGE s005(zdd).

ENDIF.

ENDFORM.

----

FORM get_job_details *

----

FORM get_job_details.

Get current job details

CALL FUNCTION 'GET_JOB_RUNTIME_INFO'

IMPORTING

eventid = gd_eventid

eventparm = gd_eventparm

external_program_active = gd_external_program_active

jobcount = gd_jobcount

jobname = gd_jobname

stepcount = gd_stepcount

EXCEPTIONS

no_runtime_info = 1

OTHERS = 2.

ENDFORM.

----

FORM convert_spool_to_pdf *

----

FORM convert_spool_to_pdf.

CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'

EXPORTING

src_spoolid = gd_spool_nr

no_dialog = c_no

dst_device = c_device

IMPORTING

pdf_bytecount = gd_bytecount

TABLES

pdf = it_pdf_output

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.

CHECK sy-subrc = 0.

Transfer the 132-long strings to 255-long strings

free gd_buffer.

LOOP AT it_pdf_output.

TRANSLATE it_pdf_output USING ' ~'.

CONCATENATE gd_buffer it_pdf_output INTO gd_buffer.

ENDLOOP.

TRANSLATE gd_buffer USING '~ '.

free it_mess_att.

DO.

it_mess_att = gd_buffer.

APPEND it_mess_att.

SHIFT gd_buffer LEFT BY 255 PLACES.

IF gd_buffer IS INITIAL.

EXIT.

ENDIF.

ENDDO.

ENDFORM.

----

FORM process_email *

----

FORM process_email.

DESCRIBE TABLE it_mess_att LINES gd_recsize.

CHECK gd_recsize > 0.

PERFORM send_email USING p_email1.

perform send_email using p_email2.

ENDFORM.

----

FORM send_email *

----

--> p_email *

----

FORM send_email USING p_email.

CHECK NOT ( p_email IS INITIAL ).

REFRESH it_mess_bod.

preparing subject - codec added

concatenate W_ENDDA(6)

' Payslip-' ITAB-ENAME0(2 '(' ITAB-PERNR4(4) ')'

into gd_subject.

Default subject matter
gd_subject = 'Subject'.
name of attached file

gd_attachment_desc = 'Payslip_test'.

CONCATENATE 'attach_name' ' ' INTO gd_attachment_name.

it_mess_bod = 'PaySlip'.

APPEND it_mess_bod.

it_mess_bod = gd_subject.

APPEND it_mess_bod.

it_mess_bod = 'Have a nice day!'.

APPEND it_mess_bod.

If no sender specified - default blank

IF p_sender EQ space.

gd_sender_type = space.

ELSE.

gd_sender_type = 'INT'.

ENDIF.

Send file by email as .xls speadsheet

PERFORM send_file_as_email_attachment

tables it_mess_bod

it_mess_att

using p_email

gd_subject

'PDF'

gd_attachment_name

gd_attachment_desc

p_sender

gd_sender_type

changing gd_error

gd_reciever.

ENDFORM.

&----

*& Form SEND_FILE_AS_EMAIL_ATTACHMENT

&----

Send email

----

FORM send_file_as_email_attachment tables it_message

it_attach

using p_email

p_mtitle

p_format

p_filename

p_attdescription

p_sender_address

p_sender_addres_type

changing p_error

p_reciever.

DATA: ld_error TYPE sy-subrc,

ld_reciever TYPE sy-subrc,

ld_mtitle LIKE sodocchgi1-obj_descr,

ld_email LIKE somlreci1-receiver,

ld_format TYPE so_obj_tp ,

ld_attdescription TYPE so_obj_nam ,

ld_attfilename TYPE so_obj_des ,

ld_sender_address LIKE soextreci1-receiver,

ld_sender_address_type LIKE soextreci1-adr_typ,

ld_receiver LIKE sy-subrc.

data: t_packing_list like sopcklsti1 occurs 0 with header line,

t_contents like solisti1 occurs 0 with header line,

t_receivers like somlreci1 occurs 0 with header line,

t_attachment like solisti1 occurs 0 with header line,

t_object_header like solisti1 occurs 0 with header line,

w_cnt type i,

w_sent_all(1) type c,

w_doc_data like sodocchgi1.

ld_email = p_email.

ld_mtitle = p_mtitle.

ld_format = p_format.

ld_attdescription = p_attdescription.

ld_attfilename = p_filename.

ld_sender_address = p_sender_address.

ld_sender_address_type = p_sender_addres_type.

Fill the document data.

w_doc_data-doc_size = 1.

Populate the subject/generic message attributes

w_doc_data-obj_langu = sy-langu.

w_doc_data-obj_name = 'SAPRPT'.

w_doc_data-obj_descr = ld_mtitle .

w_doc_data-sensitivty = 'F'.

Fill the document data and get size of attachment

CLEAR w_doc_data.

READ TABLE it_attach INDEX w_cnt.

w_doc_data-doc_size =

( w_cnt - 1 ) * 255 + STRLEN( it_attach ).

w_doc_data-obj_langu = sy-langu.

w_doc_data-obj_name = 'SAPRPT'.

w_doc_data-obj_descr = ld_mtitle.

w_doc_data-sensitivty = 'F'.

CLEAR t_attachment.

REFRESH t_attachment.

t_attachment[] = it_attach[].

Describe the body of the message

CLEAR t_packing_list.

REFRESH t_packing_list.

t_packing_list-transf_bin = space.

t_packing_list-head_start = 1.

t_packing_list-head_num = 0.

t_packing_list-body_start = 1.

DESCRIBE TABLE it_message LINES t_packing_list-body_num.

t_packing_list-doc_type = 'RAW'.

APPEND t_packing_list.

Create attachment notification

t_packing_list-transf_bin = 'X'.

t_packing_list-head_start = 1.

t_packing_list-head_num = 1.

t_packing_list-body_start = 1.

DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.

t_packing_list-doc_type = ld_format.

t_packing_list-obj_descr = ld_attdescription.

t_packing_list-obj_name = ld_attfilename.

t_packing_list-doc_size = t_packing_list-body_num * 255.

APPEND t_packing_list.

Add the recipients email address

CLEAR t_receivers.

REFRESH t_receivers.

t_receivers-receiver = ld_email.

t_receivers-rec_type = 'U'.

t_receivers-com_type = 'INT'.

t_receivers-notif_del = 'X'.

t_receivers-notif_ndel = 'X'.

APPEND t_receivers.

CALL FUNCTION 'SO_DOCUMENT_SEND_API1'

EXPORTING

document_data = w_doc_data

put_in_outbox = 'X'

sender_address = ld_sender_address

sender_address_type = ld_sender_address_type

commit_work = 'X'

IMPORTING

sent_to_all = w_sent_all

TABLES

packing_list = t_packing_list

contents_bin = t_attachment

contents_txt = it_message

receivers = t_receivers

EXCEPTIONS

too_many_receivers = 1

document_not_sent = 2

document_type_not_exist = 3

operation_no_authorization = 4

parameter_error = 5

x_error = 6

enqueue_error = 7

OTHERS = 8.

Populate zerror return code

ld_error = sy-subrc.

Populate zreceiver return code

LOOP AT t_receivers.

ld_receiver = t_receivers-retrn_code.

ENDLOOP.

ENDFORM.

<b>----

Problem

</b>

when this report is run in background for a single employee it is well n good.

But when run for multiple emp.

1st emp gets his own payslip.

2nd gets his and 1st emp's

3rd gets his , 2nd and 1st emp's payslip.

The reason for this, i think is that each time the each employee's payslip gets appended in the spool, and when FM 'CONVERT_ABAPSPOOLJOB_2_PDF' is called it creates a pdf containing all payslip in the spool.

<b>So, is there any way to refresh the current spool.

or create a new spool

WHEN THIS IS REPORT IS RUNNING AS A BACKGROUND JOB.</b>

i think i have stated the problem clearly ....

Bilz.

Re: Recreating or Refreshing Spool

former_member404244 — Mon, 22 Jan 2007 04:23:22 GMT

Hi,

try like this to get the spool number..

Declaration of local variables.

DATA:

lv_rq2name LIKE tsp01-rq2name.

CONCATENATE sy-repid+0(8)

sy-uname+0(3)

INTO lv_rq2name SEPARATED BY '_'.

Get the spool number.

SELECT * FROM tsp01 WHERE rq2name = lv_rq2name

ORDER BY rqcretime DESCENDING.

v_rqident = tsp01-rqident.

EXIT.

ENDSELECT.

IF sy-subrc NE 0.

CLEAR v_rqident.

ENDIF.

Also what iam thinking u need to refresh ur internal table after ur get information of one employee...plz chk it..

Regards,

Nagaraj

Re: Recreating or Refreshing Spool

Former Member — Mon, 22 Jan 2007 05:27:51 GMT

Hi Bilal,

Alternative solution, you can create an interface program.

I mean you create a new program and in this new program execute SUBMIT to your existing program to send the payslip for each employee.

Automatically each SUBMIT will create a new spool id and will send the payslip correctly for each empolyee..

Regards,

Hendy.

Re: Recreating or Refreshing Spool

Former Member — Mon, 22 Jan 2007 05:47:30 GMT

Well i have had tried this solution.

buy using Submit rep. to SAp-spool. It creates a new spool id but

FM 'GET_JOB_RUNTIME_INFO' doesn't returns the ID of the spool created

Re: Recreating or Refreshing Spool

former_member404244 — Mon, 22 Jan 2007 06:19:27 GMT

Hi,

plz go thrugh the below code...first it will generate a spool number and then retrieve the spool number(the earlier query i have given u)...and try..

Declaration of local constants

CONSTANTS : lc_paart LIKE sy-paart VALUE 'X_65_132', " Paper Format

lc_locl TYPE sypdest VALUE 'LOCL'. " Destination

If print option is selected.

IF p_print IS NOT INITIAL.

MOVE c_x TO v_print.

ENDIF.

Setup the Print Parmaters

CALL FUNCTION 'GET_PRINT_PARAMETERS'

EXPORTING

authority = space

immediately = v_print

new_list_id = c_x

no_dialog = c_x

user = sy-uname

IMPORTING

out_parameters = v_print_parms

EXCEPTIONS

archive_info_not_found = 1

invalid_print_params = 2

invalid_archive_params = 3

OTHERS = 4.

IF sy-subrc NE 0.

CLEAR : v_print_parms.

ENDIF.

The printer destination has to be set up

IF v_print_parms-pdest = space.

v_print_parms-pdest = lc_locl.

ENDIF.

Explicitly set line width, and output format so that
the PDF conversion comes out OK

v_print_parms-linsz = c_linsz.

v_print_parms-paart = lc_paart.

NEW-PAGE PRINT ON PARAMETERS v_print_parms NO DIALOG.

perform write_output.

NEW-PAGE PRINT OFF.

write the final internal table...in the perform by using write statement..

regards,

Nagaraj