Currency type 10,30 and 00 need to extract data from R/3 to BI

Hi Experts,
I am working ECC6.0 version with BI 7.0,
I have a issue, when I extracting data from R/3 data source (0FI_AP_3) only currency type 10 comming but I need currency type 30 and 00 also....
when I check in data source abap code it was hard coaded with 10 currenly only,
can any help me to provide your inputs how currecy type 10, 30 and 00 also come to BI.
Regards,
Vijay

Hi Vijay,
0FI_AP_3 is Account payable -Actual line item data source, which was used for fetch actual vendor posting data.
If you are looking for planning and budgeting data then you sud go for 0FI_AP_1 / 0FI_AP_6 / 0FI_AP_7 based on your requirement.
Kindly let me know if you have any question on this.
Regards,
Ashish

Similar Messages

Keyboard won't work and need to extract contacts from computer without unlocking phone.

Hey there!
My pearl's keyboard just recently broke and I need to extract my contacts to transfer to a new phone. Unfortunately I am unable to unlock the phone to access the files because of the keyboard. Is there any way to unlock the phone using the computers keyboard or simply bypass the password? Any help is greatly appreciated, thanks!
I am on the Wind network
Pearl 9100 w/20 key QWERTY board
I've had the phone for approx. 2 years
possible water damage to keyboard
screen/battery work, tried rebooting.
computer won't recognize device until unlocked

Hi finnmccord77,
Welcome to the Support Community!
When you connect your BlackBerry® Pearl™ 9100 smartphone to the computer, you should be prompted to enter your security password. You should be able to backup or synchronize the contacts your BlackBerry® Pearl™ 9100 smartphone using the BlackBerry® Desktop Software.
This KB article should help you set up synchronization with an email client on your computer. "How to setup organizer data synchronization using BlackBerry Desktop Software" http://bbry.lv/L2aRTL
If you are switching to another BlackBerry® smartphone, you can use the backup and restore tool in the BlackBerry® Desktop Software to backup your contacts and restore them to your new BlackBerry® smartphone. This KB article may help. "How to back up BlackBerry smartphone data using BlackBerry Desktop Software for Windows" http://bbry.lv/IWfPl0
Hope this helps.
-FS
Come follow your BlackBerry Technical Team on Twitter! @BlackBerryHelp
Be sure to click Kudos! for those who have helped you.
Click Solution? for posts that have solved your issue(s)!

Need to extract data - from USB 2.0 external disk

Ive tried Data Rescue II to no avail. I cant afford to buy another tool to use such as FileSalvage.
I was hoping somebody else in the Mac community knows of a freeware/shareware or otherwise inexpensive tool that can extract data....
Cheers and TIA

just for anyone following this thread, who may be experiencing a similiar issue here are more facts.
This is a USB 2.0 type external USB drive in a small plastic enclosure. Its got a 3 year warranty from manufacturer Simpletech.
It worked fine for 6 months. It appears to have failed - it was never accidentally erased. Ive used it weekly to backup my MacBook Pro.
Suddenly, this Simpletech 250Gb drive stopped being accessible. You would see the the (two) partitions mount, and correct volume names. One partition was made big enough to handle backing up a MBP- im my case a 100Gb partition. The latter partition was what was left over, or nominally, 150Gb. Upon connecting the USB 2.0 cable, you would see the volumes mount, with correct volume names and contents, but upon clicking (say a folder of text documents), the item would simply disappear from view. Further clicking on other items - say folder full of my pet pics, folder of music, folder full of pics of stuff I have for sale) those would disappear too.
Repair tools such as Disk Utility did and still do see the volumes and contents. But nothing more can be done to view or access any data within them.
Side note: DU has the "vulnerability" of not forcefully unmounting volumes - and will state when it cant do so. Unmount is a command and a process used by OSX to modify disk contents. The drive or partition icon would and should disappear from your desktop (momentarily), then DU can do its thing, hopefully to repair whatever is wrong. Same idea for erasing, unmount would still be needed. But if the partitions dont unmount via DU, you might be tempted to give up. Fortunately, you can go to Terminal and issue a command such as:
sudo umount -f /dev/get name of your disk from DU - get info (such as disk2/s5)
while this Terminal way of issuing unmount may work (and did for awhile for my faulty disk) no utility was able to repair my drive in any way shape or form. No erase command, no format, nothing nada.
So Im stuck with wanting to RMA this defective drive back to the manufacturer but have no way to erase the data.
Tried putting close to gigantic speaker - that didnt work at all.
Any suggestions ?
Simpletech has said they will replace it if I send it back. My data is seemingly trapped on this drive !
I tried:
Tech Tool Pro
Drive Genius
Diskwarrior
Data Rescue II
to no avail.

Help needed in extracting data from PCD tables

Hi Friends
I Have a requiremnt for creating custom portal activity report ,even though
we have standard report, the extraced data will be used to create bw reports later.
my part is to find a way to extract the data from PCD tables for creating
custom portal activity reports
i have selected the following tables for the data extraction
WCR_USERSTAT,WCR_WEBCONTENTSTAT,WCR_USERFIRSTLOGON,
WCR_USERPAGEUSAGE.
My questions are
1.Did i select the Exact PCD tables?
2.Can i use UME api for accessing the data from those tables?
3.can i use the data extracted from PCD tables in JSPdynpage or
webdynpro apps?
4.can i Querry the PCD tables from JSPDynpage or Webdynpro
Please help me in finding a solution for this
Thanks
Ashok Battula

