FuBa zum lesen Cluster PCL2

Hallo,

versuchs mal damit.


include rpc2rdd0. "Datenbeschreibung Cluster RD
include zhclgv10. siehe unten
include rpcmgr00. "CD-Manager

data: per_from(6) value 'JJJJMM',
stat,
returncode like sy-subrc.


per_from(6) = pn-paper.
stat = 'A'.
include zhpcl200. "! Lesen PCL2 !!!!!
if returncode = 0.
rx-key-pernr = pernr-pernr.
unpack rgdir-seqnr to rx-key-seqno.
rp-imp-c2-rd. " Lesen Abr.ergebnisse
if sy-subrc = 0.
loop at rt.
check: rt-lgart = ?

Schreinben in interne Tabelle

endloop.
endif.
endif.
**************************************************************
ZHCLGV10
TABLES: PCL1, PCL2.
*---------------------------------------------------------------------*
* INLUCDES fuer den CLUSTER-DIRECTOY-MANAGER *
*---------------------------------------------------------------------*
INCLUDE RPC2CD00.
*---------------------------------------------------------------------*
* INCLUDES fuer die Pufferung von PCL2 *
*---------------------------------------------------------------------*
INCLUDE RPPPXD00. "Daten PCLx-Puffer
DATA: BEGIN OF COMMON PART BUFFER.
INCLUDE RPPPXD10. "Daten PCLx-Puffer
DATA: END OF COMMON PART.
INCLUDE RPPPXM00. "Routinen PCLx-Puffer

**************************************************************
ZHPCL200
PERFORM CD_MANAGER USING PERNR-PERNR "Pernr
P0001-ABKRS "payroll subunit
PER_FROM "forperiod
SPACE "begin date
SPACE "end date
SPACE "payroll subunit in
SPACE "permo in
SPACE "period in
SPACE "enddate inperiod
SPACE "legal entity
STAT "actual, previous, old
SPACE "CD-TYPE
'R' "action
RETURNCODE. "returncode
RP-INIT-BUFFER. "YPPK86093


Gruss
Kerstin

nimm doch den FB: HR_GET_PAYROLL_RESULTS -> damit bekommst du das komplette Abrechnungsergebnis des MA.