03-30-2007 6:15 AM
Hi...
Function Module : ISR_NOTIFICATION_CREATE.
Import Parameters : IS_GENERAL_DATA
IT_SPECIAL_DATA
IT_LONGTEXT
I am able to retrieve the data stored in IT_SPECIAL_DATA using the Function Module ISR_SPECIAL_DATA_GET.
How do we retieve the data that we saved using IT_LONGTEXT ?
Thanks,
Sharath M G
03-30-2007 6:40 AM
Hello Sharan
Function module IQS0_ADD_NOTIFICATION_LONGTEXT is finally responsible to add new longtexts to a notification. Within the coding you will find the following routine:
...
*--- Longtext
*--- Textschlüssel zur Meldung
LTXTOBJ-QMNUM = I_QMNUM.
CONDENSE LTXTOBJ NO-GAPS.
MOVE LTXTOBJ TO G_TEXTOBJEKT.
MOVE LTXTOBJ TO G_OBJEKT.
PERFORM TEXT_ANLEGEN_F50 TABLES T_INLINES
USING G_TEXTOBJEKT
G_OBJEKT
VIQMEL-KZMLA
YQMEL
VIQMEL-INDTX
CHANGING VIQMEL-INDTX.
*--- Check the messages
PERFORM MSG_SHOW_F08.
...
Within the routine the previous longtext is read using function module
READ_TEXT
and new longtext is added at the beginning:...
* Falls bereits zuvor ein Langtext existiert ==> Langtext lesen
* und vor den neuen Langtext einfügen
IF P_INDTX = YX.
CALL FUNCTION 'READ_TEXT'
EXPORTING
ID = WVIQMEL-YTDID
LANGUAGE = P_LANGU
NAME = P_TEXTOBJEKT
OBJECT = P_LEVEL
TABLES
LINES = L_LINE_TAB
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.
IF SY-SUBRC = 0.
* Langtext vor neuen Text einfuegen
L_ZEILE = 1.
...
Regards
Uwe
03-30-2007 6:40 AM
Hello Sharan
Function module IQS0_ADD_NOTIFICATION_LONGTEXT is finally responsible to add new longtexts to a notification. Within the coding you will find the following routine:
...
*--- Longtext
*--- Textschlüssel zur Meldung
LTXTOBJ-QMNUM = I_QMNUM.
CONDENSE LTXTOBJ NO-GAPS.
MOVE LTXTOBJ TO G_TEXTOBJEKT.
MOVE LTXTOBJ TO G_OBJEKT.
PERFORM TEXT_ANLEGEN_F50 TABLES T_INLINES
USING G_TEXTOBJEKT
G_OBJEKT
VIQMEL-KZMLA
YQMEL
VIQMEL-INDTX
CHANGING VIQMEL-INDTX.
*--- Check the messages
PERFORM MSG_SHOW_F08.
...
Within the routine the previous longtext is read using function module
READ_TEXT
and new longtext is added at the beginning:...
* Falls bereits zuvor ein Langtext existiert ==> Langtext lesen
* und vor den neuen Langtext einfügen
IF P_INDTX = YX.
CALL FUNCTION 'READ_TEXT'
EXPORTING
ID = WVIQMEL-YTDID
LANGUAGE = P_LANGU
NAME = P_TEXTOBJEKT
OBJECT = P_LEVEL
TABLES
LINES = L_LINE_TAB
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.
IF SY-SUBRC = 0.
* Langtext vor neuen Text einfuegen
L_ZEILE = 1.
...
Regards
Uwe