‎2007 Aug 07 6:36 PM
Hi friends,
i need to display text in the output from se75 text objects.
my text Object name is EKPO and id is F01.
i need to extract text into a 300 character variable..
please help me how to do .
‎2007 Aug 07 6:48 PM
HI,
DATA : X_THEAD LIKE THEAD.
CLEAR X_THEAD.
X_THEAD-TDID = 'ST'.
X_THEAD-TDSPRAS = 'EN'.
X_THEAD-TDNAME = 'Z_PS_DEALTYPE'."Standard Text Name
X_THEAD-TDOBJECT = 'TEXT'.
*-- Read the Standard Text which contains Old and New Deal Type Values
CALL FUNCTION 'READ_TEXT'
EXPORTING
ID = X_THEAD-TDID
LANGUAGE = X_THEAD-TDSPRAS
NAME = X_THEAD-TDNAME
OBJECT = X_THEAD-TDOBJECT
TABLES
LINES = I_DEALTYPE_TEXT
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.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3
Endif.
Thanks
mahesh
‎2007 Aug 07 6:40 PM
‎2007 Aug 07 6:48 PM
HI,
DATA : X_THEAD LIKE THEAD.
CLEAR X_THEAD.
X_THEAD-TDID = 'ST'.
X_THEAD-TDSPRAS = 'EN'.
X_THEAD-TDNAME = 'Z_PS_DEALTYPE'."Standard Text Name
X_THEAD-TDOBJECT = 'TEXT'.
*-- Read the Standard Text which contains Old and New Deal Type Values
CALL FUNCTION 'READ_TEXT'
EXPORTING
ID = X_THEAD-TDID
LANGUAGE = X_THEAD-TDSPRAS
NAME = X_THEAD-TDNAME
OBJECT = X_THEAD-TDOBJECT
TABLES
LINES = I_DEALTYPE_TEXT
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.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3
Endif.
Thanks
mahesh
‎2007 Aug 07 6:56 PM
Hi ,
thanks for your reply do i need to pass this output from the fm into a internal table where ,
can i have only one field with 300 characters will it get filled.
‎2007 Aug 07 6:58 PM
Pass a internal table with a filed of 300 length and read the table index 1..
thanks
Mahesh