Help in abap

hallow
i have two tables that i wont to move the data((price) to third table itab
i wont to now how i can do that?
i reward kindly
i give the tabls.
INTAB_A132[]
resrc date knumh
0000123456 20070101 0000014834
0000123456 20070601 0000014835
2) intab_konp
knumh price
0000014834 20000.00
0000014834 250000.00
this is what i have in table zempkostlprice_rec and i wont to add price colman
zempkostlprice_rec
rserc date
1 0000123456 012007
2 0000123456 022007
3 0000123456 032007
4 0000123456 042007
5 0000123456 052007
6 0000123456 062007
7 0000123456 072007
8 0000123456 082007
9 0000123456 092007
10 0000123456 102007
11 0000123456 112007
12 0000123456 122007
13 0000123456 012008
this is what i wont to add price colman to thired table from intab_konp
resrc date price
1 0000123456 012007 20000.00
2 0000123456 022007 20000.00
3 0000123456 032007 20000.00
4 0000123456 042007 20000.00
5 0000123456 052007 20000.00
6 0000123456 062007 250000.00
7 0000123456 072007 250000.00
8 0000123456 082007 250000.00
9 0000123456 092007 250000.00
10 0000123456 102007 250000.00
11 0000123456 112007 250000.00
12 0000123456 122007 250000.00
13 0000123456 012008 250000.00
Regards

Hi,
here i have tried with the values given by u but check it and change according to ur code .
TYPES: BEGIN OF t_a132,
resrc LIKE a132-resrc,
kostl LIKE a132-kostl,
datbi LIKE a132-datbi,
datab LIKE a132-datab,
knumh LIKE a132-knumh,
END OF t_a132.
TYPES: BEGIN OF t_konp,
knumh LIKE konp-knumh,
kstbm LIKE konp-kstbm,
kbetr LIKE konp-kbetr,
konwa TYPE konp-konwa,
END OF t_konp.
types: begin of t_zemp,
        RESRC like a132-resrc,
        KOSTL LIKE a132-kostl,
        kstbm LIKE konp-kstbm,
        konwa TYPE konp-konwa,
        kbetr LIKE konp-kbetr,
        knumh LIKE konp-knumh,
      END OF t_zemp.
DATA: intab_konp TYPE TABLE OF t_konp WITH HEADER LINE .
DATA : intab_a132 TYPE TABLE OF t_a132 WITH HEADER LINE .
data: it_zemp type TABLE OF t_zemp WITH HEADER LINE.
it_zemp-resrc = '0000123456'.
it_zemp-knumh = '0000014834'.
APPEND it_zemp.
it_zemp-resrc = '0000123456'.
it_zemp-knumh = '0000014834'.
APPEND it_zemp.
it_zemp-resrc = '0000123456'.
it_zemp-knumh = '0000014835'.
APPEND it_zemp.
intab_a132-resrc = '0000123456'.
intab_a132-knumh = '0000014834'.
intab_a132-datbi = '20070531'.
intab_a132-datab = '20070101'.
APPEND intab_a132.
intab_a132-resrc = '0000123456'.
intab_a132-knumh = '0000014835'.
intab_a132-datbi = '200701231'.
intab_a132-datab = '20070601'.
APPEND intab_a132.
intab_konp-knumh = '0000014834'.
intab_konp-kbetr = '20000'.
APPEND intab_konp.
intab_konp-knumh = '0000014835'.
intab_konp-kbetr = '25000'.
APPEND intab_konp.
clear: intab_konp, intab_a132, it_zemp.
LOOP at it_zemp. "into wa_zemp.
READ TABLE intab_a132 WITH KEY resrc = it_zemp-resrc.
READ TABLE intab_konp WITH key knumh = it_zemp-knumh.
if sy-subrc eq 0.
    move intab_konp-kbetr to it_zemp-kbetr.
    modify it_zemp." from wa_zemp.
ENDIF.
endloop.
See the Loop part which adds the price field to the zemp* table.
check this if again not correct tell me ...
Regards,
Vimal

Similar Messages

Help on ABAP report

