GETTING TEXT OF A MONTH

GETTING TEXT OF A MONTH:

This program is used to get the text of a month from the given input.

REPORT Z_GETTING_TEXT_OF_MONTH.
parameters: gdate type begda.
data: gv_test type char10,
gv_month1 type char4,
gv_text type char20,
gv_test1 type char4.

    select single ltx from t247 into gv_test
       where spras eq 'E'
         and mnr eq gdate+4(2) .

    call function 'HR_FR_DADSU_CONVERT_UPPERCASE'
      exporting
        im_no_spesym      = 'X'
        im_no_punctuation = 'X'
      changing
        ch_text           = gv_test.
move gv_test to gv_test1.

  move gdate+0(4) to gv_month1.
  concatenate gdate+6(2) '-' gv_test1 '-'  gv_month1 into gv_text .

  write: gv_text.

INPUT:

OUTPUT:

Pages

GETTING TEXT OF A MONTH