ABAP ALPHA conversion

 *&---------------------------------------------------------------------*
*& Report  Z_CONVERT_NUM_STRING
*&
*&---------------------------------------------------------------------*
*& 
*&
*&---------------------------------------------------------------------*

REPORT  z_convert_num_string.

DATAinput TYPE n LENGTH 5,
      output TYPE string.


input = 123.

*-----------------------------------------------------------------------------*
*Short Text
*Conversion exit ALPHA, external->internal
*
*ALPHA conversion is used especially with account numbers.
*During conversion from the external to the internal format,
*the system checks to see if input in the INPUT field is purely numeric,
*that is, if this input consists only of numbers,
*possibly with spaces before and after them. If this is the case,
*then the number string is inserted right-justified in the display field OUTPUT
*and all spaces to the left of the value are filled with zeroes ('0').
*If the input is not purely numeric, it is inserted in the display field from left to right
*and all extra spaces are filled with blanks.
*
*Example:
*
*(Input field and output field are both eight characters in length)
*
*1. '1234    ' --> '00001234'
*2. 'ABCD    ' --> 'ABCD    '
*3. ' 1234   ' --> '00001234'
*
*Conversion from the internal to the external format
*(function module CONVERSION_EXIT_ALPHA_OUTPUT) is undertaken in exactly the opposite manner.
*-------------------------------------------------------------------------------*


CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    input  = input
  IMPORTING
    output = output.

WRITE: / 'From external to internal format:'output.

CLEARINPUTOUTPUT.
INPUT = 00024.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input  = input
  IMPORTING
    output = output.

WRITE: / 'From internal to external format:'output.

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章