Can't get perfrom to work in my include

Question

Okay I have a basic question.  I try to do this code in my include and it keeps saying. Incorrec nesting before the Form, ths structure introduced by function must have end function.  I don't have any fuciton in the code.
CASE I_VNAM.
WHEN 'ZF_DIFDATEBEG'.
DATA:
          IMP_DATE_BEG LIKE SCAL-DATE,
          IMP_DATE_ENTERED LIKE SCAL-DATE,
          IMP_DATE_MONTHEND LIKE SCAL-DATE,
          EXP_DATE_BEG LIKE SCAL-FACDATE,
          EXP_DATE_ENTERED LIKE SCAL-FACDATE,
          EXP_START_DATE LIKE SCAL-FACDATE,
          EXP_DATE_MONTHEND LIKE SCAL-FACDATE,
          I_D_FACTCAL_ID LIKE SCAL-FCALID,
          WS_FACTORYDATE LIKE SCAL-FACDATE.
IF i_step = 2.
      READ TABLE i_t_var_range INTO loc_var_range
      WITH KEY vnam = '0P_CSDAT'.
      CONCATENATE loc_var_range-low0(4) loc_var_range-low4(2) '01' INTO  IMP_DATE_BEG.
      IMP_DATE_ENTERED  = loc_var_range-low.
      I_D_FACTCAL_ID = 'US'.
ENDIF.
PERFORM GET_LAPSED_DAYS.
ENDCASE.
*This function module is called to convert the 1st of the month to a factory date.
FORM GET_LAPSED_DAYS.
      CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
        EXPORTING
          DATE                         = IMP_DATE_BEG
          FACTORY_CALENDAR_ID          = I_D_FACTCAL_ID
        IMPORTING
          FACTORYDATE                  = EXP_DATE_BEG
        EXCEPTIONS
          CALENDAR_BUFFER_NOT_LOADABLE = 1
          CORRECT_OPTION_INVALID       = 2
          DATE_AFTER_RANGE             = 3
          DATE_BEFORE_RANGE            = 4
          DATE_INVALID                 = 5
          FACTORY_CALENDAR_NOT_FOUND   = 6
          OTHERS                       = 7.
      IF SY-SUBRC <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
This function module is called to convert the date entered to a factory date.
      CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
        EXPORTING
          DATE                         = IMP_DATE_ENTERED
          FACTORY_CALENDAR_ID          = I_D_FACTCAL_ID
        IMPORTING
          FACTORYDATE                  = EXP_DATE_ENTERED
        EXCEPTIONS
          CALENDAR_BUFFER_NOT_LOADABLE = 1
          CORRECT_OPTION_INVALID       = 2
          DATE_AFTER_RANGE             = 3
          DATE_BEFORE_RANGE            = 4
          DATE_INVALID                 = 5
          FACTORY_CALENDAR_NOT_FOUND   = 6
          OTHERS                       = 7.
      IF SY-SUBRC <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      CLEAR L_S_Range.
      l_s_range-low = ( EXP_DATE_ENTERED - EXP_DATE_BEG ) + 1.    "difference between beginning of month and date entered.
      L_S_Range-sign = 'I'.
      L_S_Range-opt = 'EQ'.
      APPEND L_S_RANGE TO E_T_RANGE.
      w_var_range = EXP_DATE_ENTERED.
ENDFORM.

Answer 1

Maybe try putting this.....
*This function module is called to convert the 1st of the month to a factory date.
FORM GET_LAPSED_DAYS.
CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
EXPORTING
DATE = IMP_DATE_BEG
FACTORY_CALENDAR_ID = I_D_FACTCAL_ID
IMPORTING
FACTORYDATE = EXP_DATE_BEG
EXCEPTIONS
CALENDAR_BUFFER_NOT_LOADABLE = 1
CORRECT_OPTION_INVALID = 2
DATE_AFTER_RANGE = 3
DATE_BEFORE_RANGE = 4
DATE_INVALID = 5
FACTORY_CALENDAR_NOT_FOUND = 6
OTHERS = 7.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* This function module is called to convert the date entered to a factory date.
CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
EXPORTING
DATE = IMP_DATE_ENTERED
FACTORY_CALENDAR_ID = I_D_FACTCAL_ID
IMPORTING
FACTORYDATE = EXP_DATE_ENTERED
EXCEPTIONS
CALENDAR_BUFFER_NOT_LOADABLE = 1
CORRECT_OPTION_INVALID = 2
DATE_AFTER_RANGE = 3
DATE_BEFORE_RANGE = 4
DATE_INVALID = 5
FACTORY_CALENDAR_NOT_FOUND = 6
OTHERS = 7.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CLEAR L_S_Range.
l_s_range-low = ( EXP_DATE_ENTERED - EXP_DATE_BEG ) + 1. "difference between beginning of month and date entered.
L_S_Range-sign = 'I'.
L_S_Range-opt = 'EQ'.
APPEND L_S_RANGE TO E_T_RANGE.
w_var_range = EXP_DATE_ENTERED.
ENDFORM.
after the ENDFUNCTION statement.   If all of this code is in the source code of the function module itself, then you must move the FORMS outside of the FUNCTION...ENDFUNCTION coding.
Regards,
Rich Heilman