ABAP Reports Customized Work Center List PP

*
* The standard SAP Work Center List - CR05 includes the flag for
* deletion work center. This customized work center list allows
* you to include or exclude those work center that have been flag
* for deletion. Those with a 'X' in the list are flag for deletion.
*
* Written by : SAP Basis, ABAP Programming and Other IMG Stuff
*
*
REPORT ZPPWORKCENTER
LINE-SIZE 120 NO STANDARD PAGE HEADING LINE-COUNT 058(001).

TABLES: CRHD, "Work Center Header
CRTX, "Text for the Work Center or Production Resource/Tool
CRCO. "Assignment of Work Center to Cost Center

SELECT-OPTIONS: S_WERKS FOR CRHD-WERKS DEFAULT 'XX',
S_LVORM FOR CRHD-LVORM.

SELECT * FROM CRHD WHERE LVORM IN S_LVORM
AND WERKS IN S_WERKS.
CLEAR CRCO.
SELECT SINGLE * FROM CRCO WHERE OBJTY = 'A'
AND OBJID = CRHD-OBJID
AND ENDDA => SY-DATUM.

CLEAR CRTX.
SELECT SINGLE * FROM CRTX WHERE OBJTY = 'A'
AND OBJID = CRHD-OBJID
AND SPRAS = 'E'.

WRITE: / CRHD-LVORM,
CRHD-WERKS UNDER 'Plnt',
CRHD-ARBPL UNDER 'Work Center',
CRCO-KOSTL UNDER 'Cost Center',
CRTX-KTEXT UNDER 'Description'.
ENDSELECT.

TOP-OF-PAGE.
WRITE: / SY-DATUM, SY-UZEIT, SY-REPID, SY-UNAME,
SY-PAGNO.
SKIP.
WRITE:/3 'Plnt',
8 'Work Center',
20 'Cost Center',
33 'Description'.

*-- End of Program