CLAF_CLASSIFICATION_OF_OBJECTS

BabsiCSC hat geschrieben:
LOOP AT it_objectdata INTO ls_objectdata.

fieldname = sy-tabix.

CONCATENATE 'AUSP1_' fieldname INTO fieldname.
ASSIGN COMPONENT fieldname OF STRUCTURE ls_data TO <l_field>.

.......

Also, sy-tabix gibt dir beim Durchlauf der Tabelle immer die aktuelle Zeile (beginnend mit 1) an. Da man sy-tabix beim concatenate nicht direkt angeben kann, die Sache mit fieldname = sy-tabix. OK, damit bekommt fieldname die Werte '1', '2'... Damit ergibt sich für das concatenate bei jedem Durchlauf:
CONCATENATE 'AUSP1_' fieldname INTO fieldname. => AUSP1_1
CONCATENATE 'AUSP1_' fieldname INTO fieldname. => AUSP1_2
CONCATENATE 'AUSP1_' fieldname INTO fieldname. => AUSP1_3
....
Wir basteln also die Feldnamen 'AUSP1_1', 'AUSP1_2'....
Tue mir den Gefallen und benenne deine ersten AUSP1_-Felder entsprechend um. Also AUSP1_01 => AUSP_1...AUSP1_09 => AUSP1_9.

Dann mache einen Breakpoint an der IF .. is assigned. Nur wenn er da rein geht, gehen auch die Daten in deine Struktur.

Grüße

Udo

Hallo,

Es wurden nun ein paar Änderungen durchgeführt, lt. debug schreibt er richtig , jedoch klappt es mit der Ausgabe noch nicht!
Woran liegt da der Fehler?

Danke!
lG


LOOP AT it_equi INTO wa_equi.


MOVE-CORRESPONDING t352r TO wa_data.


wa_data-revnr = zpmm_t352r_iflot-revnr.
wa_data-revtx = t352r-revtx.
wa_data-equnr = wa_equi-equnr.
wa_data-class = lw_ziappliclass-class.


l_object = wa_data-equnr.

CALL FUNCTION 'CLAF_CLASSIFICATION_OF_OBJECTS'
EXPORTING
class = lw_ziappliclass-class
classtext = 'X'
classtype = '002'
clint = 0
features = 'X'
language = sy-langu
object = l_object
* OBJECTTABLE = ' '
key_date = sy-datum
* INITIAL_CHARACT = 'X'
* NO_VALUE_DESCRIPT =
change_service_clf = 'X'
* INHERITED_CHAR = ' '
* CHANGE_NUMBER = ' '
TABLES
t_class = it_class
t_objectdata = it_objectdata
* I_SEL_CHARACTERISTIC =
* T_NO_AUTH_CHARACT =
EXCEPTIONS
no_classification = 1
no_classtypes = 2
invalid_class_type = 3
OTHERS = 4
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.


LOOP AT it_objectdata INTO ls_objectdata.

fieldname = sy-tabix.


CONCATENATE 'WA_DATA-AUSP1_' fieldname INTO fieldname.
ASSIGN (fieldname) TO <l_field>.


IF <l_field> IS ASSIGNED.

<l_field> = ls_objectdata-ausp1.

ENDIF.


ENDLOOP.

* APPEND ls_data TO it_data.


APPEND wa_data TO it_data.

ENDLOOP.

Hallo,

Danke für die Hilfe!
Mittlerweile lassen sich die Daten erfolgreich in meinem ALV ausgeben.
-> Der richtige Codeteil sieht dafür so aus:
" ...
LOOP AT it_equi INTO wa_equi.


MOVE-CORRESPONDING t352r TO wa_data.


wa_data-revnr = zpmm_t352r_iflot-revnr.
wa_data-revtx = t352r-revtx.
wa_data-equnr = wa_equi-equnr.
wa_data-class = lw_ziappliclass-class.


l_object = wa_data-equnr.

CALL FUNCTION 'CLAF_CLASSIFICATION_OF_OBJECTS'
EXPORTING
class = lw_ziappliclass-class
classtext = 'X'
classtype = '002'
clint = 0
features = 'X'
language = sy-langu
object = l_object
* OBJECTTABLE = ' '
key_date = sy-datum
* INITIAL_CHARACT = 'X'
* NO_VALUE_DESCRIPT =
change_service_clf = 'X'
* INHERITED_CHAR = ' '
* CHANGE_NUMBER = ' '
TABLES
t_class = it_class
t_objectdata = it_objectdata
* I_SEL_CHARACTERISTIC =
* T_NO_AUTH_CHARACT =
EXCEPTIONS
no_classification = 1
no_classtypes = 2
invalid_class_type = 3
OTHERS = 4
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.


CLEAR counter.

LOOP AT it_objectdata INTO ls_objectdata.

ADD 1 TO counter.

CONCATENATE 'WA_DATA-AUSP1_' counter INTO fieldname.
ASSIGN (fieldname) TO <l_field>.


IF <l_field> IS ASSIGNED.

IF ls_objectdata-ausp1 = '?'.
<l_field> = ''.

ELSE.

<l_field> = ls_objectdata-ausp1.

ENDIF.

ENDIF.


ENDLOOP.


APPEND wa_data TO it_data.

ENDLOOP.
... "

Nun habe ich "das Problem", dass ich die Überschriften des SMBEZ dazu von Zeilen in den entsprechenden Spalten ausgeben möchte.
Einen Fkt.baustein gibt es doch dafür, den habe ich bereits eingebaut.
-> ein concatenate brauche ich in dem Fall doch nicht, oder???

** Überschriften zu den Texten lesen.
CALL FUNCTION 'BAPI_CLASS_GETDETAIL'
EXPORTING
classtype = '002'
classnum = lw_ziappliclass-class
* LANGUISO =
languint = sy-langu
* KEYDATE = SY-DATUM
* IMPORTING
* CLASSBASICDATA =
* CLASSDOCUMENT =
* CLASSADDITIONAL =
* CLASSSTANDARD =
* RETURN =
* TABLES
* CLASSDESCRIPTIONS =
* CLASSLONGTEXTS =
* classcharacteristics =
* CLASSCHARVALUES =
.

CLEAR counter.

LOOP AT it_objectdata INTO ls_objectdata.

ADD 1 TO counter.


READ TABLE it_fieldcat INTO lw_fieldcat WITH KEY fieldname = 'SMBEZ'.

IF sy-subrc = 0.

lw_fieldcat-seltext_s = lw_fieldcat-seltext_m =
lw_fieldcat-seltext_l = ls_objectdata-smbez.

MODIFY it_fieldcat FROM lw_fieldcat INDEX sy-tabix.

ENDIF.


ENDLOOP.

Bitte um Hilfe.

Danke!!
lG