Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- *&---------------------------------------------------------------------*
- *& Report Z_ASSESSMENT_RECORDS_REPORT
- *&
- *&---------------------------------------------------------------------*
- *&
- *&
- *&---------------------------------------------------------------------*
- REPORT Z_ASSESSMENT_RECORDS_REPORT.
- TABLES zhcm_pernr.
- *INFOTYPES: 9913 , 9914 , 9912.
- DATA: it_9911 TYPE STANDARD TABLE OF p9911 WITH HEADER LINE .
- DATA: it_9912 TYPE STANDARD TABLE OF p9912 WITH HEADER LINE .
- DATA: it_9913 TYPE STANDARD TABLE OF p9913 WITH HEADER LINE .
- DATA: it_9914 TYPE STANDARD TABLE OF p9914 WITH HEADER LINE .
- TYPES :
- BEGIN OF t_master_data,
- pernr TYPE pa0001-pernr,
- name TYPE emnam,
- END OF t_master_data.
- TYPES:
- BEGIN OF t_master_data_1 ,
- pernr TYPE pa0001-pernr,
- NAME type EMNAM,
- SG type char10,
- COMP_CODE type pa0001-bukrs ,
- POSITION type plans,
- MAN_LVL type char5,
- COSTCENTER type KOSTL,
- PERS_AREA type persa,
- P_SUBAREA type BTRTL,
- ORG_UNIT type ORGEH ,
- BUS_AREA type gsber ,
- sen_date type dats ,
- lst_prm type date,
- END OF t_master_data_1.
- TYPES: BEGIN OF t_profile.
- INCLUDE TYPE t_master_data_1.
- INCLUDE TYPE ps9911.
- TYPES: END OF t_profile.
- TYPES: BEGIN OF t_talent.
- INCLUDE TYPE t_master_data.
- INCLUDE TYPE ps9912.
- TYPES: END OF t_talent.
- TYPES: BEGIN OF t_english.
- INCLUDE TYPE t_master_data.
- INCLUDE TYPE ps9913.
- TYPES: END OF t_english.
- TYPES: BEGIN OF t_appraisal.
- INCLUDE TYPE t_master_data.
- INCLUDE TYPE ps9914.
- TYPES: END OF t_appraisal.
- DATA it_profile TYPE TABLE OF t_profile WITH HEADER LINE.
- DATA it_talent TYPE TABLE OF t_talent WITH HEADER LINE.
- DATA it_english TYPE TABLE OF t_english WITH HEADER LINE.
- DATA it_appraisal TYPE TABLE OF t_appraisal WITH HEADER LINE.
- DATA: i_fcat TYPE slis_t_fieldcat_alv,
- wa_fcat TYPE slis_fieldcat_alv.
- * Selection Screen.
- SELECTION-SCREEN BEGIN OF BLOCK pernr WITH FRAME TITLE text-003.
- SELECT-OPTIONS s_pernr FOR zhcm_pernr-zzpernr NO INTERVALS.
- SELECTION-SCREEN END OF BLOCK pernr.
- SELECTION-SCREEN SKIP.
- SELECTION-SCREEN BEGIN OF BLOCK PERIOD WITH FRAME TITLE text-001.
- PARAMETER : P_LATEST RADIOBUTTON GROUP GR1,
- P_ALL RADIOBUTTON GROUP GR1.
- SELECTION-SCREEN END OF BLOCK PERIOD.
- SELECTION-SCREEN BEGIN OF BLOCK REPORT_TYPE WITH FRAME TITLE text-002.
- PARAMETER : P_PROF RADIOBUTTON GROUP GR2,
- P_TALENT RADIOBUTTON GROUP GR2,
- P_TEST RADIOBUTTON GROUP GR2,
- P_APP RADIOBUTTON GROUP GR2.
- SELECTION-SCREEN END OF BLOCK REPORT_TYPE.
- INITIALIZATION.
- *PERFORM f_initialize.
- START-OF-SELECTION.
- * 1)Check Personnal Number .
- DATA r_pernr TYPE TABLE OF selopt WITH HEADER LINE.
- IF s_pernr IS NOT INITIAL.
- MOVE-CORRESPONDING s_pernr[] TO r_pernr[].
- ELSE.
- CLEAR r_pernr[].
- ENDIF.
- IF P_APP = 'X'.
- PERFORM f_get_appraisal_data.
- IF it_appraisal IS NOT INITIAL.
- *Start Forming the ALV
- CLEAR wa_fcat.
- CLEAR i_fcat[].
- wa_fcat-outputlen = 15.
- wa_fcat-col_pos = '1'.
- wa_fcat-fieldname = 'PERNR'.
- wa_fcat-seltext_m = 'Personnel No.'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '2'.
- wa_fcat-fieldname = 'NAME'.
- wa_fcat-seltext_m = 'Name'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '3'.
- wa_fcat-fieldname = 'APPRAISAL_DATE'.
- wa_fcat-seltext_m = 'Appraisal Date'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '4'.
- wa_fcat-fieldname = 'OVERALL_RATING'.
- wa_fcat-seltext_m = 'Overall Rating'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
- EXPORTING
- i_structure_name = 'PS9914'
- it_fieldcat = i_fcat
- i_grid_title = 'Appraisal Report'
- TABLES
- t_outtab = it_appraisal.
- ELSE.
- MESSAGE ID 'ZINFOTYPE_ERRORS' TYPE 'I' NUMBER '003'.
- ENDIF.
- ELSEIF P_TEST = 'X'.
- PERFORM f_get_test_data.
- IF it_english IS NOT INITIAL.
- *Start Forming the ALV
- CLEAR wa_fcat.
- CLEAR i_fcat[].
- wa_fcat-outputlen = 15.
- wa_fcat-col_pos = '1'.
- wa_fcat-fieldname = 'PERNR'.
- wa_fcat-seltext_m = 'Personnel No.'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '2'.
- wa_fcat-fieldname = 'NAME'.
- wa_fcat-seltext_m = 'Name'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '3'.
- wa_fcat-fieldname = 'ZTEST_DATE'.
- wa_fcat-seltext_m = 'English Test Date'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '4'.
- wa_fcat-fieldname = 'ZPROGRAM'.
- wa_fcat-seltext_m = 'Program'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '5'.
- wa_fcat-fieldname = 'ZTEST'.
- wa_fcat-seltext_m = 'Test'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '6'.
- wa_fcat-fieldname = 'ZRESULT'.
- wa_fcat-seltext_m = 'Result'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '7'.
- wa_fcat-fieldname = 'ZPERCENT'.
- wa_fcat-seltext_m = 'Percent'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '8'.
- wa_fcat-fieldname = 'ZREFERENCE_REPORT_NO'.
- wa_fcat-seltext_m = 'Reference Report No'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
- EXPORTING
- i_structure_name = 'PS9913'
- it_fieldcat = i_fcat
- i_grid_title = 'English Test'
- TABLES
- t_outtab = it_english.
- ELSE.
- MESSAGE ID 'ZINFOTYPE_ERRORS' TYPE 'I' NUMBER '002'.
- ENDIF.
- ELSEIF P_TALENT = 'X'.
- PERFORM f_get_talent_data.
- IF it_talent IS NOT INITIAL.
- *Start Forming the ALV
- CLEAR wa_fcat.
- CLEAR i_fcat[].
- wa_fcat-outputlen = 15.
- wa_fcat-col_pos = '1'.
- wa_fcat-fieldname = 'PERNR'.
- wa_fcat-seltext_m = 'Personnel No.'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '2'.
- wa_fcat-fieldname = 'NAME'.
- wa_fcat-seltext_m = 'Name'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '3'.
- wa_fcat-fieldname = 'TESTDATE'.
- wa_fcat-seltext_m = 'Talent Q Date'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '4'.
- wa_fcat-fieldname = 'TALENT_Q'.
- wa_fcat-seltext_m = 'Talent Q'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '5'.
- wa_fcat-fieldname = 'ABILITY'.
- wa_fcat-seltext_m = 'Ability'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '6'.
- wa_fcat-fieldname = 'PERSONALITY'.
- wa_fcat-seltext_m = 'Personality'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '7'.
- wa_fcat-fieldname = 'VERBAL_FIT'.
- wa_fcat-seltext_m = 'Verbal Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '8'.
- wa_fcat-fieldname = 'VERBAL_SCORE'.
- wa_fcat-seltext_m = 'Verbal Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '9'.
- wa_fcat-fieldname = 'NUMERICAL_FIT'.
- wa_fcat-seltext_m = 'Numerical Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '10'.
- wa_fcat-fieldname = 'NUMERICAL_SCORE'.
- wa_fcat-seltext_m = 'Numerical Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '11'.
- wa_fcat-fieldname = 'LOGICAL_FIT'.
- wa_fcat-seltext_m = 'Logical Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '12'.
- wa_fcat-fieldname = 'LOGICAL_SCORE'.
- wa_fcat-seltext_m = 'Logical Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '13'.
- wa_fcat-fieldname = 'COMMUNICATIVE_FIT'.
- wa_fcat-seltext_m = 'Communicative Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '14'.
- wa_fcat-fieldname = 'COMMUNICATIVE_SCORE'.
- wa_fcat-seltext_m = 'Communicative Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '15'.
- wa_fcat-fieldname = 'INFLUENCING_FIT'.
- wa_fcat-seltext_m = 'Influencing Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '16'.
- wa_fcat-fieldname = 'INFLUENCING_SCORE'.
- wa_fcat-seltext_m = 'Influencing Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '17'.
- wa_fcat-fieldname = 'SOCIALLY_CONFIDENT_FIT'.
- wa_fcat-seltext_m = 'Socially Confident Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '18'.
- wa_fcat-fieldname = 'SOCIALLY_CONFIDENT_SCORE'.
- wa_fcat-seltext_m = 'Socially Confident Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '19'.
- wa_fcat-fieldname = 'SUPPORTIVE_FIT'.
- wa_fcat-seltext_m = 'Supportive Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '20'.
- wa_fcat-fieldname = 'SUPPORTIVE_SCORE'.
- wa_fcat-seltext_m = 'Supportive Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '21'.
- wa_fcat-fieldname = 'CONSULTATIVE_FIT'.
- wa_fcat-seltext_m = 'Consultative Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '22'.
- wa_fcat-fieldname = 'CONSULTATIVE_SCORE'.
- wa_fcat-seltext_m = 'Consultative Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '23'.
- wa_fcat-fieldname = 'ANALYTICAL_FIT'.
- wa_fcat-seltext_m = 'Analytical Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '24'.
- wa_fcat-fieldname = 'ANALYTICAL_SCORE'.
- wa_fcat-seltext_m = 'Analytical Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '25'.
- wa_fcat-fieldname = 'CONCEPTUAL_FIT'.
- wa_fcat-seltext_m = 'Conceptual Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '26'.
- wa_fcat-fieldname = 'CONCEPTUAL_SCORE'.
- wa_fcat-seltext_m = 'Conceptual Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '27'.
- wa_fcat-fieldname = 'CREATIVE_FIT'.
- wa_fcat-seltext_m = 'Creative Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '28'.
- wa_fcat-fieldname = 'CREATIVE_SCORE'.
- wa_fcat-seltext_m = 'Creative Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '29'.
- wa_fcat-fieldname = 'METHODICAL_FIT'.
- wa_fcat-seltext_m = 'Methodical Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '30'.
- wa_fcat-fieldname = 'METHODICAL_SCORE'.
- wa_fcat-seltext_m = 'Methodical Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '31'.
- wa_fcat-fieldname = 'CONSCIENTIOUS_FIT'.
- wa_fcat-seltext_m = 'Conscientious Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '32'.
- wa_fcat-fieldname = 'CONSCIENTIOUS_SCORE'.
- wa_fcat-seltext_m = 'Conscientious Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '33'.
- wa_fcat-fieldname = 'RELAXED_FIT'.
- wa_fcat-seltext_m = 'Relaxed Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '34'.
- wa_fcat-fieldname = 'RELAXED_SCORE'.
- wa_fcat-seltext_m = 'Relaxed Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '35'.
- wa_fcat-fieldname = 'RESILIENT_FIT'.
- wa_fcat-seltext_m = 'Resilient Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '36'.
- wa_fcat-fieldname = 'RESILIENT_SCORE'.
- wa_fcat-seltext_m = 'Resilient Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '37'.
- wa_fcat-fieldname = 'FLEXIBLE_FIT'.
- wa_fcat-seltext_m = 'Flexible Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '38'.
- wa_fcat-fieldname = 'FLEXIBLE_SCORE'.
- wa_fcat-seltext_m = 'Flexible Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '39'.
- wa_fcat-fieldname = 'DECISIVE_ACTION_ORIENTED_FIT'.
- wa_fcat-seltext_m = 'Decisive Action-oriented Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '40'.
- wa_fcat-fieldname = 'DECISIVE_ACTION_ORIENTED_SCORE'.
- wa_fcat-seltext_m = 'Decisive Action-oriented Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '41'.
- wa_fcat-fieldname = 'ACHIEVEMENT_ORIENTED_FIT'.
- wa_fcat-seltext_m = 'Achievement Oriented Fit'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '42'.
- wa_fcat-fieldname = 'ACHIEVEMENT_ORIENTED_SCORE'.
- wa_fcat-seltext_m = 'Achievement Oriented Score'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
- EXPORTING
- i_structure_name = 'PS9912'
- it_fieldcat = i_fcat
- i_grid_title = 'Talent Q'
- TABLES
- t_outtab = it_talent.
- ELSE.
- MESSAGE ID 'ZINFOTYPE_ERRORS' TYPE 'I' NUMBER '001'.
- ENDIF.
- ELSEIF P_PROF = 'X'.
- PERFORM f_get_profile_data.
- IF it_profile IS NOT INITIAL.
- *Start Forming the ALV
- CLEAR wa_fcat.
- CLEAR i_fcat[].
- wa_fcat-outputlen = 15.
- wa_fcat-col_pos = '1'.
- wa_fcat-fieldname = 'PERNR'.
- wa_fcat-seltext_m = 'Personnel No.'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-col_pos = '2'.
- wa_fcat-fieldname = 'NAME'.
- wa_fcat-seltext_m = 'Name'.
- wa_fcat-outputlen = 40.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-col_pos = '3'.
- wa_fcat-fieldname = 'SG'.
- wa_fcat-seltext_m = 'SG'.
- wa_fcat-outputlen = 10.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-col_pos = '4'.
- wa_fcat-fieldname = 'COMP_CODE'.
- wa_fcat-seltext_m = 'Orglv'.
- wa_fcat-outputlen = 10.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-col_pos = '5'.
- wa_fcat-fieldname = 'POSITION'.
- wa_fcat-seltext_m = 'Current Position'.
- wa_fcat-outputlen = 20.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-col_pos = '6'.
- wa_fcat-fieldname = 'MAN_LVL'.
- wa_fcat-seltext_m = 'Managerial Level'.
- wa_fcat-outputlen = 20.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-col_pos = '7'.
- wa_fcat-fieldname = 'COSTCENTER'.
- wa_fcat-seltext_m = 'Cost Center'.
- wa_fcat-outputlen = 20.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-col_pos = '7'.
- wa_fcat-fieldname = 'PERS_AREA'.
- wa_fcat-seltext_m = 'Personnal Area'.
- wa_fcat-outputlen = 20.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-col_pos = '8'.
- wa_fcat-fieldname = 'P_SUBAREA'.
- wa_fcat-seltext_m = 'Personnal Sub-Area'.
- wa_fcat-outputlen = 20.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-col_pos = '9'.
- wa_fcat-fieldname = 'ORG_UNIT'.
- wa_fcat-seltext_m = 'Department'.
- wa_fcat-outputlen = 20.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-col_pos = '10'.
- wa_fcat-fieldname = 'BUS_AREA'.
- wa_fcat-seltext_m = 'Business Area'.
- wa_fcat-outputlen = 20.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-col_pos = '11'.
- wa_fcat-fieldname = 'SEN_DATE'.
- wa_fcat-seltext_m = 'Seniority Date'.
- wa_fcat-outputlen = 20.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-col_pos = '12'.
- wa_fcat-fieldname = 'LST_PRM'.
- wa_fcat-seltext_m = 'Last Promotion'.
- wa_fcat-outputlen = 20.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '13'.
- wa_fcat-fieldname = 'TEST_DATE'.
- wa_fcat-seltext_m = 'Profile XT Date'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '14'.
- wa_fcat-fieldname = 'MANAGER_ASSESS'.
- wa_fcat-seltext_m = 'Manager Assess'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '15'.
- wa_fcat-fieldname = 'ELANG_TEST'.
- wa_fcat-seltext_m = 'Elang Test'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '16'.
- wa_fcat-fieldname = 'W_ELANG_TEST'.
- wa_fcat-seltext_m = 'W Elang Test'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '17'.
- wa_fcat-fieldname = 'XT'.
- wa_fcat-seltext_m = 'XT'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '18'.
- wa_fcat-fieldname = 'WXT'.
- wa_fcat-seltext_m = 'WXT'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '19'.
- wa_fcat-fieldname = 'TOTAL_XTALL'.
- wa_fcat-seltext_m = 'Total(Mgr,ELT,XTALL)'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '20'.
- wa_fcat-fieldname = 'XT_THINKING'.
- wa_fcat-seltext_m = 'XT (Thinking)'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '21'.
- wa_fcat-fieldname = 'TOTAL_XTTH'.
- wa_fcat-seltext_m = 'Total(Mgr,ELT,XTTH)'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '22'.
- wa_fcat-fieldname = 'DIFFERENCE'.
- wa_fcat-seltext_m = 'Difference'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '23'.
- wa_fcat-fieldname = 'THINKING'.
- wa_fcat-seltext_m = 'Thinking'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '24'.
- wa_fcat-fieldname = 'BEHAVIORAL'.
- wa_fcat-seltext_m = 'Behavioral'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '25'.
- wa_fcat-fieldname = 'INTEREST'.
- wa_fcat-seltext_m = 'Interest'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '26'.
- wa_fcat-fieldname = 'PROFILE_XT'.
- wa_fcat-seltext_m = 'Profile XT'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '27'.
- wa_fcat-fieldname = 'W_PROFILE_XT'.
- wa_fcat-seltext_m = 'W Profile XT'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '28'.
- wa_fcat-fieldname = 'TOTAL'.
- wa_fcat-seltext_m = 'Total'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '29'.
- wa_fcat-fieldname = 'ZASSIGNED'.
- wa_fcat-seltext_m = 'Assigned'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- wa_fcat-outputlen = 40.
- wa_fcat-col_pos = '30'.
- wa_fcat-fieldname = 'TARGET_POSITION'.
- wa_fcat-seltext_m = 'Target Position'.
- APPEND wa_fcat TO i_fcat.
- CLEAR wa_fcat.
- CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
- EXPORTING
- i_structure_name = 'PS991'
- it_fieldcat = i_fcat
- i_grid_title = 'Profile XT'
- TABLES
- t_outtab = it_profile.
- ELSE.
- MESSAGE ID 'ZINFOTYPE_ERRORS' TYPE 'I' NUMBER '000'.
- ENDIF.
- ENDIF.
- FORM f_get_profile_data .
- CLEAR it_profile[].
- CLEAR it_9911[].
- CALL FUNCTION 'Z_INFOTYPE_9911'
- TABLES
- IM_PERNRS_SELOPT = r_pernr
- EX_TAB_INFTY = it_9911
- .
- IF it_9911[] IS NOT INITIAL.
- PERFORM f_fill_profile_data.
- ENDIF.
- ENDFORM.
- FORM f_get_talent_data .
- CLEAR it_talent[].
- CLEAR it_9912[].
- CALL FUNCTION 'Z_INFOTYPE_9912'
- TABLES
- IM_PERNRS_SELOPT = r_pernr
- EX_TAB_INFTY = it_9912
- .
- IF it_9912[] IS NOT INITIAL.
- PERFORM f_fill_talent_data.
- ENDIF.
- ENDFORM.
- FORM f_get_appraisal_data .
- CLEAR it_appraisal[].
- CLEAR it_9914[].
- CALL FUNCTION 'Z_INFOTYPE_9914'
- TABLES
- IM_PERNRS_SELOPT = r_pernr
- EX_TAB_INFTY = it_9914
- .
- IF it_9914[] IS NOT INITIAL.
- PERFORM f_fill_appraisal_data.
- ENDIF.
- ENDFORM.
- FORM f_get_test_data .
- CLEAR it_english[].
- CLEAR it_9913[].
- CALL FUNCTION 'Z_INFOTYPE_9913'
- TABLES
- IM_PERNRS_SELOPT = r_pernr
- EX_TAB_INFTY = it_9913
- .
- IF it_9913[] IS NOT INITIAL.
- PERFORM f_fill_test_data.
- ENDIF.
- ENDFORM.
- FORM f_fill_appraisal_data .
- *Clear Internal Table.
- CLEAR it_appraisal[].
- *Personal Data BAPI
- DATA it_personal_data TYPE TABLE OF bapip0001b.
- **
- MOVE-CORRESPONDING it_9914[] TO it_appraisal[].
- *Start Looping through the personal data
- LOOP AT it_appraisal.
- CLEAR it_personal_data[].
- CALL FUNCTION 'BAPI_EMPLOYEE_GETDATA'
- EXPORTING
- employee_id = it_appraisal-pernr
- TABLES
- org_assignment = it_personal_data
- * PERSONAL_DATA =
- * INTERNAL_CONTROL =
- * COMMUNICATION =
- * ARCHIVELINK =
- .
- *Add name to the data
- CHECK it_personal_data IS NOT INITIAL.
- it_appraisal-name = it_personal_data[ 1 ]-name.
- MODIFY it_appraisal.
- ENDLOOP .
- ENDFORM.
- *f_fill_test_data
- FORM f_fill_test_data .
- *Clear Internal Table.
- CLEAR it_english[].
- *Personal Data BAPI
- DATA it_personal_data TYPE TABLE OF bapip0001b.
- **
- MOVE-CORRESPONDING it_9913[] TO it_english[].
- *Start Looping through the personal data
- LOOP AT it_english.
- CLEAR it_personal_data[].
- CALL FUNCTION 'BAPI_EMPLOYEE_GETDATA'
- EXPORTING
- employee_id = it_english-pernr
- TABLES
- org_assignment = it_personal_data
- * PERSONAL_DATA =
- * INTERNAL_CONTROL =
- * COMMUNICATION =
- * ARCHIVELINK =
- .
- *Add name to the data
- CHECK it_personal_data IS NOT INITIAL.
- it_english-name = it_personal_data[ 1 ]-name.
- MODIFY it_english.
- ENDLOOP .
- ENDFORM.
- FORM f_fill_talent_data .
- *Clear Internal Table.
- CLEAR it_talent[].
- *Personal Data BAPI
- DATA it_personal_data TYPE TABLE OF bapip0001b.
- **
- MOVE-CORRESPONDING it_9912[] TO it_talent[].
- *Start Looping through the personal data
- LOOP AT it_talent.
- CLEAR it_personal_data[].
- CALL FUNCTION 'BAPI_EMPLOYEE_GETDATA'
- EXPORTING
- employee_id = it_talent-pernr
- TABLES
- org_assignment = it_personal_data
- * PERSONAL_DATA =
- * INTERNAL_CONTROL =
- * COMMUNICATION =
- * ARCHIVELINK =
- .
- *Add name to the data
- CHECK it_personal_data IS NOT INITIAL.
- it_talent-name = it_personal_data[ 1 ]-name.
- MODIFY it_talent.
- ENDLOOP .
- ENDFORM.
- FORM f_fill_profile_data .
- *Clear Internal Table.
- CLEAR it_profile[].
- *Personal Data BAPI
- DATA it_personal_data TYPE TABLE OF bapip0001b.
- **
- MOVE-CORRESPONDING it_9911[] TO it_profile[].
- *Start Looping through the personal data
- LOOP AT it_profile.
- CLEAR it_personal_data[].
- CALL FUNCTION 'BAPI_EMPLOYEE_GETDATA'
- EXPORTING
- employee_id = it_profile-pernr
- TABLES
- org_assignment = it_personal_data
- * PERSONAL_DATA =
- * INTERNAL_CONTROL =
- * COMMUNICATION =
- * ARCHIVELINK =
- .
- *Add all required fields to the data
- CHECK it_personal_data IS NOT INITIAL.
- it_profile-name = it_personal_data[ 1 ]-name.
- it_profile-COMP_CODE = it_personal_data[ 1 ]-COMP_CODE.
- it_profile-POSITION = it_personal_data[ 1 ]-POSITION.
- it_profile-COSTCENTER = it_personal_data[ 1 ]-COSTCENTER.
- it_profile-PERS_AREA = it_personal_data[ 1 ]-PERS_AREA.
- it_profile-P_SUBAREA = it_personal_data[ 1 ]-P_SUBAREA.
- it_profile-ORG_UNIT = it_personal_data[ 1 ]-ORG_UNIT.
- it_profile-BUS_AREA = it_personal_data[ 1 ]-BUS_AREA.
- MODIFY it_profile.
- ENDLOOP .
- ENDFORM.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement