ABAP get next charactor according to input charactor

*&---------------------------------------------------------------------*
*& Report  ZTEST_BOBO
*&
*&---------------------------------------------------------------------*
*& 翱翔云天作品
*& www.abaptech.com
*&---------------------------------------------------------------------*
 
REPORT  ztest_bobo NO STANDARD PAGE HEADING.
 
PARAMETERS: p_input TYPE vbtyp_n.
 
DATA: str   TYPE string ,
      xstr  TYPE xstring,
      l_con TYPE REF TO cl_rpe_convert .  " ASCII转换对象
 
START-OF-SELECTION.
*1. 创建对象
  CREATE OBJECT l_con.
*2. 类型转换
  str = p_input.
*3. 取得输入字符的ASCII码
  CALL METHOD l_con->string_to_xstring
    EXPORTING
      input  = str
    IMPORTING
      output = xstr.
*4. 特殊处理z以及Z
  case p_input.
    when 'Z' or 'z'.
      xstr = xstr - 25.
    when OTHERS.
      xstr = xstr + 1.
  endcase.
 
*5. 转换回来
  CALL METHOD l_con->xstring_to_string
    EXPORTING
      input  = xstr
    IMPORTING
      output = str.
  WRITE / :   str.