DEMO: POPUP Calender

*&---------------------------------------------------------------------*
*& Report  ZTEST1_09
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

"REPORT  ZTEST1_09.
REPORT Z_POPUP_CALENDAR.

"A sample code to create a pop up calendar using
"ABAP www.freesaptutorial.com

Data: d_seldat like WORKFLDS-GKDAY,
      d_sweek   like SCAL-WEEK.

Parameters: p_caldat like sy-datum.

      CALL FUNCTION 'F4_DATE'
       EXPORTING
         DATE_FOR_FIRST_MONTH               = p_caldat
         DISPLAY                            = 'X'
         FACTORY_CALENDAR_ID                = 'R1'
*         GREGORIAN_CALENDAR_FLAG            = ' '
*         HOLIDAY_CALENDAR_ID                = '11'
*         PROGNAME_FOR_FIRST_MONTH           = ' '
       IMPORTING
         SELECT_DATE                        = d_seldat
*         SELECT_WEEK                        =
*         SELECT_WEEK_BEGIN                  =
*         SELECT_WEEK_END                    =
        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
                .
      IF SY-SUBRC <> 0.
         MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.