Recreating or Refreshing Spool

[Former Member]

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.

[former_member404244]

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

[Former Member]

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.

[Former Member]

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

[former_member404244]

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