Help please

[Former Member]

Hi all,

Now that I'm using this FM

CONCATENATE p_yr p_mon '01' INTO g_date.

CALL FUNCTION 'F4_DATE_CONTROL'

EXPORTING

DATE_FOR_FIRST_MONTH = g_date

IMPORTING

SELECT_DATE = g_date

EXCEPTIONS

CALENDAR_BUFFER_NOT_LOADABLE = 1

DATE_AFTER_RANGE = 2

DATE_BEFORE_RANGE = 3

DATE_INVALID = 4

FACTORY_CALENDAR_NOT_FOUND = 5

HOLIDAY_CALENDAR_NOT_FOUND = 6

PARAMETER_CONFLICT = 7

OTHERS = 8

How can I restrict my output date to be as MONTH-YEAR----->

EX. April-07

Can anyone help me out please?

[Former Member]

Can you help plz.

[Former Member]

Is this what you really need?

PARAMETERS: p_date TYPE gkday DEFAULT sy-datum.

DATA: g_mon TYPE month,
      g_year TYPE char4,
      g_text TYPE char20.

DATA: wa_t247 TYPE t247.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_date.

  CALL FUNCTION 'F4_DATE_CONTROL'
    EXPORTING
      date_for_first_month         = p_date
    IMPORTING
      select_date                  = p_date
    EXCEPTIONS
      calendar_buffer_not_loadable = 1
      date_after_range             = 2
      date_before_range            = 3
      date_invalid                 = 4
      factory_calendar_not_found   = 5
      holiday_calendar_not_found   = 6
      parameter_conflict           = 7
      OTHERS                       = 8.

START-OF-SELECTION.

  PERFORM get_mon_year USING p_date.

  CALL FUNCTION 'IDWT_READ_MONTH_TEXT'
    EXPORTING
      langu = sy-langu
      month = g_mon
    IMPORTING
      t247  = wa_t247.

  CONCATENATE wa_t247-ltx g_year INTO g_text SEPARATED BY '-'.

  WRITE:/ g_text.


*&---------------------------------------------------------------------*
*&      Form  GET_MON_YEAR
*&---------------------------------------------------------------------*
FORM get_mon_year  USING    p_date TYPE datum.

  CALL FUNCTION 'CACS_DATE_GET_YEAR_MONTH'
    EXPORTING
      i_date  = p_date
    IMPORTING
      e_month = g_mon
      e_year  = g_year.

ENDFORM.                    " GET_MON_YEAR

Regards

Eswar

[Former Member]

Shaheen,

CALL FUNCTION 'F4_DATE_CONTROL'

EXPORTING

DATE_FOR_FIRST_MONTH = g_date

IMPORTING

SELECT_DATE = g_date

EXCEPTIONS

CALENDAR_BUFFER_NOT_LOADABLE = 1

DATE_AFTER_RANGE = 2

DATE_BEFORE_RANGE = 3

DATE_INVALID = 4

FACTORY_CALENDAR_NOT_FOUND = 5

HOLIDAY_CALENDAR_NOT_FOUND = 6

PARAMETER_CONFLICT = 7

OTHERS = 8

**

DATA : v_mon(2) TYPE n,

v_date(20) VALUE '04.09.2007',

v_ltx LIKE t247-ltx.

SELECT SINGLE ltx

INTO v_ltx

FROM t247

WHERE spras = sy-langu AND

mnr EQ g_date+4(2).

CONCATENATE vltx g_date+0(4) in to v_date.

Don't forget to reward if useful