Calling external sub-routine from script

Question

asap.

Answer 1

this simple example can help you out i hope.
in the script,
/: PERFORM WAREHOUSE IN PROGRAM ZWAREHOUSE
/: USING &WERKS&
/: USING &LGORT&
/: CHANGING &FLAG&
/: ENDPERFORM
/: IF &FLAG& NE 'X'
<print the data>
/: ENDIF
in the program zwarehouse,
FORM warehouse TABLES fp_in STRUCTURE itcsy
fp_out STRUCTURE itcsy.
TABLES t320.
DATA : l_werks LIKE resbd-werks,
l_lgort LIKE resbd-lgort,
l_flag(1) type c.
clear : l_werks, l_lgort, l_FLAG.
READ TABLE fp_in INDEX 1.
l_werks = fp_in-value.
READ TABLE fp_in INDEX 2.
l_lgort = fp_in-value.
SELECT SINGLE *
FROM t320
WHERE werks EQ l_werks AND
lgort EQ l_lgort.
IF SY-SUBRC EQ 0.
l_flag = 'X'.
ENDIF.
READ TABLE fp_out INDEX 1.
fp_out-value = l_flag.
MODIFY fp_out INDEX sy-tabix.
ENDFORM. "WAREHOUSE