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
 
 
 
Serkan AKKAVAK
Computer Engineer
ABAP Developer & SAP MM SD Consultant
Contact : serkurumsal@yandex.com