FUNCTION ZRFC_WMS_COMM.
*"----------------------------------------------------------------------
*"*"LOCAL INTERFACE:
*"----------------------------------------------------------------------
WRITE 'ZRFC_WMS_COMM'.
ENDFUNCTION.
INCLUDE BDCRECXY.
*&---------------------------------------------------------------------*
*& FORM F_ADD_ZERO
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
* -->VI_INPUT TEXT
*----------------------------------------------------------------------*
FORM F_ADD_ZERO USING VI_INPUT.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = VI_INPUT
IMPORTING
OUTPUT = VI_INPUT.
ENDFORM. " F_ADD_ZERO
*&---------------------------------------------------------------------*
*& FORM F_CUT_ZERO
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
* -->VI_OUTPUT TEXT
*----------------------------------------------------------------------*
FORM F_CUT_ZERO USING VI_OUTPUT .
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
INPUT = VI_OUTPUT
IMPORTING
OUTPUT = VI_OUTPUT.
ENDFORM. "F_CUT_ZERO
*&---------------------------------------------------------------------*
*& FORM F_UNIT_IN
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
* -->UNIT_IN TEXT
* -->UNIT_OU TEXT
*----------------------------------------------------------------------*
FORM F_UNIT_IN USING UNIT_IN CHANGING UNIT_OUT.
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'
EXPORTING
INPUT = UNIT_IN
LANGUAGE = SY-LANGU
IMPORTING
OUTPUT = UNIT_OUT
EXCEPTIONS
UNIT_NOT_FOUND = 1
OTHERS = 2.
ENDFORM. " F_UNIT_IN