Subroutine call from SAP Script

Question

Hi,
I need to calculate required/outstanding qty. hence am passing existing values of reservation#/item# and issued qty.
both req/out qty are returned blank by the code. please help.
Following is my code segment for a external routine call from SAP Script.
/:   PERFORM P_GET_QTY IN PROGRAM ZTEST
/:   USING &MSEG-RSNUM&                     
/:   USING &MSEG-RSPOS&                     
/:   CHANGING &REQ_QTY&                     
/:   CHANGING &MSEG-MENGE&                  
/:   CHANGING &OUT_QTY&                     
/:   ENDPERFORM
REPORT ztest .
TABLES resb.
DATA: wa_resb TYPE resb,
      req_qty TYPE resb-bdmng,
      isd_qty TYPE mseg-menge,
      out_qty TYPE resb-bdmng.
FORM p_get_qty TABLES input  STRUCTURE itcsy
                      output STRUCTURE itcsy.
  DATA: avlbl TYPE resb-bdmng.
  READ TABLE input WITH KEY 'MSEG-RSNUM'.
  CHECK sy-subrc = 0.
  wa_resb-rsnum = input-value.
  READ TABLE input WITH KEY 'MSEG-RSPOS'.
  CHECK sy-subrc = 0.
  wa_resb-rspos = input-value.
  READ TABLE input WITH KEY 'REQ_QTY'.
  CHECK sy-subrc = 0.
  req_qty = input-value.
  READ TABLE input WITH KEY 'MSEG-MENGE'.
  CHECK sy-subrc = 0.
  isd_qty = input-value.
  SELECT SINGLE * INTO wa_resb
                  FROM resb
                  WHERE rsnum = wa_resb-rsnum
                  AND   rspos = wa_resb-rspos.
  CHECK sy-subrc = 0.
  avlbl   = wa_resb-bdmng - wa_resb-enmng.
  req_qty = avlbl - out_qty.
  out_qty = req_qty - isd_qty.
  output-name = 'REQ_QTY'.
  output-value = req_qty.
MODIFY output TRANSPORTING name value WHERE name = 'REQ_QTY'.
  APPEND output.
  output-name = 'OUT_QTY'.
  output-value = out_qty.
MODIFY output TRANSPORTING name value WHERE name = 'OUT_QTY'.
  APPEND output.
ENDFORM.
Thanks,
Ram.

Answer 1

Hi Ram,
I think you have to use MODIFY instead of append for the OUTPUT table.
MOdify the table with KEY. This should resolve the problem.
Ram, you can check this code and see how the MODIFY is to be used.
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