Report which displays operation allocation in Routing CA03

Question

Hi Experts,
I want to display a report showing operation allocation for each BOM components in the routing transaction CA03. The selection screen fields are Bill of Material header, Group, Group Counter, Plant, BOM, and alternative BOM. The output of the report should show all of these fields and Phantom item indicator, BOM component, component quantity, component unit of measure, item category, Operation/Activity Number (Operation Allocation), & material description.
Has anyone worked on similar kind of reports before. Please send me some inputs or code which helps me to write a report program for this.
Thanks
Ricky

Answer 1

I have written a simple ALV report to list the routings. It is working fine for my purpose.
If somebody can suggest any improvement thanks in advance.
Code Listing----
REPORT  YROUTING.
TABLES: MARA, PLKO, PLPO, MAPL, CRHD, MARC.
TYPES: BEGIN OF ITAB,
  KTEXT LIKE PLKO-KTEXT, "Task list description
  MATNR LIKE MAPL-MATNR,
  PLNNR LIKE MAPL-PLNNR,
  VORNR LIKE PLPO-VORNR,
  STEUS LIKE PLPO-STEUS,
  WERKS LIKE PLPO-WERKS,
  ARBPL LIKE CRHD-ARBPL,
  LTXA1 LIKE PLPO-LTXA1,
  BMSCH LIKE PLPO-BMSCH,
  MEINH LIKE PLPO-MEINH,
  VGW01 LIKE PLPO-VGW01,
  VGE01 LIKE PLPO-VGE01,
  VGW02 LIKE PLPO-VGW02,
  VGE02 LIKE PLPO-VGE02,
  VGW03 LIKE PLPO-VGW03,
  VGE03 LIKE PLPO-VGE03,
  CKSELKZ LIKE PLPO-CKSELKZ,
  END OF ITAB.
DATA: ITAB TYPE ITAB OCCURS 0 WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: MATNR FOR MARA-MATNR, "default 513010005G30,
                WERKS FOR MARC-WERKS,
                ARBPL FOR CRHD-ARBPL.
SELECTION-SCREEN END OF BLOCK BLK1.
*SELECT PLKOKTEXT MAPLMATNR MAPLPLNAL PLPOVORNR PLPOSTEUS PLPOWERKS PLPOLTXA1 PLPOBMSCH PLPOMEINH PLPOVGW01 PLPOVGE01 PLPOVGW02 PLPOVGE02 PLPOVGW03 PLPOVGE03 PLPOCKSELKZ
SELECT PLKOKTEXT MAPLMATNR MAPLPLNNR PLPOVORNR PLPOSTEUS PLPOWERKS CRHDARBPL PLPOLTXA1 PLPOBMSCH PLPOMEINH PLPOVGW01 PLPOVGE01 PLPOVGW02 PLPOVGE02 PLPOVGW03 PLPOVGE03 PLPO~CKSELKZ
INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM MAPL
INNER JOIN PLKO ON PLKOPLNNR = MAPLPLNNR
INNER JOIN PLPO ON MAPLPLNNR = PLPOPLNNR
INNER JOIN CRHD ON PLPOARBID = CRHDOBJID
WHERE MAPL~MATNR IN MATNR
      AND PLPO~WERKS IN WERKS
      AND CRHD~ARBPL IN ARBPL
      AND MAPL~PLNTY = 'N'
ORDER BY MAPL~MATNR.
TYPE-POOLS : SLIS.
DATA : AFIELD TYPE SLIS_FIELDCAT_ALV.
DATA : COUNT TYPE I.
DATA : FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       LS_FTCAT TYPE LVC_S_FCAT,
       SORTCAT TYPE SLIS_T_SORTINFO_ALV,
       SORTCAT_LN  LIKE LINE OF SORTCAT,
       EVENTCAT             TYPE SLIS_T_EVENT,
       EVENTCAT_LN          LIKE LINE OF EVENTCAT,
       LAYOUT_IN            TYPE SLIS_LAYOUT_ALV,
       LAYOUT_IN1           TYPE SLIS_LAYOUT_ALV.
