Long text updation using QSS_TEXT_PROCESSING

Hi,
I am entering Long text in Inspect. description QE17 using QSS_TEXT_PROCESSING from custom program.
I could able to open editor (which comes in SAP standard transaction QE17) and enters text .Also the text module is been created.
If you check STXH table -there is an entry, But long text indicator is not being updated.
Can you please advice me how to use QSS_TEXT_PROCESSING function module or any means of updating Long text for Insp.description .
Thanks in Advance,
R.Gopal

Hi,
I think in READ_TEXT , the paramters what you are passing incorrect.
go to that CJ20n text block -> doublick.. it will take you to the standard text screen
goto GOTO->HEADER in menu... take the paraemters from that screen.
Text Name
Language
Text ID
Text Objec
regrds,
Rama reddy
Edited by: ram reddy on Jul 14, 2009 7:18 PM

Similar Messages

Delivery text updation using user exits

Hii All
Our client has a requirment where we need to update text in delivery header when we save the delivery.
The delivery text needs to be updated when we save the delivery.
Can anyone help me in letting me know steps to be followed to do the same.
Thanks & Regards,
Gaurav Manocha

First of all identify the text id associated with your delivery. Once you identify the text id, change the text id in the sample program below. You can have this logic coded within your MV50AFZ1 user exit
data: w_txt_hdr LIKE thead,
 i_text LIKE tline OCCURS 0 WITH HEADER LINE,
 i_text-tdformat = '* '.
 i_text-tdline = 'sample'.
 append i_text.
 w_txt_hdr-tdobject = 'VBBK'.
 w_txt_hdr-tdname = likp-vbeln.
 w_txt_hdr-tdid = '0008'. "text id
 w_txt_hdr-tdspras = sy-langu.
 CALL FUNCTION 'SAVE_TEXT'
 EXPORTING
 client = sy-mandt
 header = w_txt_hdr
 savemode_direct = 'X'
 TABLES
 lines = i_text
 EXCEPTIONS
 id = 1
 language = 2
 name = 3
 object = 4
 OTHERS = 5.
 IF sy-subrc <> 0.
 ENDIF.

About updating long text in the document item with bdc of fb02

HI,
I have a question about updating long text in the document item of sap:
Can I directly updating the long text information with the fuction save_text?
The long text is in :
tcode: fb02 -->input document no ... --> Document overview --> select one document
long text --> updating the value.
Becaust I want to update some items in a G/L Account with bdc or other technique, but I found I can't choose the items in the G/L Account with bdc automatically .That means I can't get the selected items and update them.So I try to update them with the function save_text directly (I know the doc no，bukrs,fiscal year ,item no which will decide the long text item).
Who can help me ?Or is there any way to solve the problem? Thanks very much.

