Import from Memory id is not working

Question

Hi All,
In the program SAPF110V for Tcode : F110 , I have written an enhancement where when user clicks printout button then a popup will come which will ask for whether date should be printed in the check or not. for this i have used FM : POPUP_TO_CONFIRM . here i am exporting the value if user clicks no (value is 2 for NO).
exoprt statemnt written :
export l_v_answer from l_v_answer to memory ID 'ANS'.
In the driver program for check printing i am importing the value .if value = 2 then i am clearing the date that has to be printed in the check.
import stmt :
Import l_v_answer to l_v_answer from memory ID 'ANS'.
however the value is not getting imported here.
not able to find the reason why the value is not getting picked with import. please let me know the solution.
Thanks,
Preethi.

Answer 1

called program
REPORT  ZTEST7.
selection-screen begin of block b1.
parameters: a like mara-matnr.
selection-screen end of block b1.
types: begin of tp_sel_tab.
      include structure zstr2.
types: end of tp_sel_tab.
data: t_sel_tab type standard table of tp_sel_tab with header line.
data: w_t_sel_tab type tp_sel_tab.
*call screen 9100.
start-of-selection.
select ernam from mara into corresponding fields of table t_sel_tab where matnr = a.
export t_sel_tab to memory id 'ZTEST7'.
loop at t_sel_tab into w_t_sel_tab.
write:/ w_t_sel_tab-ernam.
endloop.
calling program
REPORT  ZTEST8.
*types: begin of tp_sel_tab.
     include structure zstr2.
*types: end of tp_sel_tab.
data: begin of t_sel_tab occurs 0,
      ernam like mara-ernam,
      end of t_sel_tab.
data: begin of sel_tab occurs 0,
      ernam like mara-ernam,
      end of sel_tab.
*data: t_sel_tab type standard table of tp_sel_tab.
*types:  begin of tp_sel_tab1,
       ernam like mara-ernam,
end of tp_sel_tab1.
*data: sel_tab type standard table of tp_sel_tab .
data: w_sel_tab type zstr2.
submit ztest7 with a = '000000000000000939' and return.
import  sel_tab = t_sel_tab from memory id 'ZTEST7'.
loop at sel_tab into w_sel_tab..
write:/ w_sel_tab-ernam.
endloop.
please reward points