日期函数F4_DATE的使用

PARAMETERS :pr ( 4 )  TYPE  c .
AT  SELECTION-SCREEN  ON  VALUE-REQUEST  FOR pr .
   DATA :l_date  TYPE sy -datum .
   CALL  FUNCTION  'F4_DATE'
     EXPORTING
      date_for_first_month          = sy -datum
     IMPORTING
      select_date                   = l_date
     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 .
  pr1  = l_date+4 ( 4 ) .