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