月份的描述表T247

月份的描述表T247,存储了不同语言的月份描述，实例：

REPORT ZEXAMPLE.

 

DATA: BEGIN OF MONTH_NAMES OCCURS 0.

        INCLUDE STRUCTURE T247.

DATA: END OF MONTH_NAMES.

 

DATA: V_LASTDAY    LIKE SY-DATUM,

      V_NEXTMONTH  LIKE SY-DATUM,

      V_DAYTXT(15).

 

 

CALL FUNCTION 'MONTH_NAMES_GET'

     EXPORTING

          LANGUAGE              = SY-LANGU

     TABLES

          MONTH_NAMES           = MONTH_NAMES

     EXCEPTIONS

          MONTH_NAMES_NOT_FOUND = 1

          OTHERS                = 2.

 

CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'

     EXPORTING

          DAY_IN            = SY-DATUM

     IMPORTING

          LAST_DAY_OF_MONTH = V_LASTDAY.

 

CALL FUNCTION 'RH_GET_DATE_DAYNAME'

     EXPORTING

          LANGU  = SY-LANGU

          DATE   = V_LASTDAY

     IMPORTING

          DAYTXT = V_DAYTXT.

 

READ TABLE MONTH_NAMES WITH KEY MNR = SY-DATUM+4(2).

WRITE:/'THE LAST DAY OF', MONTH_NAMES-LTX, 'IS THE', V_LASTDAY, 'WHICH IS A', V_DAYTXT.

 

CALL FUNCTION 'MONTH_PLUS_DETERMINE'

     EXPORTING

          MONTHS  = '1'

          OLDDATE = SY-DATUM

     IMPORTING

          NEWDATE = V_NEXTMONTH.

 

READ TABLE MONTH_NAMES WITH KEY MNR = V_NEXTMONTH+4(2).

WRITE:/'NEXT MONTH IS', MONTH_NAMES-LTX.

 

CALL FUNCTION 'RE_ADD_MONTH_TO_DATE'

     EXPORTING

          MONTHS  = '1'

          OLDDATE = V_NEXTMONTH

     IMPORTING

          NEWDATE = V_NEXTMONTH.

 

READ TABLE MONTH_NAMES WITH KEY MNR = V_NEXTMONTH+4(2).

WRITE:/'THE MONTH AFTER THAT IS', MONTH_NAMES-LTX.