Creating a Function Module for Standard Include

Question

Hi ALL,
There is a standard Include in that i have created 1implicit Enhancement Point and there is 200 lines code is there ,so my client is saying to keep this code in function module. This is the below code  can any one do how to write this code in function module with passing parameters and all the stuff.Means Import parameters ,Export parameters and Source code ?
  Perform change_order_va02.
  data: l_vbfa like vbfa,
        l_FKART like vbrk-FKART,
        l_fksto like vbrk-fksto,
        l_sfakn like vbrk-sfakn.
  data: begin of lt_vbfa occurs 0,
          vbeln like vbfa-vbeln,
        end of lt_vbfa.
  if komfk-vbtyp ca 'PO'.              " debit/credit memo
    select vbeln into table lt_vbfa from vbfa
           where vbelv = KOMFK-VBELN and
                 ( vbtyp_n = '5' or vbtyp_n = '6' ).
      loop at lt_vbfa.
        clear: l_fksto, l_sfakn.
        select single FKART fksto SFAKN into (l_FKART, l_fksto, l_sfakn)
               from vbrk
               where vbeln = lt_vbfa-vbeln.
        check: sy-subrc = 0,
               l_fksto is initial,
               l_sfakn is initial.
             message e310(zz) with l_FKART l_vbfa-vbeln.
      endloop.
  endif.
*}   INSERT
ENDFORM.
*{   INSERT         D01K9A0PBY                                        1
*&      Form  change_order_va02
  228810/45115 FUWAGNK implement VA02 into VF01 for Turkey
-->  p1        text
<--  p2        text
FORM change_order_va02.
Tables : *knvi, *lips, *likp.
DATA: Z_MODE value 'N'.
data: hf-date(10).
DATA: BEGIN OF BDC_TAB OCCURS 0.
       INCLUDE STRUCTURE BDCDATA.
DATA: END OF BDC_TAB.
DATA: BEGIN OF BDC_MSG OCCURS 0.
       INCLUDE STRUCTURE BDCMSGCOLL.
DATA: END OF BDC_MSG.
select single vbeln vgbel from *lips into corresponding
       fields of *lips
              where vbeln = KOMFK-VBELN.
select single vbeln LFART from *likp into corresponding
       fields of *likp
              where vbeln = KOMFK-VBELN.
if *likp-lfart = 'LF'.
select single vbeln vkorg kunnr from vbak into corresponding
       fields of vbak
              where vbeln = *lips-vgbel.
if vbak-vkorg = '1252'.
   clear bdc_tab. refresh bdc_tab.
   move 'SAPMV45A' to BDC_TAB-PROGRAM.
   move '102 '     to BDC_TAB-DYNPRO.
   move 'X'        to BDC_TAB-DYNBEGIN.
   APPEND BDC_TAB. CLEAR BDC_TAB.
   move: 'VBAK-VBELN'  to BDC_TAB-FNAM,                   "Doc.Number
          VBAK-VBELN   to BDC_TAB-FVAL.
   APPEND BDC_TAB. CLEAR BDC_TAB.
   MOVE: 'BDC_OKCODE'  TO  BDC_TAB-FNAM,                 "OK-CODE
          '/00 '        TO  BDC_TAB-FVAL.
   APPEND BDC_TAB. CLEAR BDC_TAB.
   move 'SAPMV45A' to BDC_TAB-PROGRAM.
   move '4001'     to BDC_TAB-DYNPRO.
   move 'X'        to BDC_TAB-DYNBEGIN.
   APPEND BDC_TAB. CLEAR BDC_TAB.
   MOVE: 'BDC_OKCODE'  TO  BDC_TAB-FNAM,                 "OK-CODE
          'KKAU '      TO  BDC_TAB-FVAL.
   APPEND BDC_TAB. CLEAR BDC_TAB.
   move 'SAPMV45A' to BDC_TAB-PROGRAM.
   move '4002'     to BDC_TAB-DYNPRO.
   move 'X'        to BDC_TAB-DYNBEGIN.
   APPEND BDC_TAB. CLEAR BDC_TAB.
   select single * from *KNVI into *KNVI where KUNNR = vbak-kunnr
                                           and ALAND = 'TR'
                                           and TATYP = 'MWST'
                                           and TAXKD = '2'.
   if sy-subrc =  0.
      exit.
   endif.
   move: 'VBAK-WAERK'  to BDC_TAB-FNAM,               "Currency
         'YTL '        to BDC_TAB-FVAL.
         APPEND BDC_TAB. CLEAR BDC_TAB.
   write sy-datum to hf-date.
   move: 'VBAK-AUDAT'  to BDC_TAB-FNAM,                   "Doc.Number
          hf-date      to BDC_TAB-FVAL.
   APPEND BDC_TAB. CLEAR BDC_TAB.
   move: 'VBKD-PRSDT'  to BDC_TAB-FNAM,                   "Doc.Number
          hf-date      to BDC_TAB-FVAL.
   APPEND BDC_TAB. CLEAR BDC_TAB.
   MOVE: 'BDC_OKCODE'  TO  BDC_TAB-FNAM,                  "OK-CODE
          '/11 '        TO  BDC_TAB-FVAL.
   APPEND BDC_TAB. CLEAR BDC_TAB.
   CALL TRANSACTION 'VA02'
        USING BDC_TAB MODE Z_MODE UPDATE 'S'
              MESSAGES INTO BDC_MSG.
     IF SY-SUBRC NE 0.
        clear bdc_tab. refresh bdc_tab.
     endif.
  endif.
endif.
ENDFORM.                    " change_order_va02
Regards,
Venkat

Answer 1

ans