Some Useful Function Modules involving Dates

 REPORT.

*===============================================

*NUMBER_OF_DAYS_PER_MONTH_GET

*This function module gives number of days in a given month of given year

*===============================================

DATA DAY1 TYPE T009B-BUTAG.

CALL FUNCTION 'NUMBER_OF_DAYS_PER_MONTH_GET'

EXPORTING

PAR_MONTH = '02'

PAR_YEAR = '2012'

IMPORTING

PAR_DAYS = DAY1.   "Datatypes of parameters must match each other

WRITE DAY1.

*=====================================================

*MONTHS_BETWEEN_TWO_DATES

*This function module gives number of months between two given dates

*=====================================================

DATA MONTHS1 TYPE I.

CALL FUNCTION 'MONTHS_BETWEEN_TWO_DATES'

EXPORTING

I_DATUM_BIS = '20170214'

I_DATUM_VON = '20160214'

IMPORTING

E_MONATE = MONTHS1.

WRITE MONTHS1.

 

*====================================================

*DATE_GET_WEEK

*This function module gives WEEK number along with year for a given date

*====================================================

DATA WEEKS1 TYPE SCAL-WEEK.

CALL FUNCTION 'DATE_GET_WEEK'

EXPORTING

DATE = '20170222'

IMPORTING

WEEK = WEEKS1.

WRITE WEEKS1.

 

*====================================================

*WEEK_GET_FIRST_DAY

*This function module gives Monday Date of a given week number.

*====================================================

DATA DATE1 TYPE SCAL-DATE.

CALL FUNCTION 'WEEK_GET_FIRST_DAY'

EXPORTING

WEEK = '201708'    "Week number should be preceded by year

IMPORTING

DATE = DATE1.

WRITE:/ DATE1.

 

*=====================================================

*BWSO_DATE_GET_FIRST_WEEKDAY

*This function module gives first day of the week (Monday date) of the given date.

*=====================================================

DATA DATE2 TYPE DATS.

CALL FUNCTION 'BWSO_DATE_GET_FIRST_WEEKDAY'

EXPORTING

DATE_IN = '20170214'

IMPORTING

DATE_OUT = DATE2.

WRITE DATE2.

 

*=====================================================

*DATE_CHECK_PLAUSIBILITY

*This function module verifies whether the given date is Correct or Not

*====================================================

CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'

EXPORTING

DATE = '20170229'

EXCEPTIONS

PLAUSIBILITY_CHECK_FAILED = 1

OTHERS = 2.

IF SY-SUBRC <> 0.   "it will be 1 when exception is raised for WRONG dates

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ELSE.

MESSAGE 'Valid date' TYPE 'S'.   "S-Success, W-wrong, E-Error

ENDIF.

 

*=====================================================

*RH_GET_DATE_DAYNAME

*This function module gives week day name for a given date

*=====================================================

DATA DAY_NAME TYPE HRVSCHED-DAYTXT.

CALL FUNCTION 'RH_GET_DATE_DAYNAME'

EXPORTING

LANGU = SY-LANGU

DATE = '20170223'

IMPORTING

DAYTXT = DAY_NAME.

WRITE:/ DAY_NAME.

 

Comments

Post a Comment

Popular posts from this blog

Domains and Data Elements

  Domains A domain provided Technical attributes (type, length and possible values) for a field. The definition of domain in ABAP is same as that in Mathematics. In the world of Mathematics, a domain is defined as the set of input values that are valid for a given function. The same holds true for domains in ABAP. To understand this, let us first see what is the role of domains in ABAP data dictionary. Domains -> Data Elements -> (Structures, DB tables, program references etc.)
Read more

How to update exchange rates via process chain in BW

Image
 The exchange rate in the BW system may not be updated one. Also the business wants to see the amounts according to the exchange rates in the source. In such cases, you have to update the exchange rate in the BW system via process chain. Include the step ‘Execute ABAP Program’ in the process chain. Give the program name as ‘RSIMPCURR’. Create a variant for the program.
Read more

Sample ABAP program for Updating notepad file data to Internal table and Sending it to Application server

 *--Structure type TYPES: BEGIN OF TY_STD, RONO TYPE C LENGTH 4, NAME1 TYPE C LENGTH 20, GEN TYPE C LENGTH 6, FEES TYPE C LENGTH 10. END OF TY_STD. *--Header line and internal table DATA WKA TYPE TY_STD. DATA INT_TAB TYPE TABLE OF TY_STD. *--Application server files are known as "Datasets" *--here "fname" is the Dataset DATA FNAME TYPE C LENGTH 40 VALUE "StudentsInfo.txt". *--Convert notepad file data into internal table CALL FUNCTION 'GUI_UPLOAD' EXPORTING FILENAME = 'C:Documents and SettingsAdministratorDesktopstudents.txt' HAS FIELD_SEPARATOR = 'X' TABLES DATA_TAB = INT_TAB. *--Sending data to Application Server OPEN DATASET FNAME FOR OUTPUT IN TEXT MODE ENCODING DEFAULT. LOOP AT INT_TAB INTO WKA. TRANSFER WKA TO FNAME. ENDLOOP. CLOSE DATASET FNAME.
Read more