ABAP 排序自动累加 26个字母

用了宏，规则可以自己定义

METHOD set_plnal.

DATA:lv_plnal TYPE plnal.
DATA:lv_num2 TYPE num2.
DATA:lt_char1 TYPE TABLE OF char1.
DATA:lv_char1 TYPE char1.
DATA:lv_index TYPE i.
DATA:lv_f_c TYPE char1.
DATA:lv_s_c TYPE char1.

DEFINE add_c.
append &1 to lt_char1.
END-OF-DEFINITION.

add_c:‘0’,‘1’,‘2’,‘3’,‘4’,‘5’,‘6’,‘7’,‘8’,‘9’,‘A’,‘B’,‘C’,‘D’,‘E’,‘F’,‘G’,‘H’,‘I’,‘J’,‘K’,‘L’,‘M’,‘N’,‘O’,‘P’,‘Q’,‘R’,
‘S’,‘T’,‘U’,‘V’,‘W’,‘X’,‘Y’,‘Z’.

• SELECT SINGLE MAX( plnal ) INTO ev_plnal FROM plas WHERE plnnr = iv_plnnr.

  SELECT SINGLE MAX( plnal ) INTO ev_plnal FROM plko WHERE plnnr = iv_plnnr.

  IF sy-subrc <> 0.
  RETURN.
  ENDIF.

  IF ev_plnal CO ‘0123456789’.

  IF ev_plnal = ‘99’.

•  ev_plnal = 'A' && '0'.
  ev_plnal = 'A0'.
  

  ELSE.

  lv_num2 = ev_plnal.
  
  ev_plnal = lv_num2 + 1.
  

  ENDIF.

  ELSE.

  lv_s_c = ev_plnal+1(1).
  lv_f_c = ev_plnal+0(1).

  READ TABLE lt_char1 TRANSPORTING NO FIELDS WITH KEY table_line = lv_s_c BINARY SEARCH.

  IF sy-tabix = ‘36’.

  READ TABLE lt_char1 TRANSPORTING NO FIELDS WITH  KEY table_line = lv_f_c BINARY SEARCH.
  
  lv_index = sy-tabix + 1.
  
  READ TABLE lt_char1 INTO lv_char1 INDEX lv_index.
  
  ev_plnal+0(1) = lv_char1.
  
  IF lv_char1 CO  '0123456789'.
    ev_plnal+1(1) = 'A'.
  ELSE.
    ev_plnal+1(1) = '0'.
  ENDIF.
  

  ELSE.
  lv_index = sy-tabix + 1.

  READ TABLE lt_char1 INTO lv_char1 INDEX lv_index.
  
  ev_plnal+1(1) = lv_char1.
  

  ENDIF.

  ENDIF.

ENDMETHOD.