2013 Oct 28 7:00 PM
Hi All,
In my code I am trying to create a Measurement Document.
Then I am creating Long Text for it. For this I am using SAVE_TEXT FM.
But the problem I am facing is that the Long Text Indicator is not being set.
How can I achieve this?
Regards
Ankur
Hi All,
In my code I am trying to create a Measurement Document.
Then I am creating Long Text for it. For this I am using SAVE_TEXT FM.
But the problem I am facing is that the Long Text Indicator is not being set.
How can I achieve this?
Regards
Ankur
2013 Oct 29 7:09 AM
Hi Ankur,
Check this link for sample code for SAVE_TEXT.
Or else try using CREATE_TEXT.
Please maintain the language as dynamically like the below code.
DATA : V_LAN TYPE THEAD-TDSPRAS. " Language
CALL FUNCTION 'CREATE_TEXT'
EXPORTING
FID = 'PLPO'
FLANGUAGE = V_LAN
FNAME = RESULT
FOBJECT = 'ROUTING'
SAVE_DIRECT = 'X'
* FFORMAT = '*'
TABLES
FLINES = TLINES1
EXCEPTIONS
NO_INIT = 1
NO_SAVE = 2
OTHERS = 3
2013 Oct 29 7:11 AM
Do one thing when you create measurement document via standard(if any tcode is there) and create the long text check what is being passed to READ_TEXT/SAVE_TEXT pass the same key.
2013 Oct 29 9:35 AM
HI,
The long text indicator automatic reflected if Measurement Document long text is save.
After SAVE_TEXT function check sy-subrc EQ 0 or not?
2013 Oct 29 10:56 AM
2013 Oct 31 6:37 PM
Hi All,
After execution of SAVE_TEXT, sy-subrc is 0. Still it is not working.
I used CREATE_TEXT also - Same issue.
The issue seems specific to Measurement Document. Can somebody try a sample program and try to achieve this requirement?
Regards
Ankur
2013 Nov 01 6:12 AM
Hi Ankur
Did you use commit afterwards or save mode direct as X.
Please paste your sample code
2013 Nov 01 6:16 AM
2013 Nov 01 7:08 AM
Hi,
After sy-subrc Eq 0.
U craete a BDC beasuse i m try use SAVE_TEXT but is alway blank.
ls_bdcdata-program = 'SAPLIMR0'.
ls_bdcdata-dynpro = '1210'.
ls_bdcdata-dynbegin = 'X'.
APPEND ls_bdcdata TO lt_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-fnam = 'BDC_CURSOR'.
ls_bdcdata-fval = .'IMRG-MDOCM'.
APPEND ls_bdcdata TO lt_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-fnam = BDC_OKCODE'.
ls_bdcdata-fval = .'/00'.
APPEND ls_bdcdata TO lt_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-program = 'SAPLIMR0'.
ls_bdcdata-dynpro = '5210'.
ls_bdcdata-dynbegin = 'X'.
APPEND ls_bdcdata TO lt_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-fnam = 'BDC_CURSOR'.
ls_bdcdata-fval = .'IMRG-MDTXT'.
APPEND ls_bdcdata TO lt_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-fnam = BDC_OKCODE'.
ls_bdcdata-fval = .'=TXDO'.
APPEND ls_bdcdata TO lt_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-program = '.SAPLSTXX'.
ls_bdcdata-dynpro = '1100'.
ls_bdcdata-dynbegin = 'X'.
APPEND ls_bdcdata TO lt_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-fnam = 'BDC_CURSOR'.
ls_bdcdata-fval = .'RSTXT-TXLINE(01)'.
APPEND ls_bdcdata TO lt_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-fnam = BDC_OKCODE'.
ls_bdcdata-fval = .'=TXBA'.
APPEND ls_bdcdata TO lt_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-program = 'SAPLIMR0'.
ls_bdcdata-dynpro = '5210'.
ls_bdcdata-dynbegin = 'X'.
APPEND ls_bdcdata TO lt_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-fnam = 'BDC_CURSOR'.
ls_bdcdata-fval = .'IMRG-MDTXT'.
APPEND ls_bdcdata TO lt_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-fnam = BDC_OKCODE'.
ls_bdcdata-fval = .'=BU'.
APPEND ls_bdcdata TO lt_bdcdata
CALL TRANSACTION 'IK12' USING lt_bdcdata MODE 'E'.
2013 Nov 01 2:39 PM
Hi All,
I have not tried the bdc approach yet.
But I tried Commit_text approach. also commit work. Please see my sample code below:
Please try to execute it in your system and see why it is not working.
data: ls_header TYPE thead.
DATA: lv_tline like TLINE,
lt_tline like STANDARD TABLE OF lv_tline.
ls_header-tdobject = 'IMRG'.
ls_header-tdname = '00000000000000000029'.
ls_header-tdid = 'LTXT'.
ls_header-tdspras = sy-langu.
ls_header-tdform = 'SYSTEM'.
ls_header-tdfuser = sy-uname.
clear: lv_tline.
refresh lt_tline.
lv_tline-TDLINE = 'somg12673'.
APPEND lv_tline to lt_tline.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
insert = ''
header = ls_header
savemode_direct = abap_true
TABLES
lines = lt_tline
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
IF sy-subrc <> 0.
* do nothing
ENDIF.
commit work.
CALL FUNCTION 'COMMIT_TEXT'
EXPORTING
OBJECT = 'IMRG'
NAME = '00000000000000000029'
ID = 'LTXT'
LANGUAGE = sy-langu
.
Regards
Ankur Malhotra
2013 Nov 01 4:36 PM
Hi-
I have tried with your code and it worked for me. However I have commented two lines in your code:
data: ls_header TYPE thead.
DATA: lv_tline like TLINE,
lt_tline like STANDARD TABLE OF lv_tline.
ls_header-tdobject = 'IMRG'.
ls_header-tdname = '00000000000000000182'.
ls_header-tdid = 'LTXT'.
ls_header-tdspras = sy-langu.
clear: lv_tline.
refresh lt_tline.
lv_tline-TDLINE = 'somg12673'.
APPEND lv_tline to lt_tline.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
insert = ''
header = ls_header
savemode_direct = abap_true
TABLES
lines = lt_tline
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
IF sy-subrc <> 0.
* do nothing
ENDIF.
Thanks,
Venkat
| User | Count |
|---|---|
| 4 | |
| 2 | |
| 2 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |