E-PMS: Bell curve functionality

Question

Dear Friends,
We are implementing E-PMS in EHP5.  We would like to know what are the provisions available for bell curve in standard E-PMS.  Is there any standard functionality and BADIu2019s available for the same.
Also suggest any other work around.
Regards,
Nilesh

Answer 1

Hi nilesh,
use this function module
create report program
TYPE-POOLS: gfw.
TYPES:BEGIN OF ty_per,
       id TYPE hap_appraisee_id,
       END OF ty_per.
  types:begin of ty_pa0001,
        pernr type persno,
        end of ty_pa0001.
DATA: y_values TYPE TABLE OF gprval WITH HEADER LINE,
        x_texts TYPE TABLE OF gprtxt WITH HEADER LINE.
DATA: lt_pa0001 TYPE TABLE OF ty_pa0001.
DATA:var TYPE i.
DATA:var1 TYPE i,
       var2 TYPE i,
       var3 TYPE i,
       var4 TYPE i,
       var5 TYPE i.
DATA:lt_hrhap_appee TYPE TABLE OF hrhap_appee.
DATA:lv_pernr TYPE TABLE OF ty_per.
DATA:lt_hrhap TYPE TABLE OF hrhap.
DATA:lt_hrhap_further TYPE TABLE OF hrhap_further.
Data: lt_pa0000 type table of persno.
REFRESH y_values.
REFRESH x_texts.
SELECTION-SCREEN:BEGIN OF BLOCK a1.
PARAMETERS:org TYPE pa0001-orgeh.
SELECTION-SCREEN:END OF BLOCK a1.
START-OF-SELECTION.
   select pernr FROM pa0001 INTO TABLE lt_pa0001 WHERE orgeh EQ org AND begda LE sy-datum AND endda GE sy-datum.
   select pernr from pa0000 into table lt_pa0000  for all entries in lt_pa0001 where
                                                    pernr eq lt_pa0001-pernr and begda le sy-datum and endda ge sy-datum and stat2 eq '3'.
   MOVE lt_pa0000 TO lv_pernr.
   SELECT * FROM hrhap_appee INTO TABLE lt_hrhap_appee FOR ALL ENTRIES IN lv_pernr WHERE id = lv_pernr-id.
   SELECT * FROM hrhap INTO TABLE lt_hrhap FOR ALL ENTRIES IN lt_hrhap_appee WHERE
                                                                appraisal_id = lt_hrhap_appee-appraisal_id AND ap_status = '5'.
   SELECT * FROM hrhap_further INTO TABLE lt_hrhap_further FOR ALL ENTRIES IN lt_hrhap WHERE
                                                         appraisal_id = lt_hrhap-appraisal_id  AND row_iid = '1' AND column_id = 'ZSCR'.
   var = lines( lt_pa0001 ).
   var1 = var * '0.1' .
   var2 =  var * '0.2' .
   var3 =  var * '0.5' .
   var4 = var * '0.1' .
   var5 = var * '0.1' .
   y_values-rowtxt = 'Actual Bell Curve Distrubtion'.
   y_values-val1 = 10.
   y_values-val2 = 12.
   y_values-val3 = 44.
   y_values-val4 = 15.
   y_values-val5 = 12.
   APPEND y_values.
   y_values-rowtxt = 'Ideal Bell Curve Distrubtion'.
   y_values-val1 = var1.
   y_values-val2 = var2.
   y_values-val3 = var3.
   y_values-val4 = var4.
   y_values-val4 = var5.
   APPEND y_values.
   x_texts-coltxt = '94%-100%(5)'.
   APPEND x_texts.
   x_texts-coltxt = '91%-93%(4.5)'.
   APPEND x_texts.
   x_texts-coltxt = '81%-90%(4)'.
   APPEND x_texts.
   x_texts-coltxt = '70%-79%(3.5)'.
   APPEND x_texts.
   x_texts-coltxt = '60%-69%(3)'.
   APPEND x_texts.
   CALL SCREEN 100.
CALL FUNCTION 'GFW_PRES_SHOW'
EXPORTING
CONTAINER         = 'CONTAINER'    "A screen with an empty container must be defined
PRESENTATION_TYPE = GFW_PRESTYPE_LINES
*        PRESENTATION_TYPE =  gfw_prestype_time_axis
*        PRESENTATION_TYPE = gfw_prestype_area
*        PRESENTATION_TYPE = gfw_prestype_horizontal_bars
TABLES
VALUES            = Y_VALUES
COLUMN_TEXTS      = X_TEXTS
EXCEPTIONS
ERROR_OCCURRED    = 1
OTHERS            = 2.
Regards
Jayaprakash