TYPES : BEGIN OF TY_KLAH ,
CLASS TYPE KLAH-CLASS,
KLART TYPE KSSK-KLART,
CLINT TYPE KSSK-CLINT,
END OF TY_KLAH.
TYPES : BEGIN OF TY_SWOR ,
CLINT TYPE SWOR-CLINT,
SPRAS TYPE SWOR-SPRAS,
KLPOS TYPE SWOR-KLPOS,
KSCHL TYPE SWOR-KSCHL,
END OF TY_SWOR.
DATA: BEGIN OF T_TEMP OCCURS 0,
CLASS LIKE KLAH-CLASS, "Class number
KLART LIKE KLAH-KLART, "Class type
CLINT LIKE KLAH-CLINT, "Internal class number
END OF T_TEMP.
DATA : IT_SWOR TYPE TABLE OF TY_SWOR, WA_SWOR LIKE LINE OF IT_SWOR.
DATA : IT_KLAH TYPE TABLE OF TY_KLAH, WA_KLAH LIKE LINE OF IT_KLAH.
SELECT SINGLE SCLASS SKLART L~CLINT INTO
(T_TEMP-CLASS, T_TEMP-KLART, T_TEMP-CLINT)
FROM KSSK AS L INNER JOIN KLAH AS S ON SCLINT EQ LCLINT
WHERE L~OBJEK EQ MATNR .
CLEAR :IT_TEXT[],WA_TEXT.
SELECT * FROM KSML WHERE CLINT = T_TEMP-CLINT
AND KLART = T_TEMP-KLART.
SELECT * FROM AUSP WHERE OBJEK = MATNR
AND ATINN = KSML-IMERK
AND KLART = KSML-KLART.
SELECT SINGLE * FROM CABN WHERE ATINN = AUSP-ATINN.
MOVE CABN-ATNAM TO WA_TEXT-ATNAM. "Characteristics desc.
MOVE AUSP-ATWRT TO WA_TEXT-ATWRT. "Characteristics Value
MOVE CABN-ATINN TO WA_TEXT-ATINN.
APPEND WA_TEXT TO IT_TEXT.
CLEAR: WA_TEXT.
ENDSELECT. "ausp
ENDSELECT.
DELETE IT_TEXT WHERE ATWRT IS INITIAL.
LOOP AT IT_TEXT INTO WA_TEXT.
SELECT SINGLE ATBEZ INTO WA_TEXT-ATBEZ FROM CABNT
WHERE ATINN = WA_TEXT-ATINN AND SPRAS = 'EN' . "SY-LANGU.
MODIFY IT_TEXT FROM WA_TEXT.
CLEAR WA_TEXT.
ENDLOOP.
Bluesky