Yes, you can update directly using SAVE_TEXT.
Check this for the same.
[update long text in FB02|https://forums.sdn.sap.com/click.jspa?searchID=22194840&messageID=5418662]

Use SQL to get long text

Hi,
Is it possible to retrieve the long text in STXH and STXL by SQL instead of READ_TEXT FM?? How can i covert the HEX text back to normal text??
Regards,
Kit

Hi,
1. Only the way to Read long text is use the function module READ_TEXT for which u need to pass TEXTOBJECT, TEXTID, TEXTLANGUAGE AND ONEMORE(I FORGET).
Because the STXL and STXH these tables are cluster tables in which data stored in LRAW field which is in RAW format which u can not understand and our normal SQL can also.
2. so u can read most of cluster tables by Function modules only.
3. u can modify or saved by save_text

How to UPLOAD Long Text in QS21

Dear All,
I have written BDC to upload Master Inspection Characterstics,
The Problem is I need to upload the long Text, (which is of some 250 chars).
How to do this.
Help is appriciated.
Thanks in advance
Arun

Hi,
I think there is an ICON to enter the long text.
U can start filling the LONG text here using
RSTXT-TXLINE(03) - this takes around 70 chars the next
chars in RSTXT-TXLINE(04) and so on. U can get this
in SHDB recording.
Regards,
GSR.

Problem in loading the long text in bdc.

Hai Friends,
              I am uploading the material master using bdc, Here i need to upload the long text field. so am using the separate report for upload the long text field using the create_text function module. but the problem is the long text field only accepting 132 charactors. but i need to upload the 500 charactors. what i want to do now ?
Regards ,
Sathis Kumar R

Hi Sathis,
What u do is that while recording the text part in bdc , click on the first delete button, and then create button and after that double click on the editor or click on the text-editor change button, a window will get opened , then click go-to menu -> change editor.
there u can use loop the text table and wirte it according .
eg
PERFORM bdc_dynpro      USING 'SAPMV45A' '4002'.
PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=TP_DELETE'.            "first delete
PERFORM bdc_dynpro      USING 'SAPMV45A' '4002'.
PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=TP_CREATE'.             " then create
PERFORM bdc_field       USING 'LV70T-SPRAS'
                                sy-langu.
PERFORM bdc_dynpro      USING 'SAPMV45A' '4002'.
PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=TP_DETAIL'.             "if not double click then click on change button after the delete button and then click on the change-editor menu .
PERFORM bdc_field       USING 'LV70T-SPRAS'
                                sy-langu.
PERFORM bdc_dynpro      USING 'SAPLSTXX' '1100'.
PERFORM bdc_field       USING 'BDC_CURSOR'
                                'RSTXT-TXLINE(02)'.
PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=TXVB'.
PERFORM bdc_field       USING 'RSTXT-TXPARGRAPH(02)'
PERFORM bdc_field       USING 'RSTXT-TXPARGRAPH(03)'
PERFORM bdc_field       USING 'RSTXT-TXLINE(02)'
                                wa_itab-htext1.
PERFORM bdc_field       USING 'RSTXT-TXLINE(03)'
                                wa_itab-htext2.
PERFORM bdc_dynpro      USING 'SAPLSTXX' '1100'.
PERFORM bdc_field       USING 'BDC_CURSOR'
                                'RSTXT-TXLINE(02)'.
PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=TXBA'.
PERFORM bdc_dynpro      USING 'SAPMV45A' '4002'.
PERFORM bdc_field       USING 'BDC_OKCODE'
                                '/EBACK'.
regards,
Santosh Thorat

Problem in downloading long text

Hi Experts,
I am facing problem while downloading long text.
previously it was working 5ne. now it is giving the error meaasge
ID ST Language En not found
is there any settings to do.
Thanks & Regards
Sangareddy

In a SAPscript you do not need to use ABAP code to retrieve long text - Just use the INCLUDE command in SAPSCRIPT - see help for details
/: INCLUDE name [OBJECT o] [ID i] [LANGUAGE l] [PARAGRAPH p]
this puts the complete long text in and formats it for the window
Long text problem in sap script
Reward points..

Post long text in ' F-65 '.

Hi experts,
I have a program to upload to ' f-65 ' tcode, from the flat file.
i uploaded using bdc, there is an error in long text, as per my requirement it should be more than 200characters, but in the posting it accepting only 72characters only, if the text has more than 72 , then it showing error ' Text length is more than Screen field '... some body told use create_text Function module...
but i'm not getting clear idea.. can any body advice me with relavant coding.
Thank you.
Regards
Ravi M

Once the document is posted thru F-65 then use the document number to create the long text by using the FM INSERT_TEXT. Pass the parameters Text name ( it is combination of document number ), language, text id and text object.
Goto the long text editer then GOTO -> HEADER. here you can find the required details to pass the FM.
Step1 : Post the document thru F-65.
step2: Upload the long text by using the Function Module: INSERT_TEXT

Performance Assistant Long text Corrupt in NW04s BI

Hi all,
after installing SAP Netweaver 2004s SP08, I have experienced problems in displaying message longtexts. in all the place
One example for the characters that get displayed instead of the correct longtext:
This is Unicode code BI ABAP + JAVA system. Please help in this
 㱳瑹汥⁴祰攽≴數琯捳猢㸠㰡ⴭ⁢潤礬⁴慢汥Ⱐ瑤Ⱐ瑲⁻⁢慣歧牯畮搭捯汯爺                                      ⍦敦敥攻⁦潮琭晡浩汹㩡物慬㬠景湴⵳瑹汥㩮潲浡氻⁦潮琭獩穥㨹灴㬠                                      捯汯爺⌰〰〰〻⁽⁨ㄬ⁨㈬⁨㌬⁨㐬⁨㔠笠捯汯爺‣〰〰㠰㬠素愺汩湫⁻                                      捯汯爺⌰〶㍁㐻⁴數琭摥捯牡瑩潮㩮潮攻⁽⁡㩶楳楴敤⁻⁣潬潲㨣㠰㝦㜵㬠                                      瑥硴ⵤ散潲慴楯渺湯湥㬠素愺慣瑩癥⁻⁣潬潲㨣㠰㝦㜵㬠瑥硴ⵤ散潲慴楯渺湯湥㬠                                      素愺桯癥爠笠捯汯爺⍦〰〰〻⁴數琭摥捯牡瑩潮㩮潮攻⁽‮扵瑴潮
TH                              

the Messages are usually maintined via SE91. Create a Message.
Select the Message and navigate to
Goto->Documentation->Long Text.
and maintain the long Text there
use BAPI_MESSAGE_GETDETAIL to retrive the msg
A

Creation of short text and long text?

Hi,
We create short text by using oe_fnd_attachments_pub.create_short_text_document and oe_fnd_attachments_pub.add_attachment API and to create long text we use fnd_documents_pkg.insert_row .
Why is it that we have different approaches for creation of short text and long text?
I know that oe_fnd_attachments_pub.add_attachment is used to attach a short text to some entity,but then why we dont do the same for long text?
Please lemme knw urgently ...
Thanks and Regards
Amar

Thanks for the help,
I looked into the document and i got to know few things as to how short and long text are created, but can u tell when the records are inserted into fnd_attached_documents, because i can see that records are inserted into fnd_attached_short_text and fnd_attached_long_text, fnd_documents but i dont see any insertion into fnd_attached_documents, can u lemme knw how and when it is done?

Char. formats(Bold, Underline) in Long text editor not visible in ABAP WD

Hi ABAP experts,
Problem:
I have created long text with using bold and under line formats in long text editor (FM TEXT_ EDIT). I am trying to show same text in WebDynpro using READ_TEXT FM. But FM READ_TEXT is getting long text with HTML tags as shown below for bold and underline and it long text showed as same in WebDynpro application with HTML tags.
Long text shown in webdynpro:
Type your message using the form below. When finished, you can
optionally preview your post by clicking on the <H>"Preview"</> tab.
Otherwise, click the <H>"Post Message"</></> button to submit your
message immediately.
Is there any function module available to change format and pass to WebDynpro context?
Thanks
Rajesh Yadla

The normal text editor in Web Dynpro won't handle HTML tags (they get safe encoded as you described). In NetWeaver 7.01 we do introduce a FormattedTextEditor that allows for such formatting. There are APIs to convert from SAPScript based texts to the XHTML FormattedText tags.
http://help.sap.com/saphelp_nw70ehp1/helpdata/en/44/2772f505605447e10000000a422035/frameset.htm

Messages: replacing &V1& and &V2& in long text

Hello,
I have defined a message with short and long text.
In the short text, I use &1 and &2, in the long text I use &V1& and &V2& as described in the ABAP help.
I call the message like this:
MESSAGE w050(zmessclass) WITH i_mess1 i_mess2
I get replaced &1 and &2 in the short text but no replacement of &V1& and &V2&. How is it working in long text?
Thanks
Stephan.

Hi,
Instead of typing the &V1& and &V2& directly into the long text editor yourself, choose the "Insert Command" function (Ctrl-F9) instead. In the popup for this function you will see several types of commands. Within the "Symbols" section type in &V1& and press enter. Repeat this for &V2&.
You will now see that &V1& and &V2& are highlighted (gray). Activate your text and try again. Your long text should now show the variables in place of &V1& and &V2&.
Regards,
Jamie

Disable long text

Hi experts,
Iam working on Dialog programming.
I have created long text(container) using custom control.
When display mode i want to disable this container.
Can any one tell me how i can i disable?Is it possible using Loop at screen?
Thanks
kaki

I would use the other method but this one should be ok too...
1. what values are you passing in the parameters
2. have you 'created' the txt object and it's parent container? ie.
for these object declarations:
data: editor_obj type ref to cl_gui_textedit,
 editor_cont type ref to cl_gui_custom_container.
I had to:
create object editor_cont exporting container_name = 'C_TEXT'.
create object editor_obj exporting parent = editor_cont
 wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
 wordwrap_position = 79
 wordwrap_to_linebreak_mode = cl_gui_textedit=>true.
First answer accepted:
Ignore the above then! Thanks for the points.

Recording long text

Hi,
Basically using TCode SHDB I'm trying to record a transaction (CJ06) that requires saving of a "long text" field. When I tried to save my recording it seems that the "long text" field was not captured. Is there a technique to do this?
Will greatly appreaciate feedback. Thanks!

RUN THIS CODE IN DEBUGGING MODE THEN U WILL KNOW HOW TO SOLVE UR PROBLEM.
DONT FORGET TO REWARD POINTS
TYPE-POOLS: slis.
"All the definitions of internal tables, structures and constants are de
"fined in type-pool SLIS
 TABLES *
TABLES: t134,mara.
 DECLARING STRUCUTURES *
*&--defining types for structure T_MARA
TYPES: BEGIN OF t_mara,
 matnr TYPE matnr,
 mtart TYPE mtart,
 meins TYPE meins,
 tline(132),
 v_lights(4),
 v_box(1),
 long_text(70),
 END OF t_mara.
 Data Declaration
DATA: n TYPE n.
DATA: c TYPE c.
DATA: v_var(50).
DATA: wa_mara TYPE t_mara.
DATA: it_tab LIKE bdcdata OCCURS 0 WITH HEADER LINE.
DATA: it_mara TYPE STANDARD TABLE OF t_mara.
DATA: bildsequence LIKE t133a-bilds.
DATA: pass_tab LIKE mbildtab OCCURS 0 WITH HEADER LINE.
DATA: wa_pass_tab TYPE mbildtab.
DATA: t_object(10).
DATA: t_name(70).
DATA: t_id(4).
DATA: t_spras(1).
DATA: wa_layout TYPE slis_layout_alv.
DATA: t130m LIKE t130m.
DATA: wa_str TYPE tline.
DATA: str LIKE tline OCCURS 0 WITH HEADER LINE.
DATA: it_long TYPE STANDARD TABLE OF tline.
DATA: i_fieldcat TYPE slis_t_fieldcat_alv,
 i_eventcat TYPE slis_t_event,
 i_eventcat1 TYPE slis_t_event,
 i_fieldcat1 TYPE slis_t_fieldcat_alv.
DATA : wa_fieldcat1 TYPE slis_fieldcat_alv.
DATA: r_ucomm LIKE sy-ucomm.
DATA: it_listheader TYPE slis_t_listheader.
DATA: reply(1).
DATA: v_path TYPE string. "Temp variable for quantity
DATA : IT_VARIANT LIKE DISVARIANT,
 IT_VARIANT1 LIKE DISVARIANT.
 define macros *
DEFINE macro_fieldcat.
add 1 to l_fieldcat-col_pos.
l_fieldcat-fieldname = &1.
l_fieldcat-ref_tabname = &2.
l_fieldcat-outputlen = &3.
l_fieldcat-edit = &4.
l_fieldcat-input = &5.
l_fieldcat-seltext_l = &6.
append l_fieldcat to i_fieldcat.
END-OF-DEFINITION.
*defining local workarea
DATA: l_fieldcat TYPE slis_fieldcat_alv.
macro_fieldcat 'V_LIGHTS' 'IT_MARA' '4' '' '' 'T_LITE'.
macro_fieldcat 'MATNR' 'IT_MARA' '18' '' '' 'MATERIAL NO.'.
macro_fieldcat 'MTART' 'IT_MARA' '4' '' '' 'MATERIAL TYPE'.
macro_fieldcat 'LONG_TEXT' 'IT_MARA' '132' 'X' 'X' 'LONG TEXT'.
"use 00 for default
 INITIALIZATION EVENT *
*CLEARING THE BODY OF INTERNAL TABLES
REFRESH : it_tab.
*CLEARING THE WORK AREA
CLEAR : wa_mara.
perform check_p_var.
 SELECTION-SCREEN
*****SELECTION-SCREEN COMMENT /40(80) text-002.
*****SELECTION-SCREEN SKIP 9.
*****SELECTION-SCREEN BEGIN OF BLOCK charly WITH FRAME TITLE text-001.
*****SELECT-OPTIONS: k_matnr FOR wa_mara-matnr OBLIGATORY.
*****SELECTION-SCREEN END OF BLOCK charly.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: alv-list RADIOBUTTON GROUP gp1 DEFAULT 'X' USER-COMMAND chk,
 alv-grid RADIOBUTTON GROUP gp1.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
PARAMETERS: s_matnr TYPE mara-matnr MODIF ID g1.
SELECT-OPTIONS: k_matnr FOR mara-matnr MODIF ID g2.
SELECTION-SCREEN END OF BLOCK b2.
*FILE PATH
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS: p_path(128) TYPE c.
SELECTION-SCREEN END OF BLOCK b3.
PARAMETERS: p_var TYPE slis_vari.
 At Selection-Screen(output)
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
 IF alv-list = 'X' AND screen-group1 = 'G1'.
 screen-active = 0.
*screen-intensified = '1'.
 MODIFY SCREEN.
 ENDIF.
 IF alv-grid = 'X' AND screen-group1 = 'G2'.
 screen-active = 0.
 MODIFY SCREEN.
 ENDIF.
ENDLOOP.
 At Selection-Screen(VALIDATIONS)
AT SELECTION-SCREEN.
LOOP AT k_matnr.
 IF k_matnr-low = c AND k_matnr-high = n.
 message e017.
 ENDIF.
ENDLOOP.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_var.
Display a list of various variants of the report when the
user presses F4 key in the variant field
PERFORM variant_f4. "USING FM REUSE_ALV_VARIANT_F4
SELECT SINGLE matnr INTO wa_mara-matnr FROM mara
 WHERE matnr IN k_matnr.
IF sy-subrc <> 0.
 "If record not found
 MESSAGE 'Enter Valid Material Number' TYPE 'E'.
ENDIF.
 Start-of-selection
START-OF-SELECTION.
REFRESH it_mara.
CLEAR wa_mara.
IF alv-list = 'X'.
 SELECT matnr mtart meins INTO wa_mara FROM mara
 WHERE
 matnr IN k_matnr.
 APPEND wa_mara TO it_mara. "Uploading work area to the internal table
 ENDSELECT.
ELSEIF alv-grid = 'X'.
 SELECT matnr mtart meins INTO wa_mara FROM mara
 WHERE
 matnr EQ s_matnr.
 APPEND wa_mara TO it_mara. "Uploading work area to the internal table
 ENDSELECT.
ENDIF.
 END-OF-SELECTION
END-OF-SELECTION.
Declaration of All performs
PERFORM ZF_BUILD_FIELDCAT USING I_FIELDCAT.
PERFORM zf_top_of_page.
PERFORM zf_build_listheader USING it_listheader.
PERFORM zf_layout.
PERFORM zf_final_layout. " For populating Layout
PERFORM zf_build_eventcat USING i_eventcat.
" For populating eventcatalog
IF alv-grid = 'X'.
 PERFORM zf_display_alv_grid. " For displaying GRID ALV
ELSEIF alv-list = 'X'.
 PERFORM zf_display_alv_list.
ENDIF.
PERFORM zf_download.
*& Form zf_build_eventcat
 text
 -->P_I_EVENTCAT text
FORM zf_build_eventcat USING p_i_eventcat TYPE slis_t_event.
DATA: l_eventcat TYPE slis_alv_event.
CLEAR l_eventcat.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = p_i_eventcat
 EXCEPTIONS
 list_type_wrong = 1
 OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Top-of-page
CLEAR l_eventcat.
READ TABLE p_i_eventcat INTO l_eventcat WITH KEY name =
slis_ev_top_of_page.
IF sy-subrc = 0.
 MOVE 'ZF_TOP_OF_PAGE' TO l_eventcat-form.
 MODIFY p_i_eventcat FROM l_eventcat INDEX sy-tabix
 TRANSPORTING form.
ENDIF.
USER_COMMAND FROM
CLEAR l_eventcat.
READ TABLE p_i_eventcat INTO l_eventcat WITH KEY name =
slis_ev_user_command.
IF sy-subrc = 0.
 MOVE 'ZF_USER_COMMAND' TO l_eventcat-form.
 MODIFY p_i_eventcat FROM l_eventcat INDEX sy-tabix TRANSPORTING form
ENDIF.
*pf_status_set form
CLEAR l_eventcat.
READ TABLE p_i_eventcat INTO l_eventcat WITH KEY name =
slis_ev_pf_status_set.
IF sy-subrc = 0.
 MOVE 'ZF_PF_STATUS' TO l_eventcat-form.
 MODIFY p_i_eventcat FROM l_eventcat INDEX sy-tabix TRANSPORTING form
ENDIF.
ENDFORM. " zf_build_eventcat
*& Form zf_user_command
 text
--> p1 text
<-- p2 text
FORM ZF_USER_COMMAND USING r_ucomm type sy-ucomm rs_selfield TYPE
slis_selfield.
DATA: v_mat TYPE matnr.
CASE r_ucomm.
 WHEN 'BACK'.
 LEAVE TO LIST-PROCESSING.
CALL FUNCTION 'POPUP_TO_CONFIRM'
 EXPORTING
 TITLEBAR = ' '
 DIAGNOSE_OBJECT = ' '
 text_question = 'Do u want to leave'
 TEXT_BUTTON_1 = 'YES'(001)
 ICON_BUTTON_1 = ' '
 TEXT_BUTTON_2 = 'NO'(002)
 ICON_BUTTON_2 = ' '
 DEFAULT_BUTTON = '2'
 DISPLAY_CANCEL_BUTTON = 'X'
 USERDEFINED_F1_HELP = ' '
 START_COLUMN = 25
 START_ROW = 6
 POPUP_TYPE =
 IV_QUICKINFO_BUTTON_1 = ' '
 IV_QUICKINFO_BUTTON_2 = ' '
IMPORTING
 ANSWER = reply
TABLES
 PARAMETER =
EXCEPTIONS
 TEXT_NOT_FOUND = 1
 OTHERS = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
leave screen.
leave to list-processing and return to screen selection-screen.
*if reply = '1'.
*leave to screen 1000.
*endif.
 WHEN 'SAVE'.
 IF rs_selfield-fieldname = 'MATNR'.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = rs_selfield-value
 IMPORTING
 output = v_mat.
 LOOP AT it_mara INTO wa_mara WHERE matnr = v_mat.
 SELECT SINGLE * FROM t134 WHERE mtart = wa_mara-mtart.
 CALL FUNCTION 'MATERIAL_INIT'
 EXPORTING
 tcode = 'MM02'
 kz_berprf = 'X'
KZRFB = ' '
HERKUNFT = ' '
FLG_RETAIL = ' '
 IMPORTING
 it130m = t130m
KSTATUS =
TKSTATUS =
KZDCH =
 EXCEPTIONS
 no_authority = 1
 wrong_call = 2
 kstatus_empty = 3
 tkstatus_empty = 4
 aktyp_tcode_mismatch = 5
 tcode_not_found = 6
 material_article_mismatch = 7
 OTHERS = 8
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 CALL FUNCTION 'BILDSEQUENZ_IDENTIFY'
 EXPORTING
BRANCHE = ' '
 materialart = wa_mara-mtart
 tcode_ref = t130m-trref
KZRFB = ' '
 IMPORTING
 bildsequenz = bildsequence
KZ_BILDS_CHANGED =
 EXCEPTIONS
 wrong_call = 1
 not_found = 2
 OTHERS = 3
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 CALL FUNCTION 'SELECTION_VIEWS_FIND'
 EXPORTING
 bildsequenz = bildsequence
 pflegestatus = t130m-pstat
 TABLES
 bildtab = pass_tab
 EXCEPTIONS
 call_wrong = 1
 empty_selection = 2
 OTHERS = 3.
 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 pass_tab INTO wa_pass_tab WHERE guifu = 'SP01'.
 CONCATENATE 'MSICHTAUSW-KZSEL(' pass_tab-idxbd ')' INTO
 v_var.
 MODIFY pass_tab FROM wa_pass_tab.
 ENDLOOP.
 LOOP AT pass_tab.
 PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RMMG1-MATNR'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=AUSW'.
 PERFORM bdc_field USING 'RMMG1-MATNR'
 wa_mara-matnr.
 PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'MSICHTAUSW-DYTXT(01)'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=ENTR'.
 PERFORM bdc_field USING v_var
 'X'.
 PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=PB26'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'MAKT-MAKTX'.
 PERFORM bdc_field USING 'MAKT-MAKTX'
 'test kushagra test data'.
 PERFORM bdc_field USING 'MARA-MEINS'
 wa_mara-meins.
 PERFORM bdc_field USING 'MARA-MTPOS_MARA'
 'NORM'.
 PERFORM bdc_field USING 'DESC_LANGU_GDTXT'
 'E'.
 PERFORM bdc_dynpro USING 'SAPLMGMM' '4300'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=LTEX'.
 PERFORM bdc_field USING 'MAKT-MAKTX'
 'test kushagra test data'.
 PERFORM bdc_dynpro USING 'SAPLSTXX' '1100'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RSTXT-TXLINE(03)'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=TXVB'.
 PERFORM bdc_field USING 'RSTXT-TXLINE(03)'
 wa_mara-long_text.
 PERFORM bdc_dynpro USING 'SAPLSTXX' '1100'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RSTXT-TXLINE(02)'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=TXBA'.
 PERFORM bdc_dynpro USING 'SAPLMGMM' '4300'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=BABA'.
 PERFORM bdc_field USING 'MAKT-MAKTX'
 'test kushagra test data'.
 PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'MAKT-MAKTX'.
 PERFORM bdc_field USING 'MAKT-MAKTX'
 'test kushagra test data'.
 PERFORM bdc_field USING 'MARA-MEINS'
 'CAR'.
 PERFORM bdc_field USING 'MARA-MTPOS_MARA'
 'NORM'.
 PERFORM bdc_field USING 'DESC_LANGU_GDTXT'
 'E'.
 PERFORM bdc_dynpro USING 'SAPLSPO1' '0300'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=YES'.
 CALL TRANSACTION 'MM02' USING it_tab MODE 'A'.
 EXIT.
 ENDLOOP.
 ENDLOOP.
 ENDIF.
 WHEN '&IC1'.
 IF rs_selfield-fieldname = 'MATNR'.
*set parameter id 'MAT' field rs_selfield-value.
*call transaction 'MM03' AND SKIP FIRST SCREEN.
message i023 with rs_selfield-value.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = rs_selfield-value
 IMPORTING
 output = v_mat.
 t_object = 'MATERIAL'.
 t_id = 'GRUN'.
 t_name = v_mat.
 t_spras = 'EN'.
 CALL FUNCTION 'READ_TEXT'
 EXPORTING
 client = sy-mandt
 id = t_id
 language = t_spras
 name = t_name
 object = t_object
ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =
 TABLES
 lines = str
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.
 REFRESH i_fieldcat1.
 wa_fieldcat1-col_pos = '1'.
 "POSITION OF THE COLUMN
 wa_fieldcat1-fieldname = 'TDLINE'. "FIELD NAME
 wa_fieldcat1-tabname = 'STR'. "NAME OF INTERNAL TABLE
 WA_FIELDCAT-ref_tabname = 'MARA'. "FOR REFERENCE
*WA_FIELDCAT-key = 'X'. "MAKING FIELD AS KEY FIELD
 wa_fieldcat1-emphasize = 'C210'.
 wa_fieldcat1-outputlen = 72.
 "OUTPUT LENGTH FOR FIELD
 wa_fieldcat1-seltext_s = 'LONG TEXT'. "SHORT TEXT FOR HEADER
 WA_FIELDCAT-hotspot = 'X'.
 APPEND wa_fieldcat1 TO i_fieldcat1.
 "APPEND NEW LINE AT THE END
 CLEAR wa_fieldcat1.
 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 i_callback_program = sy-repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =
 it_fieldcat = i_fieldcat1
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS = i_eventcat1
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = str
 EXCEPTIONS
 program_error = 1
 OTHERS = 2
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 ENDIF.
 ENDIF.
*endif.
ENDCASE.
ENDFORM. " zf_user_command
*& Form zf_display_alv_grid
 text
--> p1 text
<-- p2 text
FORM zf_display_alv_grid .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 i_callback_program = sy-repid
 i_callback_pf_status_set = 'ZF_PF_STATUS'
 i_callback_user_command = 'ZF_USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
 is_layout = wa_layout
 it_fieldcat = i_fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
 IS_VARIANT = it_variant1
 it_events = i_eventcat
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = it_mara
 EXCEPTIONS
 program_error = 1
 OTHERS = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " zf_display_alv_grid
*& Form zf_layout
 text
--> p1 text
<-- p2 text
FORM zf_layout .
CLEAR wa_layout.
wa_layout-zebra = 'X'.
wa_layout-lights_fieldname = 'V_LIGHTS'.
wa_layout-lights_tabname = 'IT_MARA'.
wa_layout-box_fieldname = 'V_BOX'.
wa_layout-box_tabname = 'IT_MARA'.
ENDFORM. " zf_layout
*& Form zf_final_layout
 text
--> p1 text
<-- p2 text
FORM zf_final_layout .
LOOP AT it_mara INTO wa_mara.
 DATA: v_mat TYPE matnr.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = wa_mara-matnr
 IMPORTING
 output = v_mat.
 t_object = 'MATERIAL'.
 t_id = 'GRUN'.
 t_name = v_mat.
 t_spras = 'EN'.
 CALL FUNCTION 'READ_TEXT'
 EXPORTING
CLIENT = SY-MANDT
 id = t_id
 language = t_spras
 name = t_name
 object = t_object
ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =
 TABLES
 lines = str
 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 SY-MSGV4.
 ENDIF.
 IF sy-subrc = 0.
 READ TABLE str INDEX 1 INTO wa_str-tdline.
 IF wa_str-tdline = '* IMPORTANT'.
 wa_mara-v_lights = '3'.
 MODIFY it_mara FROM wa_mara TRANSPORTING v_lights.
 ELSE.
 wa_mara-v_lights = '2'.
 MODIFY it_mara FROM wa_mara TRANSPORTING v_lights.
 ENDIF.
 ELSE.
 wa_mara-v_lights = '1'.
 MODIFY it_mara FROM wa_mara TRANSPORTING v_lights.
 ENDIF.
ENDLOOP.
ENDFORM. " zf_final_layout
*& Form bdc_dynpro
 text
 -->P_0610 text
 -->P_0611 text
FORM bdc_dynpro USING program dynpro.
CLEAR it_tab.
it_tab-program = program.
it_tab-dynpro = dynpro.
it_tab-dynbegin = 'X'.
APPEND it_tab.
ENDFORM. " bdc_dynpro
*& Form bdc_field
 text
 -->P_0624 text
 -->P_0625 text
FORM bdc_field USING fnam fval.
CLEAR it_tab.
it_tab-fnam = fnam.
it_tab-fval = fval.
APPEND it_tab.
ENDFORM. " bdc_field
*& Form zf_top_of_page
 text
--> p1 text
<-- p2 text
FORM zf_top_of_page .
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = it_listheader
 i_logo = 'ENJOYSAP_LOGO'
I_END_OF_LIST_GRID =
ENDFORM. " zf_top_of_page
*& Form ZF_BUILD_LISTHEADER
 text
 -->P_IT_LISTHEADER text
FORM zf_build_listheader USING p_it_listheader TYPE
slis_t_listheader.
DATA: l_listheader TYPE slis_listheader.
REFRESH p_it_listheader.
CLEAR l_listheader.
l_listheader-typ = 'H'. "Header
l_listheader-key = 'FCIL,INDIA'. "Ignored for "Header" Type
l_listheader-info = 'FUJITSU CONSULTING INDIA LIMITED'.
APPEND l_listheader TO p_it_listheader.
CLEAR l_listheader.
l_listheader-typ = 'S'.
l_listheader-key = 'DATE'.
l_listheader-info = sy-datum.
APPEND l_listheader TO p_it_listheader.
CLEAR l_listheader.
l_listheader-typ = 'S'.
l_listheader-key = 'TIME'.
l_listheader-info = sy-uzeit.
APPEND l_listheader TO p_it_listheader.
CLEAR l_listheader.
l_listheader-typ = 'S'.
l_listheader-key = 'COMMENT'."Ignored for "action" Type
l_listheader-info = 'Possibilities are infinite'.
APPEND l_listheader TO p_it_listheader.

Va02 long text

Hi All,
I have a requirement like i need to disable terms of payments long text if long text is available.
I know how to read that long text by using read_text function module but i dont know if text is there how to make the long text filed in non editable mode.Please let me know your views.
Thanks in advance.

Hi Kota,
This i did for vl02n. I am not sure about va02. Just check this you may get an idea.
1) PERFORM TEXT_CONTROL_EINGABEBEREIT 2) Go to this subroutine and then Program u2013> Enhance 3)Edit ->Enhancement Operations -> Show implicit enhancement Options 4) There is a form text_control_eingaberit.
5) Include name LV70TFT3
ENHANCEMENT 4 ZTEXT_MODIF_BLOCK.    "active version
call method gv_text_editor->set_readonly_mode
         exporting
              readonly_mode = gv_text_editor->true
         exceptions
              error_cntl_call_method = 1
              invalid_parameter      = 2
              others                 = 3.
ENDENHANCEMENT.
This i did for vl02n. Check in this for va02.
Regards,
Madhu.

Long text updation using QSS_TEXT_PROCESSING

Similar Messages

Maybe you are looking for