EXIT_SAPLWLB3_003 SAP Function module - User Exit for Determining Timepoints for the Actual Vendor Service Level

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

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

Pattern for FM EXIT_SAPLWLB3_003 - EXIT SAPLWLB3 003

CALL FUNCTION 'EXIT_SAPLWLB3_003' "User Exit for Determining Timepoints for the Actual Vendor Service Level
  EXPORTING
    i_lifnr =                   " lfa1-lifnr    Vendor
    i_werks =                   " t001w-werks   Plant
    i_fabkl =                   " tfacd-ident   Factory Calendar of Plant (T001W-FABKL)
    i_current_date =            " sy-datum      Current Date
    i_current_time =            " sy-uzeit      Current Time
    i_first_of_couple =         " wvlbt_s_wlb3_lb_couples_type  First Component of Current LB Combination
  CHANGING
    ch_today_0 =                " sy-datlo      Date for Timepoint Today
    ch_today_1 =                " sy-datlo      Date for Timepoint Tomorrow
    ch_today_2 =                " sy-datlo      Date for Timepoint Day after Tomorrow
    ch_fkday_t0 =               " mdcal-fkday   Factory Calendar Day for Today
    ch_fkday_t1 =               " mdcal-fkday   Factory Calendar Day for Tomorrow
    ch_fkday_t2 =               " mdcal-fkday   Factory Calendar Day for Day after Tomorrow
  EXCEPTIONS
    ERROR = 1                   "               Error with Error Message
    .  "  EXIT_SAPLWLB3_003

ABAP code example for Function Module EXIT_SAPLWLB3_003

The ABAP code below is a full code listing to execute function module EXIT_SAPLWLB3_003 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(ld_ch_today_0) = '20210129'.

DATA(ld_ch_today_1) = '20210129'.

DATA(ld_ch_today_2) = '20210129'.


DATA(ld_ch_fkday_t0) = Check type of data required


DATA(ld_ch_fkday_t1) = Check type of data required


DATA(ld_ch_fkday_t2) = Check type of data required
 

SELECT single LIFNR 
  FROM LFA1 
  INTO @DATA(ld_i_lifnr).

 

SELECT single WERKS 
  FROM T001W 
  INTO @DATA(ld_i_werks).

 

SELECT single IDENT 
  FROM TFACD 
  INTO @DATA(ld_i_fabkl).


DATA(ld_i_current_date) = '20210129'.

DATA(ld_i_current_time) = 'Check type of data required'.

DATA(ld_i_first_of_couple) = 'Check type of data required'.
.

CALL FUNCTION 'EXIT_SAPLWLB3_003'
  EXPORTING
    i_lifnr =                    ld_i_lifnr
    i_werks =                    ld_i_werks
    i_fabkl =                    ld_i_fabkl
    i_current_date =             ld_i_current_date
    i_current_time =             ld_i_current_time
    i_first_of_couple =          ld_i_first_of_couple
  CHANGING
    ch_today_0 =                 ld_ch_today_0
    ch_today_1 =                 ld_ch_today_1
    ch_today_2 =                 ld_ch_today_2
    ch_fkday_t0 =                ld_ch_fkday_t0
    ch_fkday_t1 =                ld_ch_fkday_t1
    ch_fkday_t2 =                ld_ch_fkday_t2
  EXCEPTIONS
    ERROR =                      1
    .  "  EXIT_SAPLWLB3_003

IF SY-SUBRC EQ 0.
  "All OK
ELSEIF SY-SUBRC EQ 1. "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_ch_today_0
 
 TYPE SY-DATLO ,
ld_i_lifnr
 
 TYPE LFA1-LIFNR ,
ld_ch_today_1
 
 TYPE SY-DATLO ,
ld_i_werks
 
 TYPE T001W-WERKS ,
ld_ch_today_2
 
 TYPE SY-DATLO ,
ld_i_fabkl
 
 TYPE TFACD-IDENT ,
ld_ch_fkday_t0
 
 TYPE MDCAL-FKDAY ,
ld_i_current_date
 
 TYPE SY-DATUM ,
ld_ch_fkday_t1
 
 TYPE MDCAL-FKDAY ,
ld_i_current_time
 
 TYPE SY-UZEIT ,
ld_ch_fkday_t2
 
 TYPE MDCAL-FKDAY ,
ld_i_first_of_couple
 
 TYPE WVLBT_S_WLB3_LB_COUPLES_TYPE .


ld_ch_today_0 = '20210129'.

SELECT single LIFNR 
  FROM LFA1 
  INTO ld_i_lifnr.

ld_ch_today_1 = '20210129'.

SELECT single WERKS 
  FROM T001W 
  INTO ld_i_werks.

ld_ch_today_2 = '20210129'.

SELECT single IDENT 
  FROM TFACD 
  INTO ld_i_fabkl.


ld_ch_fkday_t0 = Check type of data required
ld_i_current_date = '20210129'.

ld_ch_fkday_t1 = Check type of data required
ld_i_current_time = 'Check type of data required'.

ld_ch_fkday_t2 = Check type of data required
ld_i_first_of_couple = 'Check type of data required'.