date formate (monthname DD, yyyy.)

[Former Member]

Dear friends,

I need the date formate to print in script form.

currently date is comming in mm/dd/yyyy formate and i need to print it in this formate: month name dd, yyyy.

Exp: present formate: 08/25/2006.

needed format: August 25, 2006.

Thanks,

Sridhar.

[laxmanakumar_appana]

Hi,

Use FM MONTH_NAMES_GET to get the month name for given month number.

Sample code :

DATA : x_mname(10) TYPE c.
PARAMETER : x_d TYPE sy-datum.


 DATA : i_month_names LIKE t247 OCCURS 0 WITH HEADER LINE.
 DATA : x_m(2) TYPE c.
 DATA :x_year(4) TYPE c,
            x_date(2) type c.
 DATA : x_finalout (25) type c. 


x_m = x_d+4(2).
X_year = x_d+0(4).
X_date = x_d+6(2).


CALL FUNCTION 'MONTH_NAMES_GET'
* EXPORTING
* LANGUAGE = SY-LANGU
* IMPORTING
* RETURN_CODE =
TABLES
month_names = i_month_names
EXCEPTIONS
month_names_not_found = 1
OTHERS = 2

.

READ TABLE i_month_names INDEX x_m.
IF sy-subrc = 0.
          x_mname = i_month_names-ltx.
ENDIF.

concatenate x_mname x_date ‘,’ x_year into  x_finalout  separated by space.

required output will be in

x_finalout

Regards

Appana

*Reward Points for helpful answers

[Former Member]

better to HARDCODE.

Regards

Prabhu

[Former Member]

Hi,

DATA: V_CHAR(25).

DATA: MONTH_NAMES LIKE T247.

DATA: V_EXTERN TYPE CHAR10.

V_INTER TYPE SYDATUM.

CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'

EXPORTING

date_external = V_EXTERN

IMPORTING

DATE_INTERNAL = V_INTER

EXCEPTIONS

DATE_EXTERNAL_IS_INVALID = 1

OTHERS = 2

.

SELECT SINGLE * FROM T247

INTO MONTH_NAMES

WHERE SPRAS = SY-LANGU

AND MNR = V_INTER+4(2).

CONCATENATE MONTH_NAMES-LTX V_INTER+6(2) V_INTER(4)

INTO V_CHAR SEPARATED BY SPACE.

write: / V_CHAR.

Thanks,

Naren

[Former Member]

Hi sridher,

1. MONTH_NAMES_GET

This is the FM

2. try this code ( just copy paste)

REPORT abc.

DATA : mname(10) TYPE c.

PARAMETER : d TYPE sy-datum.

PERFORM getmonth USING d mname.

WRITE 😕 mname.

&----

---

*& Form getmonth

&----

---

• text

----

---

• -->M text

• -->MNAME text

----

---

FORM getmonth USING d mname.

DATA : month_names LIKE t247 OCCURS 0 WITH HEADER LINE.

DATA : m(2) TYPE c.

m = d+4(2).

CALL FUNCTION 'MONTH_NAMES_GET'

• EXPORTING

• LANGUAGE = SY-LANGU

• IMPORTING

• RETURN_CODE =

TABLES

month_names = month_names

EXCEPTIONS

month_names_not_found = 1

OTHERS = 2

.

READ TABLE month_names INDEX m.

IF sy-subrc = 0.

mname = month_names-ltx.

ENDIF.

ENDFORM. "getmonth

regards

amit m.

[Former Member]

REPORT YCHATEST.

TABLES : T247.


DATA:IT_T247 TYPE STANDARD TABLE OF T247 WITH HEADER LINE,
     V_MONTH(2),
     V_MON_DESC(20),
     V_DATE(2),
     V_YEAR(4).

CALL FUNCTION 'MONTH_NAMES_GET'
  EXPORTING
    LANGUAGE              = SY-LANGU
  TABLES
    MONTH_NAMES           = IT_T247
  EXCEPTIONS
    MONTH_NAMES_NOT_FOUND = 1
    OTHERS                = 2.
V_MONTH = SY-DATUM+4(2).

READ TABLE IT_T247 WITH KEY MNR = V_MONTH.
V_MON_DESC = IT_T247-LTX.
V_DATE = SY-DATUM+6(2).
V_YEAR = SY-DATUM+0(4).

CONCATENATE V_MON_DESC '  ' V_DATE ',' V_YEAR
 INTO V_MON_DESC separated by space.

WRITE : V_MON_DESC.