Posted: Mon Feb 25, 2008 1:10 pm Post subject: Compare Report Source of two Abaps
Code:
report zexp_compare.
***********************************************************
* Compare Source Text of two Reports
*
* This is freeware. Please read the terms of use.
* Written by Urs Rohner, Rohner IT Consulting & Engineering
*
* Contact Author: Urs Rohner
*
***********************************************************
* Globals
data:
s like abaptext occurs 1 with header line,
d like abaptext occurs 1 with header line,
x like xabaptext occurs 1 with header line,
o(4) type c.
* Selection Screen
parameters:
c1 as checkbox default ' ', " ignore case
c2 as checkbox default ' ', " ignore ident level
c3 as checkbox default ' ', " ignore ABAP comments
c4 as checkbox default ' ', " insert/delete or changes
p_s like sy-repid default ' ', " report A
p_d like sy-repid default ' '. " report B
* P A I ( )
start-of-selection.
o+0(1) = c1.
o+1(1) = c2.
o+2(1) = c3.
case c4.
when ' '. o+3(1) = '2'.
when 'X'. o+3(1) = '1'.
endcase.
read report p_s into s[].
if sy-subrc is initial.
read report p_d into d[].
if sy-subrc is initial.
call 'C_MAKE_TEXT_DELTA'
id 'TI_TEXT_PRI' field s-*sys*
id 'TI_TEXT_SEC' field d-*sys*
id 'PI_DELTA_OPTIONS' field o
id 'TO_TEXT_DELTA' field x-*sys*.
if sy-subrc is initial.
loop at x.
write: / x-vrsflag, x-number, x-line.
endloop.
endif.
else.
message s208(00) with 'Report B not found'(e0b).
endif.
else.
message s208(00) with 'Report A not found'(e0a).
endif.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
