Form rotuine for script

Question

Hi Gurus,
How to attch or code form routine into driver program for Script?
Plz reply fast its very urgent
Martin

Answer 1

Hi Martin,
Lets suppose if u want to fetch the payment due for an invoice.
Code this form routine in your script.
/:   PERFORM GET_PYMT_DUE_IN IN PROGRAM ZSROINVOICE  
/:       USING &VBDKR-VBELN&                         
/:       USING &VBDKR-FKDAT&                         
/:       USING &VBDKR-ZTERM&                         
/:       CHANGING &PYMNTDUE&                         
code it in ur driver program to fetch the details.
FORM get_pymt_due TABLES i_intpar STRUCTURE itcsy
                         i_outpar STRUCTURE itcsy.
  DATA : wa_fkdat LIKE sy-datum,
         wa_ztag2 LIKE t052-ztag2,
         wa_pymnt LIKE sy-datum.
  READ TABLE i_intpar WITH KEY name = 'VBDKR-FKDAT'.
  IF sy-subrc = 0.
    CONCATENATE i_intpar-value6(4) i_intpar-value3(2)
    i_intpar-value+0(2)
           INTO wa_fkdat.
  ENDIF.
  READ TABLE i_intpar WITH KEY name = 'VBDKR-ZTERM'.
  IF sy-subrc = 0.
Payment Terms
    SELECT SINGLE ztag2
             INTO wa_ztag2
             FROM t052
            WHERE zterm = i_intpar-value.
  ENDIF.
  wa_pymnt = wa_fkdat + wa_ztag2.
  MOVE 'PYMNTDUE' TO i_outpar-name.
  CONCATENATE wa_pymnt6(2) '.' wa_pymnt4(2) '.' wa_pymnt+0(4) INTO
                                                    i_outpar-value.
  APPEND i_outpar.
  CLEAR i_outpar.
ENDFORM.      
Hope this will help you.
Revert back for furthe rassistance