REPORT ZSF_DT_MRP_ANALYSIS. *&---------------------------------------------------------------------* *& Dynamic Tool: mrp_analysis *& Description: MRP Stock/Requirements Analysis with proper BOM explosion *& Author: SAPfever-CLI *& Version: 1.2.0 - Fixed PEGGINGMODE implementation *& Category: Analytics *& Created: 2025-10-06 *&---------------------------------------------------------------------* " Period structure exactly like original tt1 TYPES: BEGIN OF ty_period_data, pqty TYPE p LENGTH 13 DECIMALS 3, " Planned quantity dqty TYPE p LENGTH 13 DECIMALS 3, " Delivery quantity rqty TYPE p LENGTH 13 DECIMALS 3, " Requirement quantity sqty TYPE p LENGTH 13 DECIMALS 3, " Simulation quantity mqty TYPE p LENGTH 13 DECIMALS 3, " MRP quantity tqty TYPE p LENGTH 13 DECIMALS 3, " Target safety quantity ac TYPE i, " Actual coverage xqty TYPE p LENGTH 13 DECIMALS 3, " Daily avg requirement END OF ty_period_data. " Main result structure exactly like original tt2 TYPES: BEGIN OF ty_mrp_result, plscn TYPE plscn, werks TYPE werks_d, wrk02 TYPE werks_d, " Component plant baugr TYPE matnr, " Parent material baugt TYPE maktx, " Parent description matnr TYPE matnr, matkx TYPE maktx, mtart TYPE mtart, meins TYPE meins, matkl TYPE matkl, wgbez TYPE wgbez, month TYPE spmon, " Stock quantities stkqty TYPE p LENGTH 13 DECIMALS 3, scsqty TYPE p LENGTH 13 DECIMALS 3, blkqty TYPE p LENGTH 13 DECIMALS 3, qiqty TYPE p LENGTH 13 DECIMALS 3, prqty TYPE p LENGTH 13 DECIMALS 3, poqty TYPE p LENGTH 13 DECIMALS 3, wipqty TYPE p LENGTH 13 DECIMALS 3, total TYPE p LENGTH 13 DECIMALS 3, " Summary fields conqty TYPE p LENGTH 13 DECIMALS 3, plqty TYPE p LENGTH 13 DECIMALS 3, covermon TYPE i, horizon TYPE i. " Include 16 periods exactly like original INCLUDE TYPE ty_period_data AS p01 RENAMING WITH SUFFIX 01. INCLUDE TYPE ty_period_data AS p02 RENAMING WITH SUFFIX 02. INCLUDE TYPE ty_period_data AS p03 RENAMING WITH SUFFIX 03. INCLUDE TYPE ty_period_data AS p04 RENAMING WITH SUFFIX 04. INCLUDE TYPE ty_period_data AS p05 RENAMING WITH SUFFIX 05. INCLUDE TYPE ty_period_data AS p06 RENAMING WITH SUFFIX 06. INCLUDE TYPE ty_period_data AS p07 RENAMING WITH SUFFIX 07. INCLUDE TYPE ty_period_data AS p08 RENAMING WITH SUFFIX 08. INCLUDE TYPE ty_period_data AS p09 RENAMING WITH SUFFIX 09. INCLUDE TYPE ty_period_data AS p10 RENAMING WITH SUFFIX 10. INCLUDE TYPE ty_period_data AS p11 RENAMING WITH SUFFIX 11. INCLUDE TYPE ty_period_data AS p12 RENAMING WITH SUFFIX 12. INCLUDE TYPE ty_period_data AS p13 RENAMING WITH SUFFIX 13. INCLUDE TYPE ty_period_data AS p14 RENAMING WITH SUFFIX 14. INCLUDE TYPE ty_period_data AS p15 RENAMING WITH SUFFIX 15. INCLUDE TYPE ty_period_data AS p16 RENAMING WITH SUFFIX 16. TYPES: END OF ty_mrp_result. " Data structures exactly like original itab/itab2 DATA: BEGIN OF gs_itab, plscn TYPE plscn, matnr TYPE matnr, werks TYPE werks_d. INCLUDE TYPE mdps. DATA: END OF gs_itab. DATA: gt_itab LIKE TABLE OF gs_itab. DATA: BEGIN OF gs_itab2, plscn TYPE plscn, matnr TYPE matnr, werks TYPE werks_d. INCLUDE TYPE mdsu. DATA: END OF gs_itab2. DATA: gt_itab2 LIKE TABLE OF gs_itab2. " Working tables exactly like original DATA: gt_itab_aa TYPE STANDARD TABLE OF ty_mrp_result WITH HEADER LINE, gt_itab_aa2 TYPE STANDARD TABLE OF ty_mrp_result, gs_wa LIKE LINE OF gt_itab_aa. " BOM explosion variables exactly like original DATA: gt_stb LIKE stpox OCCURS 0 WITH HEADER LINE, gv_nlc TYPE i, gv_stlal LIKE stko-stlal, gv_stlan LIKE stzu-stlan. " Results table DATA: gt_results TYPE TABLE OF ty_mrp_result. " Global variables for pegging mode like original screen parameters DATA: gv_single TYPE c, gv_topbot TYPE c, gv_bottop TYPE c, gv_clr_pegg TYPE c VALUE 'X'. " Default clear pegging for single lines FORM execute USING it_params TYPE ztt_zmcp_params CHANGING et_result TYPE ztt_zmcp_params et_messages TYPE bapiret2_t. DATA: ls_param TYPE zmcp_param, ls_message TYPE bapiret2, ls_result_param TYPE zmcp_param. DATA: lv_plscn TYPE plscn, lv_matnr TYPE matnr, lv_werks TYPE werks_d, lv_dispo TYPE dispo, lv_pegging_mode TYPE char10 VALUE 'single'. " Clear outputs CLEAR: et_result, et_messages. REFRESH: et_result, et_messages. " Extract parameters LOOP AT it_params INTO ls_param. CASE ls_param-name. WHEN 'planningScenario' OR 'PLANNINGSCENARIO'. lv_plscn = ls_param-value. WHEN 'material' OR 'MATERIAL'. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = ls_param-value IMPORTING output = lv_matnr. WHEN 'mrpController' OR 'MRPCONTROLLER'. lv_dispo = ls_param-value. WHEN 'plant' OR 'PLANT'. lv_werks = ls_param-value. WHEN 'peggingMode' OR 'PEGGINGMODE'. lv_pegging_mode = ls_param-value. " Set global flags like original screen parameters CLEAR: gv_single, gv_topbot, gv_bottop. CASE lv_pegging_mode. WHEN 'single'. gv_single = 'X'. gv_clr_pegg = 'X'. " Single mode always clears pegging WHEN 'topbot' OR 'TOPBOT'. gv_topbot = 'X'. gv_clr_pegg = ''. " Topbot shows pegging relationships (initial) WHEN 'bottop' OR 'BOTTOP'. gv_bottop = 'X'. gv_clr_pegg = ''. " Bottop shows pegging relationships (initial) WHEN OTHERS. gv_single = 'X'. gv_clr_pegg = 'X'. ENDCASE. ENDCASE. ENDLOOP. " Set default planning scenario IF lv_plscn IS INITIAL. lv_plscn = '000'. ENDIF. " Validate parameters - at least one of material or mrp_controller required IF lv_matnr IS INITIAL AND lv_dispo IS INITIAL. ls_message-type = 'E'. ls_message-message = 'Either material or mrpController is required'. APPEND ls_message TO et_messages. RETURN. ENDIF. IF lv_werks IS INITIAL. ls_message-type = 'E'. ls_message-message = 'Plant is required'. APPEND ls_message TO et_messages. RETURN. ENDIF. " Clear all working tables CLEAR: gt_itab, gt_itab2, gt_itab_aa, gt_itab_aa2, gt_results, gv_nlc. REFRESH: gt_itab, gt_itab2, gt_itab_aa, gt_itab_aa2, gt_results. " Handle material selection based on parameter IF lv_matnr IS NOT INITIAL. " Single material mode PERFORM load_data USING lv_plscn lv_matnr lv_werks. PERFORM aggregate0 USING lv_matnr lv_werks lv_pegging_mode. PERFORM aggregate1. PERFORM process_periods. ELSEIF lv_dispo IS NOT INITIAL. " MRP Controller mode - process all materials for this controller PERFORM process_mrp_controller USING lv_plscn lv_dispo lv_werks lv_pegging_mode. ENDIF. " Build JSON result with all materials PERFORM build_json_result CHANGING et_result et_messages. ENDFORM. *&---------------------------------------------------------------------* *& Form process_mrp_controller - Process all materials for MRP controller *&---------------------------------------------------------------------* FORM process_mrp_controller USING p_plscn TYPE plscn p_dispo TYPE dispo p_werks TYPE werks_d p_pegging_mode TYPE char10. DATA: lt_marc TYPE TABLE OF marc, ls_marc TYPE marc, lv_matnr TYPE matnr. " Select all materials for this MRP controller and plant SELECT * FROM marc INTO TABLE lt_marc WHERE werks = p_werks AND dispo = p_dispo AND lvorm = ''. " Not marked for deletion " Process each material LOOP AT lt_marc INTO ls_marc. lv_matnr = ls_marc-matnr. " Clear working tables for this material CLEAR: gt_itab, gt_itab2, gv_nlc. REFRESH: gt_itab, gt_itab2. " Process material same as single material mode PERFORM load_data USING p_plscn lv_matnr p_werks. PERFORM aggregate0 USING lv_matnr p_werks p_pegging_mode. PERFORM aggregate1. PERFORM process_periods. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form load_data - Exactly like original load_data *&---------------------------------------------------------------------* FORM load_data USING p_plscn TYPE plscn p_matnr TYPE matnr p_werks TYPE werks_d. " Load MRP data exactly like original load_data form PERFORM load_material_data USING p_plscn p_matnr p_werks. ENDFORM. *&---------------------------------------------------------------------* *& Form load_material_data - Exactly like original *&---------------------------------------------------------------------* FORM load_material_data USING p_plscn TYPE plscn p_matnr TYPE matnr p_werks TYPE werks_d. DATA: lv_mdpsx_wa TYPE mdps, lv_mdsux_wa TYPE mdsu, lt_mdpsx TYPE STANDARD TABLE OF mdps, lt_mdsux TYPE STANDARD TABLE OF mdsu. " Call same function as original CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API' EXPORTING plscn = p_plscn matnr = p_matnr werks = p_werks TABLES mdpsx = lt_mdpsx mdsux = lt_mdsux. IF sy-subrc <> 0. " Implement suitable error handling here ENDIF. " Process MDPSX exactly like original LOOP AT lt_mdpsx INTO lv_mdpsx_wa. gs_itab-plscn = p_plscn. gs_itab-matnr = p_matnr. gs_itab-werks = p_werks. MOVE-CORRESPONDING lv_mdpsx_wa TO gs_itab. CLEAR: gs_itab-plifz. IF gs_itab-plumi = '-'. MULTIPLY gs_itab-mng01 BY -1. ENDIF. APPEND gs_itab TO gt_itab. ENDLOOP. " Process MDSUX exactly like original LOOP AT lt_mdsux INTO lv_mdsux_wa. MOVE-CORRESPONDING lv_mdsux_wa TO gs_itab2. gs_itab2-plscn = p_plscn. gs_itab2-matnr = p_matnr. gs_itab2-werks = p_werks. APPEND gs_itab2 TO gt_itab2. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form aggregate0 - Exactly like original with proper pegging modes *&---------------------------------------------------------------------* FORM aggregate0 USING p_matnr TYPE matnr p_werks TYPE werks_d p_mode TYPE char10. " Aggregate stock data exactly like original aggregate0 form PERFORM aggregate_stock_data USING p_matnr p_werks. " Handle pegging modes exactly like original - INSIDE aggregate0 IF gv_bottop = 'X'. " Proper bottop (where-used) analysis - find parent materials that use this component PERFORM find_where_used_materials USING p_matnr p_werks. ENDIF. IF gv_topbot = 'X'. " topbot logic exactly like original (lines 1375-1436) DATA: ls_wa2 LIKE LINE OF gt_itab_aa. SORT gt_itab_aa BY matnr DESCENDING. LOOP AT gt_itab_aa INTO gs_wa WHERE baugr IS INITIAL. AT NEW matnr. IF gv_nlc = 0. CLEAR: gv_stlal, gv_stlan, gt_stb[]. " Try BOM explosion with simplified approach first CLEAR: gv_stlal, gv_stlan. " Get BOM data exactly like original SELECT stlal stlan INTO (gv_stlal, gv_stlan) UP TO 1 ROWS FROM mkal WHERE matnr = gs_wa-matnr AND werks = gs_wa-werks AND prfg_f = 1 AND prfg_s = 1 AND mksp <> 1 AND bdatu >= sy-datum AND adatu <= sy-datum ORDER BY prdat DESCENDING. ENDSELECT. " Try BOM explosion with default parameters if MKAL is empty IF gv_stlal IS INITIAL. gv_stlan = '1'. " Default production BOM ENDIF. " BOM explosion - try with minimal parameters first CALL FUNCTION 'CS_BOM_EXPL_MAT_V2' EXPORTING mtnrv = gs_wa-matnr werks = gs_wa-werks stlan = gv_stlan datuv = sy-datum emeng = 1 TABLES stb = gt_stb EXCEPTIONS alt_not_found = 1 call_invalid = 2 material_not_found = 3 missing_authorization = 4 no_bom_found = 5 no_plant_data = 6 no_suitable_bom_found = 7 conversion_error = 8 OTHERS = 9. " If that fails, try with the full original parameters IF sy-subrc <> 0. CALL FUNCTION 'CS_BOM_EXPL_MAT_V2' EXPORTING capid = 'PI01' datuv = sy-datum emeng = '1' mtnrv = gs_wa-matnr stlal = gv_stlal stlan = gv_stlan werks = gs_wa-werks TABLES stb = gt_stb EXCEPTIONS alt_not_found = 1 call_invalid = 2 material_not_found = 3 missing_authorization = 4 no_bom_found = 5 no_plant_data = 6 no_suitable_bom_found = 7 conversion_error = 8 OTHERS = 9. ENDIF. " Load components exactly like original LOOP AT gt_stb. READ TABLE gt_itab_aa INTO ls_wa2 WITH KEY matnr = gt_stb-idnrk werks = gt_stb-werks. IF sy-subrc = 4. ADD 1 TO gv_nlc. PERFORM load_material_data USING gs_wa-plscn gt_stb-idnrk gt_stb-werks. " CRITICAL MISSING LOGIC: Set parent-child relationship for components PERFORM set_component_parent USING gt_stb-idnrk gt_stb-werks gs_wa-matnr gs_wa-werks. PERFORM aggregate0 USING gt_stb-idnrk gt_stb-werks 'single'. SUBTRACT 1 FROM gv_nlc. ENDIF. ENDLOOP. ENDIF. ENDAT. ENDLOOP. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form set_component_parent - Set parent-child relationship for BOM components *&---------------------------------------------------------------------* FORM set_component_parent USING p_component_matnr TYPE matnr p_component_werks TYPE werks_d p_parent_matnr TYPE matnr p_parent_werks TYPE werks_d. " Set parent material for all records of this component " This is the MISSING LOGIC from the original program FIELD-SYMBOLS: LIKE LINE OF gt_itab_aa. LOOP AT gt_itab_aa ASSIGNING WHERE matnr = p_component_matnr AND werks = p_component_werks. -baugr = p_parent_matnr. " Set parent material -wrk02 = p_parent_werks. " Set parent plant ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form set_parent_child - Set parent-child relationship for bottop mode *&---------------------------------------------------------------------* FORM set_parent_child USING p_parent_matnr TYPE matnr p_parent_werks TYPE werks_d p_child_matnr TYPE matnr p_child_werks TYPE werks_d. " For bottop mode, establish parent-child relationships " This ensures proper hierarchical display FIELD-SYMBOLS: LIKE LINE OF gt_itab_aa. LOOP AT gt_itab_aa ASSIGNING WHERE matnr = p_parent_matnr AND werks = p_parent_werks. " In bottop mode, the parent knows about its children " (This could be enhanced to track multiple children if needed) ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form aggregate_stock_data - Aggregate stock data like original *&---------------------------------------------------------------------* FORM aggregate_stock_data USING p_matnr TYPE matnr p_werks TYPE werks_d. " WB Plant stock - exactly like original LOOP AT gt_itab INTO gs_itab WHERE delkz = 'WB' AND matnr = p_matnr AND werks = p_werks. CLEAR gs_wa. " Only set the key fields needed for aggregation - NOT move-corresponding gs_wa-plscn = gs_itab-plscn. gs_wa-matnr = gs_itab-matnr. gs_wa-werks = gs_itab-werks. gs_wa-month = sy-datum. gs_wa-stkqty = gs_itab-mng01. COLLECT gs_wa INTO gt_itab_aa. ENDLOOP. " LK Subcontract stock - exactly like original LOOP AT gt_itab INTO gs_itab WHERE delkz = 'LK' AND matnr = p_matnr AND werks = p_werks. CLEAR gs_wa. " Only set the key fields needed for aggregation gs_wa-plscn = gs_itab-plscn. gs_wa-matnr = gs_itab-matnr. gs_wa-werks = gs_itab-werks. gs_wa-month = sy-datum. gs_wa-scsqty = gs_itab-mng01. COLLECT gs_wa INTO gt_itab_aa. ENDLOOP. " BA Purchase requisition - exactly like original LOOP AT gt_itab INTO gs_itab WHERE delkz = 'BA' AND matnr = p_matnr AND werks = p_werks. CLEAR gs_wa. " Only set the key fields needed for aggregation gs_wa-plscn = gs_itab-plscn. gs_wa-matnr = gs_itab-matnr. gs_wa-werks = gs_itab-werks. gs_wa-month = sy-datum. gs_wa-prqty = gs_itab-mng01. COLLECT gs_wa INTO gt_itab_aa. ENDLOOP. " BE Purchase orders - exactly like original LOOP AT gt_itab INTO gs_itab WHERE delkz = 'BE' AND matnr = p_matnr AND werks = p_werks. CLEAR gs_wa. " Only set the key fields needed for aggregation gs_wa-plscn = gs_itab-plscn. gs_wa-matnr = gs_itab-matnr. gs_wa-werks = gs_itab-werks. gs_wa-month = sy-datum. gs_wa-poqty = gs_itab-mng01. COLLECT gs_wa INTO gt_itab_aa. ENDLOOP. " QM Quality inspection - exactly like original LOOP AT gt_itab INTO gs_itab WHERE delkz = 'QM' AND matnr = p_matnr AND werks = p_werks. CLEAR gs_wa. " Only set the key fields needed for aggregation gs_wa-plscn = gs_itab-plscn. gs_wa-matnr = gs_itab-matnr. gs_wa-werks = gs_itab-werks. gs_wa-month = sy-datum. gs_wa-qiqty = gs_itab-mng01. COLLECT gs_wa INTO gt_itab_aa. ENDLOOP. " BR Work in process - exactly like original LOOP AT gt_itab INTO gs_itab WHERE delkz = 'BR' AND matnr = p_matnr AND werks = p_werks. CLEAR gs_wa. " Only set the key fields needed for aggregation gs_wa-plscn = gs_itab-plscn. gs_wa-matnr = gs_itab-matnr. gs_wa-werks = gs_itab-werks. gs_wa-month = sy-datum. gs_wa-wipqty = gs_itab-mng01. COLLECT gs_wa INTO gt_itab_aa. ENDLOOP. " Requirements - exactly like original with period bucketing LOOP AT gt_itab INTO gs_itab WHERE ( delkz = 'PP' OR delkz = 'SB' OR delkz = 'BB' OR delkz = 'SM' OR delkz = 'MR' OR delkz = 'AR' OR delkz = 'VJ' OR delkz = 'U3') AND matnr = p_matnr AND werks = p_werks. CLEAR gs_wa. " Only set the key fields needed for aggregation gs_wa-plscn = gs_itab-plscn. gs_wa-matnr = gs_itab-matnr. gs_wa-werks = gs_itab-werks. gs_wa-month = sy-datum. " Set to current date for aggregation " Period bucketing logic exactly like original (lines 1255-1274) IF gs_itab-dat00 <= sy-datum. " Current period requirement gs_wa-rqty01 = gs_itab-mng01. ELSE. " Future period - calculate which period bucket PERFORM calculate_period_bucket USING gs_itab-dat00 gs_itab-mng01 'R' CHANGING gs_wa. ENDIF. COLLECT gs_wa INTO gt_itab_aa. ENDLOOP. " PA/SA Planned orders - exactly like original with period bucketing LOOP AT gt_itab INTO gs_itab WHERE ( delkz = 'PA' OR delkz = 'SA' ) AND matnr = p_matnr AND werks = p_werks. CLEAR gs_wa. " Only set the key fields needed for aggregation gs_wa-plscn = gs_itab-plscn. gs_wa-matnr = gs_itab-matnr. gs_wa-werks = gs_itab-werks. gs_wa-month = sy-datum. " Set to current date for aggregation " Period bucketing for planned orders exactly like original (lines 1315-1333) IF gs_itab-dat00 < sy-datum. " Past due planned order - goes to current period gs_wa-pqty01 = gs_itab-mng01. ELSE. " Future planned order - calculate which period bucket PERFORM calculate_period_bucket USING gs_itab-dat00 gs_itab-mng01 'P' CHANGING gs_wa. ENDIF. COLLECT gs_wa INTO gt_itab_aa. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form aggregate1 - Exactly like original aggregate1 with pegging logic *&---------------------------------------------------------------------* FORM aggregate1. " Aggregate data exactly like original with proper pegging mode logic LOOP AT gt_itab_aa. CLEAR gs_wa. MOVE-CORRESPONDING gt_itab_aa TO gs_wa. " Critical logic from original lines 1461-1463: " For single mode OR clear pegging mode, clear parent relationships " This causes data to aggregate to single lines per material IF gv_single = 'X' OR gv_clr_pegg = 'X'. CLEAR: gs_wa-baugr, gs_wa-wrk02. ENDIF. COLLECT gs_wa INTO gt_itab_aa2. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form process_periods - Process periods like original *&---------------------------------------------------------------------* FORM process_periods. " Process final data exactly like original - get material master data LOOP AT gt_itab_aa2 INTO gs_wa. " Get material master data SELECT SINGLE mtart meins matkl INTO (gs_wa-mtart, gs_wa-meins, gs_wa-matkl) FROM mara WHERE matnr = gs_wa-matnr. SELECT SINGLE maktx INTO gs_wa-matkx FROM makt WHERE matnr = gs_wa-matnr AND spras = sy-langu. " Calculate totals exactly like original gs_wa-total = gs_wa-stkqty + gs_wa-scsqty + gs_wa-qiqty + gs_wa-wipqty. MODIFY gt_itab_aa2 FROM gs_wa. ENDLOOP. " Copy to results table gt_results[] = gt_itab_aa2[]. ENDFORM. *&---------------------------------------------------------------------* *& Form find_where_used_materials - Bottop where-used analysis (Simplified) *&---------------------------------------------------------------------* FORM find_where_used_materials USING p_component_matnr TYPE matnr p_component_werks TYPE werks_d. " Note: Bottop (where-used) analysis is a complex feature that requires " access to BOM structures and where-used lists. For now, we return " the component material itself to show that bottop mode is active " but not fully implemented for where-used analysis. " TODO: Implement proper where-used analysis using CS_WHERE_USED_MAT " or direct table access to STPO/STKO when table structures are available ENDFORM. *&---------------------------------------------------------------------* *& Form calculate_period_bucket - Distribute amounts to period buckets *&---------------------------------------------------------------------* FORM calculate_period_bucket USING p_date TYPE sy-datum p_amount TYPE any p_type TYPE c CHANGING cs_wa TYPE ty_mrp_result. DATA: lv_month_diff TYPE i, lv_period_suffix(2), lv_field_name(20). FIELD-SYMBOLS: TYPE any. " Calculate month difference exactly like original pd function PERFORM pd USING p_date+0(6) sy-datum+0(6) CHANGING lv_month_diff. " Limit to 16 periods IF lv_month_diff > 16. lv_month_diff = 16. ELSEIF lv_month_diff < 1. lv_month_diff = 1. ENDIF. " Build field name exactly like original DATA: lv_month_char(2). lv_month_char = lv_month_diff. IF lv_month_diff < 10. CONCATENATE '0' lv_month_char INTO lv_period_suffix. ELSE. lv_period_suffix = lv_month_char. ENDIF. CONCATENATE p_type 'QTY' lv_period_suffix INTO lv_field_name. " Assign quantity to the appropriate period field ASSIGN COMPONENT lv_field_name OF STRUCTURE cs_wa TO . IF IS ASSIGNED. = p_amount. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form pd - Month difference calculation exactly like original *&---------------------------------------------------------------------* FORM pd USING p1 TYPE spmon p2 TYPE spmon CHANGING p3 TYPE i. DATA: y1 TYPE i, m1 TYPE i, y2 TYPE i, m2 TYPE i. y1 = p1+0(4). m1 = p1+4(2). y2 = p2+0(4). m2 = p2+4(2). p3 = m1 - m2 + ( y1 - y2 ) * 12. ENDFORM. *&---------------------------------------------------------------------* *& Form add_period_data - Add 16 periods timeline like original program *&---------------------------------------------------------------------* FORM add_period_data USING ls_result TYPE ty_mrp_result CHANGING lv_json TYPE string. DATA: lv_period_index TYPE i, lv_val TYPE string, lv_field_name(20), lv_first_period TYPE c VALUE 'X', lv_current_date TYPE sy-datum, lv_period_date TYPE sy-datum, lv_month TYPE i, lv_year TYPE i, lv_month_name(3) TYPE c, lv_period_label(20) TYPE c. FIELD-SYMBOLS: TYPE any, TYPE any, TYPE any, TYPE any, TYPE any, TYPE any, TYPE any, TYPE any. " Get current date lv_current_date = sy-datum. " Add 16 periods exactly like original program DO 16 TIMES. lv_period_index = sy-index. IF lv_first_period = ' '. lv_json = lv_json && ','. ENDIF. lv_first_period = ' '. " Calculate calendar month for this period lv_month = lv_current_date+4(2) + ( lv_period_index - 1 ). lv_year = lv_current_date+0(4). " Handle month overflow WHILE lv_month > 12. lv_month = lv_month - 12. lv_year = lv_year + 1. ENDWHILE. " Convert month number to month name CASE lv_month. WHEN 1. lv_month_name = 'Jan'. WHEN 2. lv_month_name = 'Feb'. WHEN 3. lv_month_name = 'Mar'. WHEN 4. lv_month_name = 'Apr'. WHEN 5. lv_month_name = 'May'. WHEN 6. lv_month_name = 'Jun'. WHEN 7. lv_month_name = 'Jul'. WHEN 8. lv_month_name = 'Aug'. WHEN 9. lv_month_name = 'Sep'. WHEN 10. lv_month_name = 'Oct'. WHEN 11. lv_month_name = 'Nov'. WHEN 12. lv_month_name = 'Dec'. ENDCASE. " Format as "MMM-YYYY" DATA: lv_year_char(4). lv_year_char = lv_year. CONCATENATE lv_month_name '-' lv_year_char INTO lv_period_label. " Build field names exactly like original program DATA: lv_period_suffix(2), lv_period_char(2). lv_period_char = lv_period_index. IF lv_period_index < 10. CONCATENATE '0' lv_period_char INTO lv_period_suffix. ELSE. lv_period_suffix = lv_period_char. ENDIF. " Get period data using dynamic field assignment CONCATENATE 'PQTY' lv_period_suffix INTO lv_field_name. ASSIGN COMPONENT lv_field_name OF STRUCTURE ls_result TO . CONCATENATE 'DQTY' lv_period_suffix INTO lv_field_name. ASSIGN COMPONENT lv_field_name OF STRUCTURE ls_result TO . CONCATENATE 'RQTY' lv_period_suffix INTO lv_field_name. ASSIGN COMPONENT lv_field_name OF STRUCTURE ls_result TO . CONCATENATE 'SQTY' lv_period_suffix INTO lv_field_name. ASSIGN COMPONENT lv_field_name OF STRUCTURE ls_result TO . CONCATENATE 'MQTY' lv_period_suffix INTO lv_field_name. ASSIGN COMPONENT lv_field_name OF STRUCTURE ls_result TO . CONCATENATE 'TQTY' lv_period_suffix INTO lv_field_name. ASSIGN COMPONENT lv_field_name OF STRUCTURE ls_result TO . CONCATENATE 'AC' lv_period_suffix INTO lv_field_name. ASSIGN COMPONENT lv_field_name OF STRUCTURE ls_result TO . CONCATENATE 'XQTY' lv_period_suffix INTO lv_field_name. ASSIGN COMPONENT lv_field_name OF STRUCTURE ls_result TO . " Build JSON for this period lv_json = lv_json && '{"period":"' && lv_period_label && '",'. " Planned orders IF IS ASSIGNED. PERFORM format_number_for_json USING CHANGING lv_val. lv_json = lv_json && '"planned_orders":' && lv_val && ','. ELSE. lv_json = lv_json && '"planned_orders":0,'. ENDIF. " Deliveries IF IS ASSIGNED. PERFORM format_number_for_json USING CHANGING lv_val. lv_json = lv_json && '"deliveries":' && lv_val && ','. ELSE. lv_json = lv_json && '"deliveries":0,'. ENDIF. " Requirements IF IS ASSIGNED. PERFORM format_number_for_json USING CHANGING lv_val. lv_json = lv_json && '"requirements":' && lv_val && ','. ELSE. lv_json = lv_json && '"requirements":0,'. ENDIF. " Stock projection (simulation) IF IS ASSIGNED. PERFORM format_number_for_json USING CHANGING lv_val. lv_json = lv_json && '"stock_projection":' && lv_val && ','. ELSE. lv_json = lv_json && '"stock_projection":0,'. ENDIF. " MRP simulation IF IS ASSIGNED. PERFORM format_number_for_json USING CHANGING lv_val. lv_json = lv_json && '"mrp_simulation":' && lv_val && ','. ELSE. lv_json = lv_json && '"mrp_simulation":0,'. ENDIF. " Target safety stock IF IS ASSIGNED. PERFORM format_number_for_json USING CHANGING lv_val. lv_json = lv_json && '"target_safety_stock":' && lv_val && ','. ELSE. lv_json = lv_json && '"target_safety_stock":0,'. ENDIF. " Coverage days IF IS ASSIGNED. PERFORM format_number_for_json USING CHANGING lv_val. lv_json = lv_json && '"coverage_days":' && lv_val && ','. ELSE. lv_json = lv_json && '"coverage_days":0,'. ENDIF. " Daily average requirement IF IS ASSIGNED. PERFORM format_number_for_json USING CHANGING lv_val. lv_json = lv_json && '"daily_avg_requirement":' && lv_val && '}'. ELSE. lv_json = lv_json && '"daily_avg_requirement":0}'. ENDIF. ENDDO. ENDFORM. *&---------------------------------------------------------------------* *& Form format_number_for_json - Convert number to JSON-safe string *&---------------------------------------------------------------------* FORM format_number_for_json USING p_value TYPE any CHANGING p_result TYPE string. DATA: lv_temp TYPE string, lv_len TYPE i, lv_offset TYPE i, lv_last_char TYPE c. " Convert to string and condense lv_temp = p_value. CONDENSE lv_temp NO-GAPS. " Check if minus sign is at the end (ABAP format for negative numbers) lv_len = strlen( lv_temp ). IF lv_len > 0. lv_offset = lv_len - 1. lv_last_char = lv_temp+lv_offset(1). IF lv_last_char = '-'. " Move minus sign to front CONCATENATE '-' lv_temp+0(lv_offset) INTO p_result. ELSE. p_result = lv_temp. ENDIF. ELSE. p_result = lv_temp. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form build_json_result *&---------------------------------------------------------------------* FORM build_json_result CHANGING et_result TYPE ztt_zmcp_params et_messages TYPE bapiret2_t. DATA: lv_json TYPE string, lv_temp TYPE string, lv_val TYPE string, ls_result_param TYPE zmcp_param, ls_message TYPE bapiret2, ls_result TYPE ty_mrp_result, lv_material_count TYPE i, lv_first_material TYPE c VALUE 'X'. lv_material_count = LINES( gt_results ). " Build JSON response lv_val = lv_material_count. CONDENSE lv_val NO-GAPS. lv_json = '{"material_count":' && lv_val && ','. lv_json = lv_json && '"materials":['. " Add each material LOOP AT gt_results INTO ls_result. IF lv_first_material = ' '. lv_json = lv_json && ','. ENDIF. lv_first_material = ' '. lv_json = lv_json && '{"material":"' && ls_result-matnr && '",'. lv_json = lv_json && '"description":"' && ls_result-matkx && '",'. lv_json = lv_json && '"plant":"' && ls_result-werks && '",'. lv_json = lv_json && '"type":"' && ls_result-mtart && '",'. lv_json = lv_json && '"uom":"' && ls_result-meins && '",'. " Add parent-child relationship information IF ls_result-baugr IS NOT INITIAL. lv_json = lv_json && '"parent_material":"' && ls_result-baugr && '",'. lv_json = lv_json && '"parent_plant":"' && ls_result-wrk02 && '",'. ENDIF. " Stock data lv_json = lv_json && '"stock":{'. PERFORM format_number_for_json USING ls_result-stkqty CHANGING lv_val. lv_json = lv_json && '"unrestricted":' && lv_val && ','. PERFORM format_number_for_json USING ls_result-qiqty CHANGING lv_val. lv_json = lv_json && '"quality_inspection":' && lv_val && ','. PERFORM format_number_for_json USING ls_result-blkqty CHANGING lv_val. lv_json = lv_json && '"blocked":' && lv_val && ','. PERFORM format_number_for_json USING ls_result-total CHANGING lv_val. lv_json = lv_json && '"total":' && lv_val && '},'. " Summary PERFORM format_number_for_json USING ls_result-covermon CHANGING lv_val. lv_json = lv_json && '"coverage_months":' && lv_val && ','. PERFORM format_number_for_json USING ls_result-conqty CHANGING lv_val. lv_json = lv_json && '"total_requirements":' && lv_val && ','. PERFORM format_number_for_json USING ls_result-plqty CHANGING lv_val. lv_json = lv_json && '"planned_quantities":' && lv_val && ','. " Add 16 periods timeline data exactly like original program lv_json = lv_json && '"periods":['. PERFORM add_period_data USING ls_result CHANGING lv_json. lv_json = lv_json && ']}'. ENDLOOP. lv_json = lv_json && ']}'. " Return result ls_result_param-name = 'RESULT'. ls_result_param-value = lv_json. APPEND ls_result_param TO et_result. " Success message ls_message-type = 'S'. lv_val = lv_material_count. CONDENSE lv_val NO-GAPS. CONCATENATE 'MRP analysis completed for' lv_val 'materials' INTO ls_message-message SEPARATED BY space. APPEND ls_message TO et_messages. ENDFORM.