Find a where used list of a planning area in DP

This document will help you to find the where used list of the planning area in process chain steps in DP.
List of process types considered:
  1. SCM_DP003    Initialize (Create Time Series Objects)
  2. SCM_DP004    Deintitialize (Delete Time Series objects)
  3. SCM_DP005    DP Background Processing
  4. SCM_DP007    Load Data from InfoCube
  5. SCM_DP008    Copy Planning Version
  6. SCM_DP010    Time Series consistency Check
Selection:
Enter planning area in selection screen and execute, you will get the where used list of the planning area in process chains.
/wp-content/uploads/2014/11/1_590328.jpg

*&———————————————————————*
*& Report  ZBTP_PA_WHERE_USED_LIST
*&
*&———————————————————————*
*& This report is used to find the where used list of the planning area
*& in the process chains
*&———————————————————————*
REPORT  zbtp_pa_where_used_list.
*Types-pool
TYPE-POOLS: slis.
*Selection screen
PARAMETERS: Pl_area TYPE /sapapo/ts_pareaid.
*Types
TYPES: BEGIN OF ty_tsplb,
        jobnr TYPE /sapapo/jobnr,
       END OF ty_tsplb.
TYPES: BEGIN OF ty_dp005,
        chain_id TYPE rspc_chain,
       END OF ty_dp005.
TYPES: BEGIN OF ty_so_tsplb,
        sign   TYPE c LENGTH 1,
        option TYPE c LENGTH 2,
        low    TYPE rspc_variant,
        high   TYPE rspc_variant,
      END OF  ty_so_tsplb.
TYPES: BEGIN OF ty_final,
        type TYPE rspc_type,
        description TYPE rstxtlg,
        chain_id TYPE rspc_chain,
       END OF ty_final.
TYPES: BEGIN OF ty_report,
        sign   TYPE c LENGTH 1,
        option TYPE c LENGTH 2,
        low    TYPE vari_reprt,
        high   TYPE vari_reprt,
       END OF  ty_report.
TYPES: BEGIN OF ty_rspctype,
        sign   TYPE c LENGTH 1,
        option TYPE c LENGTH 2,
        low    TYPE rspc_type,
        high   TYPE rspc_type,
       END OF  ty_rspctype.
TYPES: BEGIN OF ty_varid,
        report TYPE vari_reprt,
        variant TYPE variant,
       END OF ty_varid.
*Internal table declaration
DATA: itab_so_report TYPE TABLE OF ty_report,
      itab_lt_tsplb TYPE TABLE OF ty_tsplb,
      itab_lt_dp005 TYPE TABLE OF ty_dp005,
      itab_lt_varid TYPE TABLE OF ty_varid,
      itab_lt_so_dp005 TYPE TABLE OF ty_so_tsplb,
      itab_lt_final TYPE TABLE OF ty_final,
      itab_lt_values TYPE TABLE OF rsparams,
      itab_so_type TYPE TABLE OF ty_rspctype,
      itab_lt_rspcvariant TYPE TABLE OF rspcvariant.
*Work area declaration
DATA: str_ls_varid TYPE ty_varid,
      str_ls_dp005 TYPE ty_dp005,
      str_ls_report TYPE ty_report,
      itab_lt_fcat TYPE slis_t_fieldcat_alv,
      str_ls_fcat TYPE slis_fieldcat_alv,
      str_lt_tsplb TYPE ty_tsplb,
      str_ls_so_dp005 TYPE ty_so_tsplb,
      str_ls_final TYPE ty_final,
      str_ls_values TYPE rsparams,
      str_ls_rspcvariant TYPE  rspcvariant,
      str_ls_type TYPE ty_rspctype,
      str_ls_rspcchain TYPE rspcchain,
      c_lv_variant TYPE raldb_vari.
*Process Type SCM_DP005 (DP Background Processing)
*Selection of job number
SELECT jobnr
  FROM /sapapo/tsplb
  INTO TABLE itab_lt_tsplb
  WHERE parea = Pl_area.
LOOP AT itab_lt_tsplb INTO str_lt_tsplb.
  str_ls_so_dp005-sign = ‘I’.
  str_ls_so_dp005-option = ‘EQ’.
  str_ls_so_dp005-low = str_lt_tsplb-jobnr.
  APPEND str_ls_so_dp005 TO itab_lt_so_dp005.
ENDLOOP.
IF itab_lt_so_dp005 IS NOT INITIAL.
*Selection of process chain
  SELECT chain_id
    FROM rspcchain
    INTO TABLE itab_lt_dp005
    WHERE variante IN itab_lt_so_dp005.
ENDIF.
DELETE ADJACENT DUPLICATES FROM itab_lt_dp005.
LOOP AT itab_lt_dp005 INTO str_ls_dp005.
  str_ls_final-type = ‘SCM_DP005’.
  str_ls_final-description = ‘DP Background Processing’.
  str_ls_final-chain_id = str_ls_dp005-chain_id.
  APPEND str_ls_final TO itab_lt_final.
