Syntax helper for ABAP code?
Please, I would like to ask any of you ABAP developers with some expirience...is there any tool (inside or outside the Workbench) that can color the syntax of ABAP code... (the way it is done in some other IDEs like Visual Studio, JBuilder or even Ultra Edit...) ???
There are some IDE external of SAP that do that. But .. I try it and don't like that.
Ex : http://www.sapedit.com/
Wait for next release, there will be some new stuff.
Frédéric
Similar Messages
-
hi,
i need to reload the master data without FM, i put the comments on fm and relaod the data, now i having a problem, loading process is slow now as compair to before, when i was using with FM.i checked the manage of infoObject, it is show 1123455 records in "transfer" column and 0 record in "added" column, below is the start routine,
Please help me to fix that problem
IF NOT DATAPAK[] IS INITIAL.
LOOP AT DATAPAK INTO S_DATAPAK.
CLEAR V_INDEX.
V_INDEX = SY-TABIX.
IF S_DATAPAK-/BIC/ABRETPRI CO ' 0123456789.'.
CLEAR: V_AMOUNT, V_PRC.
V_AMOUNT = S_DATAPAK-/BIC/ABRETPRI.
CALL FUNCTION 'RSAR_CURRENCY_CONVERT'
EXPORTING
I_CURRENCY = S_DATAPAK-CURRENCY
CHANGING
C_AMOUNT = V_AMOUNT.
V_PRC = V_AMOUNT.
S_DATAPAK-/BIC/ABRETPRI = V_PRC.
ENDIF.
IF S_DATAPAK-/BIC/ABBLNKFLG IS INITIAL.
S_DATAPAK-/BIC/ABBLNKFLG = 'N'.
ENDIF.
TRANSLATE S_DATAPAK-/BIC/ABSZRANGE TO UPPER CASE
IF S_DATAPAK-CURRENCY IS INITIAL.
S_DATAPAK-CURRENCY = S_DATAPAK-WHLPRCCURR.
MODIFY DATAPAK FROM S_DATAPAK INDEX V_INDEX TRANSPORTING
/BIC/ABRETPRI /BIC/ABWHLPRCE /BIC/ABBLNKFLG
ENDIF.
*ENDLOOP.
ENDIF
ThanksYou need not use start routine to achieve this. Instead you can write transfer routines/formulas for those fields in UR.
-
Is any HTML help for ABAP???
Is any HTML help for ABAP??? Are any HTML help downloads there in anywhere?? if anyone knows let me know.
Are you asking for help documentation on ABAP? If so....
http://help.sap.com/saphelp_nw2004s/helpdata/en/43/41341147041806e10000000a1553f6/frameset.htm
http://help.sap.com/saphelp_nw2004s/helpdata/en/ef/d94b78ebf811d295b100a0c94260a5/frameset.htm
Regards,
RIch Heilman -
Extended Syntax Check in abap code
Hi Guys,
We are upgrading from 4.6 C to ECC 6.0. When I do the Extended Syntax check for the custom function module it gives me the following error. Please help.
The EXCEPTION "REPORT_NOT_EXISTENT" is not defined in the interface of the function module "RS_VARIANT_CONTENTS" "RS_VARIANT_CONTENTS". Internal Message Code: MESSAGE G-7.
(The message can be hidden with "#EC ARGCHECKED)
Regards,
Shankar<b>Don't suppress the message. </b> You should only suppress messages if you are aware of why they are appearing, and they are not an error.
What it means is, that in your custom function module, there is some code like
CALL FUNCTION 'RS_VARIANT_CONTENTS'
EXPORTING
report = v_report
variant = v_variant
EXCEPTIONS
VARIANT_NON_EXISTENT = 1
VARIANT_OBSOLETE = 2
REPORT_NOT_EXISTENT = 3
OTHERS = 4
But if you look at FM rs_variant_contents, you'll see this exception is not defined. The correct course of action is to remove it from your call.
matt -
Search help for material code in VA01
Dear Experts,
In VA01 tcode in item level if user press f4 in the material code then we will get all the f4 helps for few fields.Now i need to add one more field mtart from mara table in the existing search help of material code.
plz suggest me how can i proceed.
If u have any documets regarding adding one more fied to existing search help plz send me.
Thanks & Regards,
farook.
Edited by: farook shaik on Aug 18, 2009 8:58 AMHi,
You can do that using search help exits you would find several threads already posted to the forum for this like below:
Link[Search Help Exits|Search Help Exit;
Regards,
Himanshu -
Need help in ABAP code to Enhance the Extract Structure ?????
Hi all,
I want to enhance the extract structure to get KBETR & KBRUE fields of KONP table since it didnt allow me to add those fields while creating the generic extractor because of currency key problems. I want to read all KONP records into internal table with KNUMH (Key). Next, I want to fill them into ZZKBETR & ZZKBRUE of Extract Structure ZOXUR40065 in loop.
DATA:
i_t_zrebate like ZOXUR40065 occurs 0 with header line,
reb_tabix like sy-tabix.
TABLES: KONP.
Could you please help me in completing the ABAP code?
Thanks,
Venkat.Hello Manga,
I have included the following code in ZXRSAU01:
WHEN 'ZREBATE'.
PERFORM ZREBATE_EXIT TABLES C_T_DATA.
After Double click on ZREBATE_EXIT on perform statement, it created ZXRSAF01 include and the following code is added in it:
FORM ZREBATE_EXIT TABLES FP_C_T_DATA STRUCTURE ZOXUR40065.
DATA:
i_t_zrebate like ZOXUR40065 occurs 0 with header line,
reb_tabix like sy-tabix.
FIELD-SYMBOLS: <l_c_t_data> TYPE ZOXUR40065.
LOOP AT fp_c_t_data ASSIGNING <l_c_t_data>.
reb_tabix = sy-tabix.
select single KBETR KBRUE
into (<l_c_t_data>-ZZKBETR,
<l_c_t_data>-ZZKBRUE,
from KONP
where KNUMH eq <l_c_t_data>-KNUMH.
if sy-subrc eq 0.
MODIFY fp_c_t_data FROM <l_c_t_data> INDEX reb_tabix.
endif.
CLEAR:reb_tabix.
ENDLOOP.
ENDFORM.
When I tried to Activate this ZXRSAF01 include, it fails with 'The FORM "ZREBATE_EXIT" does not exist'.
Should it be FP_C_T or P_C_T? I found P_C_T in ZXRSAF01 include.
What is wrong with it, please ?
Can't I add this whole code in main include ZXRSAU01itself?
The Extractor ZREBATE is based on KONA, KONH & KONP tables. This Extractor and KONA table have the same 4000 records and KONP has 13000 records. I want to extract KBERT & KBRUE from KONP.
Thanks in advance.
Regards,
Venkat -
How to build search help for company code (BUK) in SRM
Hello,
I am new to SRM and was wondering if any have come across similar requirement. I am a workflow developer and we are building a custom table to derive deadline escalation timelines. We are also adding a field in our custom table for company code so that we can have company specific deadlines. table T001 is empty in SRM and hence we are unable to use F4 (search help). Is there existing functionality in SRM that gets this search from the backend ECC system and displays when F4 is pressed. How can I use that functinoality?
Appreciate any info folks.
Thanks again.
SamirHi
Which SRM version are you using ?
<b>Related links -></b>
Re: Search Help on SRM front end screen
F4 Help for WBS Element
Re: Company Code defaults
Re: Search help for Custom Item level field
Custom field in SRM as a dropdown field with values stored in R/3
Calendar help for Date i/p field in SRM 5.0 shopping cart
Company code
Problems assigning values via F4 or search help
Also There is a standard table in SRM which contains Plant data ->
<b>BBP_LOCMAP</b> (Mapping Table Business Partner --> System --> Location)
Try creating a custom search help based on this Table, defined as selection method and assign the same to the related field.
Do let me know.
Regards
- Atul -
I work with smarty a lot, and I mean a lot. Every single day in fact, all day long. Is there a way to turn off the syntax errors for my smarty code? Basically every file I open is going to tell me there are syntax errors all over the page...
Thanks!I am not familiar with smarty but the options for disabling syntax errors can be found under the view menu,
View > Code View Options > Syntax Error Alerts in Info Bar (tick or untick)
Richard -
Search Help for Company Code from Backend
Hi experts,
How can I make a SH for company code from backend system? I already made a SH for account assigments from backend with USAGE_SH_F4 functioanality, but i don't know whether I can use it for Company code or not? And how?
Best Regards,
Mikhail.I need functionality where I will manually maintain backend system, and then I need bind search help for this backend system with my input field for web dynpro. For Account Assignment I use this: http://scn.sap.com/community/srm/blog/2014/01/08/standard-account-assignment-search-helps-in-custom-srm-developments
But what should I use for company code? -
Help in ABAP code please!
We have upgraded to ECC6.0 and I am trying to fix some syntax errors. Here is the piece of code with the problem:
====
import i_key
old_zsops to old_zzsops
new_zsops to new_zzsops
from database zsopshist(Z1)
id i_key.
import i_key
old_zsops to old_prezsops
new_zsops to new_prezsops
from database zsopshist(Z1)
id i_key.
=====
I am kind of new to ABAP and went throught the documentation but could someone please tell me what "old_zsops to old_zzsops" does?
The code above is causing the dump with error "Error when attempting to IMPORT object "OLD_ZSOPS"". I went through the code and I found that old_zsops and new_zsops is not declared at all and it doesn't give any compilation errors! It goes to dump when I execute the problem. If it is required I would send the whole code but I see the following declarations in the code:
data: old_prezsops like zsops_prev. "PJCHG10854
data: new_prezsops like zsops_prev. "PJCHG10854
data: old_zzsops like zsops. "PJCHG10854
data: new_zzsops like zsops. "PJCHG10854
data: long_rec(900) type c. "PJCHG10854
data: old_lzsops like long_rec. "PJCHG10854
data: new_lzsops like long_rec. "PJCHG10854
data: curr_zsops like zsops,
prev_zsops like zsops_prev.
Could someone please help me how to fix this problem? How do I declare "old_zsops and new_zsops" because they are used in 2 different import statements? All the answers will be rewarded.
Thanks.
MithunEverything is in the same porgram. To avoid confusion I will send the whole code:
===
REPORT ZCFICO6010
line-count 65
line-size 132
no standard page heading.
tables: zsopshist, zsops.
*data: old_zsops like zsops,
new_zsops like zsops.
data: old_prezsops like zsops_prev. "PJCHG10854
data: new_prezsops like zsops_prev. "PJCHG10854
data: old_zzsops like zsops. "PJCHG10854
data: new_zzsops like zsops. "PJCHG10854
data: long_rec(900) type c. "PJCHG10854
data: old_lzsops like long_rec. "PJCHG10854
data: new_lzsops like long_rec. "PJCHG10854
data: curr_zsops like zsops,
prev_zsops like zsops_prev.
data: begin of i_key,
kostl(5),
aedat(8),
cputm(6).
data: end of i_key.
DATA: HEADER like zsops-oprcd,
header1(92) type c.
header1 like header.
data: v_field(18) type c,
v_old(20) type c,
v_new(20) type c,
user like zsops-uname,
date like zsops-aedtm.
data: begin of table occurs 0,
text(20) type c,
oprcd like zsops-oprcd,
field(15) type c,
user like zsops-uname,
date like zsops-aedtm,
v_old(20) ,
v_new(20) ,
end of table.
data: text(30) type c.
data: begin of itab occurs 0,
srtfd like zsopshist-srtfd,
end of itab.
*data: ihist like old_zsops occurs 0 with header line,
nhist like new_zsops occurs 0 with header line.
data: ihist like zsops occurs 0 with header line,
nhist like zsops occurs 0 with header line.
*& Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK one WITH FRAME TITLE TEXT-200.
parameters: s_oprcd like zsops-oprcd obligatory,
s_oprcdh like zsops-oprcd .
s_cputm for sy-uzeit.
SELECTION-SCREEN END OF BLOCK one.
SELECTION-SCREEN BEGIN OF BLOCK three WITH FRAME TITLE TEXT-300.
parameters:s_aedtm like zsops-aedtm obligatory,
s_aedtmh like zsops-aedtm obligatory.
SELECTION-SCREEN END OF BLOCK three.
SELECTION-SCREEN BEGIN OF BLOCK TWO WITH FRAME TITLE TEXT-100.
PARAMETERS: P_REGSRT RADIOBUTTON GROUP RADI,
P_ACCSRT RADIOBUTTON GROUP RADI.
SELECTION-SCREEN END OF BLOCK TWO.
parameters: new_date like sy-datum obligatory default '20051214'.
*& Top-Of-Page
top-of-page.
BEGIN OF BLOCK INSERTED FOR "JJMM20040330
DATA: CC_LOW LIKE ZSOPS-OPRCD,
CC_HIGH LIKE ZSOPS-OPRCD,
FROM_DATE(10) TYPE C,
TO_DATE(10) TYPE C.
WRITE: S_OPRCD TO CC_LOW NO-ZERO,
S_AEDTM TO FROM_DATE USING EDIT MASK '__/__/____',
S_AEDTMH TO TO_DATE USING EDIT MASK '__/__/____'.
IF S_OPRCDH = S_OPRCD.
CONCATENATE: 'Cost Center'(T02) CC_LOW 'Changed On'(T04) FROM_DATE
'To'(T03) TO_DATE 'Sort By'(T05) text INTO HEADER1
separated by space.
ELSE.
WRITE: S_OPRCDH TO CC_HIGH NO-ZERO.
CONCATENATE: 'Cost Center'(T02) CC_LOW 'To'(T03) CC_HIGH
'Changed On'(T04) FROM_DATE 'To'(T03) TO_DATE
'Sort By'(T05) text INTO HEADER1 separated by space.
ENDIF.
END OF BLOCK INSERTED FOR "JJMM20040330
PERFORM DISPLAY_PAGE_HEADER(ZCLT0001) USING
header1 "JJMM20040330
HEADER
TEXT-T01
header1. "JJMM20040330
BEGIN OF BLOCK COMMENTED OUT FOR "JJMM20040330
write:/5 'Cost Center'(T02), s_oprcd+5(5), 'To'(T03), s_oprcdh,
40 'Changed On'(T04), s_aedtm, 'To'(T03), s_aedtmh,
85 'Sort by'(T05), text.
uline. skip.
END OF BLOCK COMMENTED OUT FOR "JJMM20040330
Write:/ 'Field Changed'(C01), 25 'Old Values'(C02),
55 'New Values'(C03), 85 'Cost Center'(C04),
105 'Changed By'(C05), 120 'Changed On'(C06).
uline.
start-of-selection.
data: time(6),
v_subrc like sy-subrc,
prev_format(1),
srtfd like zsopshist-srtfd,
srtfdh like zsopshist-srtfd.
srtfd0(5) = s_oprcd5(5).
srtfd+5(8) = s_aedtm.
srtfd+13(6) = '000000'.
if s_oprcdh is initial.
s_oprcdh = s_oprcd.
endif.
srtfdh0(5) = s_oprcdh5(5).
srtfdh+5(8) = s_aedtmh.
srtfdh+13(6) = '999999'.
select srtfd from zsopshist into table itab
WHERE SRTFD >= SRTFD
AND SRTFD <= SRTFDH.
sort itab by srtfd.
loop at itab.
IF ITAB+5(8) GE S_AEDTM AND "IJHM00001
ITAB+5(8) LE S_AEDTMH. "IJHM00001
move: itab+0(5) to i_key-kostl,
itab+5(8) to i_key-aedat,
itab+13(6) to i_key-cputm.
/--- PJCHG10854 Begin commented/New code /
/--- To change the import structure based on date the old /
/--- import was removed and following coded added. /
clear: v_subrc, prev_format.
if itab+5(8) lt new_date.
prev_format = 'X'.
perform import_record_prev changing v_subrc. "PJCHG10854
else.
perform import_record changing v_subrc. "PJCHG10854
endif.
import i_key
old_zsops
new_zsops
from database zsopshist(Z1)
id i_key.
/--- PJCHG10854 END commented/New code /
if v_subrc = 0. "PJCHG10854
perform get_final_table.
endif.
ENDIF. "IJHM00001
endloop.
if p_regsrt = 'X'.
sort table by oprcd field date descending.
text = 'Cost Center'(C04).
else.
sort table by field oprcd date descending.
text = 'Field Changed'(C01).
endif.
perform write_report.
FORM get_final_table *
form get_final_table.
move old_zsops to ihist. "PJCHG10854
move new_zsops to nhist. "PJCHG10854
if prev_format eq 'X'. "PJCHG10854
move old_prezsops to ihist. "PJCHG10854
move new_prezsops to nhist. "PJCHG10854
else. "PJCHG10854
move old_zzsops to ihist. "PJCHG10854
move new_zzsops to nhist. "PJCHG10854
endif. "PJCHG10854
if ihist-ivcrg ne nhist-ivcrg.
table-text = 'Invst Charge Base'(F01).
table-field = 'IVCRG'.
table-v_old = ihist-ivcrg.
table-v_new = nhist-ivcrg.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
if ihist-mgtfp ne nhist-mgtfp.
table-field = 'MGTFP'.
table-text = 'Mgt Fee %'(F02).
table-v_old(12) = ihist-mgtfp.
table-v_new(12) = nhist-mgtfp.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
if ihist-discd ne nhist-discd.
table-field = 'DISCD'.
table-text = 'Cash Disc. Passback'(F03).
table-v_old = ihist-discd.
table-v_new = nhist-discd.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
if ihist-consc ne nhist-consc.
table-field = 'CONSC'.
table-text = 'Subsidy Calc'(F04).
table-v_old = ihist-consc.
table-v_new = nhist-consc.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
if ihist-payfart ne nhist-payfart.
table-field = 'PAYFART'.
table-text = 'Payroll Fringe'(F05).
table-v_old(12) = ihist-payfart.
table-v_new(12) = nhist-payfart.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
if ihist-frbpb ne nhist-frbpb.
table-field = 'FRBPB'.
table-text = 'Rebate Pass Back'(F06).
table-v_old(12) = ihist-frbpb.
table-v_new(12) = nhist-frbpb.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
if ihist-exlca ne nhist-exlca.
table-field = 'EXLCA'.
table-text = 'Excl Source27'(F07).
table-v_old = ihist-exlca.
table-v_new = nhist-exlca.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
perform write_report.
append table.
endif.
if ihist-exlcb ne nhist-exlcb.
table-field = 'EXLCB'.
table-text = 'Excl Source11'(F08).
table-v_old = ihist-exlcb.
table-v_new = nhist-exlcb.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
perform write_report.
append table.
endif.
if ihist-trnrate ne nhist-trnrate.
table-field = 'TRNRATE'.
table-text = 'Payroll Training'(F09).
table-v_old(12) = ihist-trnrate.
table-v_new(12) = nhist-trnrate.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
if ihist-mgffa ne nhist-mgffa.
table-field = 'MGFFA'.
table-text = 'Mgt Fee Amt'(F10).
table-v_old(12) = ihist-mgffa.
table-v_new(12) = nhist-mgffa.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
perform write_report.
append table.
endif.
if ihist-mgtfi ne nhist-mgtfi.
table-field = 'MGTFI'.
table-text = 'Mgt Fees Indicator'(F11).
table-v_old = ihist-mgtfi.
table-v_new = nhist-mgtfi.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
perform write_report.
append table.
endif.
if ihist-eqres ne nhist-eqres.
table-field = 'EQRES'.
table-text = 'Eqip Res Accrual'(F12).
table-v_old = ihist-eqres. "JJMM20040331
table-v_new = nhist-eqres. "JJMM20040331
table-v_old(12) = ihist-eqres. "JJMM20040331
table-v_new(12) = nhist-eqres. "JJMM20040331
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
if ihist-ovrhd ne nhist-ovrhd.
table-field = 'OVRHD'.
table-text = 'OverHead Amt'(F13).
table-v_old(12) = ihist-ovrhd.
table-v_new(12) = nhist-ovrhd.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
if ihist-xaccural ne nhist-xaccural.
table-field = 'XACCUARAL'.
table-text = 'Exclude Accrual'(F14).
table-v_old(12) = ihist-xaccural.
table-v_new(12) = nhist-xaccural.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
if ihist-ovrrt ne nhist-ovrrt.
table-field = 'OVRRT'.
table-text = 'OverHead Rate'(F15).
table-v_old(12) = ihist-ovrrt.
table-v_new(12) = nhist-ovrrt.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
if ihist-ztbd01 ne nhist-ztbd01.
table-field = 'ZTBD01'.
table-text = 'Char1'. "JJMM20040330
table-text = 'Meal Allowance'(F16). "JJMM20040330
table-v_old = ihist-ztbd01.
table-v_new = nhist-ztbd01.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
BEGIN OF BLOCK INSERTED FOR "JJMM20040330
if ihist-earlybil ne nhist-earlybil.
table-field = 'EARLYBIL'.
table-text = 'Early Billing'(F17).
table-v_old = ihist-earlybil.
table-v_new = nhist-earlybil.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-combined ne nhist-combined.
table-field = 'COMBINED'.
table-text = 'Combined Billing'(F18).
table-v_old = ihist-COMBINED.
table-v_new = nhist-COMBINED.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
END OF BLOCK INSERTED FOR "JJMM20040330
if ihist-rate1 ne nhist-rate1.
table-field = 'RATE1'.
table-text = 'Rate 1'(F19).
table-v_old(12) = ihist-rate1.
table-v_new(12) = nhist-rate1.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
*if ihist-rate1 ne nhist-rate2. "JJMM20040330
table-field = 'RATE1'. "JJMM20040330
if ihist-rate2 ne nhist-rate2. "JJMM20040330
table-field = 'RATE2'. "JJMM20040330
table-text = 'Rate 2'(F20).
table-v_old(12) = ihist-rate2.
table-v_new(12) = nhist-rate2.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
*if ihist-rate1 ne nhist-rate3. "JJMM20040330
if ihist-rate3 ne nhist-rate3. "JJMM20040330
table-field = 'RATE3'.
table-text = 'Rate 3'(F21).
table-v_old(12) = ihist-rate3.
table-v_new(12) = nhist-rate3.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
*if ihist-rate1 ne nhist-rate4. "JJMM20040330
if ihist-rate4 ne nhist-rate4. "JJMM20040330
table-field = 'RATE4'.
table-text = 'Rate 4'(F22).
table-v_old(12) = ihist-rate4.
table-v_new(12) = nhist-rate4.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
*if ihist-rate1 ne nhist-rate5. "JJMM20040330
if ihist-rate5 ne nhist-rate5. "JJMM20040330
table-field = 'RATE5'.
table-text = 'Rate 5'(F23).
table-v_old(12) = ihist-rate5.
table-v_new(12) = nhist-rate5.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
*if ihist-rate1 ne nhist-rate6. "JJMM20040330
if ihist-rate6 ne nhist-rate6. "JJMM20040330
table-field = 'RATE6'.
table-text = 'Rate 6'(F24).
table-v_old(12) = ihist-rate6.
table-v_new(12) = nhist-rate6.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
*if ihist-rate1 ne nhist-rate7. "JJMM20040330
if ihist-rate7 ne nhist-rate7. "JJMM20040330
table-field = 'RATE7'.
table-text = 'Rate 7'(F25).
table-v_old(12) = ihist-rate7.
table-v_new(12) = nhist-rate7.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
*if ihist-rate1 ne nhist-rate8. "JJMM20040330
if ihist-rate8 ne nhist-rate8. "JJMM20040330
table-field = 'RATE8'.
table-text = 'Rate 8'(F26).
table-v_old(12) = ihist-rate8.
table-v_new(12) = nhist-rate8.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
*if ihist-rate1 ne nhist-rate9. "JJMM20040330
if ihist-rate9 ne nhist-rate9. "JJMM20040330
table-field = 'RATE9'.
table-text = 'Rate 9'(F27).
table-v_old(12) = ihist-rate9.
table-v_new(12) = nhist-rate9.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
*if ihist-rate1 ne nhist-rate10. "JJMM20040330
if ihist-rate10 ne nhist-rate10. "JJMM20040330
table-field = 'RATE10'.
table-text = 'Rate 10'(F28).
table-v_old(12) = ihist-rate10.
table-v_new(12) = nhist-rate10.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
*if ihist-rate1 ne nhist-rate11. "JJMM20040330
if ihist-rate11 ne nhist-rate11. "JJMM20040330
table-field = 'RATE11'.
table-text = 'Rate 11'(F29).
table-v_old(12) = ihist-rate11.
table-v_new(12) = nhist-rate11.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
perform write_report.
endif.
The following lines of code have been added per change IJHM00001
if ihist-rate12 ne nhist-rate12.
table-field = 'RATE12'.
table-text = 'Rate 12'(F30).
table-v_old(12) = ihist-rate12.
table-v_new(12) = nhist-rate12.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-rate13 ne nhist-rate13.
table-field = 'RATE13'.
table-text = 'Rate 13'(F31).
table-v_old(12) = ihist-rate13.
table-v_new(12) = nhist-rate13.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-rate14 ne nhist-rate14.
table-field = 'RATE14'.
table-text = 'Rate 14'(F32).
table-v_old(12) = ihist-rate14.
table-v_new(12) = nhist-rate14.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-rate15 ne nhist-rate15.
table-field = 'RATE15'.
table-text = 'Rate 15'(F33).
table-v_old(12) = ihist-rate15.
table-v_new(12) = nhist-rate15.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-rate16 ne nhist-rate16.
table-field = 'RATE16'.
table-text = 'Rate 16'(F34).
table-v_old(12) = ihist-rate16.
table-v_new(12) = nhist-rate16.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-rate17 ne nhist-rate17.
table-field = 'RATE17'.
table-text = 'Rate 17'(F35).
table-v_old(12) = ihist-rate17.
table-v_new(12) = nhist-rate17.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-rate18 ne nhist-rate18.
table-field = 'RATE18'.
table-text = 'Rate 18'(F36).
table-v_old(12) = ihist-rate18.
table-v_new(12) = nhist-rate18.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
The following lines of code have been added per change IJHM00002
if ihist-rate19 ne nhist-rate19.
table-field = 'RATE19'.
table-text = 'Rate 19'(F37).
table-v_old(12) = ihist-rate19.
table-v_new(12) = nhist-rate19.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-rate20 ne nhist-rate20.
table-field = 'RATE20'.
table-text = 'Rate 20'(F38).
table-v_old(12) = ihist-rate20.
table-v_new(12) = nhist-rate20.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-rate21 ne nhist-rate21.
table-field = 'RATE21'.
table-text = 'Rate 21'(F39).
table-v_old(12) = ihist-rate21.
table-v_new(12) = nhist-rate21.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-rate22 ne nhist-rate22.
table-field = 'RATE22'.
table-text = 'Rate 22'(F40).
table-v_old(12) = ihist-rate22.
table-v_new(12) = nhist-rate22.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-intcrb ne nhist-intcrb.
table-field = 'INTCRB'.
table-text = 'Intcrb'(F47). "IJHM00002
table-text = 'Intcrb'(F37). "IJHM00002
table-v_old = ihist-intcrb.
table-v_new = nhist-intcrb.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-intcrr ne nhist-intcrr.
table-field = 'INTCRR'.
table-text = 'Intcrr'(F48). "IJHM00002
table-text = 'Intcrr'(F38). "IJHM00002
table-v_old(12) = ihist-intcrr.
table-v_new(12) = nhist-intcrr.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-zwktran ne nhist-zwktran.
table-field = 'ZWKTRAN'.
table-text = 'Data Trans End Unit'(F49). "IJHM00002
table-text = 'Data Trans End Unit'(F39). "IJHM00002
table-v_old = ihist-zwktran.
table-v_new = nhist-zwktran.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-zwkbud ne nhist-zwkbud.
table-field = 'ZWKBUD'.
table-text = 'Wkly Budget Ind'(F50). "IJHM00002
table-text = 'Wkly Budget Ind'(F40). "IJHM00002
table-v_old = ihist-zwkbud.
table-v_new = nhist-zwkbud.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-bcycle ne nhist-bcycle.
table-field = 'BCYCLE'.
table-text = 'Bcycle'(F51). "IJHM00002
table-text = 'Bcycle'(F41). "IJHM00002
table-v_old = ihist-bcycle.
table-v_new = nhist-bcycle.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
if ihist-ovind ne nhist-ovind.
table-field = 'OVIND'.
table-text = 'Ovind'(F52). "IJHM00002
table-text = 'Ovind'(F42). "IJHM00002
table-v_old = ihist-ovind.
table-v_new = nhist-ovind.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
*New code for PRSID -
"ZN032106
if ihist-prsid ne nhist-prsid.
table-field = 'PRSID'.
table-text = 'PRSID'(F53).
table-v_old = ihist-prsid.
table-v_new = nhist-prsid.
table-user = nhist-uname.
table-date = nhist-aedtm.
table-oprcd = nhist-oprcd.
append table.
endif.
*End of new code----
"ZN032106
endform.
FORM write_report *
form write_report.
loop at table.
write:/1 table-text, 25 table-v_old(12) left-justified,
55 table-v_new(12) left-justified, 85 table-oprcd,
106 table-user, 120 table-date.
uline.
endloop.
skip 5. "JJMM20040330
write:/35 TEXT-R01. "JJMM20040330
reserve 1 lines. "JJMM20040330
endform.
*& Form import_record
form import_record changing p_subrc.
import i_key
old_zsops to old_zzsops
new_zsops to new_zzsops
from database zsopshist(Z1)
id i_key.
p_subrc = sy-subrc.
endform. " import_record
*& Form import_record_prev
form import_record_prev changing p_subrc.
import i_key
old_zsops to old_prezsops
new_zsops to new_prezsops
from database zsopshist(Z1)
id i_key.
p_subrc = sy-subrc.
endform. " import_record_prev
*& Form import_record_long
form import_record_long changing p_subrc.
import i_key
old_zsops to old_lzsops
new_zsops to new_lzsops
from database zsopshist(Z1)
id i_key.
p_subrc = sy-subrc.
endform. " import_record_prev
========
Thanks.
Mithun -
Hi All,
I was wondering is there anyway we could create a pluggin for our existing code editor in abap ?
I have absolutely no idea about how could i do that. If there are any links or tutorials you can help me with, it would be of great help
Thanks & Best Regards,
PrateekHi,
Look at Create your own New Editor for BOR objects - ABAP Development - SCN Wiki
Regards,
Jarek -
Help with abap code in Transformation
Hi Experts,
we have a scenario where we load delta data from an DSO into a Cube.
The records in the DSO looks like below.
Location as (L)
WorkOrder as (W)
Startdate(DDMMYYYY)/time (HH:MM:SS) as (S)
Finishdate/time as (F)
L1
W1
21/04/2009/10:00:00
21/04/2009/12:00:00
L1
W2
21/04/2009/14:00:00
21/04/2009/23:00:00
|| L1 ||W3|| 21/04/2009/16:00:00 ||21/04/2009/20:00:00 ||
Total time ( April 2009 ) for above Location L1 should be calculated as a difference between W1 and W2 since W3 is a overlapping record. So the result would be 13 Hrs. Work Orders are summarised, so we dont need work order info in the output.
Can you experts help me with the code to implement??
Thanks,
DVFor each location, for example L1, move the records to an internal table itab.
sort itab by startdate.
read table itab index 1.
You will get the first value.
sort itab by finishdate descending.
read table itab index 1.
you will get the second value.
Calculate the difference and populate it to the internal table.
finally modify the source package.
I have just given the logic. I hope you can build upon this.
I hope it helps.
Thanks. -
Possi. for ABAP code instead of JAVA Script for creating searachhelp in BSP
Hi Consultants i have a doubt that is there a possibility to use ABAP coding in BSP object for creating search help
instead of JAVA Script if so please reply me with the procedure or else with some sample coding.Hi Consultants i have a doubt that is there a possibility to use ABAP coding in BSP object for creating search help
instead of JAVA Script if so please reply me with the procedure or else with some sample coding. -
Help on ABAP code to trigger an Email with HTML attachment
Hi folks,
Could any of you help me out in writing code to attach a HTML document to the internet email address.
I was able to convert the list output to HTML using FM WWW_LIST_TO_HTML.
Could some help me out how to attach HTML doc to the Email using any of the FM SO_DOCUMENT_SEND_API1 or SO_NEW_DOCUMENT_SEND_API1 or any other.
I tried some of the examples available in the forum, but I couldnot find one that actually send the list output(in HTML format) as attachment to email
points will be rewarded for helpful responses...
Thanks In Advance.
SukuHi,
REPORT zkiran_send_mail_bor .
*& Report Zkiran_SEND_MAIL_BOR
*& Send document with BOR Object as attachment
DATA: docdata LIKE sodocchgi1,
objpack LIKE sopcklsti1 OCCURS 10 WITH HEADER LINE,
objhead LIKE solisti1 OCCURS 10 WITH HEADER LINE,
objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,
objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE,
objhex LIKE solix OCCURS 10 WITH HEADER LINE,
reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE.
DATA: tab_lines TYPE i,
doc_size TYPE i,
objdes(100).
For the BOR attachment
CONSTANTS:
c_object_describe LIKE swotobjid-describe VALUE '<OBJECT>'.
DATA:
l_object TYPE swotobjid,
l_objheader LIKE soxobj.
PARAMETERS:
p_objtyp TYPE swo_objtyp OBLIGATORY,
p_objkey TYPE swo_typeid OBLIGATORY.
Create Message Body
Main Text
objtxt = 'Test Document.'.
APPEND objtxt.
objtxt = 'You will find a BOR object attachment in message.'.
APPEND objtxt.
objtxt = 'Have a nice day.'.
APPEND objtxt.
Title and Description
DESCRIBE TABLE objtxt LINES tab_lines.
READ TABLE objtxt INDEX tab_lines.
docdata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
docdata-obj_name = 'BOR Object'.
Concatenate p_objtyp '-' p_objkey into objdes.
Concatenate 'BOR Object' objdes 'as Attachment'
into docdata-obj_descr separated by space.
condense docdata-obj_descr.
Write Packing List (Main)
CLEAR objpack-transf_bin.
objpack-head_start = 0.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'RAW'.
APPEND objpack.
Create OBJ attachment
l_object-describe = c_object_describe.
l_object-objtype = p_objtyp.
l_object-objkey = p_objkey.
CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
IMPORTING
own_logical_system = l_object-logsys
EXCEPTIONS
own_logical_system_not_defined = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE e398(00) WITH 'No Log Sys Found'.
ENDIF.
MOVE-CORRESPONDING l_object TO l_objheader.
APPEND l_objheader TO objhead.
Write Packing List (Attachment)
CLEAR objpack.
objpack-head_start = 1.
objpack-head_num = 1.
objpack-body_start = 0.
objpack-body_num = 0.
objpack-doc_type = 'OBJ'.
objpack-obj_name = p_objtyp.
objpack-obj_descr = Objdes.
APPEND objpack.
Create receiver list
reclist-receiver = sy-uname.
reclist-rec_type = 'B'.
APPEND reclist.
Send Message
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = docdata
put_in_outbox = 'X'
commit_work = 'X'
TABLES
packing_list = objpack
object_header = objhead
contents_bin = objbin
contents_txt = objtxt
receivers = reclist
EXCEPTIONS
too_many_receivers = 1
document_not_sent = 2
document_type_not_exist = 3
operation_no_authorization = 4
parameter_error = 5
x_error = 6
enqueue_error = 7
OTHERS = 8.
IF sy-subrc <> 0.
MESSAGE ID 'SO' TYPE 'S' NUMBER '023'
WITH docdata-obj_name.
ENDIF.
WRITE: / 'End of Program'.
also <b>check BCS_EXAMPLE*</b>
<b>Reward points</b>
Regards -
Search Help for transaction code KE53
Hi Experts,
I want to add one more elementary search help in already existing search help PRCT for tcode KE53.
This is a collective search help. I am trying to create an elem. searh help which includes 3 input fields
Profit Center (PRCTR), Text desc. of Profit Center (LTEXT), and Company Code (BUKRS). But the problem is PRCTR & BUKRS are in table CEPC_BUKRS and PRCTR & LTEXT in table CEPC. Then how do i club the 3 in a single elem help. Do i have to use Search Help Exit. I have created a FM in which i have written a select query as follows:
SELECT APRCTR ALTEXT B~BUKRS
FROM CEPCT AS A
INNER JOIN CEPC_BUKRS AS B
ON APRCTR = BPRCTR
INTO CORRESPONDING FIELDS OF TABLE ITAB.
ITAB is the table in FM. The FM also includes the changing parameters :SHLP & CALLCONTROL and tables SHLP_TAB & RECORD_TAB (but i dont know the use of the parameters). How do i proceed.
I dont have any idea about search help exits. Also there is no table which includes PRCTR, BUKRS and LTEXT.Hi,
No need to write a search help exit. You can instead give a database view in the selection method. This database view can be a join on the tables CEPC and CEPC_BUKRS.
Refer to the search help PRCTN which uses a database view as the selection method.
Since this is a standard search help, you will have to use append search help technique. Refer to this link for [enhancing the standard search help|http://help.sap.com/erp2005_ehp_04/helpdata/EN/1f/29ef5777df11d2959800a0c929b3c3/frameset.htm].
regards,
Advait
Edited by: Advait Gode on Dec 30, 2008 9:45 AM
Maybe you are looking for
-
Upon wake external HDMI monitor resets
Ok, I hope I explain this with enough detail. On my new macbook pro I have always used a 21" dell DVI monitor. Well, I bought my wife an older 2009 macbook pro and decided to give her the old dell 21" external and buy me a new 27" samsung HDMI exte
-
hi experts i onverted my smartform output to pdf format. how to fax this pdf ? whats the use with convert_otf_and_fax r i need to work with so_object_send. pls send me code if any worked earlier thanks
-
ITunes app: how do I browse movies in the iTunes store, A-Z.
I touch the Movies Button, and I get a choice of Featured, Top Charts, and Genius. Okay, but how do I just BROWSE the freakin' catalog?? At one point, I actually did stumble upon a screen that had a nice fat button in the top left corner that said "A
-
Dear MM Experts, In Service the GBB offsetting account is Hit with Valuation Modificat. & the WRX transaction is hit with Valuation class of Service and GR/IR clearing account. As in service There is no GRN why the GR/IR clearing account is hit? & wh
-
Mi iphone 3gs pone esta desactivado
ayudarme mi iphone3 gs en pantalla de inicio me pone arriba en rojo: iphone esta desactivado conectarse a itunes y itunes me dice introducir codigo y no me deja entrar.