03-29-2006 7:46 AM
Hi!
is there any alternate function to EDIT_TEXT?
I want to change the text length of a standard text/long text, which function module to use?
Also, which function module SAP standard progam used to display a text and change a text length?
03-29-2006 7:52 AM
hi,
you can use SAVE_TEXT. IT IS USED TO EDIT/CREATE THE TEXT.
REGARDS
VIJAY
03-29-2006 7:55 AM
<b>SAVE_TEXT</b> To load long text into SAP
DATA: GW_THEAD LIKE THEAD,
IT_LINE TYPE
TABLE OF TLINE WITH HEADER LINE.
PARAMETERS: P_TXTNAM LIKE THEAD-TDNAME.
START-OF-SELECTION.
GW_THEAD-TDNAME = P_TXTNAM.
GW_THEAD-TDID = ST.
GW_THEAD-TDSPRAS = SY-LANGU.
GW_THEAD-TDOBJECT = TEXT.
IT_LINE-TDFORMAT = *.
IT_LINE-TDLINE = Test Create Text.
APPEND IT_LINE.
CALL FUNCTION SAVE_TEXT
EXPORTING
CLIENT = SY-MANDT
HEADER = GW_THEAD
INSERT =
SAVEMODE_DIRECT =
OWNER_SPECIFIED =
LOCAL_CAT =
IMPORTING
FUNCTION =
NEWHEADER =
TABLES
LINES = IT_LINE
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
OBJECT = 4
OTHERS = 5
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
regards
vinod
03-29-2006 7:56 AM
hi,
in standard programs <b>save_text</b> fm is used to create, and showing <b>read_text</b>.
regards
vijay
03-29-2006 7:57 AM
HI,
Try this fn module
IMG_EDIT_TEXT
or use:
INIT_TEXT - To load long text into SAP.
Regards,
Gayathri
Message was edited by: Gayathri Hariharan
03-29-2006 8:05 AM
REPORT ZTEXT .
TABLES: PBIM.
stxh, stxl, stxb - trans tables for text
ttxit - text on text-ids
ttxot - Short texts on text objects
Transaction MD63
SELECT-OPTIONS: S_MATNR FOR PBIM-MATNR,
S_WERKS FOR PBIM-WERKS.
DATA: BEGIN OF HTEXT.
INCLUDE STRUCTURE THEAD.
DATA: END OF HTEXT.
DATA: BEGIN OF LTEXT OCCURS 50.
INCLUDE STRUCTURE TLINE.
DATA: END OF LTEXT.
DATA: BEGIN OF DTEXT OCCURS 50.
DATA: MATNR LIKE PBIM-MATNR.
INCLUDE STRUCTURE TLINE.
DATA: END OF DTEXT.
DATA: TNAME LIKE THEAD-TDNAME.
SELECT * FROM PBIM WHERE WERKS IN S_WERKS.
MOVE PBIM-BDZEI TO TNAME.
CALL FUNCTION <b><b>'READ_TEXT'</b></b>
EXPORTING
CLIENT = SY-MANDT
ID = 'PB'
LANGUAGE = 'E'
NAME = TNAME
OBJECT = 'PBPT'
ARCHIVE_HANDLE = 0
IMPORTING
HEADER = HTEXT
TABLES
LINES = LTEXT
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.
LOOP AT LTEXT.
IF LTEXT-TDLINE NE ''.
MOVE LTEXT-TDLINE TO DTEXT-TDLINE.
MOVE PBIM-MATNR TO DTEXT-MATNR.
APPEND DTEXT.
ENDIF.
ENDLOOP.
ENDSELECT.
LOOP AT DTEXT.
WRITE:/ DTEXT-MATNR, DTEXT-TDLINE.
ENDLOOP .
regards
vinod