Hi everyone,
I am a newbie to ABAP. I have a requirement, wherein, I need to develop a program that takes another program name as a variant and calculate the time for execution for the program, given as variant. Please somebody help me with it. Thanks in advance.

This does not make sense for background jobs, and for dialog processes there is a system parameter that limits the maximum allowed runtime, after which the process gets cancelled with a TIME_OUT short dump. This is usually set to 5 or 10 minutes.
Who should see this pop-up anyway, and what should be the follow-on action after seeing it?
Thomas
P.S. in the future, please use more meaningful subject lines for your posts, as most people here need "help on ABAP report"

Help understanding ABAP Proxies

Can someone point me to documentation to help understand ABAP proxies? What they are, why I would use them and what are the considerations in using them over BAPI's or IDOCS? I had a recent discussion with someone who is choosing to not use them because of security considerations.

Hi Rick,
For ABAP proxy documentation refer...
http://help.sap.com/saphelp_nw04/helpdata/en/ab/585f3c482a7331e10000000a114084/content.htm
http://help.sap.com/saphelp_nw04/helpdata/en/14/555f3c482a7331e10000000a114084/content.htm
For considerations in using proxy over BAPI's or IDOCS Refer...
/people/ravikumar.allampallam/blog/2005/08/14/choose-the-right-adapter-to-integrate-with-sap-systems
Regards
Anand

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

Help in abap objects

hallow
i wont example in regular abap like select stetmet and how i do that in abap objects (the same code)and which benefit i have in using objects.
Regards

hi,
check the below links lot of info and examples r there
http://www.sapgenie.com/abap/OO/index.htm
http://www.geocities.com/victorav15/sapr3/abap_ood.html
http://www.brabandt.de/html/abap_oo.html
Check this cool weblog:
/people/thomas.jung3/blog/2004/12/08/abap-persistent-classes-coding-without-sql
/people/thomas.jung3/blog/2004/12/08/abap-persistent-classes-coding-without-sql
http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b6254f411d194a60000e8353423/frameset.htm
http://www.sapgenie.com/abap/OO/
http://www.sapgenie.com/abap/OO/index.htm
http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b5654f411d194a60000e8353423/content.htm
http://www.esnips.com/doc/375fff1b-5a62-444d-8ec1-55508c308b17/prefinalppt.ppt
http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf
http://www.esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt
http://www.allsaplinks.com/
http://www.sap-img.com/
http://www.sapgenie.com/
http://help.sap.com
For funtion module to class
http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5954f411d194a60000e8353423/content.htm
for classes
http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5c54f411d194a60000e8353423/content.htm
for methods
http://help.sap.com/saphelp_47x200/helpdata/en/08/d27c03b81011d194f60000e8353423/content.htm
for inheritance
http://help.sap.com/saphelp_47x200/helpdata/en/dd/4049c40f4611d3b9380000e8353423/content.htm
for interfaces
http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b6254f411d194a60000e8353423/content.htm
4) http://esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf
5) http://esnips.com/doc/92be4457-1b6e-4061-92e5-8e4b3a6e3239/Object-Oriented-ABAP.ppt
6) http://esnips.com/doc/448e8302-68b1-4046-9fef-8fa8808caee0/abap-objects-by-helen.pdf
7) http://esnips.com/doc/39fdc647-1aed-4b40-a476-4d3042b6ec28/class_builder.ppt
8) http://www.amazon.com/gp/explorer/0201750805/2/ref=pd_lpo_ase/102-9378020-8749710?ie=UTF8

Urgent Help In ABAP

Hi Gurus,
Please i need an urgent help from you guys. There is a demand file which consits of (Siteno(plant), Item No ,Item Description, Delivery due date) will be placed in a unix system or windows system. I need to write an interface which shows a radiobutton for unix & windows and fileupload button & download button.When user clicks should be able to select only one radiobutton (unix or windows) to upload or download.When the user clicks the fileupload / download button,it should pick up the file or drop the file at particular unix or windows system.
Please help me or give me sample code where in i can select the radiobutton and i can upload / download from unix or windows path. and during upload process (for both unix/windows) ,i should be able to persist into a custom table (ztable,if iam not wrong) and while downloading read the records from custome table and create an excel file to be placedon unix/windows based on the radio button.
Thanks in advance, i need ur help please.
Regards
Bruno

Hi Bruno,
Please checkout this code sample
ABAP code for uploading a TAB delimited file into an internal table.
The code is base on uploading a simple txt file.

http://www.sapdevelopment.co.uk/file/file_uptabpc.htm
Thanks,
Aby

To get f4 search help in Abap Web dynpro

Hi web Dynpro Experts,
i want to achieve XK03 Tcode payment mode search help functionality in abap webdynpro,in clearly When i press f4 i payment mode input field a view should open with different payment modes like
a.ebanking payment method,
b.ebanking treasury pay method,
c.cheque ..etc..with check boxes when i select a and b methods types it should concatinate and shown as ab in payment methods field.
I checked for this there is no predefined search helpin data element level(dzwels),and domain level,i hope it is provided by programming.
if i want to achieve f4 search help through free programming?how to do that?
how to re use the same screen design which is in XK03?
please guide me to come out of this issue
Thanks in advance
Vijay
Edited by: vijay kumar on Apr 17, 2010 10:17 AM

hi friends my question is answere...thanks for ur support

Help on ABAP Function Module (Unit 1)

Hello ABAP Experts,
I need help with the below mentioned lesson plan. I donot have source code for The ABAP Function Module - BC401_GET_SEP_STRING. For the Source Code Solution in the Lesson Plan to work, I need the source code for the above mentioned function module.
The Lesson Plan with Solution is posted below:
Exercise 1
Unit: Data Types and Data Objects in Detail
Topic: Defining Data Types and Data Objects
Basic Statements
Processing Character Strings
At the conclusion of these exercises, you will be able to:
u2022 Define structure types locally in the program
u2022 Define elementary and complex data objects
u2022 Split strings
u2022 Use conversion rules
u2022 Display the contents of data objects in lists
In this exercise, you will use a template to create a program that receives a single data record from the database table SFLIGHT in form of a character string. The program will split the this character string into its components and display it formatted in a list.
Because the focus of this exercise is not on the transfer of data as a character string, we will use a function module that will provide us with the required database. This will simulate actual cases, such as data transfer from an external system.
Program: ZBC401_##_SPLIT_STRING
Template: SAPBC401_DTOT_SPLIT_STRING
Model solution: SAPBC401_DTOS_SPLIT_STRING
is your two-digit group number
1-1 Copy the program, SAPBC401_DTOT_SPLIT_STRING and give it the new name ZBC401_##_SPLIT_STRING.
1-2 Familiarize yourself with the main body of the program. Pay special attention to the content of the data object datastring after the function module call. Use the Debugger to do this, and/or display the character string in a list. (The function module itself is here seen as a black box. For this exercise, it is not necessary to understand its construction.)
1-3 To be able to split the character string into its components you must first remove the ## characters. Remove the two leading separators from the character string first. Then copy the initial part up to the closing separators to the auxiliary variable set_string. For this, set_string has to be defined appropriately.
1-4 Now use the separators to split the contents of the auxiliary variable set_string into the structure wa_flight_c. The latter is typed with the local program structure type st_flight_c. You still have to comment out the components of this structure type and assign them an appropriate type.
1-5 As a test, display the fields of the structure, wa_flight_c in a list.
1-6 In the list displayed in exercise 1-5, you should have observed that some of the fields were displayed without formatting u2013 for example, the PRICE field. Your next step is to change this.
To do this, convert the data you have extracted by copying it to data objects with suitable types. Also, not all components of wa_flight_c are to be displayed.
For this purpose, a structure wa_flight has already been defined. It is typed with the structure type st_flight. You must comment out the components of st_flight and find appropriate types for these components for the formatting. Then copy the identically-named components of the character-type structure wa_flight_c to the fields of the structure wa_flight.
Display the contents of the structure wa_flight in a list. Use the appropriate formatting options for the WRITE statement for the fldate and price components.
Data Types and Data Objects in Detail Solution 1
Unit: Data Types and Data Objects in Detail
Topic: Defining Data Types and Data Objects
Basic Statements
Processing Character Strings
REPORT sapbc401_dtos_split_string.
TYPES:
BEGIN OF st_flight_c,
mandt(3) TYPE c,
carrid(3) TYPE c,
connid(4) TYPE n,
fldate(8) TYPE n,
price(20) TYPE c,
currency(5) TYPE c,
planetype(10) TYPE c,
seatsmax(10) TYPE n,
seatsocc(10) TYPE n,
paymentsum(22) TYPE c,
seatsmax_b(10) TYPE n,
seatsocc_b(10) TYPE n,
seatsmax_f(10) TYPE n,
seatsocc_f(10) TYPE n,
END OF st_flight_c,
BEGIN OF st_flight,
carrid(3) TYPE c,
connid(4) TYPE n,
fldate TYPE d,
price(9) TYPE p DECIMALS 2,
currency(5) TYPE c,
planetype(10) TYPE c,
seatsmax TYPE i,
seatsocc TYPE i,
END OF st_flight.
DATA:
datastring TYPE string,
set_string TYPE string,
wa_flight_c TYPE st_flight_c,
wa_flight TYPE st_flight.
START-OF-SELECTION.
CALL FUNCTION 'BC401_GET_SEP_STRING'
EXPORTING
IM_NUMBER = '1'
IM_TABLE_NAME = 'SFLIGHT'
IM_SEPARATOR = '#'
IM_UNIQUE = 'X'
IMPORTING
ex_string = datastring
EXCEPTIONS
no_data = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE a038(bc401).
ENDIF.
SHIFT datastring BY 2 PLACES.
FIND '##' IN datastring.
IF sy-subrc <> 0.
MESSAGE a702(bc401).
ENDIF.
SPLIT datastring AT '##' INTO set_string datastring.
SPLIT set_string AT '#' INTO
wa_flight_c-mandt
wa_flight_c-carrid
wa_flight_c-connid
wa_flight_c-fldate
wa_flight_c-price
wa_flight_c-currency
wa_flight_c-planetype
wa_flight_c-seatsmax
wa_flight_c-seatsocc
wa_flight_c-paymentsum
wa_flight_c-seatsmax_b
wa_flight_c-seatsocc_b
wa_flight_c-seatsmax_f
wa_flight_c-seatsocc_f.
MOVE-CORRESPONDING wa_flight_c TO wa_flight.
WRITE: /
wa_flight-carrid,
wa_flight-connid,
wa_flight-fldate DD/MM/YYYY,
wa_flight-price CURRENCY wa_flight-currency,
wa_flight-currency,
wa_flight-planetype,
wa_flight-seatsmax,
wa_flight-seatsocc.

this FM is to get one element value from the XML
if you want to convert the whole XML use FM SMUM_XML_PARSE
Regards
Raja
Kindly close your previous threads and assing points.
Re: Creation of SIMPLE TRANSFORMATIO(ST)for deserialisation of XML ->ABAP data.

Help in abap program

hellow i have a table itab with value (ex. error value) and i wont to select some value from tables ( defined below.) and put it in table err_itab my problem is in the loop i dont now how to continued from their i thihk with append to intrernal tables and after to do read to err_itab, but im not sure this is my program any suggestion. thankes for your time and suggestion.
form write_2_file .
IF file_ser IS INITIAL.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
CODEPAGE = ' '
filename = l_name
FILETYPE = 'ASC'
HEADLEN = ' '
LINE_EXIT = ' '
TRUNCLEN = ' '
USER_FORM = ' '
USER_PROG = ' '
DAT_D_FORMAT = ' '
IMPORTING
FILELENGTH =
TABLES
data_tab = itab
EXCEPTIONS
conversion_error = 1
file_open_error = 2
file_read_error = 3
invalid_type = 4
no_batch = 5
unknown_error = 6
invalid_table_width = 7
gui_refuse_filetransfer = 8
customer_error = 9
no_authority = 10
OTHERS = 11
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ELSE.
OPEN DATASET file_ser IN TEXT MODE
ENCODING DEFAULT FOR INPUT.
IF sy-subrc NE 0.
MESSAGE e002(yhr) .
ENDIF.
DO.
READ DATASET file_ser INTO wa_itab.
IF sy-subrc NE 0.
EXIT.
ENDIF.
APPEND wa_itab TO itab.
ENDDO.
ENDIF.
endform. " write_2_file
FORM get_data .
CLEAR wa_itab.
LOOP AT itab INTO wa_itab.
IF wa_itab-action = 'y1'
OR wa_itab-action = 'y2'
OR wa_itab-action = 'y3'.
SELECT SINGLE ansvh
FROM t542a
INTO wa_b_itab-ansvh
WHERE molga ='IL'
AND ansvh = wa_itab-contract.
IF sy-subrc <> 0.
APPEND wa_b_itab TO b_itab.
SELECT SINGLE werks btrtl
FROM t001p
INTO (wa_c_itab-werks, wa_c_itab-btrtl)
WHERE molga ='IL'
AND werks = wa_itab-personnel_area
AND btrtl = wa_itab-personnel_subarea.
IF sy-subrc <> 0.
APPEND wa_c_itab TO c_itab.
SELECT SINGLE objid
FROM hrp1000
INTO wa_d_itab-objid
WHERE otype = 'S'
AND objid = wa_itab-plans
AND begda <= currnt_date
AND endda >= currnt_date.
APPEND wa_d_itab TO d_itab.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.

I have added authorization check in ABAP program(Progran level security).
i assume you have coded call authority within the program.
If an end user runs the transactionm, then which authorization check will fire first?
if he calls the transaction, then first authorization attached to the transaction will be checked.
but if he executes the program attached to the transaction, then the authorization attached to the transaction dosent help here, the one coded in side the program is checked.
If I have web enabled my ABAP program via SICF (in other words, ITS).
it depends,
if you are calling your transaction like
webgui/?~transaction=<tcode> then first tcode level authorization.
if you generate the templates for the program and callign the same, then i guess its progam level. (i need to check this)
Regards
Raja

Help in ABAP function module coding.

Hi,
i am having trouble coding the program where i have to select a number from the table and add one to it to create a new record back to the table. example, i've select 1 from the table, i need the program to be able to return 2 and create a new record back into the table and the next time i generate the program, i will select 2 and create a 3 into the table. It needed to be a custom function module as i need to call it in another function module which would concatenate the generated number with some words..
i'm very new to abap programing...so could anyone please provide a detailed on how i could code it...
THANKS alot in advance!!!!

Hi Lessy,
i have done the same requirement where my sequence number will automatically get incremented by 1 as new record cames for update.as already discussed you have to cretae the numebr range and call the number range by function module 'Number_get_next'.
PFB the code which will definitely help you.
CALL FUNCTION 'NUMBER_GET_NEXT'
        EXPORTING
          NR_RANGE_NR                   = '01' " specify this number this is
*the same when you cretae numberrange have specified.
          OBJECT                        = 'ZSEQNUM'    " This the number range
*i have created
       IMPORTING
         NUMBER                         = wa_msg-seqnr
       EXCEPTIONS
         INTERVAL_NOT_FOUND            = 1
         NUMBER_RANGE_NOT_INTERN       = 2
         OBJECT_NOT_FOUND              = 3
         QUANTITY_IS_0                 = 4
         QUANTITY_IS_NOT_1             = 5
         INTERVAL_OVERFLOW             = 6
         BUFFER_OVERFLOW               = 7
         OTHERS                        = 8.
      modify lt_message FROM wa_msg TRANSPORTING seqnr.
to cretete number range.
goto transaction SNRO
enter the name,short text, give the number length domain (char10 or what ever is your domain)
click on number range and cretae interval.
give the number , from number and to number.
this number you have to give in FM also (i have given '01').
hope this will help you.for any problem revert back
thanks
Tanmaya
Code Formatted by: Alvaro Tejada Galindo on Jan 13, 2010 4:16 PM
Edited by: Rob Burbank on Jan 13, 2010 5:20 PM

Help in ABAP+JAVA Homogeneous System copy