ENDLOOP.
str_ls_report-sign = ‘I’.
str_ls_report-option = ‘EQ’.
str_ls_report-low = ‘/SAPAPO/TS_PAREA_INITIALIZE’.
APPEND str_ls_report TO itab_so_report.
str_ls_report-sign = ‘I’.
str_ls_report-option = ‘EQ’.
str_ls_report-low = ‘/SAPAPO/TS_PAREA_DE_INITIALIZE’.
APPEND str_ls_report TO itab_so_report.
str_ls_report-sign = ‘I’.
str_ls_report-option = ‘EQ’.
str_ls_report-low = ‘/SAPAPO/RTSINPUT_CUBE’.
APPEND str_ls_report TO itab_so_report.
str_ls_report-sign = ‘I’.
str_ls_report-option = ‘EQ’.
str_ls_report-low = ‘/SAPAPO/RTSCOPY’.
APPEND str_ls_report TO itab_so_report.
str_ls_report-sign = ‘I’.
str_ls_report-option = ‘EQ’.
str_ls_report-low = ‘/SAPAPO/TS_LCM_CONS_CHECK’.
APPEND str_ls_report TO itab_so_report.
*Selection of variants from variants directory
SELECT report
       variant
  FROM varid
  INTO TABLE itab_lt_varid
  WHERE report IN itab_so_report.
str_ls_type-sign = ‘I’.
str_ls_type-option = ‘EQ’.
str_ls_type-low = ‘SCM_DP003’.
APPEND str_ls_type TO itab_so_type.
str_ls_type-sign = ‘I’.
str_ls_type-option = ‘EQ’.
str_ls_type-low = ‘SCM_DP004’.
APPEND str_ls_type TO itab_so_type.
str_ls_type-sign = ‘I’.
str_ls_type-option = ‘EQ’.
str_ls_type-low = ‘SCM_DP007’.
APPEND str_ls_type TO itab_so_type.
str_ls_type-sign = ‘I’.
str_ls_type-option = ‘EQ’.
str_ls_type-low = ‘SCM_DP008’.
APPEND str_ls_type TO itab_so_type.
str_ls_type-sign = ‘I’.
str_ls_type-option = ‘EQ’.
str_ls_type-low = ‘SCM_DP010’.
APPEND str_ls_type TO itab_so_type.
*Selection of process variants
SELECT *
  FROM rspcvariant
  INTO TABLE itab_lt_rspcvariant
  WHERE type IN itab_so_type.
*Process type SCM_DP003 Initialize (Create Time Series Objects)
PERFORM fm_final_list USING ‘SCM_DP003’ ‘/SAPAPO/TS_PAREA_INITIALIZE’ ‘PAREA’ ‘Initialize (Create Time Series Objects)’.
*Process type SCM_DP004 Deinitialize (Delete Time Series Objects)
PERFORM fm_final_list USING ‘SCM_DP004’ ‘/SAPAPO/TS_PAREA_DE_INITIALIZE’ ‘PAREA’ ‘Deintitialize (Delete Time Series objects)’.
*Process type SCM_DP007 Load Data from InfoCube
PERFORM fm_final_list USING ‘SCM_DP007’ ‘/SAPAPO/RTSINPUT_CUBE’ ‘P_AREA’ ‘Load Data from InfoCube’.
*Process type SCM_DP008 Copy Planning Version
PERFORM fm_final_list USING ‘SCM_DP008’ ‘/SAPAPO/RTSCOPY’ ‘P_AREA’ ‘Copy Planning Version’.
*Process type SCM_DP010 Time Series consistency Check
PERFORM fm_final_list USING ‘SCM_DP010’ ‘/SAPAPO/TS_LCM_CONS_CHECK’ ‘PAREA’ ‘Time Series consistency Check’.
*Sorting and deleting the duplicates
SORT itab_lt_final BY type description chain_id ASCENDING.
DELETE ADJACENT DUPLICATES FROM itab_lt_final.
*Build field catalog
str_ls_fcat-col_pos = ‘1’.
str_ls_fcat-fieldname = ‘TYPE’.
str_ls_fcat-seltext_l = ‘Process type’.
str_ls_fcat-seltext_m = ‘Process type’.
str_ls_fcat-tabname = ‘ITAB_LT_FINAL’.
str_ls_fcat-ref_tabname = ‘RSPROCESSTYPEST’.
str_ls_fcat-ref_fieldname = ‘TYPE’.
APPEND str_ls_fcat TO itab_lt_fcat.
str_ls_fcat-col_pos = ‘2’.
str_ls_fcat-fieldname = ‘DESCRIPTION’.
str_ls_fcat-seltext_l = ‘Description’.
str_ls_fcat-seltext_m = ‘Description’.
str_ls_fcat-tabname = ‘ITAB_LT_FINAL’.
str_ls_fcat-ref_tabname = ‘RSPROCESSTYPEST’.
str_ls_fcat-ref_fieldname = ‘DESCRIPTION’.
APPEND str_ls_fcat TO itab_lt_fcat.
str_ls_fcat-col_pos = ‘3’.
str_ls_fcat-fieldname = ‘CHAIN_ID’.
str_ls_fcat-seltext_l = ‘Process Chain’.
str_ls_fcat-seltext_m = ‘Process Chain’.
str_ls_fcat-tabname = ‘ITAB_LT_FINAL’.
str_ls_fcat-ref_tabname = ‘RSPCCHAIN’.
str_ls_fcat-ref_fieldname = ‘CHAIN_ID’.
APPEND str_ls_fcat TO itab_lt_fcat.
*ALV list display
CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’
  EXPORTING
    i_callback_program = sy-repid
    it_fieldcat       = itab_lt_fcat
  TABLES
    t_outtab          = itab_lt_final
  EXCEPTIONS
    program_error     = 1
    OTHERS            = 2.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*&———————————————————————*
