CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
EXPORTING
CORRECT_OPTION = '+'
DATE = WA_OUTPUT-VALUT
FACTORY_CALENDAR_ID = 'JP'
IMPORTING
* DATE =
* FACTORYDATE =
WORKINGDAY_INDICATOR = L_WK_FLG
EXCEPTIONS
CALENDAR_BUFFER_NOT_LOADABLE = 1
CORRECT_OPTION_INVALID = 2
DATE_AFTER_RANGE = 3
DATE_BEFORE_RANGE = 4
DATE_INVALID = 5
FACTORY_CALENDAR_NOT_FOUND = 6
OTHERS = 7.
* IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
* ENDIF.
IF L_WK_FLG = '+'.
MESSAGE E063(61) WITH 'JP'.
ENDIF.
EXPORTING
CORRECT_OPTION = '+'
DATE = WA_OUTPUT-VALUT
FACTORY_CALENDAR_ID = 'JP'
IMPORTING
* DATE =
* FACTORYDATE =
WORKINGDAY_INDICATOR = L_WK_FLG
EXCEPTIONS
CALENDAR_BUFFER_NOT_LOADABLE = 1
CORRECT_OPTION_INVALID = 2
DATE_AFTER_RANGE = 3
DATE_BEFORE_RANGE = 4
DATE_INVALID = 5
FACTORY_CALENDAR_NOT_FOUND = 6
OTHERS = 7.
* IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
* ENDIF.
IF L_WK_FLG = '+'.
MESSAGE E063(61) WITH 'JP'.
ENDIF.