Basically, to get working schedule we just have to use FM ‘HR_PERSONAL_WORK_SCHEDULE’.<\/p>\n\n\n\n
But when we are not using ABAP HR (Logical Database) this FM become not that simple to use. <\/p>\n\n\n\n
Now, here I share my method to get working schedule<\/p>\n\n\n\n
\nTYPES: BEGIN OF ty_work,\n pernr TYPE pernr-pernr,\n datum TYPE datum,\n kurzt TYPE t246-kurzt, \" day name\n tprog TYPE tprog, \" FREE = off\n END OF ty_work,\n tt_work TYPE TABLE OF ty_work WITH EMPTY KEY.\n\nCLASS lcl_main DEFINITION.\n PUBLIC SECTION.\n METHODS:\n get_work_schedule\n RETURNING VALUE(rt_psp) TYPE tt_work.\nENDCLASS.\n\n\nCLASS lcl_main IMPLEMENTATION.\n METHOD get_work_schedule.\n\n DATA:\n lo_data TYPE REF TO data,\n lr_pernr TYPE RANGE OF p_pernr,\n lv_begda TYPE datum VALUE '20230101', \" begin date\n lv_endda TYPE datum VALUE '20230131'. \" end date\n FIELD-SYMBOLS:\n <lfs_t_data> TYPE ANY TABLE.\n\n \" get all employees\n SELECT pernr\n FROM pa0000\n INTO TABLE t_0000\n WHERE ( begda <= sy-datum AND endda >= sy-datum ) AND stat2 = '3'.\n\n lr_pernr = VALUE #( FOR w IN t_0000 ( low = w-pernr sign = 'I' option = 'EQ' ) ).\n\n\n cl_salv_bs_runtime_info=>set( EXPORTING display = abap_false\n metadata = abap_false\n data = abap_true ).\n\n SUBMIT rptpsh10\n WITH pnppernr IN lr_pernr\n WITH pnpbegda EQ lv_begda\n WITH pnpendda EQ lv_endda\n WITH pnptimed EQ ''\n AND RETURN.\n\n TRY.\n cl_salv_bs_runtime_info=>get_data_ref(\n IMPORTING r_data = lo_data ).\n ASSIGN lo_data->* TO <lfs_t_data>.\n\n rt_psp = CORRESPONDING #( <lfs_t_data> ).\n\n CATCH cx_salv_bs_sc_runtime_info ##NO_HANDLER.\n MESSAGE 'Unable to retrieve ALV data' TYPE 'E'.\n ENDTRY.\n\n cl_salv_bs_runtime_info=>clear_all( ).\n ENDMETHOD. \" get_work_schedule\nENDCLASS.<\/code><\/pre>\n\n\n\n<\/p>\n\n\n\n
references:<\/p>\n\n\n\n