Adding leading zeros to the display data

Question

hi folks,
I have the character variable of size 9, if I get the value of the variable less than 9, I need to add leading zeros to it accordingly before displaying the numeric value stored in it. I tried to use the 'SHIFT' command for that it did not work out.
here is the code..
         data: len type I,
               amount type C,
               addspace len type I.
          len = strlen( amount ).
          write: ' the length of the string',len.
           if ( len < 9 ).
           addspace = 9 - len.
           write: addspace.
SHIFT amount BY addspace Places LEFT.
Thanks in advance.

Answer 1

Hi Santhosh,
All the suggestions here will work. Make sure that your number is on the right justified to your character field. Here is an example.
DATA: v_char09_left_justified(09)  TYPE c,
      v_char09_right_justified(09) TYPE c,
      v_numc09(09)                 TYPE n.
START-OF-SELECTION.
*-- in case the value is left justified in the field
  v_char09_left_justified = '9        '.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
       EXPORTING
            input  = v_char09_left_justified
       IMPORTING
            output = v_char09_left_justified.
  WRITE:/ 'V_CHAR09_LEFT_JUSTIFIED from FM =', v_char09_left_justified.
  v_numc09 = v_char09_left_justified.
  WRITE:/ 'V_NUMC09 =', v_numc09.
*-- in case the value is right justified in the field
  v_char09_right_justified = '        9'.
  SHIFT v_char09_right_justified LEFT DELETING LEADING space.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
       EXPORTING
            input  = v_char09_right_justified
       IMPORTING
            output = v_char09_right_justified.
WRITE:/ 'V_CHAR09_RIGHT_JUSTIFIED from FM =', v_char09_right_justified.
  v_numc09 = v_char09_right_justified.
  WRITE:/ 'V_NUMC09 =', v_numc09.