Former Member

Dec 09, 2008 at 07:50 PM

submit on wda

36 Views

hi

this my code:

function zcalldata :

submit zmstwork

with PNPPERNR-LOW = gt_tab-pernr

WITH PNPBUKRS-LOW = gt_tab-bukrs

WITH PNPWERKS-LOW = gt_tab-WERKS

WITH PNPBTRTL-LOW = gt_tab-BTRTL

WITH PNPPERSG-LOW = gt_tab-PERSG

WITH PNPPERSK-LOW = gt_tab-PERSK

WITH PNPABKRS-LOW = gt_tab-ABKRS

WITH PNPKOSTL-LOW = gt_tab-KOSTL

WITH R1 = dr1

WITH R2 = dr2

WITH P_PAY01 = gt_Tab-lgart1

WITH P_PAY02 = gt_Tab-lgart2

WITH P_PAY03 = gt_Tab-lgart3

WITH P_PAY04 = gt_Tab-lgart4

WITH P_PAY05 = gt_Tab-lgart5

WITH P_ANZ01 = gt_tab-G_ANZHL1

WITH P_ANZ02 = gt_tab-G_ANZHL2

WITH P_ANZ03 = gt_tab-G_ANZHL3

WITH P_ANZ04 = gt_tab-G_ANZHL4

WITH P_ANZ05 = gt_tab-G_ANZHL5

WITH P_DATE = gt_tab-tarih

WITH R3 = dr3

WITH R4 = dr4

WITH R5 = dr5

and return.

this all parameters are true

DATA gt_fmain TYPE zmsttype.

import gt_main to gt_fmain from MEMORY ID 'P0338_RS'.

but i dont work pnp database . this my r3 programe code :

START-OF-SELECTION.

gv_repid = sy-repid .

PERFORM before_get_data.

GET pernr . -

> this retrun sy-subrc = 4

PERFORM hire_fire USING p_date p_date hired fired .

CHECK ( hired LE p_date AND fired GE p_date ).

PERFORM get_employes_data.

end-of-SELECTION.

CHECK p_pay01 IS NOT INITIAL OR p_pay02 IS NOT INITIAL OR

p_pay03 IS NOT INITIAL OR p_pay04 IS NOT INITIAL OR

p_pay05 IS NOT INITIAL .

PERFORM show_data .

form before_get_data.

SELECT pernr FROM pa0001 INTO TABLE lt_per

WHERE pernr IN pnppernr

AND orgeh IN pnporgeh

AND btrtl IN pnpbtrtl

AND kostl IN pnpkostl

AND bukrs IN pnpbukrs

AND plans IN pnpplans

AND persk IN pnppersk

AND persg IN pnppersg

AND begda <= p_date

AND endda >= p_date.

CHECK sy-subrc = 0.

CLEAR pnppernr[].

MOVE:'I' TO pnppernr-sign,

'EQ' TO pnppernr-option.

LOOP AT lt_per.

MOVE:lt_per-pernr TO pnppernr-low.

APPEND pnppernr.

ENDLOOP.

CLEAR gt_data[].

SELECT * FROM pa_t003 INTO TABLE gt_data

WHERE infty = p_infty

AND pernr IN pnppernr.

endform

this is true run on r3