*----------------------------------------------------------------------*
*       FORM RIGHT_ALIGN
*----------------------------------------------------------------------*
* [+] Right-aligns the text in the character field
*----------------------------------------------------------------------*
FORM right_align
  USING
    p_padding_char TYPE c
  CHANGING
    p_text TYPE c.

  DATA:
    lv_text_length  TYPE i,
    lv_field_length TYPE i,
    lv_remaining    TYPE i.

  lv_text_length = strlen( p_text ).
  DESCRIBE FIELD p_text LENGTH lv_field_length.

  lv_remaining = lv_field_length - lv_text_length.
  if lv_remaining = 0.
    exit.
  endif.

  WRITE p_text TO p_text+lv_remaining.

  SUBTRACT 1 FROM lv_remaining.

  WHILE lv_remaining >= 0.
    WRITE p_padding_char TO p_text+lv_remaining(1).
    SUBTRACT 1 FROM lv_remaining.
  ENDWHILE.

ENDFORM.