*---------------------------------------------------------------------*
*       FORM CAPITAL_LETTER
*---------------------------------------------------------------------*
* [+] Makes the first letter Uppercase
*---------------------------------------------------------------------*
FORM capital_letter
  CHANGING
    p_string.

  DATA:
    lv_first_letter(1) type c.

  lv_first_letter = p_string(1).

  TRANSLATE lv_first_letter TO UPPER CASE.

  WRITE lv_first_letter TO p_string+0(1).

ENDFORM.