ISP_REPLACED_VAS_GET SAP Function module

ISP_REPLACED_VAS_GET is a standard SAP function module available within R/3 SAP systems depending on your version and release level. Below is the pattern details for this FM showing its interface including any import and export parameters, exceptions etc as well as any documentation contributions (Comments) specific to the object.

See here to view full function module documentation and code listing, simply by entering the name ISP_REPLACED_VAS_GET into the relevant SAP transaction such as SE37 or SE80.

Associated Function Group: JD01
Released Date: Not Released
Processing type: Normal fucntion module

Pattern for FM ISP_REPLACED_VAS_GET - ISP REPLACED VAS GET

CALL FUNCTION 'ISP_REPLACED_VAS_GET' "
  EXPORTING
*   beztyp = '  '               " jdtbzus-beztyp
*   from_date = 00000000        " jdtvausgb-erschdat
*   replaced_drerz = '        '  " jdtbzus-drertr
*   replaced_pva = '        '   " jdtbzus-pvatra
    replacing_drerz =           " jdtbzus-drermt
    replacing_pva =             " jdtbzus-pvamit
*   to_date = 00000000          " jdtvausgb-erschdat
* TABLES
*   replaced_issues =           " rjd05ersva
*   replacements =              " jdtbzus
  EXCEPTIONS
    INPUT_ERROR = 1             "
    INTERNAL_ERROR = 2          "
    NO_ENTRY_FOUND = 3          "
    .  "  ISP_REPLACED_VAS_GET

ABAP code example for Function Module ISP_REPLACED_VAS_GET

The ABAP code below is a full code listing to execute function module ISP_REPLACED_VAS_GET including all data declarations. The code uses the latest in-line data DECLARATION SYNTAX but I have included an ABAP code snippet at the end to show how declarations would look using the original method of declaring data variables up front. This will allow you to compare and fully understand the new inline method. Please note some of the newer syntax such as the @DATA is not available until a later 4.70 service pack (SP8).

DATA:
it_replaced_issues  
 
 TYPE STANDARD TABLE OF RJD05ERSVA,"TABLES PARAM
wa_replaced_issues
 
 LIKE LINE OF it_replaced_issues
,
it_replacements  
 
 TYPE STANDARD TABLE OF JDTBZUS,"TABLES PARAM
wa_replacements
 
 LIKE LINE OF it_replacements
.

 

SELECT single BEZTYP 
  FROM JDTBZUS 
  INTO @DATA(ld_beztyp).

 

SELECT single ERSCHDAT 
  FROM JDTVAUSGB 
  INTO @DATA(ld_from_date).

 

SELECT single DRERTR 
  FROM JDTBZUS 
  INTO @DATA(ld_replaced_drerz).

 

SELECT single PVATRA 
  FROM JDTBZUS 
  INTO @DATA(ld_replaced_pva).

 

SELECT single DRERMT 
  FROM JDTBZUS 
  INTO @DATA(ld_replacing_drerz).

 

SELECT single PVAMIT 
  FROM JDTBZUS 
  INTO @DATA(ld_replacing_pva).

 

SELECT single ERSCHDAT 
  FROM JDTVAUSGB 
  INTO @DATA(ld_to_date).

 

"populate fields of struture and append to itab
append wa_replaced_issues to it_replaced_issues.
 

"populate fields of struture and append to itab
append wa_replacements to it_replacements.
.

CALL FUNCTION 'ISP_REPLACED_VAS_GET'
  EXPORTING
*   beztyp =                     ld_beztyp
*   from_date =                  ld_from_date
*   replaced_drerz =             ld_replaced_drerz
*   replaced_pva =               ld_replaced_pva
    replacing_drerz =            ld_replacing_drerz
    replacing_pva =              ld_replacing_pva
*   to_date =                    ld_to_date
* TABLES
*   replaced_issues =            it_replaced_issues
*   replacements =               it_replacements
  EXCEPTIONS
    INPUT_ERROR =                1
    INTERNAL_ERROR =             2
    NO_ENTRY_FOUND =             3
    .  "  ISP_REPLACED_VAS_GET

IF SY-SUBRC EQ 0.
  "All OK
ELSEIF SY-SUBRC EQ 1. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 2. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 3. "Exception
  "Add code for exception here
ENDIF.

ABAP code to compare 7.40 inline data declaration with original syntax

The below ABAP code uses the older none in-line data declarations. This allows you to see the coding differences/benefits of the later inline syntax. It may also be useful if you are using an older version of SAP as some of the newer syntax above, such as the @DATA is not available until 4.70 EHP 8.

DATA:

ld_beztyp
 
 TYPE JDTBZUS-BEZTYP ,
it_replaced_issues
 
 TYPE STANDARD TABLE OF RJD05ERSVA ,
wa_replaced_issues
 
 LIKE LINE OF it_replaced_issues,
ld_from_date
 
 TYPE JDTVAUSGB-ERSCHDAT ,
it_replacements
 
 TYPE STANDARD TABLE OF JDTBZUS ,
wa_replacements
 
 LIKE LINE OF it_replacements,
ld_replaced_drerz
 
 TYPE JDTBZUS-DRERTR ,
ld_replaced_pva
 
 TYPE JDTBZUS-PVATRA ,
ld_replacing_drerz
 
 TYPE JDTBZUS-DRERMT ,
ld_replacing_pva
 
 TYPE JDTBZUS-PVAMIT ,
ld_to_date
 
 TYPE JDTVAUSGB-ERSCHDAT .



SELECT single BEZTYP 
  FROM JDTBZUS 
  INTO ld_beztyp.
 

"populate fields of struture and append to itab
append wa_replaced_issues to it_replaced_issues.

SELECT single ERSCHDAT 
  FROM JDTVAUSGB 
  INTO ld_from_date.
 

"populate fields of struture and append to itab
append wa_replacements to it_replacements.

SELECT single DRERTR 
  FROM JDTBZUS 
  INTO ld_replaced_drerz.


SELECT single PVATRA 
  FROM JDTBZUS 
  INTO ld_replaced_pva.


SELECT single DRERMT 
  FROM JDTBZUS 
  INTO ld_replacing_drerz.


SELECT single PVAMIT 
  FROM JDTBZUS 
  INTO ld_replacing_pva.


SELECT single ERSCHDAT 
  FROM JDTVAUSGB 
  INTO ld_to_date.