Month Names logic

Question

Hi,
I just want to get month names in output.
If i gives '3' as input it has to display next 3 month names(September,October,November).
If i gives 6 as input next 6 month names from September to February.
Thanks,
fractal.
REPORT ZTEST2 .
DATA : lt_month_names LIKE t247 OCCURS 0 WITH HEADER LINE.
  DATA : lv_date LIKE sy-datum ,
         l_month type i,
         l_month2 type i.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-005 .
Parameter: p_month(2).
SELECTION-SCREEN END OF BLOCK b1 .
CALL FUNCTION 'MONTH_NAMES_GET'
  TABLES
    MONTH_NAMES                 = lt_month_names
EXCEPTIONS
   MONTH_NAMES_NOT_FOUND       = 1
   OTHERS                      = 2
  lv_date = sy-datum.
  l_month = lv_date+4(2).
   l_month2 = l_month + p_month.

Answer 1

Hi fractal,
Try this code , its just that u need..
DATA : lt_month_names LIKE t247 OCCURS 0 WITH HEADER LINE.
DATA : lv_date LIKE sy-datum ,
l_month TYPE i,
l_month2 TYPE i.
DATA: BEGIN OF itab OCCURS 0,
  spras TYPE spras,
  mnr LIKE t247-mnr,
  ktx LIKE t247-ktx,
  ltx LIKE t247-ltx,
  END OF itab.
DATA : BEGIN OF itab1 OCCURS 0,
temp LIKE t247-ltx,
END OF itab1.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-005 .
PARAMETER: p_month(2).
SELECTION-SCREEN END OF BLOCK b1 .
SELECT * FROM t247 INTO CORRESPONDING FIELDS OF TABLE itab            " TO GET THE SHORT MONTH NAMES...I.E. MAR FOR MARCH
     WHERE spras = 'E'.
lv_date = sy-datum.
l_month = lv_date+4(2).
DO p_month TIMES.
  READ TABLE itab WITH KEY mnr = l_month.
  IF sy-subrc = 0.
    itab1-temp = itab-ltx.
    APPEND itab1.
  ENDIF.
  l_month = l_month + 1.
  IF l_month > 12.
    l_month = 1 .
  ENDIF.
ENDDO.
LOOP AT itab1.
  WRITE : / itab1-temp.
ENDLOOP.
Regards,
Bijal