How to Remove Leading Zero in ABAP

Problem :
Format numbering seperti material number atau cost element number terkadang memiliki 'kelebihan' angka '0' di depannya. Terkadang user ingin saat ditampilkan di laporan tanpa adanya leading zero. Seperti contoh di bawah ini, cost element masih memiliki leading zero '000'.

Solution.
Ada beberapa cara untuk menghilangkan leading zero (angka '0' di depan sebuah nomor ), namun yang paling umum digunakan adalah :

1. Call FM : CONVERSION_EXIT_ALPHA_OUTPUT
2. SHIFT n LEFT DELETING LEADING '0' 

Example :

1:  PROGRAM ztest18 NO STANDARD PAGE HEADING.  
2:    
3:  DATA : gv_kstar(10) VALUE '0007501101',  
4:      gv_result1(10),  
5:      gv_result2(10).  
6:    
7:  "convert using FM, store in gv_result1  
8:  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'  
9:   EXPORTING  
10:    input = gv_kstar  
11:   IMPORTING  
12:    output = gv_result1.  
13:    
14:  "Using shift store in gv_result2  
15:  gv_result2 = gv_kstar.  
16:  SHIFT gv_result2 LEFT DELETING LEADING '0'.  
17:    
18:  "Display  
19:  WRITE : / 'Original number : ', gv_kstar.  
20:  WRITE : / 'Hasil menggunakan FM : ', gv_result1.  
21:  WRITE : / 'Hasil menggunakan SHIFT : ', gv_result2.  

Display hasil :

Good luck.