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.
parametersgdate type begda.
datagv_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(4to gv_month1.
  
concatenate gdate+6(2'-' gv_test1 '-'  gv_month1 into gv_text .

  
writegv_text.

INPUT:



OUTPUT: