ISP_SIMULATE_SUBSCRIPT_A_DAY_B SAP Function module - IS-M/SD: Simulate Edition Purchase on 1st Day in Buffer

ISP_SIMULATE_SUBSCRIPT_A_DAY_B 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_SIMULATE_SUBSCRIPT_A_DAY_B into the relevant SAP transaction such as SE37 or SE80.

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

Pattern for FM ISP_SIMULATE_SUBSCRIPT_A_DAY_B - ISP SIMULATE SUBSCRIPT A DAY B

CALL FUNCTION 'ISP_SIMULATE_SUBSCRIPT_A_DAY_B' "IS-M/SD: Simulate Edition Purchase on 1st Day in Buffer
  EXPORTING
    date_to_check =             " sy-datum
    jkap_bezugstyp =            " jkap-bezugstyp
    jkap_drerz =                " jkap-drerz
    jkap_pva =                  " jkap-pva
    jkep_bezper =               " jkep-bezper
*   incl_mitbezogene_vas = 'X'  " jdbz_relevance
  TABLES
    va_tab =                    " rjk0206
    bezper_tab =                " rjk0208
  EXCEPTIONS
    INTERNAL_ERROR = 1          "               Internal Error
    INPUT_NOT_CORRECT = 2       "
    .  "  ISP_SIMULATE_SUBSCRIPT_A_DAY_B

ABAP code example for Function Module ISP_SIMULATE_SUBSCRIPT_A_DAY_B

The ABAP code below is a full code listing to execute function module ISP_SIMULATE_SUBSCRIPT_A_DAY_B 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_va_tab  
 
 TYPE STANDARD TABLE OF RJK0206,"TABLES PARAM
wa_va_tab
 
 LIKE LINE OF it_va_tab
,
it_bezper_tab  
 
 TYPE STANDARD TABLE OF RJK0208,"TABLES PARAM
wa_bezper_tab
 
 LIKE LINE OF it_bezper_tab
.


DATA(ld_date_to_check) = '20210129'.
 

SELECT single BEZUGSTYP 
  FROM JKAP 
  INTO @DATA(ld_jkap_bezugstyp).

 

SELECT single DRERZ 
  FROM JKAP 
  INTO @DATA(ld_jkap_drerz).

 

SELECT single PVA 
  FROM JKAP 
  INTO @DATA(ld_jkap_pva).

 

SELECT single BEZPER 
  FROM JKEP 
  INTO @DATA(ld_jkep_bezper).


DATA(ld_incl_mitbezogene_vas) = '20210129'.
 

"populate fields of struture and append to itab
append wa_va_tab to it_va_tab.
 

"populate fields of struture and append to itab
append wa_bezper_tab to it_bezper_tab.
.

CALL FUNCTION 'ISP_SIMULATE_SUBSCRIPT_A_DAY_B'
  EXPORTING
    date_to_check =              ld_date_to_check
    jkap_bezugstyp =             ld_jkap_bezugstyp
    jkap_drerz =                 ld_jkap_drerz
    jkap_pva =                   ld_jkap_pva
    jkep_bezper =                ld_jkep_bezper
*   incl_mitbezogene_vas =       ld_incl_mitbezogene_vas
  TABLES
    va_tab =                     it_va_tab
    bezper_tab =                 it_bezper_tab
  EXCEPTIONS
    INTERNAL_ERROR =             1
    INPUT_NOT_CORRECT =          2
    .  "  ISP_SIMULATE_SUBSCRIPT_A_DAY_B

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
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_date_to_check
 
 TYPE SY-DATUM ,
it_va_tab
 
 TYPE STANDARD TABLE OF RJK0206 ,
wa_va_tab
 
 LIKE LINE OF it_va_tab,
ld_jkap_bezugstyp
 
 TYPE JKAP-BEZUGSTYP ,
it_bezper_tab
 
 TYPE STANDARD TABLE OF RJK0208 ,
wa_bezper_tab
 
 LIKE LINE OF it_bezper_tab,
ld_jkap_drerz
 
 TYPE JKAP-DRERZ ,
ld_jkap_pva
 
 TYPE JKAP-PVA ,
ld_jkep_bezper
 
 TYPE JKEP-BEZPER ,
ld_incl_mitbezogene_vas
 
 TYPE JDBZ_RELEVANCE .


ld_date_to_check = '20210129'. 

"populate fields of struture and append to itab
append wa_va_tab to it_va_tab.

SELECT single BEZUGSTYP 
  FROM JKAP 
  INTO ld_jkap_bezugstyp.
 

"populate fields of struture and append to itab
append wa_bezper_tab to it_bezper_tab.

SELECT single DRERZ 
  FROM JKAP 
  INTO ld_jkap_drerz.


SELECT single PVA 
  FROM JKAP 
  INTO ld_jkap_pva.


SELECT single BEZPER 
  FROM JKEP 
  INTO ld_jkep_bezper.

ld_incl_mitbezogene_vas = '20210129'.