代码实例 DATA lv_char TYPE c LENGTH 24.
DATA lt_prps TYPE STANDARD TABLE OF prps.
TYPES:BEGIN OF typ_prps,
pspnr TYPE prps-pspnr,
posid TYPE prps-posid_edit,
END OF typ_prps.
DATA: lt_tmp TYPE STANDARD TABLE OF typ_prps,
ls_tmp TYPE typ_prps.
SELECT *
INTO TABLE @lt_prps
FROM prps
UP TO 10 ROWS.
WRITE:/ '内码转外码------>'.
LOOP AT lt_prps ASSIGNING FIELD-SYMBOL(<fs_prps>).
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
EXPORTING
input = <fs_prps>-pspnr
IMPORTING
output = lv_char.
WRITE:/ |内码:{ <fs_prps>-pspnr } 外码:{ lv_char } |.
* ls_tmp-pspnr = <fs_prps>-pspnr.
* ls_tmp-posid = lv_char.
* APPEND ls_tmp TO lt_tmp.
lt_tmp = VALUE #( BASE lt_tmp
( pspnr = <fs_prps>-pspnr
posid = lv_char )
).
CLEAR lv_char.
ENDLOOP.
WRITE:/ '外码转内码------>'.
LOOP AT lt_tmp ASSIGNING FIELD-SYMBOL(<fs_tmp>).
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_INPUT'
EXPORTING
input = <fs_tmp>-posid
IMPORTING
output = lv_char.
WRITE:/ |外码:{ <fs_tmp>-posid } 内码:{ lv_char } |.
CLEAR lv_char.
ENDLOOP.