WMS函数组: 4.公用子过程

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