Program2

REPORT  zdate                        .

DATA: l_code  LIKE  sy-subrc.
DATA: lv_date(10) TYPE c.
DATA: BEGIN OF lwa_date OCCURS 0,
    lv_d(2) TYPE c VALUE '1',
    END OF lwa_date.

PARAMETER: p_month LIKE isellist-month.
PARAMETER: p_date(2) TYPE c.

AT SELECTION-SCREEN.

INITIALIZATION.
DO 31 TIMES.
  APPEND lwa_date TO lwa_date.
  lwa_date-lv_d = lwa_date-lv_d + 1.
  WRITE lwa_date-lv_d.
ENDDO.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_month.

CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
  EXPORTING
    actual_month               = '200505'
    language                   = sy-langu
    start_column               = 8
    start_row                  = 5
  IMPORTING
    selected_month             = p_month
    return_code                = l_code
  EXCEPTIONS
    factory_calendar_not_found = 1
    holiday_calendar_not_found = 2
    month_not_found            = 3
    OTHERS                     = 4.




AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_date.

CHECK NOT lwa_date[] IS INITIAL.
CALL FUNCTION 'POPUP_WITH_TABLE'
  EXPORTING
    endpos_col   = 5
    endpos_row   = 10
    startpos_col = 2
    startpos_row = 1
    titletext    = 'DATE'
  IMPORTING
    choice       = lwa_date
  TABLES
    valuetab     = lwa_date
  EXCEPTIONS
    break_off    = 1
    OTHERS       = 2.
p_date = lwa_date-lv_d.


END-OF-SELECTION.

  CONCATENATE    p_date '/' p_month+4(2) '/' p_month+0(4) INTO lv_date.
WRITE:/ 'IN DD/MM/YYYY', lv_date.
CONCATENATE p_month+4(2) '/' p_date '/' p_month+0(4) INTO lv_date.
WRITE:/ 'IN MM/DD/YYYY', lv_date.
CONCATENATE  p_month+0(4) '/' p_month+4(2) '/' p_date INTO lv_date.
WRITE:/ 'IN YYYY/MM/DD', lv_date.
*end of program.