*&      Form  FM_FINAL_LIST
*&———————————————————————*
*       text
*———————————————————————-*
*      –>P_0486   text
*      –>P_0487   text
*      –>P_0488   text
*      –>P_0489   text
*———————————————————————-*
FORM fm_final_list  USING p_type TYPE rspc_type
                          p_report TYPE raldb_repo
                          p_selname TYPE rsscr_name
                          p_description TYPE rstxtlg.
  LOOP AT itab_lt_rspcvariant
  INTO str_ls_rspcvariant
  WHERE type = p_type.
    c_lv_variant = str_ls_rspcvariant-low.
    CALL FUNCTION ‘RS_VARIANT_VALUES_TECH_DATA’
      EXPORTING
        report              = p_report
        variant             = c_lv_variant
      TABLES
        variant_values      = itab_lt_values
      EXCEPTIONS
        variant_non_existent = 1
        variant_obsolete    = 2
        OTHERS              = 3.
    IF sy-subrc EQ 0.
      READ TABLE itab_lt_values
            INTO str_ls_values
        WITH KEY selname = p_selname.
      IF sy-subrc EQ 0 AND str_ls_values-low EQ Pl_area.
        SELECT SINGLE *
          FROM rspcchain
          INTO str_ls_rspcchain
          WHERE type EQ str_ls_rspcvariant-type
          AND variante EQ str_ls_rspcvariant-variante.
        IF sy-subrc EQ 0.
          str_ls_final-type = p_type.
          str_ls_final-description = p_description.
          str_ls_final-chain_id = str_ls_rspcchain-chain_id.
          APPEND str_ls_final TO itab_lt_final.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDLOOP.
ENDFORM.                    ” FM_FINAL_LIST

Result:

/wp-content/uploads/2014/11/2_590329.jpg

Please let me know in case if I missed any other process types related to planning area, so that I will update the same.

Comments

Post a Comment

Popular posts from this blog

Automating CIF Delta Report Reprocessing

Image
CIF is the standard interface between APO and ECC used to transfer master data (uni-directional) and transaction data (bi-directional). But very often due to some master data issue transaction data does not flow through and gets stuck in CIF queue. SAP provides CIF Delta Reconciliation Report (commonly know as CCR) that compares transaction data for given product-location between APO & ECC to list the differences. This output result is typically reviewed by production support team and necessary processing action (one of Send to ECC, Send to APO, Delete in ECC and Delete in APO action button) executed to reconcile the transaction data differences. Any APO consultant doing CIF monitoring on regular basis knows the effort required and also over time turns monotonous. However the choice of action to be taken is limited (most of the cases only 1 of the 4 actions possible) based on the transaction data object type (like Purchase Requisition, Purchase / Stock Transfer Order, Planned Ord...
Read more

SO Deleted but appears in MD04

1) Please check any Open delivery is exist for the order, if yes delete the Delivery 2) Close the order by order rejection 3) run SDRQCR21 in SE38 with data transfer , planning file entry and processing per material tick 4) This will remove the planning file entry and demand and run MRP 5) If problem still exist , then raise a Question to SAP with the help of Basis https://archive.sap.com/discussions/thread/1863626 Data transfer This parameter will be selected in order to update Sales and Delivery Requirements in Database by applying the Correction. Comparison This parameter will be used to improve the performance and run-time execution and will not reconstructs the Database for all Materials/Plant in the selection. Planning Entry If this parameter is selected then the report creates entries for the planning run for the affected Materials/Plant in order to make sure that the material should be included in next MRP run. Processing per Materi...
Read more

Common CIF Errors

Most common error messages that we face when analyzing CIF execution. For every error message we have a few recommended actions and possible root causes. 1. Order version __ __ not valid at date __ . Root causes:  PPM/PDS or production version is no longer valid at order date of execution.  No available PPM/PDS orPV at order’s date of execution.  PPM or PDS has not been ciffed correctly to APO. Solution: Check production version status is not locked. Update new validity dates for production version. Cif changes to APO in order to update the PPMs or PPDs. Re-explode the orders where necessary. 2. Product ____ doesn’t exist in an active integration model. Root causes:  Material intergation model is not active.  Product has cross-plant status as blocked.  Material has MRP type different than X_*. Solution:  Check and correct the cross-plant status of the product..  Check and correct the MRP type of the product (X_).  Ac...
Read more