AFIELD-COL_POS = 1.
AFIELD-FIELDNAME = 'MATNR'.
AFIELD-SELTEXT_L = 'Material'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 2.
AFIELD-FIELDNAME = 'KTEXT'.
AFIELD-SELTEXT_L = 'Matl.Desc'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 3.
AFIELD-FIELDNAME = 'WERKS'.
AFIELD-SELTEXT_L = 'Plant'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 4.
AFIELD-FIELDNAME = 'STEUS'.
AFIELD-SELTEXT_L = 'Ctrl.Key'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 5.
AFIELD-FIELDNAME = 'LTXA1'.
AFIELD-SELTEXT_L = 'Operation Desc'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 6.
AFIELD-FIELDNAME = 'BMSCH'.
AFIELD-SELTEXT_L = 'Base Qty'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 7.
AFIELD-FIELDNAME = 'VGW01'.
AFIELD-SELTEXT_L = 'Setup Time'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 8.
AFIELD-FIELDNAME = 'VGE01'.
AFIELD-SELTEXT_L = 'Setup UOM'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 9.
AFIELD-FIELDNAME = 'VGW02'.
AFIELD-SELTEXT_L = 'Proc.Time'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 10.
AFIELD-FIELDNAME = 'VGE02'.
AFIELD-SELTEXT_L = 'Proc.UOM'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 11.
AFIELD-FIELDNAME = 'PLNNR'.
AFIELD-SELTEXT_L = 'Group Counter'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 12.
AFIELD-FIELDNAME = 'ARBPL'.
AFIELD-SELTEXT_L = 'Work Centre'.
APPEND AFIELD TO FIELDCAT.
LAYOUT_IN-COLWIDTH_OPTIMIZE   ='X'.
LAYOUT_IN-ZEBRA               ='X'.
LAYOUT_IN-GET_SELINFOS        ='X'.
LAYOUT_IN-CONFIRMATION_PROMPT ='X'.
LAYOUT_IN-DETAIL_POPUP        ='X'.
LAYOUT_IN-NO_KEYFIX           =''.
DATA: GS_VARIANT LIKE DISVARIANT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    I_CALLBACK_PROGRAM      = 'YROUTING'
    I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
    IT_FIELDCAT             = FIELDCAT
    IT_SORT                 = SORTCAT
    IS_LAYOUT               = LAYOUT_IN
    I_DEFAULT               = 'X'
    I_SAVE                  = 'A'
    I_GRID_TITLE            = ''
    IS_VARIANT              = GS_VARIANT
  TABLES
    T_OUTTAB                = ITAB.
*******Process Call Back Events (Begin)**************************
FORM USER_COMMAND USING UCOMM LIKE SY-UCOMM
SELFIELD TYPE SLIS_SELFIELD.
  READ TABLE ITAB INDEX SELFIELD-TABINDEX.
  CHECK SY-SUBRC = 0.
  CASE UCOMM.
    WHEN '&IC1'.
      CASE SELFIELD-SEL_TAB_FIELD.
       WHEN '1-MATNR'.
         SET PARAMETER ID 'MAT' FIELD ITAB-MATNR.
         SET PARAMETER ID 'WRK' FIELD ITAB-WERKS.
         CALL TRANSACTION 'CA02' AND SKIP FIRST SCREEN.
        WHEN '1-ARBPL'.
          SET PARAMETER ID 'WRK' FIELD ITAB-WERKS.
          SET PARAMETER ID 'AGR' FIELD ITAB-ARBPL.
          CALL TRANSACTION 'CR03' AND SKIP FIRST SCREEN.
         OK_CODE = OK_CONST-ENTER.
      ENDCASE.
  ENDCASE.
ENDFORM.                    "USER_COMMAND