Hi,
I would like to download a particular program with RSTXSCRP program (trx SE38). When I download my program, system downloads only part of the code but not the code linked to include instructions, how can I solve the problem ?:
include /1BCDWB/IQ000000000005DAT.
data %dtab type standard table of /1BCDWB/IQ000000000005 with header line.
data %subrc type sy-subrc.
include /1BCDWB/IQ000000000005SSCR.
include /1BCDWB/IQ000000000005SSCRAT.
start-of-selection.
if %runmode-extr_on <> space.
call function '/1BCDWB/IQ000000000005EXTR'
tables %selopt = %seloptions
%dtab = %dtab
changing %rtmode = %runmode
exceptions no_data = 1
others = 2.
%subrc = sy-subrc.
call function 'RSAQRT_CHECK_EXTR'
exporting extr_subrc = %subrc
tables dtab = %dtab
changing rtmode = %runmode.
endif.
end-of-selection.
if %runmode-show_on <> space.
call function '/1BCDWB/IQ000000000005SHOW'
tables %dtab = %dtab
changing %rtmode = %runmode.
endif.
*----
*----
form %set_data changing p_lines type i.
import ldata to %dtab from memory id 'AQLISTDATA'.
describe table %dtab lines p_lines.
free memory id 'AQLISTDATA'.
endform.
form %get_data tables p_dtab structure %dtab
using p_first type i
p_last type i.
append lines of %dtab from p_first to p_last to p_dtab.
endform.
form %get_ref_to_table using p_lid type aql_lid
p_ref type ref to data
p_subrc type i.
if p_lid = %iqid-lid.
create data p_ref like %dtab[].
p_subrc = 0.
else.
p_subrc = 4.
endif.
Bluesky
