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

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

OPEN SQL EXAMPLES IN ABAP – PART 2

 ******************************************* **displaying Raw Materials and Finished products **only from MARA table. DATA WA TYPE MARA. * **--WHERE clause is for filtering the records SELECT * FROM MARA INTO WA WHERE MTART = 'ROH' OR MTART = 'FERT'. WRITE: / WA-MATNR, WA-MBRSH, WA-MTART, WA-MEINS. ENDSELECT. * **************************************************
Read more