Hi daniel
Can u tell me weather i can develop the following custom reports from those WCR tables
     Report Type
1     Logins
      - Unique Count
      - Total Count
      - Most Active Users (by Partner Name)
      - Most Active Users (by Contact Name)
      - Entry Point (by page name)
      - Session Time
      - Hourly Traffic Analysis
2     Login Failures
      - Total Count
      - Count by error message
      - Credentials Entered (by user name and password)
3     Content Views (by File Name)
      - Unique Count
      - Total Count
      - Most requested Files
      - Most requested Pages
      - File Not Found
4     Downloads (by File Name)
      - Unique Count
      - Total Count
      - Most requested Files
      - File Not Found
5     Portal Administration
      - Site Content (by file name)
      - Site Content (by page name)
      - Latest Content (by file name)
      - Expired Content (by file name)
      - Subscriptions Count (by file name)
6     Login History (by Partner, Contact Name)
      - No Login
      - First Login
      - Duration between registration and first login
      - Most Recent Login
      - Average Number of Logins
plz help me in find ing a way
thanks
ashok

Need to extract data from R/3 to BI...

Hi Friends,
We need to extract some data available in the R/3 side to BI. I have written code in a function module which brings the output into the table e_t_data. now by attaching this function module, we created a Data source also. and then from BI side we replicated this Datasource. when tried to extract the data at BI from R/3, the process keeps on running with out bringing any data into BI.
Regarding this, i referred some docs in the forums. They say that we have to go with the approach followed in the FM 'RSAX_BIW_GET_DATA_SIMPLE'. I have done all the coding and settings similar to this function module. there is no syntax error and code produces the required output in e_t_data.In that FM they used some Select statement under the Open Cursor statement. But in our requirement, we are not selecting anything from Table. but we generate some data by some calculations and these data will be our output. If it is the case, can't we use that open cursor approach...? we need to get the output data not by any select statement but the output will be some internal table entries which are created by some calculations.
Please suggest how to handle this. That would be very much helpful. <removed_by_moderator>
Thanks in advance...
Regards
Ram
Edited by: Julius Bussche on Jul 14, 2008 2:17 PM

If you dont require any coding, then why dont you extract the data using the DB view/table or DB query. why you are using the FM.
If you are using the FM, then for the first extraction call it will pass the selectoption data into ranges and in the next extraction call it will open the cursor based on the input data and fetch the data according to the package size per extraction call.
For the generic data sources using the FM, the main thing lies in Fetching the data. If you study the standard FM 'RSAX_BIW_GET_DATA_SIMPLE', it fetches the data according to the number of records per extraction call.
At the BI, entire data cant be picked up at once. it will pick packets of data.
Regards
Kannaiah

Need to extract data from a bricked hard drive - Failure ID ucx77t-69j7ms-mfpx1f-60vp03

Hi My laptop (HP Pavilion Sleekbook 14, purchased in October 2012) had gone slow recently, and finally its hard drive developed problems. At one point, it was so slow that it took a few minutes to sign off my user, so I shut it down manually while it was logging off. That was when it got really bad. Specifically, I reached the "Repairing disk errors. This may take over an hour to complete" screen. I left it to run for almost a full day and it didn't work. So, I rebooted the laptop and checked its diagnostics boot menu. It ran diagnostics on the hard drive, and on the whole laptop. There were no hardware problems or any codes for any individual components, except the hard drive. Specifically, it gave me the Failure ID "ucx77t-69j7ms-mfpx1f-60vp03". I tried looking that up but I couldn't find anything. I wonder what that failure ID is for. Fortunately, I have a recovery drive, and most of the information on the laptop is backed up, but I need to extract some recently created data from my hard drive before I lose it by running recovery manager. I tried to back up some files, but the recovery drive could not reach any files to back up. I've also tried taking out the drive and putting it in an external hard drive enclosure then connecting it to another laptop, but it's telling me that the drive is only 25 GB when it's a 500 GB drive, and I still can't reach any files from C: inside. Can you help me figure out how to back up those files? They're only about 10-15 GB altogether, and I can easily fit them on another laptop.

The failure id message means the hard drive has failed and will have to be replaced. The slowness and other problems were early warning signs of a failing hdd.If the drive can not be read using an external enclosure-not much hope. You might try one of the free tools to recover files-especially #2 which claims ability to recover lost partitions.Maybe it can see your C partition. http://pcsupport.about.com/od/filerecovery/tp/free-file-recovery-programs.htm

Need to extract data from a BLOB

I have a blob that I need to pull some data out of and insert into a table that already contains the blob.
My thought is to use something like instr or substr and have it return the values to the appropriate column for the appropriate blob. Am I on the right road?
Is there any examples you could provide that will lead me in the right direction?
The data that I am looking for is at least preceded by a word: for example
I am looking for an assigned_id number At least the number itself is preceded by something like Assigned ID: 123456
It may not always be in the same place in the document but I am hoping that there is some way to traverse over the document find the word assigned id and then take that vale to insert into the table
Any help would be appreciated

The subject is BLOB ... not CLOB. The demo you linked is for CLOB.
That said the DBMS_LOB package contains both SUBSTR and INSTR functions.
Demos here:
http://www.morganslibrary.org/reference/dbms_lob.html
One small warning though ... taking a substring of binary data may or may not yield anything of value. How are you going to determine the offset?

HELP! Firmware update failed, need to extract data from unreadable iPod

Please HELP! I have important data on my iPod that I need to preserve. Here's what I did:
* downloaded newest iPod software and used the iPod Updater. It assured me the the "Update" process does not touch songs/data on my iPod
* clicked the Update button. The update failed, citing error writting data to disk.
* now my iPod will not boot up (folder icon), on top of that it will not mount even in Disk Mode (claims it's unformatted).
* iPod Updater now offers only the Restore option
I absolutelly NEED to get the data of my iPod if I am to restore it. The data should still be on the disk (even if the firmware is damadged), it's just a matter of gaining access to it.
Any chances?
iPod video Windows XP

Good luck.
Sounds like a problem I had with a camera card - and I lost the pictures, and I have yet to restore the camera card - it's still dead, won't even format.
Take it someplace where they specialize in data recovery - for high fees....

I ahve a new computer with windows 8.1 and need to transfer data from lightroom 4 on my old computer

How do I do the transfer to a new computer with a new version of lightroom? I tried to use windows easy transfer to transfer all data and found that it did not work to transfer from vista to windows 8.1. It apparently worked in windows 8, but not 8.1. Any experience? I do have the catalog backup that I can put on an external hard drive and the two computers are on a network.

Try http://members.lightroomqueen.com/index.php?/Knowledgebase/Article/View/1165/187/how-do-i- move-my-catalog-photos-and-other-lightroom-files-to-a-new-computer

Help! Set up multiple accounts and need to transfer data from one

Hello firstly my apologies for asking what might be a basic question but please be patient as i have come from the "dark side" and until yesterday, owned a PC :o)
Under our main admin account i downloaded lots of my photos onto iphoto. Today i set up an account each for me and t'other half and want to move the photos from the admin account to "my account" but can't for the life of me work out how to do it.
Can anyone please point me in the right direction? Ta Debs

Hi
Is this what you are after http://support.apple.com/kb/HT1198

File-File - Need to extract data from source file name???

Hello Experts,
I have a unique situation. In my file to file scenario, the source file name is of the format XYZ_yymmddHHMM.dat. there is field in the target file which has to filled with the date that is there in the file name of the source file (yymmdd). How can this be achieved? Normally we do the other way round using vaiable substitution where we can name a file depending on the value in any of the target field structure.
Please help.
Regards,
Yash

Hi,
please prepare the udf with the following code.
i mean, dynamic configuration concept.
where u get the file name, then use substring function to capture date from right side.
//write your code here
// getFileName User Defined Function
// function to create name of output file
String filename;
filename = strFile;
try {
// initialize DynamicConfiguration for create file with given name
DynamicConfiguration conf = (DynamicConfiguration) container
.getTransformationParameters()
.get(StreamTransformationConstants.DYNAMIC_CONFIGURATION);
DynamicConfigurationKey key = DynamicConfigurationKey.create( "http://sap.com/xi/XI/System/File", "FileName");
//create file with the specified name
conf.put(key, filename);
} catch (Exception ex) {
return filename;
warm regards
mahesh.

Need to pre-populate and Extract data from static PDF form

Hi Jasmin or Jayan or anyone else that can answer.
I have a requirement to use Digital Signatures. Because of that, the forms must be static PDFs and the form variables will be “document form”. I want to pre-populate the form via an SQL query and custom render process and render it as PDF so that the submitter can apply a digital signature when he/she is done and ready to submit for approvalSubsequent approvers will also digitally sign the form. I know that I will specify the custom render to render only once and thereby preserve the signature(s) on the form. I do, however, need to extract data from the form to control the business process. I cannot access the data in the form the same way I do with an xdp and I also cannot pre-populate the same way I do with an xdp.
Any suggestions on how to attack this?

Parth, one problem with your approach is he will submit PDF and therefore you won't be able to put the PDF in a variable that's suppose to contain just xml.
The prepopulation should be the same. If you start off with an xdp, then you will call a render service that merges data with your xdp to create a PDF.
Now when you submit, you will submit the entire PDF back in the Document Form variable. In Workbench, you can use the FormDataIntegration service to extract data from that PDF that's being stored under Document Form var/object/document and put it in an xml variable. Then you can just use xPath to do your condition.
I'm assuming you'll just pass that same Document Form variable to the next step, because if you do any change to the PDF it'll brake the signature.
Let me know if I missed anything.
Jasmin

Extract data from SAP and send to external system via Webmethods & IDOC's

Hi,
We need to Extract data from SAP and send to an external system via Webmethods middlewear using IDOCs. I have never used webmethods before and would like to know more about how to implement this scenario. I have used IDOCS in an EDI scenario before but not used it along with WebMethods.
Any pointers would be of great help. Thanks

If you have already ABAP programs /BAPI's in place then try to develop RFC interface and write some back ground programs to scheudl BAPI's and develop scenario but you need to implement error handling , data validation in PI mapping level.
or
take help from ABAPer to design in ABAP like writing Proxy program to pull data and send it PI.
if you are dealing with master data bit risky(correctness) but can be achived using PI.

Extracting data from iDoc tables

Hi,
I need to extract data from idoc segments from the database tables EDIDC and EDID4 for which the idoc status is 51 and to save all this data in an external file.
For example, I need to check all the iDocs with WPUBON01 base type and if the status is 51 then I have to query the ARTNR field from E1WPB02 segment and to save idoc number and ARTNR in an excel file.
Can anybody help me or give me some example?
Thank you in advance.
Ioan

See Below Example code :
TYPE-POOLS: slis.
tables : edid4 , edidc ,edids ,lfa1,teds2.
DATA: t_fieldcatalog TYPE slis_t_fieldcat_alv.
DATA: s_fieldcatalog TYPE slis_fieldcat_alv.
DATA: s_layout TYPE slis_layout_alv.
DATA: text11 LIKE E1EDP02.
DATA: text111 LIKE E1MBXYI.
DATA: s_keyinfo TYPE slis_keyinfo_alv.
DATA: v_repid TYPE syrepid.
DATA: V_MSGNO LIKE T100-MSGNR.
*DATA: V_TEXT(90).
DATA : WA_EDIDS TYPE EDIDS.
data : begin of itab_edids occurs 0,
   user like edids-UNAME,
   date like edids-CREDAT,
   time like edids-cretim,
   idoc like edids-docnum,
MESSAGETYPE like edidc-MESTYP,
VENDOR LIKE EDIDC-SNDPRN,
name like lfa1-name1,
icon(1),
   EXPAND TYPE C,
end of itab_edids.
data : itab type edid4.
data : begin of itab_edidc occurs 0,
     doc_num like edidc-docnum,
     MESSAGETYPE like edidc-MESTYP,
   IDOCTYPE like edidc-DOCTYP,
   PARTNERNUMBER like edidc-RCVPRN,
   PARTNERTYPE like edidc-RCVPRT,
MESSAGECODE like edidc-MESCOD,
VENDOR LIKE EDIDC-SNDPRN,
data like edidc-credat,
*include structure edidc.
end of itab_edidc.
data : begin of itab_status occurs 0,
idoc like edids-docnum,
date_stauus like edids-logdat,
status_counter like edids-countr,
staTus like edids-status,
*descrp like teds2-descrp,
DESCRP(70),
ponumber like ekpo-ebeln,
MESS LIKE edidc-MESTYP,
*appdoc like edids-stapa1,
end of itab_status.
data : text like edid4-sdata.
DATA: text1 LIKE E1EDK01.
data : begin of itab_teds1 occurs 0.
        include structure teds1.
data end of itab_teds1.
*selection-screen begin of block sb with frame title text-001.
*select-options:
   s_rsdat for edidc-CREDAT.
*selection-screen end of block sb.
DATA: f_fieldcatalog TYPE slis_fieldcat_alv.
selection-screen begin of block sb with frame title text-001.
parameters:
       p_su radiobutton group gp1,
       p_re radiobutton group gp1,
       p_al radiobutton group gp1.
select-options:
    s_rsdat for edids-creDAT,
    s_user for edids-uname.
selection-screen end of block sb.
initialization.
PERFORM INITIALIZATION.
start-of-selection.
PERFORM DATA_RETRIVAL.
PERFORM DATA_BASED_SELECTION.
PERFORM PASSING_ALV.
*select docnum mestyp doctyp rcvprn rcvprt mescod credat into
*table itab_edidc from edidc
*where credat in s_rsdat.
*CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
*EXPORTING
*i_program_name = v_repid
*I_INTERNAL_TABNAME = 'ITAB_STATUS'
*CHANGING
*ct_fieldcat = t_fieldcatalog.
*CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
*EXPORTING
*i_program_name = v_repid
*I_INTERNAL_TABNAME = 'ITAB_EDIDS'
*CHANGING
*ct_fieldcat = t_fieldcatalog.
s_LAYOUT-ZEBRA = 'X'.
*s_LAYOUT-SUBTOTALS_TEXT = 'SUBTOTAL'.
*s_LAYOUT-TOTALS_TEXT = 'TOTAL'.
*&      Form INITIALIZATION
      text
--> p1        text
<-- p2        text
FORM INITIALIZATION.
V_REPID = SY-REPID.
s_keyinfo-header01 = 'IDOC'.
s_keyinfo-item01 = 'IDOC'.
*s_layout-subtotals_text = 'SUBTOTAL TEXT'.
*s_layout-key_hotspot = 'X'.
*s_layout-expand_fieldname = 'EXPAND'.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
            i_program_name         = V_REPID
            I_INTERNAL_TABNAME     = 'ITAB_STATUS'
            I_INCLNAME = V_repid
       CHANGING
            ct_fieldcat            = T_fieldcatalog
       EXCEPTIONS
            INCONSISTENT_INTERFACE = 1
            PROGRAM_ERROR          = 2
            OTHERS                 = 3.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
            i_program_name         = V_REPID
            I_INTERNAL_TABNAME     = 'ITAB_EDIDS'
            I_INCLNAME = V_repid
       CHANGING
            ct_fieldcat            = T_fieldcatalog
       EXCEPTIONS
            INCONSISTENT_INTERFACE = 1
            PROGRAM_ERROR          = 2
            OTHERS                 = 3.
f_fieldcatalog-just = 'L'.
MODIFY t_fieldcatalog FROM f_fieldcatalog
TRANSPORTING just
WHERE ( fieldname = 'IDOC' OR FIELDNAME = 'STATUS_COUNTER' ).
f_fieldcatalog-SELTEXT_L = 'Status Message'.
MODIFY t_fieldcatalog FROM f_fieldcatalog
TRANSPORTING SELTEXT_L
WHERE fieldname = 'DESCRP'.
f_fieldcatalog-TECH = 'X'.
MODIFY t_fieldcatalog FROM f_fieldcatalog
TRANSPORTING TECH
WHERE fieldname = 'EXPAND'.
f_fieldcatalog-REPTEXT_DDIC = 'Vendor Name'.
MODIFY t_fieldcatalog FROM f_fieldcatalog
TRANSPORTING REPTEXT_DDIC
WHERE fieldname = 'NAME'.
*f_fieldcatalog-REPTEXT_DDIC = 'V Code 32122'.
*MODIFY t_fieldcatalog FROM f_fieldcatalog
*TRANSPORTING REPTEXT_DDIC
*WHERE fieldname = 'VENDOR'.
ENDFORM.                    " INITIALIZATION
*&      Form DATA_RETRIVAL
      text
--> p1        text
<-- p2        text
FORM DATA_RETRIVAL.
select uname credat cretim docnum into table
itab_edids from edids
               where credat in s_rsdat and
                      uname in s_user and
                      countr = ' '.
select uname credat cretim docnum from edids
*APPENDING CORRESPONDING FIELDS OF TABLE itab_edids
              where logdat in s_rsdat and
                     uname in s_user.
                     SELECT budat hkont belnr shkzg wrbtr FROM bsas
*APPENDING CORRESPONDING FIELDS OF TABLE it_temp WHERE hkont = w_glacct
*"wa_cb-gl_account
*AND bukrs IN (so_bukrs-low)
*AND budat < so_date-low.
delete adjacent duplicates from itab_edids.
if not itab_edids[] is initial.
     select docnum mestyp doctyp rcvprn rcvprt mescod SNDPRN credat into
    table itab_edidc from edidc for all entries in itab_edids
    where docnum = itab_edids-idoc.
endif.
LOOP AT ITAB_edids.
   READ TABLE ITAB_EDIDC WITH KEY DOC_NUM = ITAB_EDIDS-IDOC.
   itab_edids-messagetype = ITAB_EDIDC-MESSAGETYPE.
   itab_edids-VENDOR = ITAB_EDIDC-VENDOR.
   MODIFY ITAB_EDIDS.
   CLEAR ITAB_EDIDS.
   ENDLOOP.
DELETE ITAB_EDIDC WHERE MESSAGETYPE = 'ORDERS'.
loop at itab_edids.
read table itab_edidc with key doc_num = itab_edids-idoc.
if sy-subrc ne 0.
delete itab_edids.
endif.
endloop.
select docnum logdat countr status into table itab_status from edids for
   all entries in itab_edidc where docnum = itab_edidc-doc_num.
   LOOP AT ITAB_STATUS.
   READ TABLE ITAB_EDIDC WITH KEY DOC_NUM = ITAB_STATUS-IDOC.
   ITAB_STATUS-MESS = ITAB_EDIDC-MESSAGETYPE.
   MODIFY ITAB_STATUS.
   CLEAR ITAB_STATUS.
   ENDLOOP.
loop at itab_status.
    clear : text ,text1 , text11, text111, itab.
   select single descrp from teds2 into itab_status-descrp
                          where status = itab_status-STATUS AND
                               LANGUA = 'E'.
   select single sdata into text from edid4 where
     DOCNUM = itab_status-idoc and
     segnam = 'E1EDK01'.
*MOVE: text        TO text1,
     text1-BELNR TO itab_status-ponumber.
      itab_status-ponumber = text1-belnr.
   move text+83(30) to itab_status-ponumber.
   MODIFY ITAB_STATUS.
   clear itab_status.
IF itab_status-MESS = 'WMMBXY'.
   select single * from edid4 INTO ITAB where segnam = 'E1MBXYI' AND
                 HLEVEL = '02' AND DOCNUM = itab_status-idoc.
MOVE : ITAB-SDATA TO TEXT111 ,
text111-EBELN TO itab_status-ponumber.
**text1-BELNR TO ponumber.
ELSE.
select single * from edid4 INTO ITAB where segnam = 'E1EDP02' AND
                 HLEVEL = '03' AND DOCNUM = itab_status-idoc.
MOVE : ITAB-SDATA TO TEXT11 ,
*text1-EBELN TO ponumber.
text11-BELNR TO itab_status-ponumber.
endif.
    MODIFY ITAB_STATUS.
    clear itab_status.
endloop.
ENDFORM.                    " DATA_RETRIVAL
*&      Form PASSING_ALV
      text
--> p1        text
<-- p2        text
FORM PASSING_ALV.
s_LAYOUT-EXPAND_FIELDNAME = 'EXPAND'.
DATA: t_events TYPE slis_t_event.
DATA: s_events LIKE LINE OF t_events.
s_events-form = 'TOP_OF_PAGE'.
s_events-name = 'TOP_OF_PAGE'.
APPEND s_events TO t_events.
s_layout-lights_fieldname = 'ICON'.
sort itab_status by status_counter descending. " -
mod3
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
       EXPORTING
            i_callback_program = v_repid
            is_layout          = s_layout
            it_fieldcat        = t_fieldcatalog
            i_callback_user_command = 'USER_COMMAND'
            i_tabname_header   = 'ITAB_EDIDS'
            i_tabname_item     = 'ITAB_STATUS'
            IT_EVENTS          = t_events
            is_keyinfo         = s_keyinfo
       TABLES
            t_outtab_header    = itab_EDIDS
            t_outtab_item      = itab_STATUS
       EXCEPTIONS
            program_error      = 1
            OTHERS             = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " PASSING_ALV
*&      Form DATA_BASED_SELECTION
      text
--> p1        text
<-- p2        text
FORM DATA_BASED_SELECTION.
if p_su eq 'X'.
*loop at itab_status where status = '53'.
*select single stapa1 from edids into itab_status-appdoc
where docnum = itab_status-idoc and status = '53'.
*delete itab_status where status ne '53'.
*modify itab_status.
*endloop.
delete itab_status where status ne '53'.
loop at itab_edids.
read table itab_status with key idoc = itab_edids-idoc binary search.
if sy-subrc ne 0.
delete itab_edids.
ELSE.
*SHIFT ITAB_EDIDS-IDOC LEFT DELETING LEADING '0'.
MODIFY ITAB_EDIDS.
endif.
endloop.
LOOP AT ITAB_STATUS WHERE MESS NE 'WMMBXY'.
SELECT SINGLE * FROM EDIDS INTO WA_EDIDS WHERE DOCNUM = ITAB_STATUS-IDOC
AND COUNTR = ITAB_STATUS-STATUS_COUNTER.
IF WA_EDIDS-STATXT CA '&'.
V_MSGNO = WA_EDIDS-STAMNO.
IF V_MSGNO NE '000'. "----mod3
CALL FUNCTION 'MESSAGE_PREPARE'
EXPORTING
msg_id = WA_EDIDS-STAMID
msg_no = V_MSGNO
MSG_VAR1 = wa_edids-stapa1
MSG_VAR2 = WA_EDIDS-STAPA2
MSG_VAR3 = WA_EDIDS-STAPA3
MSG_VAR4 = WA_EDIDS-STAPA4
IMPORTING
MSG_TEXT = itab_status-descrp.
CONDENSE ITAB_STATUS-DESCRP.
ENDIF."---- mod3
ELSE .
ITAB_STATUS-DESCRP = WA_EDIDS-STATXT.
ENDIF.
*SHIFT ITAB_STATUS-IDOC LEFT DELETING LEADING '0'.
*SHIFT ITAB_STATUS-STATUS_COUNTER LEFT DELETING LEADING '0'.
MODIFY ITAB_STATUS.
ENDLOOP.
LOOP AT ITAB_STATUS WHERE MESS EQ 'WMMBXY'.
SHIFT ITAB_STATUS-IDOC LEFT DELETING LEADING '0'.
SHIFT ITAB_STATUS-STATUS_COUNTER LEFT DELETING LEADING '0'.
ITAB_STATUS-DESCRP = 'APPLICATION DOCUMENT POSTED'.
MODIFY ITAB_STATUS.
ENDLOOP.
delete adjacent duplicates from itab_edids comparing idoc.
elseif p_re eq 'X'.
loop at itab_status where status = '53'.
delete itab_edids where idoc = itab_status-idoc.
endloop.
loop at itab_status.
read table itab_edids with key idoc = itab_status-idoc binary search.
if sy-subrc ne 0.
delete itab_status.
endif.
endloop.
LOOP AT ITAB_STATUS.
SELECT SINGLE * FROM EDIDS INTO WA_EDIDS WHERE DOCNUM = ITAB_STATUS-IDOC
AND COUNTR = ITAB_STATUS-STATUS_COUNTER.
IF WA_EDIDS-STATXT CA '&'.
V_MSGNO = WA_EDIDS-STAMNO.
IF V_MSGNO NE '000'. "----mod3
CALL FUNCTION 'MESSAGE_PREPARE'
EXPORTING
msg_id = WA_EDIDS-STAMID
msg_no = V_MSGNO
MSG_VAR1 = WA_EDIDS-STAPA1
MSG_VAR2 = WA_EDIDS-STAPA2
MSG_VAR3 = WA_EDIDS-STAPA3
MSG_VAR4 = WA_EDIDS-STAPA4
IMPORTING
MSG_TEXT = itab_status-descrp.
CONDENSE ITAB_STATUS-DESCRP.
endif. "-----mod3
ELSE .
ITAB_STATUS-DESCRP = WA_EDIDS-STATXT.
ENDIF.
SHIFT ITAB_STATUS-IDOC LEFT DELETING LEADING '0'.
SHIFT ITAB_STATUS-STATUS_COUNTER LEFT DELETING LEADING '0'.
MODIFY ITAB_STATUS.
ENDLOOP.
LOOP AT ITAB_EDIDS.
SHIFT ITAB_EDIDS-IDOC LEFT DELETING LEADING '0'.
MODIFY ITAB_EDIDS.
ENDLOOP.
delete adjacent duplicates from itab_edids comparing idoc.
elseif p_al eq 'X'.
delete adjacent duplicates from itab_edids comparing idoc.
LOOP AT ITAB_STATUS." WHERE MESS NE 'WMMBXY'.
SELECT SINGLE * FROM EDIDS INTO WA_EDIDS WHERE DOCNUM = ITAB_STATUS-IDOC
AND COUNTR = ITAB_STATUS-STATUS_COUNTER.
IF WA_EDIDS-STATXT CA '&'.
V_MSGNO = WA_EDIDS-STAMNO.
IF V_MSGNO NE '000'. "----mod3
CALL FUNCTION 'MESSAGE_PREPARE'
EXPORTING
msg_id = WA_EDIDS-STAMID
msg_no = V_MSGNO
MSG_VAR1 = WA_EDIDS-STAPA1
MSG_VAR2 = WA_EDIDS-STAPA2
MSG_VAR3 = WA_EDIDS-STAPA3
MSG_VAR4 = WA_EDIDS-STAPA4
IMPORTING
MSG_TEXT = itab_status-descrp.
CONDENSE ITAB_STATUS-DESCRP.
endif. "----mod3
ELSE .
ITAB_STATUS-DESCRP = WA_EDIDS-STATXT.
ENDIF.
*SHIFT ITAB_STATUS-IDOC LEFT DELETING LEADING '0'.
*SHIFT ITAB_STATUS-STATUS_COUNTER LEFT DELETING LEADING '0'.
MODIFY ITAB_STATUS.
ENDLOOP.
endif.
LOOP AT ITAB_EDIDS.
if p_su EQ 'X'.
itab_edids-icon = '3'.
elseif p_re eq 'X'.
   itab_edids-icon = '1'.
   ELSE.
   read table itab_sTATUS with key idoc = itab_EDIDS-idoc
                               STATUS = '53' ."binary search.
   IF SY-SUBRC EQ 0.
    itab_edids-icon = '3'.
   ELSE.
   itab_edids-icon = '1'.
   ENDIF.
   ENDIF.
select single name1 from lfa1 into itab_edids-name where
            lifnr = itab_edids-vendor.
SHIFT ITAB_EDIDS-IDOC LEFT DELETING LEADING '0'.
MODIFY ITAB_EDIDS.
clear itab_edids.
ENDLOOP.
loop at itab_status.
SHIFT ITAB_STATUS-IDOC LEFT DELETING LEADING '0'.
SHIFT ITAB_STATUS-STATUS_COUNTER LEFT DELETING LEADING '0'.
if itab_status-descrp is initial.
select single descrp from teds2 into itab_status-descrp
                           where status = itab_status-STATUS AND
                                LANGUA = 'E'.
endif.
MODIFY ITAB_STATUS.
clear itab_status.
endloop.
sort itab_status by idoc.
sort itab_edids by idoc.
ENDFORM.                    " DATA_BASED_SELECTION
*& Form TOP_OF_PAGE
text
FORM TOP_OF_PAGE.
SKIP.
ULINE.
IF P_SU EQ 'X'.
WRITE : / 'TITLE : SUCCESSFULLY POSTED IDOC', 50 'DATE :', SY-DATUM..
ELSEIF P_RE EQ 'X'.
WRITE : / 'TITLE : REJECTED IDOCS' ,50 'DATE :', SY-DATUM.
ELSEIF P_AL EQ 'X'.
WRITE : / 'TITLE : ALL IDOCS' ,50 'DATE :', SY-DATUM.
ENDIF.
WRITE :/9 'Successful-Green light Unsuccessful-Red Light'.
format color COL_TOTAL intensified on.
WRITE : / 'NOTE : DOUBLE CLICK TO SEE CORREPONDING IDOC AND PO'.
WRITE :/9 'DOUBLE CLICK IDOC NO ON HEADER LIST'.
WRITE : 'AND PO NUMBER ON DETAIL LIST'.
format color off.
ULINE.
SKIP.
ENDFORM. "TOP_OF_PAGE
FORM user_command *
--> UCOMM *
--> SELFIELD *
FORM user_command USING ucomm LIKE sy-ucomm
selfield TYPE slis_selfield.
DATA: WA_IDOC9 LIKE EDIDC-DOCNUM.
DATA: SELTAB     TYPE TABLE OF RSPARAMS,
      SELTAB_WA LIKE LINE OF SELTAB.
RANGES : R_DATE FOR EDIDC-CREDAT." SY-DATUM.
IF ucomm = '&IC1'.
if SELFIELD-SEL_TAB_FIELD = 'ITAB_EDIDS-IDOC'.
READ TABLE itab_edids INDEX selfield-tabindex.
IF sy-subrc = 0.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = ITAB_edids-IDOC
IMPORTING
OUTPUT = WA_IDOC9.
*r_date-low = itab_edids-date.
*r_date-high = itab_edids-date.
*r_date-SIGN = 'I'.
*r_date-OPTION = 'BT'.
*append r_date.
SUBMIT RSEIDOC2 WITH DOCNUM = wa_idoc9
WITH CREDAT in R_DATE[] AND RETURN.
ENDIF.
ELSEIF SELFIELD-SEL_TAB_FIELD = 'ITAB_STATUS-PONUMBER'.
READ TABLE itab_STATUS INDEX selfield-tabindex.
IF sy-subrc = 0.
SET PARAMETER ID 'BES' FIELD itab_sTATUS-PONUMBER.
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
ENDIF.
ENDIF.
ENDIF.
ENDFORM..

Generate Insert Statement Script to Extract Data from Table in Oracle 7i

Hi all, I have an old Oracle legacy system that is running for over 15 years.Every now and then we need to extract data from this table@ ORacle 7i to be imported back to Oracle 10G.
My thoughts are to create a script of Insert statements in oracle 7 and that to be deployed back to Oracle 10G.
I found this scripts in Google and not sure how exactly this works.Any explanation on thsi scripts , would be greatly appreciated.I find this scripst may help to generate a set of insert statements from that table to the latest table at 10G.
<pre>
-- Step 1: Create this procedure:
create or replace Function ExtractData(v_table_name varchar2) return varchar2 As
b_found boolean:=false;
v_tempa varchar2(8000);
v_tempb varchar2(8000);
v_tempc varchar2(255);
begin
for tab_rec in (select table_name from user_tables where table_name=upper(v_table_name))
loop
b_found:=true;
v_tempa:='select ''insert into '||tab_rec.table_name||' (';
for col_rec in (select * from user_tab_columns
where
table_name=tab_rec.table_name
order by
column_id)
loop
if col_rec.column_id=1 then
v_tempa:=v_tempa||'''||chr(10)||''';
else
v_tempa:=v_tempa||',''||chr(10)||''';
v_tempb:=v_tempb||',''||chr(10)||''';
end if;
v_tempa:=v_tempa||col_rec.column_name;
if instr(col_rec.data_type,'CHAR') > 0 then
v_tempc:='''''''''||'||col_rec.column_name||'||''''''''';
elsif instr(col_rec.data_type,'DATE') > 0 then
v_tempc:='''to_date(''''''||to_char('||col_rec.column_name||',''mm/dd/yyyy hh24:mi'')||'''''',''''mm/dd/yyyy hh24:mi'''')''';
else
v_tempc:=col_rec.column_name;
end if;
v_tempb:=v_tempb||'''||decode('||col_rec.column_name||',Null,''Null'','||v_tempc||')||''';
end loop;
v_tempa:=v_tempa||') values ('||v_tempb||');'' from '||tab_rec.table_name||';';
end loop;
if Not b_found then
v_tempa:='-- Table '||v_table_name||' not found';
else
v_tempa:=v_tempa||chr(10)||'select ''-- commit;'' from dual;';
end if;
return v_tempa;
end;
show errors
-- STEP 2: Run the following code to extract the data.
set head off
set pages 0
set trims on
set lines 2000
set feed off
set echo off
var retline varchar2(4000)
spool c:\t1.sql
select 'set echo off' from dual;
select 'spool c:\recreatedata.sql' from dual;
select 'select ''-- This data was extracted on ''||to_char(sysdate,''mm/dd/yyyy hh24:mi'') from dual;' from dual;
-- Repeat the following two lines as many times as tables you want to extract
exec :retline:=ExtractData('dept');
print :retline;
exec :retline:=ExtractData('emp');
print :retline;
select 'spool off' from dual;
spool off
@c:\t1
-- STEP3: Run the spooled output c:\recreatedata.sql to recreate data.
Source:http://www.idevelopment.info/data/Oracle/DBA_tips/PL_SQL/PLSQL_5.shtml
</pre>

Thanks Justin.
I get what you are saying,i really wanted to see the output of the codes, because the furtherst i could get from that code is
SELECT EXTRACTDATA('MYTABLE') FROM MYTABLE;
and it generated this:
"select 'insert into MYTABLE ('||chr(10)||'DATE1,'||chr(10)||'TIME1,'||chr(10)||'COUNTS) values ('||decode(DATE1,Null,'Null','to_date('''||to_char(DATE1,'mm/dd/yyyy hh24:mi')||''',''mm/dd/yyyy hh24:mi'')')||','||chr(10)||''||decode(TIME1,Null,'Null',TIME1)||','||chr(10)||''||decode(COUNTS,Null,'Null',COUNTS)||');' from MYTABLE;
select '-- commit;' from dual;"
"select 'insert into MYTABLE ('||chr(10)||'DATE1,'||chr(10)||'TIME1,'||chr(10)||'COUNTS) values ('||decode(DATE1,Null,'Null','to_date('''||to_char(DATE1,'mm/dd/yyyy hh24:mi')||''',''mm/dd/yyyy hh24:mi'')')||','||chr(10)||''||decode(TIME1,Null,'Null',TIME1)||','||chr(10)||''||decode(COUNTS,Null,'Null',COUNTS)||');' from MYTABLE;
select '-- commit;' from dual;"
"select 'insert into MYTABLE ('||chr(10)||'DATE1,'||chr(10)||'TIME1,'||chr(10)||'COUNTS) values ('||decode(DATE1,Null,'Null','to_date('''||to_char(DATE1,'mm/dd/yyyy hh24:mi')||''',''mm/dd/yyyy hh24:mi'')')||','||chr(10)||''||decode(TIME1,Null,'Null',TIME1)||','||chr(10)||''||decode(COUNTS,Null,'Null',COUNTS)||');' from MYTABLE;
select '-- commit;' from dual;"
"select 'insert into MYTABLE ('||chr(10)||'DATE1,'||chr(10)||'TIME1,'||chr(10)||'COUNTS) values ('||decode(DATE1,Null,'Null','to_date('''||to_char(DATE1,'mm/dd/yyyy hh24:mi')||''',''mm/dd/yyyy hh24:mi'')')||','||chr(10)||''||decode(TIME1,Null,'Null',TIME1)||','||chr(10)||''||decode(COUNTS,Null,'Null',COUNTS)||');' from MYTABLE;
select '-- commit;' from dual;"
"select 'insert into MYTABLE ('||chr(10)||'DATE1,'||chr(10)||'TIME1,'||chr(10)||'COUNTS) values ('||decode(DATE1,Null,'Null','to_date('''||to_char(DATE1,'mm/dd/yyyy hh24:mi')||''',''mm/dd/yyyy hh24:mi'')')||','||chr(10)||''||decode(TIME1,Null,'Null',TIME1)||','||chr(10)||''||decode(COUNTS,Null,'Null',COUNTS)||');' from MYTABLE;
select '-- commit;' from dual;"
"select 'insert into MYTABLE ('||chr(10)||'DATE1,'||chr(10)||'TIME1,'||chr(10)||'COUNTS) values ('||decode(DATE1,Null,'Null','to_date('''||to_char(DATE1,'mm/dd/yyyy hh24:mi')||''',''mm/dd/yyyy hh24:mi'')')||','||chr(10)||''||decode(TIME1,Null,'Null',TIME1)||','||chr(10)||''||decode(COUNTS,Null,'Null',COUNTS)||');' from MYTABLE;
select '-- commit;' from dual;"
I was expecting a string of
insert into mytable values (19/1/2009,1,1);
insert into mytable values (19/10/2008,5,10);
Thanks for the explanation .

Currency type 10,30 and 00 need to extract data from R/3 to BI

Similar Messages

Maybe you are looking for