Startroutine, 2 interne Tabellen, unterschiedliches Format

[Jessica3717]

Hallo ABAPer!

Ich hab im BW(2.1C) eine Startroutine geschrieben, die wie folgt aussieht und zu einem Datensatz über den Schlüssel Material die zugehörige Produktgruppe auslesen soll, solange, bis er keine mehr findet.

Leider bekomme ich 0 Datensätze zurück. Intern scheinen die 2 internen Tabellen verschiedene Formate zu haben. Bei l_itab_ods habe ich eine normale Nummer "601-719-00-00" bei DATA_PACKAGE sieht das so "#########ST DE12C1" aus. Wenn ich im Debugger aber in die Tabelle reingehe schaut das aber eigentlich ganz gut aus.

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. PROGRAM UPDATE_ROUTINE.  
2. *$*$ begin of global - insert your declaration only below this line  *-*
3. DAtA: WA_DP TYPE /BIC/CS8ZSD_SCL.                            
4. DATA: g_check type c.                                        
5. DATA: l_itab_ods TYPE STANDARD TABLE OF /BIC/AZBW_PGMI00.    
6.  
7. *$*$ end of global - insert your declaration only before this line   *-*
8.                                                                          
9. FORM startup                                                            
10.   TABLES   MONITOR STRUCTURE RSMONITOR "user defined monitoring          
11.            DATA_PACKAGE STRUCTURE /BIC/CS8ZSD_SCL                        
12.   USING    RECORD_ALL LIKE SY-TABIX                                      
13.            SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS                        
14.   CHANGING ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update        
15.  
16.  
17. *$*$ begin of routine - insert your code only below this line        *-*
18. * fill the internal table "MONITOR", to make monitor entries            
19.  
20. TYPES:                                                            
21. BEGIN OF DATA_PACKAGE_STRUCTURE.                                  
22.   INCLUDE STRUCTURE /BIC/AZBW_PGMI00.                            
23.   TYPES: l_recno LIKE sy-tabix,                                  
24. END OF DATA_PACKAGE_STRUCTURE.                                    
25.                                                                  
26. DATA: l_wa_dp TYPE DATA_PACKAGE_STRUCTURE.                        
27. DATA: l_itab_dp TYPE STANDARD TABLE OF DATA_PACKAGE_STRUCTURE.    
28. DATA: l_lines TYPE I.                                            
29. DATA: l_wa_ods TYPE /BIC/AZBW_PGMI00.                            
30.                                                                  
31. IF g_check <> 'x'.                                                
32.   SELECT * FROM /BIC/AZBW_PGMI00 INTO TABLE l_itab_ods.          
33.   move 'x' to g_check.                                            
34. ENDIF.                                                            
35.                                                                  
36. LOOP AT DATA_PACKAGE INTO l_wa_dp.                                
37.   LOOP AT l_itab_ods INTO l_wa_ods.                              
38. *       WHERE /BIC/ZNRMIT = l_wa_dp-/BIC/ZNRMIT.                  
39.     if l_wa_ods-/BIC/ZNRMIT = l_wa_dp-/BIC/ZNRMIT.                
40.  
41.     l_wa_dp-/BIC/ZPRGRP = l_wa_ods-/BIC/ZPRGRP.                        
42.     APPEND l_wa_dp TO l_itab_dp .                                      
43.                                                                        
44.     ENDIF.                                                              
45.                                                                        
46.   ENDLOOP.                                                              
47. ENDLOOP.                                                                
48.                                                                        
49. REFRESH DATA_PACKAGE.                                                  
50. DATA_PACKAGE[] = l_itab_dp[].                                          
51. DESCRIBE TABLE l_itab_dp LINES l_lines.                                
52.                                                                        
53. * if abort is not equal zero, the update process will be canceled      
54.   ABORT = 0.                                                            
55.                                                                        
56. *$*$ end of routine - insert your code only before this line         *-*
57. *                                                                      
58. ENDFORM.                                                                
59.  
60.  
61.  
62.  

GeSHi ©

Vielleicht hab ich auch irgendwo einen Fehler in der Deklaration der internen Tabelle oder so? Bin noch nicht so der Profi in ABAP.

Danke für die Hilfe,

Peter

[Jessica3717]

OK, tut mir leid, war verzweifelt. Hab die interne Tabelle über die falsche Tabelle definiert.

Gruss,
Peter