RFVIMIFR is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for With this program, you set the deletion flag for any number of rental agreements...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 RFVIMIFR into the relevant SAP transactions such as SE38 or SE80
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.
Selection Text: ACTONLY = Only active lease-outs
Selection Text: BUKRS = Company code
Selection Text: CDATE = Date
Selection Text: E_SMIVE = Collective lease-out
Selection Text: SMENR = Rental unit
Selection Text: SMIVE = Lease-out
Selection Text: SWENR = Business entity
Title: Set Lease-Outs Deletion Flag
Text Symbol: 001 = Unknown
Text Symbol: 010 = CoCd BE RU Lease-out Start End Mstr tenant
Text Symbol: 020 = Data was changed
Text Symbol: 021 = Save first?
Text Symbol: 022 = Exit
Text Symbol: 030 = deleted
Text Symbol: 031 = Locked
Text Symbol: 032 = not permitted
Text Symbol: 100 = Rental agreements
Text Symbol: FET = List of errors
INCLUDE RFVICNSV.
INCLUDE RFVICNGP.
No SAP DATABASE tables are accessed within this REPORT code!
STATUS_MAINTAIN CALL FUNCTION 'STATUS_MAINTAIN' EXPORTING DISPLAY_ONLY = 'X' OBJNR = TAB-J_OBJNR SUBSCREEN_EXT = DYNNR SUBSCREEN_PROG_EXT = REPID EXCEPTIONS OBJECT_NOT_FOUND = 1 OTHERS = 2.
POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING DEFAULTOPTION = 'Y' TEXTLINE1 = TEXT-020 "Daten wurden verändert TEXTLINE2 = TEXT-021 "zuerst sichern ? TITEL = TEXT-022 "Beenden IMPORTING ANSWER = FLAG.
REAL_ESTATE_PARTNER_DATA_READ CALL FUNCTION 'REAL_ESTATE_PARTNER_DATA_READ' EXPORTING I1_ROLETYP = CON_ROLETYP-HAUPTMIETER I1_SOBJEKT = MV_INTRENO I1_SNUMOBJ = CON_SNUMOBJ-IMMO * i2_partnr = partnr I_LINES = 1 I_DATE = SY-DATUM * i_bukrs = bukrs I_KZ_NO_ADDRESS = 'X' IMPORTING E_ADRS = ADRS EXCEPTIONS ADDRESS_NOT_FOUND = 1 PARTNER_NOT_FOUND = 2 UNKNOWN_ERROR = 3 PARTNER_RELATION_NOT_FOUND = 4 OTHERS = 5.
STATUS_READ CALL FUNCTION 'STATUS_READ' EXPORTING OBJNR = TAB-J_OBJNR TABLES STATUS = STATTAB EXCEPTIONS OBJECT_NOT_FOUND = 1 OTHERS = 2.
STATUS_TEXT_EDIT CALL FUNCTION 'STATUS_TEXT_EDIT' EXPORTING OBJNR = TAB-J_OBJNR SPRAS = SY-LANGU IMPORTING LINE = TAB-STATUS E_STSMA = TAB-STAT EXCEPTIONS OBJECT_NOT_FOUND = 1 OTHERS = 2.
FVST_STATUS_CHECK_AND_SET CALL FUNCTION 'FVST_STATUS_CHECK_AND_SET' EXPORTING RFVSTIMP = LOC_RFVSTIMP IMPORTING CHANGE_FLAG = LOC_CHANGE_FLAG WARNING_OCCURED = KZ_WARNING EXCEPTIONS OTHERS = 01.
IMKEY_TO_INTRENO_WRITE CALL FUNCTION 'IMKEY_TO_INTRENO_WRITE' EXPORTING I_INTRENO = TAB-INTRENO I_BUKRS = TAB-BUKRS I_SWENR = TAB-SWENR I_SMENR = TAB-SMENR I_SMIVE = TAB-SMIVE I_J_OBJNR = TAB-J_OBJNR CHANGING C_IMKEY = IMKEY EXCEPTIONS NO_ACCOUNTING_ALLOWED = 3 "ignorieren OTHERS = 4.
ENQUEUE_EFIMIVE CALL FUNCTION 'ENQUEUE_EFIMIVE' EXPORTING BUKRS = BUKRS SMIVE = SMIVE SWENR = SWENR SMENR = SMENR EXCEPTIONS FOREIGN_LOCK = 1 SYSTEM_FAILURE = 2 OTHERS = 3.
RENTAGREEM_SINGLEREAD CALL FUNCTION 'RENTAGREEM_SINGLEREAD' EXPORTING iv_bukrs = bukrs iv_smive = smive IV_BYPASSING_BUFFER = 'X' IMPORTING ES_VIMIMV = par_e_vimimv EXCEPTIONS NOT_FOUND = 1 PARAMETER_ERROR = 2 OTHERS = 3.
DEQUEUE_ALL CALL FUNCTION 'DEQUEUE_ALL'.
MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE' EXPORTING COLLECT_AND_SEND = ' ' RESET = 'X'.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = MSG_ID MSGTY = MSG_TYP MSGV1 = PAR_1 MSGV2 = PAR_2 MSGV3 = PAR_3 MSGV4 = PAR_4 TXTNR = MSG_NR ZEILE = ZEILE_MSG EXCEPTIONS MESSAGE_TYPE_NOT_VALID = 01 NOT_ACTIVE = 02.
MESSAGES_SHOW CALL FUNCTION 'MESSAGES_SHOW' EXPORTING OBJECT = TXT SHOW_LINNO = 'X' EXCEPTIONS INCONSISTENT_RANGE = 01 NO_MESSAGES = 02.
FVAU_AUTHORITY_CHECK CALL FUNCTION 'FVAU_AUTHORITY_CHECK' EXPORTING OBJECT = AUTH_OBJECT AUTHPAR = AUTHPAR EXCEPTIONS NO_AUTHORITY = 1 INVALID_OBJECT = 2 OTHERS = 3.
FVAU_AUTHORITY_CHECK CALL FUNCTION 'FVAU_AUTHORITY_CHECK' EXPORTING OBJECT = CON_AUTH_OBJ_BUK AUTHPAR = AUTHPAR EXCEPTIONS NO_AUTHORITY = 1 INVALID_OBJECT = 2 OTHERS = 3.
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.
RFVIMIFR - Set Lease-Outs Deletion Flag RFVIMIFR - Set Lease-Outs Deletion Flag RFVIMI02 - Correspondence - Print Rent Adjustment for Index-Linked Rental Agrmnt RFVIMI02 - Correspondence - Print Rent Adjustment for Index-Linked Rental Agrmnt RFVIMI01 - Rent Adjustment for Index-Linked Lease-Out: Correspondence RFVIMI01 - Rent Adjustment for Index-Linked Lease-Out: Correspondence