Dear BASIS Gurus,
We have SRM 4.0, Portal 6.0, BW 3.5 and XI 3.0 based on WAS 640, all with
ABAP+JAVA stacks in HP-UX B.11/Oracle 9.2.x.
We are planning Homogeneous System copies to refresh our Development
environment.
After reading the instguides, I'm a litle confused about the best
strategy to use.
Using SAPINST in the source System to export the Database, I have the
dump files with Database data.
Do I must run SAPINST again to get the JAVA data (both database and
filesystem data)?
In the target system do I must do two runs of SAPINST ? One for ABAP
and other for JAVA?
Yhanks in adavnce.
Best regards.
Arnaldo Calçada.

Hi Arnaldo,
There are basically two method of performing system copy.
1. Using database tool (you can use backup/restore procedure)
2. Using SAPINST tool (export/import)
This is applicable for both ABAP and JAVA.
Do I must run SAPINST again to get the JAVA data (both database and
filesystem data)?
It depends which method you are using.
In the target system do I must do two runs of SAPINST ? One for ABAP
and other for JAVA?
Yes if you are using 2nd method.
Hope this will help.
-Pinkle

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.
Mithun

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

Help In ABAP Object Certification Question

Hi ABAP Gurus,
iam going to write certification Exam on Nov 11. i have got some model question from SAP domain for all the topics Except ABAP Objects which is so important...
Please anybody send me some Example question you guys got from the Certification Exam
it will be be grateful to me...
Thanks a lot in advance.
Prabhu
SAP Lead Consultant

Hi,
Sending ABAP Objects questions is not an option but normally, your concepts are tested for:
- Classes and objects
- Inheritance
- Casting
- Interfaces
- Events
- Global classes and interfaces
- Exception handling
- Dynamic programming
You can use help.sap.com to take a look at these topics one by one. Hope this helps.
Good luck.

Help in ABAP Obj Sample Question

Hi ABAP Gurus,
iam going to write certification Exam on Nov 11. i have got some model question from SAP domain for all the topics Except ABAP Objects which is so important...
it will be be grateful to me if anybody send some ques...
Thanks a lot in advance.
Prabhu
SAP Lead Consultant

Hi,
Some questions
1) Which tool can be used to move a method of a class to an interface which the class implements?
2) Can a CLASS-CONSTRUCTOR be defiend to raise exceptions?
3) Can you access PROTECTED data using object reference of a subclass?
4) Can a class method raise both normal exceptions and class based exception?
It will be helpful if you share the links of other topics
Regards,
Sesh

Select Options and Search Help in ABAP Dynpro

Hi Guys,
I am new to ABAP WD. We are workin on ABAP Stack of the Portal with no DB Tables n data. we have to fetch the data from R/3 and display it on the Dynpro screen.
But here the problem is the Standard Search Help attached to the data elements cannot fetch any data, as by default it searchs the ABAP stack for the data. Is there any work around for the same wherein i can fetch the data from R/3 and display it when user requests for the search help.?
Please let me know.
Thanks and Regards,
Sagar

Hi,
You can also use freely programmed help here.......
Please check the following links for
OVS
http://help.sap.com/saphelp_nw04s/helpdata/en/47/9ef8c99b5e3c5ce10000000a421937/frameset.htm
OVS Help in Web Dynpro ABAP
Freely programmed
http://help.sap.com/saphelp_nw04s/helpdata/en/47/9ef8cc9b5e3c5ce10000000a421937/frameset.htm
regards
Pranav

Hi need help in abap query

hello friends,
i am doing abap query,
i created the
user group in sq03
infoset in sq02
query in sq01
it looks ok,
but it is picking all the items from the table1,
i want it to pick only those data which satisfy one specific condition,
like
vkorg = 'A123' or 'B456'.
audat = anything after feb 04.
likie that.
can some one help.

Check with below Link :
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/40bec8da-4cd8-2910-27a9-81f5ce10676c
Pls go through the below link.
http://www.sappoint.com/abap/ab4query.pdf
Thanks
Seshu

Help in abap

Similar Messages

Maybe you are looking for