Sapass

 Simplify SAP R/3 development with Excel VBA/VB RFC  
Home> UserExit>ALTD0001



Index

ALTD0001

User Exit for Legacy Data Transfer
The program (RAALTD11) for the direct import of data from your legacy system carries out the checks that are most essential for legacy data transfer.

You can provide your own additional checks using this SAP enhancement.

Activities

  • Activate the project ALTD0001 using the function Project management of SAP enhancements (CMOD).
  • Modify function module EXIT_RAALTD11_001 to your individual needs.

Parameters

Function module EXIT_RAALTD11_001 offers the following parameters for additional checks on the consistency of data:

  • I_ANLA - Asset master record segment
  • I_ANLV - Insurance data
  • I_ANLZ - Valuated asset allocations

The information that you can convey to the legacy data transfer program corresponds to the general transmission of messages.

  • If the error indicator is in the initial position (E_ANFMKZ) then no further processing is carried out.
  • You should use the error indicator 'E' for the situation when the error means that the asset is not transferred.
  • All other possible values for the error indicator ('W', 'I') are for informational purposes only. You can make further limitations by entering the attribute for the message (E_ARGBG) and the message number that belongs to it (E_MSGNR) as well as the four variables (E_ANFMV1 to E_ANFMV4).

All the messages that are generated in the transfer program are listed and included in the general log at the end of the transfer. By selecting a message in the log, you can go directly to the long text for the message.

There is an example for a check for correct evaluation groups in function module EXIT_RAALTD11_001. You should adapt this function module to your individual needs.

This function module also already contains the include ZXAFAU01. You must supply this include with the program flows that you need for the determination of your individual base values. You must use the specified names in order for the data transferred in the customer function module to be available.

Example

Below is a simple example for how you can set up function module EXIT_SAPLAINT_001:

*---------------------------------------------------------------------*
* INCLUDE ZXALTU01 *
*---------------------------------------------------------------------*
* Check of first evaluation group (ORD41) against the
* allowed entries for it specified in Customizing. If the
* evaluation group transferred is not in the Customizing check
* table, an error message is issued.

TABLES: T087.

* Table of valid evaluation gruops in Configuration menu.
DATA: BEGIN OF ZORD OCCURS 100.
INCLUDE STRUCTURE T087.
DATA: END OF ZORD.

* Index for a line of ZORD.
DATA: L_INDEX LIKE SY-INDEX.

* Key for binary read of table ZORD.
DATA: BEGIN OF KEY_ZORD.
INCLUDE STRUCTURE T087.
DATA: END OF KEY_ZORD.

* Is table ZORD full with data.
* ZORD is only filled first time.
DESCRIBE TABLE ZORD LINES L_INDEX.
IF L_INDEX = 0.
SELECT * FROM T087 INTO TABLE ZORD.
ENDIF.

* Evaluation of first evaluation group.
IF NOT I_ANLA-ORD41 IS INITIAL.
* Fill Key_ZORD.
MOVE SY-MANDT TO KEY_ZORD-MANDT.
MOVE I_ANLA-ORD41 TO KEY_ZORD-ORD4X.
MOVE '1' TO KEY_ZORD-ORDNR.

* Read Table ZORD.
READ TABLE ZORD WITH KEY KEY_ZORD BINARY SEARCH.

* Entry of evaluation group does not exist.
IF SY-SUBRC <> 0.
E_ANFMKZ = 'E'.
E_ARBGB = '00'.
E_MSGNR = '058'.
E_ANFMV1 = SPACE.
E_ANFMV2 = SPACE.
E_ANFMV3 = SPACE.
E_ANFMV4 = SPACE.
*
EXIT.
ENDIF.
ENDIF.

Function/Program:
  • EXIT_RAALTD11_001: Customer Exit for Customer-Specific Checks for Legacy Data Transfer

02-Oct-2005