RHDPERSL SAP ABAP Report - Display Personal Shift Plan
RHDPERSL is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for This report previews an individual shift plan for the chosen period before printing...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.
If you would like to execute this report or see the full code listing simply enter RHDPERSL into the relevant SAP transactions such as SE38 or SE80
Transaction Code(s):
Below is a list of transaction codes which are relevant to this SAP report
PP6A - Personal Shift Plan
ABAP code to call this SAP report using the submit statement
This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.
SUBMIT RHDPERSL. "Basic submit
SUBMIT RHDPERSL AND RETURN. "Return to original report after report execution complete
SUBMIT RHDPERSL VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Selection Text: PERNR = Personnel Number
Selection Text: PCHSEARK = Search term
Title: Display Personal Shift Plan
Text Symbol: HOL = Public holiday
Text Symbol: M01 = More than one organizational
Text Symbol: M02 = assignment was found.
Text Symbol: M03 = Please select one:
Text Symbol: MON = Monday
Text Symbol: NAM = Name
Text Symbol: PAR = Shared temporary assignment on
Text Symbol: R03 = Personal shift plan: Detail view
Text Symbol: R04 = Personal shift plan: Detail view rotated
Text Symbol: R05 = Personal shift plan: Comments
Text Symbol: SAT = Saturday
Text Symbol: STD = Hours
Text Symbol: SUN = Sunday
Text Symbol: T01 = Personal shift plan: Overview
Text Symbol: THU = Thursday
Text Symbol: TIM = Shift time
Text Symbol: TRN = Rotate detail view
Text Symbol: TUE = Tuesday
Text Symbol: UND = Shift undefined
Text Symbol: WED = Wednesday
Text Symbol: ZRA = Period
Text Symbol: GES = Overview
Text Symbol: 001 = ID
Text Symbol: 002 = Substitution
Text Symbol: 003 = Absence
Text Symbol: 004 = Attendance
Text Symbol: 006 = Original shift
Text Symbol: 007 = Avail. undefined
Text Symbol: 008 = Reqmnts assgnmnt
Text Symbol: 009 = Comments
Text Symbol: 010 = Select person
Text Symbol: 100 = Choose
Text Symbol: 101 = Profile
Text Symbol: 102 = Object Type
Text Symbol: 103 = Enter profile
Text Symbol: 200 = Person not found
Text Symbol: BER = Availability
Text Symbol: DAT = Date
Text Symbol: DAY = Day
Text Symbol: DET = Detail view
Text Symbol: DIE = Shift name
Text Symbol: ESB = Abbr
Text Symbol: ESL = Shift abbr.
Text Symbol: FOR = Temp. assign to
Text Symbol: FRE = Day off
Text Symbol: FRI = Friday
INCLUDES used within this REPORT RHDPERSL
INCLUDE DBPNPMAC.
INCLUDE MPZDAT02.
INCLUDE FP51TPRT.
INCLUDE RHODAT00.
INCLUDE LRHEID00.
INCLUDE MAKROS.
INCLUDE RHXMACRO.
INCLUDE RHOINI00.
TABLES used within REPORT and the associated SELECT statement:
No SAP DATABASE tables are accessed within this REPORT code!
Function Modules used within report and the associated call statement:
ASK_PLVAR CALL FUNCTION 'ASK_PLVAR' EXPORTING d_plvar = plvar IMPORTING plvar = plvar subrc = subrc.
HR_SHIFTPLAN_GET_PROFILE CALL FUNCTION 'HR_SHIFTPLAN_GET_PROFILE' EXPORTING always_popup = ' ' IMPORTING otext = objtytxt CHANGING profile = pdsp_prfl EXCEPTIONS nothing_found = 1 OTHERS = 2.
RH_MACO CALL FUNCTION 'RH_MACO' EXPORTING seark = pchseark * SEARK_TEXT = ' ' plvar = plvar otype = 'P' * CALLBACK_PROG = ' ' * CALLBACK_FORM = ' ' * RESTRICT_FB = ' ' * RESTRICT_DATA = ' ' * FORGET_BASE_OBJECTS = ' ' * LANGU_MODE = '1' set_mode = ' ' * SELECT_MESSAGE = 'X' IMPORTING sel_object = sel_obj TABLES * OTYPE_TAB = * CONDITION = * BASE_OBJECTS = sel_objects = sel_obj_tab EXCEPTIONS f15 = 1 wrong_condition = 2 nothing_found = 3 OTHERS = 4.
HR_SHIFTPLAN_GET_PROFILE CALL FUNCTION 'HR_SHIFTPLAN_GET_PROFILE' EXPORTING always_popup = ' ' IMPORTING otext = objtytxt CHANGING profile = pdsp_prfl EXCEPTIONS nothing_found = 1 OTHERS = 2.
HRSPPS_AVAIL_ABBREVIATION_INIT CALL FUNCTION 'HRSPPS_AVAIL_ABBREVIATION_INIT' EXPORTING im_employee_tab = l_pernr_tab im_begda = begda im_endda = endda.
RH_READ_SHIFT CALL FUNCTION 'RH_READ_SHIFT' EXPORTING shift_group = pdpsp_tab-dienstgr "Note 727616 shift_abbriv = dienst_list_tab-sollprog shift_date = dienst_list_tab-date IMPORTING shift_txt = dienst_list_tab-dienst_txt pers_subgrp_dws = hlp_t77ed-motpr * DAY_WORK_SCHED = * DAY_WORK_SCHED_VAR = start_shift = dienst_list_tab-dienst_von * START_SHIFT_TEXT = end_shift = dienst_list_tab-dienst_bis * END_SHIFT_TEXT = accum_break_text = dienst_list_tab-pause_text * PERS_SUBGRP_ABS = hlp_t77ed-moabw * ABS_ATT_TYPE = hlp_t77ed-awart * ABS_ATT_INDICATOR = hlp_t77ed-awtyp * PERS_SUBGRP_SUB = hlp_t77ed-mover * AVAILABILITY = hlp_t77ed-stnby EXCEPTIONS no_entry = 1 no_shift_txt = 2 no_schedule = 3 OTHERS = 4.
RH_READ_OBJECT * CALL FUNCTION 'RH_READ_OBJECT' * EXPORTING * PLVAR = PLVAR * OTYPE = ORG_UNIT * OBJID = PERNR_ORGEH_TAB-ORGEHNEW * ISTAT = '1' * BEGDA = BEGDA * ENDDA = ENDDA * IMPORTING * SHORT = DIENST_LIST_TAB-FOR_ORGEH_TEXT ** stext = * EXCEPTIONS * NOT_FOUND = 01.
HR_SHIFTPLAN_EMPLOYEES CALL FUNCTION 'HR_SHIFTPLAN_EMPLOYEES' EXPORTING profile_id = profile_id begin_date = rpd_begda end_date = rpd_endda plvar = rpd_plvar with_pos_job_tab = 'X' sep_temp_assignments = 'X' change_direction = 'X' TABLES root_objects = root_objects objects_found = rpd_home_objects pos_tab = rpd_position job_tab = job_tab temp_assign_away = away_1001 temp_assign_tome = tome_1001 EXCEPTIONS no_valid_plvar = 1 no_valid_profile = 2 OTHERS = 3.
RH_READ_OBJECT CALL FUNCTION 'RH_READ_OBJECT' EXPORTING plvar = rpd_plvar otype = $pernr objid = rpd_pernr istat = '1' begda = rpd_begda endda = rpd_endda IMPORTING short = rpd_person_short stext = rpd_person_stext EXCEPTIONS not_found = 1 OTHERS = 2.
RH_READ_OBJECT CALL FUNCTION 'RH_READ_OBJECT' EXPORTING plvar = rpd_plvar otype = away_1001-otype objid = away_1001-objid istat = '1' begda = away_1001-begda endda = away_1001-endda IMPORTING short = rpd_away_objects-short_out stext = rpd_away_objects-stext_out EXCEPTIONS not_found = 1 OTHERS = 2.
HR_DISPLAY_BASIC_LIST CALL FUNCTION 'HR_DISPLAY_BASIC_LIST' EXPORTING basic_list_title = list_title file_name = 'hr' head_line1 = head_line1 head_line2 = head_line2 head_line3 = head_line3 * head_line4 = 'Überschriftszeile 4' * foot_note1 = 'Fußzeile 1' * foot_note2 = 'Fußzeile 2' * foot_note3 = 'Fußzeile 3' lay_out = 0 "Darstellungsart additional_options = additional_options * additional_options = 'START_WORD' * additional_options = 'START_EXCEL' * WORD_DOCUMENT = 'C:\JOHANNES\VERSUCH.DOC'
DATE_COMPUTE_DAY CALL FUNCTION 'DATE_COMPUTE_DAY' EXPORTING date = hdate IMPORTING day = hday.
DATE_CONVERT_TO_FACTORYDATE CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE' EXPORTING correct_option = '+' date = hdate factory_calendar_id = calendar_id IMPORTING workingday_indicator = feiertag EXCEPTIONS calendar_buffer_not_loadable = 01 correct_option_invalid = 02 date_after_range = 03 date_before_range = 04 date_invalid = 05 factory_calendar_not_found = 06.
HR_READ_TIMEDATA_PSP CALL FUNCTION 'HR_READ_TIMEDATA_PSP' EXPORTING begin_date = begda end_date = endda person_id = pernr person_typ = $pernr TABLES pers_avail = i_pdpsp EXCEPTIONS OTHERS = 4.
HR_DISPLAY_BASIC_LIST CALL FUNCTION 'HR_DISPLAY_BASIC_LIST' EXPORTING basic_list_title = list_title file_name = 'hr' head_line1 = head_line1 head_line2 = head_line2 head_line3 = head_line3 lay_out = 0 "Darstellungsart additional_options = additional_options dyn_pushbutton_text1 = 'Übersicht'(ges) dyn_pushbutton_text2 = 'Detailsicht drehen'(trn) dyn_pushbutton_text3 = 'Info-Text'(009) current_report = sy-cprog "L9CK035997 * list_level = '02' IMPORTING return_code = return_code TABLES data_tab = data_tab fieldname_tab = fieldnames select_tab = select_tab EXCEPTIONS download_problem = 1 OTHERS = 2.
HR_DISPLAY_BASIC_LIST CALL FUNCTION 'HR_DISPLAY_BASIC_LIST' EXPORTING basic_list_title = list_title file_name = 'hr' head_line1 = head_line1 head_line2 = head_line2 head_line3 = head_line3 lay_out = 0 "Darstellungsart additional_options = additional_options dyn_pushbutton_text1 = 'Übersicht'(ges) dyn_pushbutton_text2 = 'Detailsicht'(det) current_report = sy-cprog "L9CK035997 * list_level = '03' IMPORTING return_code = return_code TABLES data_tab = data_tab fieldname_tab = fieldnames * select_tab = select_tab EXCEPTIONS download_problem = 1 OTHERS = 2.
RH_READ_OBJECT CALL FUNCTION 'RH_READ_OBJECT' EXPORTING plvar = plvar * otype = org_unit otype = gv_067_target_otype "Note 859075 objid = pernr_orgeh_tab-orgehnew istat = '1' begda = begda endda = endda IMPORTING short = short_text * stext = EXCEPTIONS not_found = 01.
HRSPPS_AVAIL_ABBREVIATION_GET CALL FUNCTION 'HRSPPS_AVAIL_ABBREVIATION_GET' EXPORTING im_employee = pernr im_date = p2004-begda im_beguz = p2004-beguz im_enduz = p2004-enduz im_subtype = p2004-stnby IMPORTING ex_shift = l_shift.
HR_PERSONAL_WORK_SCHEDULE CALL FUNCTION 'HR_PERSONAL_WORK_SCHEDULE' EXPORTING pernr = pernr begda = wps_date endda = wps_date * KUG = * REFRESH = 'X' * WORKING_HOURS = 'X' * SWITCH_ACTIV = * MODIFY_ENTRIES = 'X' * I0001_I0007_ERROR = '0' * IMPORTING * WARNING_OCCURED = TABLES * I0000 = i0001 = p0001 i0002 = p0002 i0007 = p0007 * I0049 = i2001 = p2001 i2002 = p2002 i2003 = p2003 perws = loc_perws EXCEPTIONS error_occured = 1 abort_occured = 2 OTHERS = 3.
HR_WORK_SCHEDULE_TIMES CALL FUNCTION 'HR_WORK_SCHEDULE_TIMES' EXPORTING pernr = pernr begda = wps_date endda = wps_date * KUG = ' ' * BREAK_OVERTIME = '1' * REFRESH_INFOTYPE_BUFFER = 'X' * IMPORTING * WARNING_OCCURED = TABLES i0001 = p0001 i0007 = p0007 i2003 = p2003 * I0049 = perws = loc_perws daygen = loc_daygen dayint = loc_dayint EXCEPTIONS error_occured = 1 perws_error = 2 OTHERS = 3.
HR_CONVERT_WORK_SCHEDULE CALL FUNCTION 'HR_CONVERT_WORK_SCHEDULE' EXPORTING daygen = loc_daygen TABLES dayint = loc_dayint i550an = i550an i550ao = i550ao i550pn = i550pn i550po = i550po.
HR_WORK_SCHEDULE_RULE CALL FUNCTION 'HR_WORK_SCHEDULE_RULE' EXPORTING date = ws_date zeity = ws_zeity mofid = ws_mofid mosid = ws_mosid schkz = ws_schkz * P0002_KONFE = IMPORTING tprog = ptprg-tprog varia = ptprg-varia ftkla = ptprg-ftkla tagty = ptprg-tagty zmodn = ptprg-zmodn motpr = ptprg-motpr.
HR_DWS_RE550 CALL FUNCTION 'HR_DWS_RE550' EXPORTING motpr = ptprg-motpr tprog = ptprg-tprog varia = ptprg-varia date = ws_date * BREAK_OVERTIME = IMPORTING daygen = gs_daygen * BEGUZ = * ENDUZ = * BEGDA = * ENDDA = * SUBRC = TABLES dayint = gs_dayint EXCEPTIONS error_occured = 1 OTHERS = 2.
HR_CONVERT_WORK_SCHEDULE CALL FUNCTION 'HR_CONVERT_WORK_SCHEDULE' EXPORTING daygen = gs_daygen TABLES dayint = gs_dayint i550an = i550an i550ao = i550ao i550pn = i550pn i550po = i550po.
HRSPPS_AVAIL_ABBREV_DETAIL_GET CALL FUNCTION 'HRSPPS_AVAIL_ABBREV_DETAIL_GET' "815218 EXPORTING im_employee = pdpsp_tab-pernr im_date = pdpsp_tab-datum im_shift = pdpsp_tab-bprog IMPORTING ex_beguz = pdpsp_tab-begti ex_enduz = pdpsp_tab-endti.
RH_READ_SHIFT_TEXT CALL FUNCTION 'RH_READ_SHIFT_TEXT' EXPORTING shift_group = i_t77ed-dienstgr shift_abbriv = i_t77ed-dienste IMPORTING shift_txt = i_t77ed-dienst_txt EXCEPTIONS no_shift_txt = 1.
RH_READ_OBJECT CALL FUNCTION 'RH_READ_OBJECT' EXPORTING plvar = plvar otype = $class objid = req_assign-job_objid istat = '1' begda = begda endda = endda IMPORTING short = job_txt stext = stext EXCEPTIONS not_found = 01.
RH_READ_OBJECT CALL FUNCTION 'RH_READ_OBJECT' EXPORTING plvar = plvar otype = req_assign-org_otype objid = req_assign-org_objid istat = '1' begda = begda endda = endda IMPORTING short = short stext = stext EXCEPTIONS not_found = 01.
CALL FUNCTION 'RH_READ_INFTY_1001' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' * ISTAT = ' ' * EXTEND = 'X' subty = 'A065' begda = begda endda = endda * CONDITION = '00000' * SORT = 'X' * WITH_EV = ' ' * ADATA = 'X' TABLES i1001 = i1001 OBJECTS = object_set EXCEPTIONS nothing_found = 1 wrong_condition = 2 OTHERS = 3.
RH_READ_INFTY_1001 CALL FUNCTION 'RH_READ_INFTY_1001' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' * ISTAT = ' ' * EXTEND = 'X' subty = 'B064' begda = begda endda = endda * CONDITION = '00000' * SORT = 'X' * WITH_EV = ' ' * ADATA = 'X' TABLES i1001 = i1001 OBJECTS = object_set EXCEPTIONS nothing_found = 1 wrong_condition = 2 OTHERS = 3.
RH_READ_REQ_ASSIGNMENTS CALL FUNCTION 'RH_READ_REQ_ASSIGNMENTS' EXPORTING planversion = plvar shiftgroup = pdorg-dienstgr selection_begin = begda selection_end = endda collision_detect = space TABLES org_objects = ra_objects assignments = req_assign EXCEPTIONS OTHERS = 1.
RH_READ_ORG_DATA CALL FUNCTION 'RH_READ_ORG_DATA' EXPORTING pdorg_imp = gsg_pdorg read_fcalid = 'X' IMPORTING pdorg_exp = gsg_pdorg EXCEPTIONS fcalid_initial = 01 fcalid_invalid = 02 group_initial = 03 group_invalid = 04 orgeh_invalid = 05 orgeh_typ_invalid = 06 group_not_clear = 07.
WWW_LOAD_TEMPLATE_ATTRIBUTES CALL FUNCTION 'WWW_LOAD_TEMPLATE_ATTRIBUTES' EXPORTING template_name = 'HR_SHIFT_PLAN' TABLES attributes = attributes.
WWW_ITAB_TO_HTML_HEADERS CALL FUNCTION 'WWW_ITAB_TO_HTML_HEADERS' EXPORTING field_nr = sy-tabix text = text_ text_length = text_length justified = justified_head size = size_head fgcolor = fgcolor_head bgcolor = bgcolor_head font = font_head TABLES header = row_header.
WWW_ITAB_TO_HTML_LAYOUT CALL FUNCTION 'WWW_ITAB_TO_HTML_LAYOUT' EXPORTING field_nr = sy-tabix justified = justified_body size = size_body fgcolor = fgcolor_body bgcolor = bgcolor_body font = font_body TABLES fields = fields.
WWW_ITAB_TO_HTML CALL FUNCTION 'WWW_ITAB_TO_HTML' EXPORTING table_attributes = table_attributes * table_header = table_header all_fields = ' ' TABLES html = html fields = fields row_header = row_header itable = datatab.
WWW_ITAB_TO_HTML_LAYOUT CALL FUNCTION 'WWW_ITAB_TO_HTML_LAYOUT' EXPORTING field_nr = 1 line_nr = sy-tabix justified = justified_head size = size_head fgcolor = fgcolor_head bgcolor = bgcolor_head font = font_head TABLES fields = fields.
WWW_ITAB_TO_HTML_LAYOUT CALL FUNCTION 'WWW_ITAB_TO_HTML_LAYOUT' EXPORTING field_nr = 1 line_nr = sy-index justified = justified_body size = size_body fgcolor = fgcolor_head bgcolor = bgcolor_head "Farbe1.Spalte wie Überschrift
WWW_ITAB_TO_HTML_HEADERS CALL FUNCTION 'WWW_ITAB_TO_HTML_HEADERS' EXPORTING field_nr = sy-tabix text = text_ text_length = text_length justified = justified_head size = size_head fgcolor = fgcolor_head bgcolor = bgcolor_head font = font_head TABLES header = row_header.
WWW_ITAB_TO_HTML_LAYOUT CALL FUNCTION 'WWW_ITAB_TO_HTML_LAYOUT' EXPORTING field_nr = sy-tabix justified = justified_body size = size_body fgcolor = fgcolor_body bgcolor = bgcolor_body font = font_body TABLES fields = fields.
WWW_ITAB_TO_HTML CALL FUNCTION 'WWW_ITAB_TO_HTML' EXPORTING table_attributes = table_attributes all_fields = ' ' TABLES html = html fields = fields row_header = row_header itable = datawide.
SYSTEM_CODEPAGE CALL FUNCTION 'SYSTEM_CODEPAGE' IMPORTING current_dynamic_codepage = cp.
RH_READ_OBJECT CALL FUNCTION 'RH_READ_OBJECT' EXPORTING plvar = plvar otype = otype objid = objid begda = begda endda = endda IMPORTING stext = full_name EXCEPTIONS not_found = 1 OTHERS = 2.
HR_WORK_SCHEDULE_RULE CALL FUNCTION 'HR_WORK_SCHEDULE_RULE' EXPORTING date = act_date zeity = i_p2004_line-zeity mofid = i_p2004_line-mofid mosid = i_p2004_line-mosid schkz = i_p2004_line-schkz * P0002_KONFE = IMPORTING tprog = l_tprog varia = l_varia * ftkla = * TAGTY = * ZMODN = * motpr = l_motpr EXCEPTIONS OTHERS = 1.
POPUP_TO_DECIDE_LIST CALL FUNCTION 'POPUP_TO_DECIDE_LIST' EXPORTING start_col = 15 start_row = 15 titel = ' ' textline1 = 'Mehrere organisatorische'(m01) textline2 = 'Zuordnungen gefunden.'(m02)
Contribute (Add Comments)
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.
The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.
This will then be available for everyone to easily find by simply searching on the report name RHDPERSL or its description.