SAP Note 17560 - Allocation: Deletion report for plan alloc. CO-CCA

Symptom:

Deletion report for plan assessments/distributions in cost center accounting CO-CCA for a fiscal year within a client for ALL controlling areas!!!!!

Cause and prerequisites

X

Solution
If you have already run planned assessment or distribution for cost centers and cannot fully reverse it, you can delete ALL CO transaction data generated during distribution/assessment by fiscal year within a client using the RKALLOCD report. If you have any questions, contact the CO section of the SAP hotline.
Afterwards - after deleting the movement datas - you must run all the PLAN assessments, PLAN distributions again.

ATTENTION: You can't use this deletion report if profit center accouting CO-PCA or extended general ledger FI-GLX is active in your system. In this case please contact again SAP hotline.

REPORT RKALLOCD NO STANDARD PAGE HEADING.
TABLES: COSS,
COSP,
COBK,
COEJ,
T811C,
T811D.

PARAMETERS: GJAHR LIKE COSS-GJAHR.
*--------------------------------------------------------------
START-OF-SELECTION.
*--------------------------------------------------------------
DO.
SELECT * FROM COSS UP TO 1000 ROWS
WHERE VRGNG IN ('RKPU','RKPV')
AND GJAHR = GJAHR.
DELETE COSS.
ENDSELECT.
IF SY-SUBRC > 0.
EXIT.
ENDIF.
COMMIT WORK.
ENDDO.
DO.
SELECT * FROM COSP UP TO 1000 ROWS
WHERE VRGNG = 'RKPB'
AND GJAHR = GJAHR.
DELETE COSP.
ENDSELECT.
IF SY-SUBRC > 0.
EXIT.
ENDIF.
COMMIT WORK.
ENDDO.
DO.
SELECT * FROM COEJ UP TO 1000 ROWS
WHERE VRGNG IN ('RKPU','RKPV','RKPB')
AND GJAHR = GJAHR.
DELETE COEJ.
ENDSELECT.
IF SY-SUBRC > 0.
EXIT.
ENDIF.
COMMIT WORK.
ENDDO.
DO.
SELECT * FROM COBK UP TO 1000 ROWS
WHERE VRGNG IN ('RKPU','RKPV','RKPB')
AND GJAHR = GJAHR.
DELETE COBK.
ENDSELECT.
IF SY-SUBRC > 0.
EXIT.
ENDIF.
COMMIT WORK.
ENDDO.



SELECT * FROM T811D WHERE TAB = 'CCSS'
AND GJAHR = GJAHR.
IF T811C-CYCLE NE T811D-CYCLE
OR T811C-SDATE NE T811D-SDATE.
SELECT SINGLE * FROM T811C WHERE TAB = 'CCSS'
AND CYCLE = T811D-CYCLE
AND SDATE = T811D-SDATE.
ENDIF.
CHECK T811C-IPKNZ = 'P'.
DELETE T811D.
ENDSELECT.
COMMIT WORK.
SKIP.
WRITE: /2 'Trans. data for plan assessment, plan distribution '(001).
WRITE: /2 'have been deleted for fiscal year:'(002), GJAHR.
Additional key words

Allocation