topic Re: Help in ABAP code please! in Application Development and Automation Discussions

Help in ABAP code please!

Former Member — Thu, 07 Jun 2007 15:01:06 GMT

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.

Mithun

Re: Help in ABAP code please!

Former Member — Thu, 07 Jun 2007 15:12:29 GMT

Any help please!

Thanks.

Mithun

Re: Help in ABAP code please!

Former Member — Thu, 07 Jun 2007 15:25:44 GMT

Why not declare them as type string?

Rob

Re: Help in ABAP code please!

Former Member — Thu, 07 Jun 2007 15:36:30 GMT

Thanks for the reply Rob. I tried and it still went to DUMP with the same error.

Thanks.

Mithun

Re: Help in ABAP code please!

Former Member — Thu, 07 Jun 2007 15:41:41 GMT

What does the dump say? (Error message and point in the code?)

Rob

Re: Help in ABAP code please!

Former Member — Thu, 07 Jun 2007 15:49:13 GMT

Here is the error message

Error when attempting to IMPORT object "OLD_ZSOPS".

==============

Here is some more information from dump

===================

Error analysis

An exception occurred that is explained in detail below.

The exception, which is assigned to class 'CX_SY_IMPORT_MISMATCH_ERROR', was

not caught in

procedure "IMPORT_RECORD" "(FORM)", nor was it propagated by a RAISING clause.

Since the caller of the procedure could not have anticipated that the

exception would occur, the current program is terminated.

The reason for the exception is:

The object "OLD_ZSOPS" has a different object type in the dataset from

that in the target program "ZCFICO6010".

Re: Help in ABAP code please!

Former Member — Thu, 07 Jun 2007 15:57:30 GMT

Try declaring it the same as in program ZCFICO6010.

Rob

Re: Help in ABAP code please!

Former Member — Thu, 07 Jun 2007 16:19:42 GMT

Everything 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

Re: Help in ABAP code please!

Former Member — Thu, 07 Jun 2007 16:53:48 GMT

ANyone has any ideas, please let me know.

Thanks.

Mithun

Re: Help in ABAP code please!

Former Member — Fri, 08 Jun 2007 00:00:38 GMT

My guess is that the data object that you are trying to import is stored in a different format, check the program where the export is done and confirm that the type of the exported object matches with old_zzsops.

Hope it helps