Fehlersuche Feldsymbol

[Rosa2799]

Was bitte ist hierdran falsch?

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

1. *&---------------------------------------------------------------------*
2. *& Program  Z_DYNAMIC_SQL2
3. *&
4. *&---------------------------------------------------------------------*
5. *&
6. *&
7. *&---------------------------------------------------------------------*
8.  
9. PROGRAM  Z_DYNAMIC_SQL2.
10.  
11. TYPE-POOLS abap.
12.  
13. PARAMETERS: lt    RADIOBUTTON GROUP 1 DEFAULT 'X',
14.             gt    RADIOBUTTON GROUP 1,
15.             value TYPE i.
16.  
17. DATA: BEGIN OF wa,
18.         count   TYPE i,
19. INCLUDE TYPE spfli,
20. END OF wa.
21.  
22. DATA: checked     TYPE abap_bool,
23.       name        TYPE fieldname,
24.       lines       TYPE i,
25.       descr_ref   TYPE REF TO cl_abap_structdescr,
26.       sel_list    TYPE TABLE OF edpline,
27.       group_list  TYPE TABLE OF edpline,
28.       having      TYPE string.
29.  
30. FIELD-SYMBOLS: <fs>       TYPE ANY,
31.                <comp_wa>  TYPE abap_compdescr.
32.  
33. START-OF-SELECTION.
34.  
35.   SET PF-STATUS 'MAIN'.
36.  
37. * get all components of table 'SPFLI'
38.   descr_ref ?= cl_abap_typedescr=>describe_by_name&#40; 'SPFLI' &#41;.
39.  
40.   LOOP AT descr_ref->components ASSIGNING <comp_wa>.
41.     name = <comp_wa>-name.
42.     WRITE: / checked AS CHECKBOX, name.
43.   ENDLOOP.
44.   lines = LINES&#40; descr_ref->components &#41;.
45.  
46. AT USER-COMMAND.
47.  
48. * determine selected columns
49.   CLEAR: sel_list, group_list.
50.   APPEND 'count&#40;*&#41; AS count' TO sel_list.
51.   DO lines TIMES.
52.     READ LINE sy-index FIELD VALUE checked.
53.     IF checked = 'X'.
54.       READ LINE sy-index FIELD VALUE name.
55.       APPEND name TO: sel_list, group_list.
56.     ENDIF.
57.   ENDDO.
58.  
59. * determine operator
60.   IF gt = 'X'.
61.     having = 'count&#40;*&#41; > value'.
62.   ELSE.
63.     having = 'count&#40;*&#41; < value'.
64.   ENDIF.
65.  
66.   SELECT &#40;sel_list&#41;
67.     FROM spfli UP TO 20 ROWS
68.     INTO CORRESPONDING FIELDS OF wa
69.     GROUP BY &#40;group_list&#41;
70.     HAVING &#40;having&#41;.
71.  
72. * write all components to list
73.     WRITE / wa-count.
74.     LOOP AT group_list INTO name.
75.       ASSIGN COMPONENT name OF STRUCTURE wa TO <fs>.
76.       WRITE <fs>.
77.     ENDLOOP.
78.   ENDSELECT.

GeSHi ©

Laufzeitfehler tritt hier auf:

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

1. * write all components to list
2.     WRITE / wa-count.
3.     LOOP AT group_list INTO name.
4.       ASSIGN COMPONENT name OF STRUCTURE wa TO <fs>.
5. ****************************************
6.       WRITE <fs>. " Fehler hier
7. ****************************************
8.     ENDLOOP.
9.   ENDSELECT.

GeSHi ©

Fehleranalyse:

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

1. Fehleranalyse
2.     Es wurde auf ein noch nicht zugewiesenes Feldsymbol zugegriffen
3.     &#40;Datensegment Nr. 10&#41;.
4.  
5.     Dieser Fehler tritt auf, wenn
6.     - ein typisiertes Feldsymbol angesprochen wird, bevor es mittels
7.       ASSIGN gesetzt wird, oder
8.     - ein Feldsymbol angesprochen wird, das auf die Zeile einer
9.       internen Tabelle gezeigt hat, die gelöscht wurde, oder
10.     - ein Feldsymbol angesprochen wird, das vorher mit UNASSIGN
11.       zurückgesetzt wurde oder das auf ein lokales Feld gezeigt hat,
12.       das nicht mehr existiert oder
13.     - ein Parameter einer globalen Funktionsschnittstelle angesprochen
14.       wird, obwohl der entsprechende Funktionsbaustein nicht aktiv ist,
15.       d.h. nicht in der Liste der aktiven Aufrufe steht. Die Liste der
16.       aktiven Aufrufe kann diesem Kurzdump entnommen werden.

GeSHi ©

Dabei habe ich die Zeile vorher alles ganz sauber assigned... (zumal ich den Code aus einem Handbuch für dynamisches Open SQL habe)

[ewx]

Die stelle hier:

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

1. DATA: BEGIN OF wa,
2.         count   TYPE i.
3.         INCLUDE STRUCTURE spfli.
4. DATA END OF wa.
5.  

GeSHi ©

Jetzt werden nur die Felder von SPFLI inkludiert.
Den von dir definierten Arbeitsbereich müsstest du so ansprechen:
WA-INCLUDE-FELD1

[Rosa2799]

Hast recht, beim debuggen ist

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

1. WA-DISTANCE

GeSHi ©

leer, wohingegen

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

1. WA-INCLUDE-DISTANCE

GeSHi ©

gesetzt ist. Wie kriege ich das denn jetzt in diesen Zeilen

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

1.     WRITE / wa-count.
2.     LOOP AT group_list INTO name.
3.       ASSIGN COMPONENT name OF STRUCTURE wa TO <fs>.
4.       WRITE <fs>.
5.     ENDLOOP.

GeSHi ©

korrigiert?

-----

Edit: Lösung gefunden, trivial!

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

1.     WRITE / wa-count.
2.     LOOP AT group_list INTO name.
3. ************************************************************
4.       ASSIGN COMPONENT name OF STRUCTURE wa-include TO <fs>.
5. ************************************************************
6.       WRITE <fs>.
7.     ENDLOOP.

GeSHi ©

Danke auf jeden Fall für den Hinweis!