[SAP/ABAP] 알파벳을 숫자로/ 숫자를 알파벳으로 변환 alphabets to numbers

parameter p_char type c.
data w_pos type i.
find p_char in sy-abcde MATCH OFFSET w_pos.
if sy-subrc = 0.
add 1 to w_pos.
write w_pos.
endif.

위와 같은 로직도있고.. 순서대로가 아닐경우에는 아래와 같이 로직을 작성할 수 있다

  DATA : LV_ORIGINAL_CHAR(15),
         LV_CHAR(1),
         LV_NUM(1).
         LV_INDEX TYPE I .

  DO 14 TIMES.
    LV_INDEX = SY-INDEX - 1.
    CLEAR : LV_CHAR, LV_NUM.
    LV_CHAR =  LV_ORIGINAL_CHAR+LV_INDEX(1).
      PERFORM CONVERT_ALPHA_TO_NUM USING LV_CHAR CHANGING LV_NUM.
     LV_ORIGINAL_CHAR+LV_INDEX(1) = LV_NUM.
  ENDDO.

FORM CONVERT_ALPHA_TO_NUM  USING  IV_CHAR
                           CHANGING IV_NUM.

  CASE IV_CHAR.
    WHEN 'A'.
      IV_NUM = '1'.

    WHEN 'B' OR 'C' OR  'D'.
      IV_NUM = '2'.

    WHEN 'E' OR 'F' OR  'G'.
      IV_NUM = '3'.

    WHEN OTHERS.
      IV_NUM = IV_CHAR.
  ENDCASE.

ENDFORM.