Realize ABCD letter increment

Because we need to fill excel. It's troublesome to write one column by one .

If you want to use an increment directly .

The principle is to turn into asc After code   Just increase .

as for A How much is equal to B, Direct use   B = A + （ B -  A ）  This is it .

• 
  
• 
  

Log in and copy

      
      

       
       FUNCTION*"----------------------------------------------------------------------*"*" Local interface ：*"*"     VALUE(IV_START_LETTER) TYPE  CHAR1 OPTIONAL*"*"     REFERENCE(EV_NEXT) TYPE  CHAR1*"----------------------------------------------------------------------*&  Manong dry goods shop  sapliumeng
       
       
DATA:lettera  TYPE char1 VALUE 'A'.DATA:letterb  TYPE char1 VALUE 'B'.
       
       
  FIELD-SYMBOLS: <fs_start> TYPE x.  FIELD-SYMBOLS: <fs_next> TYPE x.  FIELD-SYMBOLS: <fs_xa> TYPE x.  FIELD-SYMBOLS: <fs_xb> TYPE x.
       
       

       
       
IF    gv_start_letter = iv_start_letter.  ENDIF.
       
       
IF'A'.
       
       
'A'.  ELSE."    ASSIGN ev_next         TO <fs_next>  CASTING. "
       
       
"    ASSIGN letterb TO <fs_xb> CASTING. "
       
       
    <fs_next> =  <fs_start> + ( <fs_xb> - <fs_xa> ).
       
       
  ENDIF.  gv_start_letter = ev_next.
       
       
ENDFUNCTION.
      
      
      
      

       
       
1.
       
       
2.
       
       
3.
       
       
4.
       
       
5.
       
       
6.
       
       
7.
       
       
8.
       
       
9.
       
       
10.
       
       
11.
      
      

Used a global variable

• 
  
• 
  
• 
  
• 
  

Log in and copy

      
      

       
       DATA lv TYPE char1.
       
       
DO 26 TIMES.CALL FUNCTION 'ZLM_GET_NEXT_LETTER'IMPORTINGev_next = lv.WRITE lv.ENDDO.
      
      
      
      

       
       
1.
       
       
2.
      
      

as for 26 After column , Do it yourself , I have enough for the time being .