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.
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.
