PNPCE -- Payroll results

Question

When using PNPCE LDB, how to retrive payroll record for an employee.
Regards
Manvi

Answer 1

Hi,
Please refer to the following code.
Basically the payroll data is stored in  the Cluster tables PCL1 and PCL2.
If help ful please reward points.
Regards,
Irfan Hussain
*& Report  ZHR_READ_CLUSTER                                            *
REPORT  ZHR_READ_CLUSTER                        .
TABLES : PERNR,
       PCL1,
       PCL2.
Infotypes : 0001,
           0002.
Data : molga like t001p-molga,
     num  like pc261-seqnr.
                   STANDARD INCLUDES                                *
INCLUDE rpc2cd09.  " Data Definition - CD Cluster INCLUDE rpc2ca00.  " Data Definition Import/Export Macros for ClusterCA INCLUDE rpc2ruu0.  " Data Definition for Cluster RU (USA) INCLUDE rpc2rx09.  " Cluster RU Data-Definition internat. part INCLUDE rpppxd00.  " Data befinition buffer PCL1/PCL2 INCLUDE rpppxd10.  " Common part buffer PCL1/PCL2 INCLUDE rpppxm00.  " Buffer handling routine
Start-Of-Selection.
Get Pernr.
rp_provide_from_last p0001 space pn-begda pn-endda.
CALL FUNCTION 'CU_READ_RGDIR'
EXPORTING
   persnr                  = pernr-pernr
IMPORTING
MOLGA                    = molga
tables
   in_rgdir                = rgdir
EXCEPTIONS
NO_RECORD_FOUND          = 1
OTHERS                  = 2
IF sy-subrc = 1.
write /: 'No Records Found'.
ENDIF.
CALL FUNCTION 'CD_READ_LAST'
EXPORTING
   begin_date            = pn-begda
   end_date              = pn-endda
IMPORTING
OUT_SEQNR            = num
tables
   rgdir                = rgdir
EXCEPTIONS
NO_RECORD_FOUND      = 1
OTHERS                = 2
IF sy-subrc = 1.
write :/ ' No Payroll Exist'.
ELSE.
rx-key-pernr = pernr-pernr.
rx-key-seqno = num.
rp-imp-c2-ru.
IF SY-SUBRC = 0.
PERFORM PRINT_FORM.
ELSE.
WRITE :/ 'Results Could not be read this time'.
endif.
ENDIF.
*&      Form  PRINT_FORM
     text
-->  p1        text
<--  p2        text
form PRINT_FORM .
DATA : l_betrg LIKE p0008-bet01,
     l_betrg1 like p0008-bet01.
read table rgdir with key seqnr = num.
IF sy-subrc = 0.
   WRITE:  /1 'Empd id' COLOR 1,20 p0001-pernr COLOR 5,
           /1 'Name' COLOR 1,20 p0001-ename COLOR 5,
           /1 'Personnel Area' COLOR 1,20 p0001-werks COLOR 5,
           /1 'Personnel Subarea' COLOR 1 ,20 p0001-btrtl COLOR 5.
   SKIP 1.
   WRITE: / 'For-period' COLOR 1, 30 rgdir-fpper  COLOR 3,
           / 'In-period' COLOR 1, 30 rgdir-inper COLOR 3.
   SKIP 1.
ENDIF.
loop at crt where lgart = '/101' or lgart = '\5UH' .
       if crt-cumty = 'Q'.
             l_betrg = l_betrg + crt-betrg.
       endif.
endloop.
loop at crt where lgart = '/102' and cumty = 'Y'.
           l_betrg1 = l_betrg1 + crt-betrg.
endloop.
l_betrg1 = l_betrg1 / 4.
l_betrg = l_betrg + l_betrg1.
write :/ l_betrg.
endform.                    " PRINT_FORM