Hi Gurus,
A previous post yielded a clever way of collecting all Data Packages in a Start Routine in the Update Rules so they could be sorted and processed at the same time rather than process the packages one at a time. Problem is... I can't get it to work past the first data package.
If I try to debug, multiple dialog sessions start and the program falls over itself.
Can anyone see anything obviously wrong with the code?
Global Data Defs
DATA: BEGIN OF i_all_data_packages OCCURS 100. "store for all data packagaes
INCLUDE STRUCTURE /BIC/CS8ZSDG_O02. "my source ODS
DATA: END OF i_all_data_packages.
DATA: l_datpkid_fld(30) TYPE c
VALUE 'G_S_OBJECT-DATAPAKID',
l_datrequ_fld(30) TYPE c
VALUE 'G_S_OBJECT-REQUEST'.
DATA: g_records_required(10) type n,
l_tot_recs(10) type n.
DATA: l_data_packet_id type RSDATAPID,
l_request type RSREQUNR.
DATA: i_rsmonfact LIKE rsmonfact OCCURS 500 WITH HEADER LINE,
l_wa_i_rsmonfact LIKE rsmonfact OCCURS 500 WITH HEADER LINE.
$$ begin of routine
Assign a memory area (mem_area) to the field symbol <fs>.
ASSIGN (l_datpkid_fld) TO <l_datapakid>.
l_data_packet_id = <l_datapakid>.
ASSIGN (l_datrequ_fld) TO <l_request>.
l_request = <l_request>.
Check first data packet get packet data for request
IF l_data_packet_id = '000001'.
CLEAR: l_tot_recs.
REFRESH i_all_data_packages.
SELECT * FROM rsmonfact INTO TABLE i_rsmonfact
WHERE rnr = l_request.
Loop through packets adding the # of total records
LOOP AT i_rsmonfact INTO l_wa_i_rsmonfact.
g_records_required = g_records_required
+ l_wa_i_rsmonfact-req_select.
ENDLOOP.
ENDIF.
APPEND LINES OF DATA_PACKAGE TO i_all_data_packages.
CLEAR DATA_PACKAGE.
REFRESH DATA_PACKAGE.
l_tot_recs = l_tot_recs + RECORD_ALL.
Move all data into the data_package table
IF l_tot_recs = g_records_required.
DATA_PACKAGE[] = i_all_data_packages[].
********************************************
Start of Processing Logic
********************************************
endless loop for testing
Data: i_flag.
While i_flag eq ''.
Endwhile.
Addnl processing is in here - it works OK for 1
data package
ENDIF.
ABORT = 0.
(added this to say what the problem was - I needed to have set the Infopackage as 'Into PSA and Subsequently into Data Targets' for this to work. It actually said to do this in the original post but I forgot to)
Regards,
Deano
Message was edited by: Dean Stubbs
