Customizing Sap Script ????

Question

I am customizing predefined form MEDRUCK and making the 3 forms ZMEDRUCK1,ZMEDRUCK2,ZMEDRUCK3 each form i am adding different fields which are not available in the predefined form.
I am using predefined print program SAPFM06P i dont want to change the predefined program, where should i write the logic for the added fields.
Thanking in advance.,
Ravi

Answer 1

Hi Ravi,
CALL a PERFORM - ENDFORM from sap script and define a subroutine pool to write your own logic.
Check the links
http://www.sapdevelopment.co.uk/sapscript/sapscript_executeabap.htm
The code will be something similar.
REPORT YLSD999A.
DATA  W_LENGTH TYPE I.
*   GENERAL PURPOSE SUBROUTINES FOR CALLING FROM SAPSCRIPTS
FORM DISPLAY_POUND TABLES IN_TAB STRUCTURE ITCSY
                          OUT_TAB STRUCTURE ITCSY.
  DATA: COUNT TYPE P VALUE 16.
  DATA: W_VALUE(17) TYPE C.        "defined as 7 chars to remove pence
  DATA: W_CHAR TYPE C.
  DATA: W_DUMMY TYPE C.
  DATA: W_CURR(3) TYPE C.
*    Get first  parameter in input table.
  READ TABLE IN_TAB INDEX 1.
  WRITE IN_TAB-VALUE TO W_VALUE .
* get second parameter in input table
  READ TABLE IN_TAB INDEX 2.
  MOVE IN_TAB-VALUE TO W_CURR.
  IF W_CURR = 'GBP'.
    W_CURR = '£'.
  ENDIF.
  W_LENGTH = STRLEN( W_CURR ).
*    look for first space starting at right.
  WHILE COUNT > -1.
    W_CHAR = W_VALUE+COUNT(1).
*  W_CHAR = IN_TAB-VALUE+COUNT(1).
    IF W_CHAR = ' '.
      COUNT = COUNT - W_LENGTH + 1.
      W_VALUE+COUNT(W_LENGTH) = W_CURR.
      COUNT = -1.
    ELSE.
*     W_VALUE+COUNT(1) = W_CHAR.
      COUNT = COUNT - 1.
    ENDIF.
  ENDWHILE.
* read only parameter in output table
  READ TABLE OUT_TAB INDEX 1.
  OUT_TAB-VALUE = W_VALUE.
  MODIFY OUT_TAB INDEX SY-TABIX.
ENDFORM.
Cheers
VJ
PERFORM ... IN PROGRAM .... USING.. CHANGING ..  
ENDPERFORM
      To call ABAP subroutines from within  a form we use the  
     PERFORM... IN PROGRAM ... statement , the advantage of    
     using it  is that the print program is not required to cahnge and we 
     can get the new data from the subroutine which is placed in a Z  
     report . To pass and get the values from th subroutine the  
     parameters are passed which are of  type structure ITCSY.
     e.g. /:PERFORM get_date IN PROGRAM zreport
            /:USING &SALESORDER&
            /:CHANGING &S_DATE&
            /:ENDPERFORM  
            The date &S_DATE& ....
           The  ABAP Code would be
           REPORT zreport.
           TABLES ztab.
           FORM get_date TABLES in_tab STRUCTURE ITCSY out_tab
           STRUCTURE ITCSY .
           READ TABLE in_tab INDEX 1.
           SELECT some_date FROM ztab WHERE salesorder = in_tab-value.
           IF sy-subrc EQ 0.
           READ TABLE out-tab INDEX 1.
           MOVE ztab-somedate TO out_tab-value
           MODIFY out_tab INDEX 1.
           ENDIF.
           ENDFORM.
            In the above code USING is used to pass the value to the
          subroutine while changing is used to recieve the value from th
          subroutine ,for further paramters we can use either USING or
           CHANGING .
           In the subroutine the type of paramter is always an internal table of
           type ITCSY  irrespective of the value passed.The VALUE field
           of the internal table is used to fill and recieve the values   .     
Message was edited by: Vijayendra  Rao