SAP Reports / Programs | Personnel Management | Personnel Administration | Malaysia(PA-PA-MY) SAP PA
RPIADVL3 SAP ABAP INCLUDE - Main RPTTHJ00 : Sub-Routines
RPIADVL3 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.
If you would like to execute this report or see the full code listing simply enter RPIADVL3 into the relevant SAP transactions such as SE38 or SE80
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 RPIADVL3. "Basic submit
SUBMIT RPIADVL3 AND RETURN. "Return to original report after report execution complete
SUBMIT RPIADVL3 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Main RPTTHJ00 : Sub-Routines
INCLUDES used within this REPORT RPIADVL3
No INCLUDES are used within this REPORT code!
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:
BDC_OPEN_GROUP CALL FUNCTION 'BDC_OPEN_GROUP' EXPORTING GROUP = MAP_NAME USER = USR_NAME.
HRCA_COMPANYCODE_GETDETAIL *CALL FUNCTION 'HRCA_COMPANYCODE_GETDETAIL' * EXPORTING * COMPANYCODE = P0001-BUKRS ** language = sy-langu * IMPORTING ** COMP_NAME ** CITY ** COUNTRY * CURRENCY = CURRENCY ** LANGU ** CHRT_ACCTS ** FY_VARIANT ** FI_MANAGEMENTAREA ** JURISDICTION ** VALUE(RATE_DEVIATION) LIKE HRCA_COMPANY-RATE_DEVIAT ** ADDRESS * EXCEPTIONS * NOT_FOUND.
RP_GET_CURRENCY CALL FUNCTION 'RP_GET_CURRENCY' EXPORTING MOLGA = GMOLGA IMPORTING WAERS = CURRENCY EXCEPTIONS OTHERS = 5 .
RP_FILL_WAGE_TYPE_TABLE_EXT CALL FUNCTION 'RP_FILL_WAGE_TYPE_TABLE_EXT' EXPORTING APPLI = 'P' PERNR = PERNR-PERNR INFTY = PINFTY BEGDA = PBEGDA ENDDA = PENDDA SUBTY = PSUBTY OBJPS = POBJPS SEQNR = PSEQNR TABLES PP0001 = P0001 PP0007 = P0007 PP0008 = P0008 PPBWLA = PPBWLA EXCEPTIONS ERROR_AT_INDIRECT_EVALUATION = 1.
RP_CONVERT_WAGE_TYPE_TABLE CALL FUNCTION 'RP_CONVERT_WAGE_TYPE_TABLE' EXPORTING WAERS = CURRENCY DATUM = PBEGDA TABLES PPBWLA = PPBWLA EXCEPTIONS ERROR_AT_INDIRECT_EVALUATION = 1.
BDC_INSERT CALL FUNCTION 'BDC_INSERT' EXPORTING TCODE = 'PA30' TABLES DYNPROTAB = BDCDATA.
SG_PS_GET_LAST_DAY_OF_MONTH CALL FUNCTION 'SG_PS_GET_LAST_DAY_OF_MONTH' EXPORTING DAY_IN = adv_date IMPORTING LAST_DAY_OF_MONTH = temp_date.
RP_HIRE_FIRE CALL FUNCTION 'RP_HIRE_FIRE' EXPORTING * BEG = begda * END = endda BEG = '18000101' "NAMPH9K012520 END = '99991231' "NAMPH9K012520 * importing * hire_date = phiredte * fire_date = firedate TABLES PP0000 = P0000 PP0001 = P0001 PPHIFI = PHIFI.
RP_BUILD_PSP * call function 'RP_BUILD_PSP' "LEOAHRK001416 * exporting "LEOAHRK001416 * input = ptprg "LEOAHRK001416 * begda = $begda "LEOAHRK001416 * endda = $endda "LEOAHRK001416 * error = '0' "LEOAHRK001416 * importing "LEOAHRK001416 * output = ptprg "LEOAHRK001416 * tables "LEOAHRK001416 * i550an = i550an "LEOAHRK001416 * i550ao = i550ao "LEOAHRK001416 * i550pn = i550pn "LEOAHRK001416 * i550po = i550po "LEOAHRK001416 * pp0000 = p0000 "LEOAHRK001416 * pp0001 = p0001 "LEOAHRK001416 * pp0002 = p0002 "LEOAHRK001416 * pp0007 = p0007 "LEOAHRK001416 * pp2001 = p2001 "LEOAHRK001416 * pp2002 = p2002 "LEOAHRK001416 * pp2003 = p2003 "LEOAHRK001416 * ppsp = psp. "LEOAHRK001416
HR_PERSONAL_WORK_SCHEDULE CALL FUNCTION 'HR_PERSONAL_WORK_SCHEDULE' "LEOAHRK001416 EXPORTING "LEOAHRK001416 PERNR = PERNR-PERNR "LEOAHRK001416 BEGDA = $BEGDA "LEOAHRK001416 ENDDA = $ENDDA "LEOAHRK001416 I0001_I0007_ERROR = '0' "LEOAHRK001416 TABLES "LEOAHRK001416 I0000 = P0000 "LEOAHRK001416 I0001 = P0001 "LEOAHRK001416 I0002 = P0002 "LEOAHRK001416 I0007 = P0007 "LEOAHRK001416 I2001 = P2001 "LEOAHRK001416 I2002 = P2002 "LEOAHRK001416 I2003 = P2003 "LEOAHRK001416 PERWS = PSP "LEOAHRK001416 EXCEPTIONS "LEOAHRK001416 ERROR_OCCURED = 1 "LEOAHRK001416 ABORT_OCCURED = 2 "LEOAHRK001416 OTHERS = 3. "LEOAHRK001416
DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING DYNAME = DYNAME DYNUMB = DYNUMB TRANSLATE_TO_UPPER = 'X' TABLES DYNPFIELDS = DYNPFIELDS EXCEPTIONS INVALID_ABAPWORKAREA = 01 INVALID_DYNPROFIELD = 02 INVALID_DYNPRONAME = 03 INVALID_DYNPRONUMMER = 04 INVALID_REQUEST = 05 NO_FIELDDESCRIPTION = 06 UNDEFIND_ERROR = 07.
HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING FIELDNAME = 'EGTXT' TABNAME = 'T5LCT' TITEL = TEXT-128 SHOW_ALL_VALUES_AT_FIRST_TIME = 'X' IMPORTING SELECT_VALUE = ADV_TYPE TABLES FIELDS = T_FIELDS VALUETAB = ITAB_HELP EXCEPTIONS FIELD_NOT_IN_DDIC = 1 MORE_THEN_ONE_SELECTFIELD = 2 NO_SELECTFIELD = 3 OTHERS = 4.
HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING FIELDNAME = 'LTEXT' TABNAME = 'T505S' TITEL = TEXT-120 SHOW_ALL_VALUES_AT_FIRST_TIME = 'X' IMPORTING SELECT_VALUE = RACE TABLES FIELDS = T_FIELDS VALUETAB = ITAB_HELP EXCEPTIONS FIELD_NOT_IN_DDIC = 1 MORE_THEN_ONE_SELECTFIELD = 2 NO_SELECTFIELD = 3 OTHERS = 4.
HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING FIELDNAME = 'LTEXT' TABNAME = 'T500T' TITEL = TEXT-131 SHOW_ALL_VALUES_AT_FIRST_TIME = 'X' IMPORTING SELECT_VALUE = GMOLGA TABLES FIELDS = T_FIELDS VALUETAB = ITAB_HELP EXCEPTIONS FIELD_NOT_IN_DDIC = 1 MORE_THEN_ONE_SELECTFIELD = 2 NO_SELECTFIELD = 3 OTHERS = 4.
DYNP_VALUES_UPDATE CALL FUNCTION 'DYNP_VALUES_UPDATE' EXPORTING DYNAME = DYNAME DYNUMB = DYNUMB TABLES DYNPFIELDS = DYNPFIELDS EXCEPTIONS INVALID_ABAPWORKAREA = 01 INVALID_DYNPROFIELD = 02 INVALID_DYNPRONAME = 03 INVALID_DYNPRONUMMER = 04 INVALID_REQUEST = 05 NO_FIELDDESCRIPTION = 06 UNDEFIND_ERROR = 07.
HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING FIELDNAME = 'SUBTY' TABNAME = 'T591A' TITEL = TEXT-130 SHOW_ALL_VALUES_AT_FIRST_TIME = 'X' IMPORTING SELECT_VALUE = ADV_SUBT TABLES FIELDS = T_FIELDS VALUETAB = ITAB_HELP EXCEPTIONS FIELD_NOT_IN_DDIC = 1 MORE_THEN_ONE_SELECTFIELD = 2 NO_SELECTFIELD = 3 OTHERS = 4.
HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING FIELDNAME = 'WAGE' TABNAME = 'T512W' TITEL = TEXT-127 SHOW_ALL_VALUES_AT_FIRST_TIME = 'X' IMPORTING SELECT_VALUE = WAGE TABLES FIELDS = T_FIELDS VALUETAB = ITAB_HELP EXCEPTIONS FIELD_NOT_IN_DDIC = 1 MORE_THEN_ONE_SELECTFIELD = 2 NO_SELECTFIELD = 3 OTHERS = 4.
HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING FIELDNAME = 'WAGE' TABNAME = 'T512W' TITEL = TEXT-127 SHOW_ALL_VALUES_AT_FIRST_TIME = 'X' IMPORTING SELECT_VALUE = REC_WAGE TABLES FIELDS = T_FIELDS VALUETAB = ITAB_HELP EXCEPTIONS FIELD_NOT_IN_DDIC = 1 MORE_THEN_ONE_SELECTFIELD = 2 NO_SELECTFIELD = 3 OTHERS = 4.
CALL FUNCTION 'HR_DISPLAY_BASIC_LIST' EXPORTING BASIC_LIST_TITLE = SY-TITLE FILE_NAME = 'RPIADVL0' HEAD_LINE1 = HEAD1 HEAD_LINE2 = HEAD2 FOOT_NOTE1 = FOOT1 FOOT_NOTE2 = FOOT2 FOOT_NOTE3 = FOOT3 * lay_out = 5 DYN_PUSHBUTTON_TEXT1 = SW_P0005 DYN_PUSHBUTTON_TEXT2 = SPACE DYN_PUSHBUTTON_TEXT3 = SW_BATCH WORD_DOCUMENT = WORDFILE * list_level = '02' IMPORTING RETURN_CODE = RETCD TABLES DATA_TAB = DISP_LST FIELDNAME_TAB = FIELDNAMES ERROR_TAB = ERROR_TAB EXCEPTIONS DOWNLOAD_PROBLEM = 1 NO_DATA_TAB_ENTRIES = 2 TABLE_MISMATCH = 3 PRINT_PROBLEMS = 4 OTHERS = 5.
HR_DISPLAY_ERROR_LIST CALL FUNCTION 'HR_DISPLAY_ERROR_LIST' TABLES ERROR = ERROR_TAB EXCEPTIONS INVALID_LINESIZE = 1 OTHERS = 2.
SAPGUI_PROGRESS_INDICATOR CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING TEXT = PROG_TEXT EXCEPTIONS OTHERS = 1.
NAMETAB_GET * CALL FUNCTION 'NAMETAB_GET' * EXPORTING * LANGU = SY-LANGU * TABNAME = 'PS0001' * TABLES * NAMETAB = NAMETAB * EXCEPTIONS * INTERNAL_ERROR = 1 * TABLE_HAS_NO_FIELDS = 2 * TABLE_NOT_ACTIV = 3 * NO_TEXTS_FOUND = 4 * OTHERS = 5.
DDIF_FIELDINFO_GET CALL FUNCTION 'DDIF_FIELDINFO_GET' EXPORTING TABNAME = 'PS0001' * FIELDNAME = ' ' LANGU = SY-LANGU * LFIELDNAME = ' ' * ALL_TYPES = ' ' * GROUP_NAMES = ' ' * UCLEN = * IMPORTING * X030L_WA = * DDOBJTYPE = * DFIES_WA = * LINES_DESCR = TABLES DFIES_TAB = i_dfies_tab * FIXED_VALUES = EXCEPTIONS NOT_FOUND = 1 INTERNAL_ERROR = 2 OTHERS = 3. "GKAL0K094578<<
NAMETAB_GET * CALL FUNCTION 'NAMETAB_GET' * EXPORTING * LANGU = SY-LANGU * TABNAME = 'PS0008' ** importing * TABLES * NAMETAB = NAMETAB * EXCEPTIONS * INTERNAL_ERROR = 1 * TABLE_HAS_NO_FIELDS = 2 * TABLE_NOT_ACTIV = 3 * NO_TEXTS_FOUND = 4 * OTHERS = 5.
DDIF_FIELDINFO_GET CALL FUNCTION 'DDIF_FIELDINFO_GET' EXPORTING TABNAME = 'PS0008' * FIELDNAME = ' ' LANGU = SY-LANGU * LFIELDNAME = ' ' * ALL_TYPES = ' ' * GROUP_NAMES = ' ' * UCLEN = * IMPORTING * X030L_WA = * DDOBJTYPE = * DFIES_WA = * LINES_DESCR = TABLES DFIES_TAB = i_dfies_tab * FIXED_VALUES = EXCEPTIONS NOT_FOUND = 1 INTERNAL_ERROR = 2 OTHERS = 3. "GKAL0K094578<<
DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = d020s-prog dynumb = d020s-dnum TABLES dynpfields = fieldtab EXCEPTIONS OTHERS = 1.
HELP_VALUES_GET_NO_DD_NAME call function 'HELP_VALUES_GET_NO_DD_NAME' exporting display = ' ' selectfield = 'OCRSN' titel = ' ' importing ind = index tables fields = t_fields full_table = itab_help exceptions full_table_empty = 01 no_tablestructure_given = 02.
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 RPIADVL3 or its description.