大發現家

Function  'CONVERSION_EXIT_ALPHA_INPUT'

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      INPUT = tex
    IMPORTING
      OUTPUT = tex.

Input : Char

Output : Char

結果：

tex : 6  ---->  tex : 0006

 

方法二. 

UNPACK '6' TO tex.

 結果：

tex : 6  ---->  tex : 00006

 

˙去零

SHIFT tex LEFT DELETING LEADING '0'.

結果：

 tex : 00006  ---->  tex : 6

格式：

SHIFT dobj 
[{BY num PLACES} | {UP TO sub_string}]
[LEFT|RIGHT] [CIRCULAR].

SHIFT dobj
{LEFT DELETING LEADING} | {RIGHT DELETING TRAILING} pattern. 
[IN {BYTE|CHARACTER} MODE].

 

來源：

ㄚ咪的幸福收納盒