How to finding zero pionts of a waveform?
Hellow,
I am developing a programme, its output values observed from the waveform chart should be a Sinusoidal wave, but the exact function/expression is unknown. I would like to detect the zero point of the output sinusoidal waveform.
thanks a lot!
ps, I developed the programme in the constrol&simulation loop and I tried to extract the tone information like amp &freq from the outout but did not work...
Best regards,
Floyd
Hellow, thanks for your reply!
As to the zero points, I just need two of them. I also noticed there won't be exactly zero and thought abour linear interpolation, but I don't know how to implement it,
There is no noise and just a pure sinusoidal waveform. Actually I would like to extract the frequency and amp info from the waveform, however extract tone information VI seems not working in control and simulation loop. Finding zero points and then calculate the period and finally get frequency is just am alternative.
I attached an example, in which I generated an sine wave with a "sine signal" VI, but in my programme the sinewave is actually unkonwn.
Best Regards,
Floyd
Attachments:
sine wave.vi 151 KB
Similar Messages
-
How to find zeros in a spred sheet file
I have a spread sheet file having 33 column I want to find is there any zero in any of the columns,how this can be done easily.searching one dimensional array is time consuming since file size is very large
thanks for your time
regards
augustin
Certified LabVIEW Associate Developer
Solved!
Go to Solution.johnsold wrote:
If the spreadsheet file is a text file, you could use the string functions to search for the presence of zeros. The details would depend heavily on the format in which the data is saved.
For working with numeric values another caution is in order. In this case it probably would work to use the Is Equal to Zero comparison primitive, but remember that in general equality comparisons on floating point numbers are not a good idea due to the finite representation in binary and roundoff errors after calculations. Adapting Matt Bradley's suggestion you might test whether the absolute value is less than some tolerance, such as 1e-6, rather than zero.
Lynn
Lynn- good point! but use abs val and compare to the machine epsilon (that "little e" constant on the numeric>constants sub-palette is the smallest value that the computer can represent as a dbl)
Jeff -
can any one pls tell me how to find negative number ?
Thanks1. One easy method is to look for the giveaway dash in front of the number, e.g. "-1" is a negative number, given the "-" instead of the "1."
2. Negative numbers can also sneakily be found by multiplying i by itself: i^2^ is a negative number.
3. Negative numbers can hide in the exponent of e as complex numbers. e.g. e^i*pi^ is a negative number.
4. If we're referring to Java here, perhaps the following could be of some use:
final int ZERO = 0;
public static void main(String[] args) {
int a = 3;
int b = -13;
System.out.println(a + " is negative? " + lessThanZero(a));
System.out.println(b + " is negative? " + lessThanZero(b));
boolean lessThanZero(int n) {
return n < 0;
} -
How to find colums in CLOB variable and get this colums value to update col
Question
How to find colums in CLOB variable and get this colums value to update colum of oracle database table
How my work will go
Step-1 - I am creating XML FIle which is based on code that we discused before-
Its developing xml file with data in <...inputelement> as u can see in my xml but in <..output> Element of xml its just have all column for exampe <itemoutput>
<FLD NM = "ABC"> 0 </FLD>
<FLD NM = "XYZ:> </FLD> --- for varchar2
</itemoutput>
In 1st stage i am just generating <..INPUT> with its colums and real value from database and <..output> elements will go zero value but with colums name.
Note. I create temp table will all COLUMN which u can see in both in <..ITEMINPUT> and <..ITEMOUTPUT>
Step2.. After Generaing my xml i want to convert my xml data into CLOB not in a file. so clob will go to the VENDOR
STEP3.
I will Recieved again xml data in CLOB from the vendo in <.OUTPUT> ELEMents
for example
I send this format
<itemoutput>
<FLD NM = "ABC"> 0 </FLD>
<FLD NM = "XYZ:> </FLD> --- for varchar2
</itemoutput>
And i will receive it
<itemoutput>
<FLD NM = "ABC VALUE"> 2 </FLD>
<FLD NM = "XYZ TYPE:> SUV</FLD> --- for varchar2
</itemoutput>
So will take this output valu from xml clob and will update my staging table .
Which have the same colum name as its look in xml clob.
Step- 4. I will take this value from staging table and update my original oracle database table. which i send you before.
But u leave this step becaue you dont know the staging table colum maping with original table.
I think now you understand
Please feed back
monrizhere is my xml..
I want to extract <..output> elements which enclosed with " " and its values from this xml file. please any body have any idea. please tell me
Thanks
<?xml version="1.0" ?>
- <RATABASECALC COPYRIGHT="COPYRIGHT 2001>
- <RATEREQUEST USEREFID="YES">
- <ANCHOR>
<DATABASENAME />
<DATABASEPW />
<DATABASESOURCE />
<DATABASEPRVDR />
<USERNAME />
<SEVERITYDES />
<CALLDES />
<INITACCDES />
<INITACCV />
<ITEMSEQDES />
<ITEMMATCHDES />
<CENTURYDES />
<DATEDES />
<FORMULADES />
<STRINGDES />
<VALIDATIONDES />
<STEPSDES />
<RETINFONUM />
<ADDLRETINFONUM />
<ANCHORNOMATCH />
<NOMATCHMSG />
<TRANUUID />
<LOGOPTION />
<MSGOPTION />
<USERLOGFN />
<NOITEMERROR />
<LOGFORMAT />
<LOGFN />
<STEPSFN />
<NUMNOMATCH>0</NUMNOMATCH>
<NUMERRORS>0</NUMERRORS>
</ANCHOR>
- <POLICIES>
- <POLICY>
<BUSINESSDES>N</BUSINESSDES>
<LEGALENTITYOWNER>CGI TRAINING AND DEMONSTRATION</LEGALENTITYOWNER>
<LEGALENTITYNAME>CGI TRAINING AND DEMONSTRATION</LEGALENTITYNAME>
<COMPEFFDATE>02/01/2000</COMPEFFDATE>
<RETRIEVALDATE>02/01/2000</RETRIEVALDATE>
<POLINPUTS />
- <POLOUTPUTS>
<FLD NM="POLICY CALCS DONE IND">Y</FLD>
<FLD NM="TOTAL DISCOUNTED POLICY PREM">2167.52</FLD>
<FLD NM="TOTAL POLICY PREMIUM">3180.0</FLD>
</POLOUTPUTS>
- <LOBS>
- <LOB>
<LEGALENTITYPRODGROUP>PERSONAL AUTOMOBILE</LEGALENTITYPRODGROUP>
- <LOBINPUTS>
<FLD NM="MULTI-CAR FACTOR">0</FLD>
<FLD NM="MULTI-CAR IND">Y</FLD>
</LOBINPUTS>
<LOBOUTPUTS />
- <REGIONS>
- <REGION>
<LEGALENTITYREGION>MAINE</LEGALENTITYREGION>
- <REGIONINPUTS>
<FLD NM="STATE PREMIUM AMOUNT">0</FLD>
</REGIONINPUTS>
- <REGIONOUTPUTS>
<FLD NM="TOTAL STATE PREMIUM">2356.0</FLD>
<FLD NM="TOTAL DISCOUNTED STATE PREM">2167.52</FLD>
<FLD NM="TOTAL STATE DISCOUNT AMOUNT">188.48</FLD>
</REGIONOUTPUTS>
- <REGIONERRORS>
<NUMLOGENTRIES>3</NUMLOGENTRIES>
<NUMRETURNLOGENTRIES>0</NUMRETURNLOGENTRIES>
</REGIONERRORS>
- <COVERAGES>
- <COVERAGE RBID="COVP1L1R1C1">
<COVFORMULAINDEX FORMREF="FMLAP1L1R1F1" />
<COVINPUTS />
- <COVOUTPUTS>
<FLD NM="DEDUCTIBLE BUYBACK">145.0</FLD>
</COVOUTPUTS>
<COVCONTROL />
</COVERAGE>
- <COVERAGE RBID="COVP1L1R1C2">
<COVFORMULAINDEX FORMREF="FMLAP1L1R1F2" />
<COVINPUTS />
- <COVOUTPUTS>
<FLD NM="DEDUCTIBLE BUYBACK">209.0</FLD>
</COVOUTPUTS>
<COVCONTROL />
</COVERAGE>
- <COVERAGE RBID="COVP1L1R1C3">
<COVFORMULAINDEX FORMREF="FMLAP1L1R1F3" />
<COVINPUTS />
<COVOUTPUTS />
<COVCONTROL />
</COVERAGE>
</COVERAGES>
- <ITEMS>
- <ITEM>
- <ITEMINPUTS>
<FLD NM="COLLISION DEDUCTIBLE">100</FLD>
<FLD NM="COMP DEDUCTIBLE">FULL</FLD>
<FLD NM="INEXPERIENCED OPERATOR IND">N</FLD>
<FLD NM="LIABILITY LIMIT">100</FLD>
<FLD NM="SYMBOL">15</FLD>
<FLD NM="TOWING INDICATOR">Y</FLD>
<FLD NM="INEXPERIENCED OPER FACTOR">0</FLD>
<FLD NM="VEHICLE SYMBOL">0</FLD>
<FLD NM="MODEL YEAR">1997</FLD>
<FLD NM="COST NEW">0</FLD>
<FLD NM="DRIVER TRAINING INDICATOR">N</FLD>
<FLD NM="GOOD STUDENT IND">N</FLD>
<FLD NM="CLASS CODE">11</FLD>
<FLD NM="COLL RATE">0</FLD>
<FLD NM="TERRITORY">001</FLD>
<FLD NM="COMP RATE">0</FLD>
<FLD NM="PROTECTIVE DEVICE CODE">B</FLD>
<FLD NM="ANTI LOCK BRAKE IND">Y</FLD>
<FLD NM="MED RATE">0</FLD>
<FLD NM="MEDICAL PAYMENTS LIMIT">1000</FLD>
<FLD NM="PASSIVE RESTRAINT CODE">A</FLD>
<FLD NM="UNINSURED MOTORISTS LIMIT">100</FLD>
</ITEMINPUTS>
- <ITEMOUTPUTS>
<FLD NM="CLASS FACTOR">0.84</FLD>
<FLD NM="TOTAL VEHICLE PREMIUM">1166.0</FLD>
<FLD NM="TOTAL COLLISION PREMIUM">438</FLD>
<FLD NM="TOTAL COMP PREMIUM">218</FLD>
<FLD NM="TOTAL LIABILITY PREMIUM">475</FLD>
<FLD NM="TOTAL MEDICAL PREMIUM">4</FLD>
<FLD NM="TOTAL TOWING PREMIUM">4</FLD>
<FLD NM="TOTAL UM PREMIUM">27</FLD>
</ITEMOUTPUTS>
- <ITEMNOMATCHES>
<ITEMNUMNOMATCH>2</ITEMNUMNOMATCH>
<ITEMRETURNNOMATCH>0</ITEMRETURNNOMATCH>
</ITEMNOMATCHES>
- <ITEMCOVINDEXES>
<ITEMCOVINDEX COVREF="COVP1L1R1C1" />
</ITEMCOVINDEXES>
<ITEMCONTROL />
</ITEM>
- <ITEM>
- <ITEMINPUTS>
<FLD NM="COLLISION DEDUCTIBLE">50</FLD>
<FLD NM="COMP DEDUCTIBLE">FULL</FLD>
<FLD NM="INEXPERIENCED OPERATOR IND">N</FLD>
<FLD NM="LIABILITY LIMIT">100</FLD>
<FLD NM="SYMBOL">12</FLD>
<FLD NM="TOWING INDICATOR">N</FLD>
<FLD NM="INEXPERIENCED OPER FACTOR">0</FLD>
<FLD NM="VEHICLE SYMBOL">0</FLD>
<FLD NM="MODEL YEAR">1997</FLD>
<FLD NM="COST NEW">0</FLD>
<FLD NM="DRIVER TRAINING INDICATOR">N</FLD>
<FLD NM="GOOD STUDENT IND">N</FLD>
<FLD NM="CLASS CODE">12</FLD>
<FLD NM="COLL RATE">0</FLD>
<FLD NM="TERRITORY">001</FLD>
<FLD NM="COMP RATE">0</FLD>
<FLD NM="PROTECTIVE DEVICE CODE">0</FLD>
<FLD NM="ANTI LOCK BRAKE IND">Y</FLD>
<FLD NM="MED RATE">0</FLD>
<FLD NM="MEDICAL PAYMENTS LIMIT">1000</FLD>
<FLD NM="PASSIVE RESTRAINT CODE">0</FLD>
<FLD NM="UNINSURED MOTORISTS LIMIT">100</FLD>
</ITEMINPUTS>
- <ITEMOUTPUTS>
<FLD NM="CLASS FACTOR">0.88</FLD>
<FLD NM="TOTAL VEHICLE PREMIUM">1190.0</FLD>
<FLD NM="TOTAL COLLISION PREMIUM">468</FLD>
<FLD NM="TOTAL COMP PREMIUM">194</FLD>
<FLD NM="TOTAL LIABILITY PREMIUM">497</FLD>
<FLD NM="TOTAL MEDICAL PREMIUM">4</FLD>
<FLD NM="TOTAL TOWING PREMIUM">0</FLD>
<FLD NM="TOTAL UM PREMIUM">27</FLD>
</ITEMOUTPUTS>
- <ITEMNOMATCHES>
<ITEMNUMNOMATCH>2</ITEMNUMNOMATCH>
<ITEMRETURNNOMATCH>0</ITEMRETURNNOMATCH>
</ITEMNOMATCHES>
- <ITEMCOVINDEXES>
<ITEMCOVINDEX COVREF="COVP1L1R1C2" />
</ITEMCOVINDEXES>
<ITEMCONTROL />
</ITEM>
- <ITEM>
<ITEMINPUTS />
<ITEMOUTPUTS />
- <ITEMNOMATCHES>
<ITEMNUMNOMATCH>2</ITEMNUMNOMATCH>
<ITEMRETURNNOMATCH>0</ITEMRETURNNOMATCH>
</ITEMNOMATCHES>
- <ITEMCOVINDEXES>
<ITEMCOVINDEX COVREF="COVP1L1R1C3" />
</ITEMCOVINDEXES>
<ITEMCONTROL />
</ITEM>
</ITEMS>
- <FORMULAS>
- <FORMULA RBID="FMLAP1L1R1F1">
<FORMULANAME>RATING MASTER</FORMULANAME>
<FORMULARETRIEVALDATE>02/01/2000</FORMULARETRIEVALDATE>
<FORMULACOMPEFFDATE>02/01/2000</FORMULACOMPEFFDATE>
<FORMULANEWRENDES>N</FORMULANEWRENDES>
<FORMULAUSERATEDATE>Y</FORMULAUSERATEDATE>
<FORMULARATERETRIEVALDATE>02/01/2000</FORMULARATERETRIEVALDATE>
<FORMULARATECOMPEFFDATE>02/01/2000</FORMULARATECOMPEFFDATE>
</FORMULA>
- <FORMULA RBID="FMLAP1L1R1F2">
<FORMULANAME>RATING MASTER</FORMULANAME>
<FORMULARETRIEVALDATE>02/01/2000</FORMULARETRIEVALDATE>
<FORMULACOMPEFFDATE>02/01/2000</FORMULACOMPEFFDATE>
<FORMULANEWRENDES>N</FORMULANEWRENDES>
<FORMULAUSERATEDATE>Y</FORMULAUSERATEDATE>
<FORMULARATERETRIEVALDATE>02/01/2000</FORMULARATERETRIEVALDATE>
<FORMULARATECOMPEFFDATE>02/01/2000</FORMULARATECOMPEFFDATE>
</FORMULA>
- <FORMULA RBID="FMLAP1L1R1F3">
<FORMULANAME>PREMIUM DISCOUNT</FORMULANAME>
<FORMULARETRIEVALDATE>02/01/2000</FORMULARETRIEVALDATE>
<FORMULACOMPEFFDATE>02/01/2000</FORMULACOMPEFFDATE>
<FORMULANEWRENDES>N</FORMULANEWRENDES>
<FORMULAUSERATEDATE>Y</FORMULAUSERATEDATE>
<FORMULARATERETRIEVALDATE>02/01/2000</FORMULARATERETRIEVALDATE>
<FORMULARATECOMPEFFDATE>02/01/2000</FORMULARATECOMPEFFDATE>
</FORMULA>
</FORMULAS>
<REGIONCONTROL />
</REGION>
- <REGION>
<LEGALENTITYREGION>NEW HAMPSHIRE</LEGALENTITYREGION>
- <REGIONINPUTS>
<FLD NM="STATE PREMIUM AMOUNT">0</FLD>
</REGIONINPUTS>
- <REGIONOUTPUTS>
<FLD NM="TOTAL STATE PREMIUM">824.0</FLD>
<FLD NM="TOTAL DISCOUNTED STATE PREM">0</FLD>
<FLD NM="TOTAL STATE DISCOUNT AMOUNT">0</FLD>
</REGIONOUTPUTS>
- <REGIONERRORS>
<NUMLOGENTRIES>2</NUMLOGENTRIES>
<NUMRETURNLOGENTRIES>0</NUMRETURNLOGENTRIES>
</REGIONERRORS>
- <COVERAGES>
- <COVERAGE RBID="COVP1L1R2C1">
<COVFORMULAINDEX FORMREF="FMLAP1L1R1F4" />
<COVINPUTS />
- <COVOUTPUTS>
<FLD NM="DEDUCTIBLE BUYBACK">0.0</FLD>
</COVOUTPUTS>
<COVCONTROL />
</COVERAGE>
</COVERAGES>
- <ITEMS>
- <ITEM>
- <ITEMINPUTS>
<FLD NM="COLLISION DEDUCTIBLE">500</FLD>
<FLD NM="COMP DEDUCTIBLE">250</FLD>
<FLD NM="INEXPERIENCED OPERATOR IND">Y</FLD>
<FLD NM="LIABILITY LIMIT">100</FLD>
<FLD NM="SYMBOL">11</FLD>
<FLD NM="INEXPERIENCED OPER FACTOR">0</FLD>
<FLD NM="VEHICLE SYMBOL">0</FLD>
<FLD NM="MODEL YEAR">1996</FLD>
<FLD NM="COST NEW">0</FLD>
<FLD NM="DRIVER TRAINING INDICATOR">Y</FLD>
<FLD NM="GOOD STUDENT IND">Y</FLD>
<FLD NM="CLASS CODE">36</FLD>
<FLD NM="COLL RATE">0</FLD>
<FLD NM="TERRITORY">001</FLD>
<FLD NM="COMP RATE">0</FLD>
<FLD NM="PROTECTIVE DEVICE CODE">0</FLD>
<FLD NM="ANTI LOCK BRAKE IND">0</FLD>
<FLD NM="MED RATE">0</FLD>
<FLD NM="MEDICAL PAYMENTS LIMIT">1000</FLD>
<FLD NM="PASSIVE RESTRAINT CODE">0</FLD>
<FLD NM="UNINSURED MOTORISTS LIMIT">100</FLD>
</ITEMINPUTS>
- <ITEMOUTPUTS>
<FLD NM="CLASS FACTOR">1.11</FLD>
<FLD NM="TOTAL VEHICLE PREMIUM">824.0</FLD>
<FLD NM="TOTAL COLLISION PREMIUM">332</FLD>
<FLD NM="TOTAL COMP PREMIUM">123</FLD>
<FLD NM="TOTAL LIABILITY PREMIUM">334</FLD>
<FLD NM="TOTAL MEDICAL PREMIUM">8</FLD>
<FLD NM="TOTAL UM PREMIUM">27</FLD>
</ITEMOUTPUTS>
- <ITEMNOMATCHES>
<ITEMNUMNOMATCH>2</ITEMNUMNOMATCH>
<ITEMRETURNNOMATCH>0</ITEMRETURNNOMATCH>
</ITEMNOMATCHES>
- <ITEMCOVINDEXES>
<ITEMCOVINDEX COVREF="COVP1L1R2C1" />
</ITEMCOVINDEXES>
<ITEMCONTROL />
</ITEM>
</ITEMS>
- <FORMULAS>
- <FORMULA RBID="FMLAP1L1R1F4">
<FORMULANAME>RATING MASTER</FORMULANAME>
<FORMULARETRIEVALDATE>02/01/2000</FORMULARETRIEVALDATE>
<FORMULACOMPEFFDATE>02/01/2000</FORMULACOMPEFFDATE>
<FORMULANEWRENDES>N</FORMULANEWRENDES>
<FORMULAUSERATEDATE>Y</FORMULAUSERATEDATE>
<FORMULARATERETRIEVALDATE>02/01/2000</FORMULARATERETRIEVALDATE>
<FORMULARATECOMPEFFDATE>02/01/2000</FORMULARATECOMPEFFDATE>
</FORMULA>
</FORMULAS>
<REGIONCONTROL />
</REGION>
</REGIONS>
</LOB>
</LOBS>
- <RETINFOS>
<TOTALRI>0</TOTALRI>
</RETINFOS>
</POLICY>
</POLICIES>
</RATEREQUEST>
</RATABASECALC>
Above xml data - some <...OUTPUT> elements has some FLD elements. and i want to take those outputelemt's FLD Elements data and update my oracle tables.
Note: FLD = "Attribie" are the colums name of the tables
back to top -
How to find out that the card in a given NIDAQ slot is a DSA card?
In the description of DAQ_Op(...) function in the traditional NIDAQ function reference one reads:
"buffer" is an integer array. "buffer" has a length equal to or greater than count.
When DAQ_Op returns with an error number equal to zero, buffer contains the acquired data.
For DSA devices, buffer should be an array of i32. These devices return the data
in a 32-bit format in which the data bits are in the most significant bits.
Question 1: How to find out programmatically that the card in a given NIDAQ slot is a DSA card?
Question 2: How many MSB carry the information? How do I find out bit-ness of the card (programmatically)?
The obvious solution to create and keep updated the table/fil
e with the data for all existing DAQ cards is unacceptable. This could be maintained by NI itself, but not by 3rd party developpers, like me.Bryan, thanks for your answer.
I hope that my NIDAQ-wish-list will not only reach NIDAQ developers but some of it will be implemented in the next versions of NIDAQ.
I should say that I am quite pessimistic because I was sending similar requests via German support few YEARS ago and I am still even do not know whether they reached developers or not. Even if yes, the present NIDAQ still does not have these functions and this means that NI takes 2..4 years to react on the feedback.
At the moment I have no choice, and I do maintain self-made info file (nidaq.ini). But beleive me, it is a pain in the @ss to scan help files and manuals of the DAQ cards which I've never seen just to include info in nidaq.ini. And when my customers of a brand new NIDAQ ca
rd call and wonder why the card is not reacognized by my application correctly, I tell to them that this is basically fault of NI. Because NI provides no way to get card info. I am doing my best analysing error codes, but it does not help in all cases. Sorry, guys, but you left no choice to me.
As for NIDAQmx, this is not a solution either. I am not going to rewrite my existing and working rather big application. It could be a good suggestion for those who just starts developing a new applications from the scratch, but not for those who almost finished it. Even for those who begin now, NIDAQmx may not be a good choice, because, as I saw in this forum, it does not support all cards that are supported by NIDAQ. It also looks like that instead of improoving, developing and fixing NIDAQ, NI dicided to change API completely. It is not yet clear to me whether NIDAQmx is supposed to substitute NIDAQ in the future or not. If not, I would concentrate on improoving trad. NIDAQ. If yes, it wou
ld be a disaster for many developers. :-(
Anyway, I hope that the interaction between NIDAQ team and application developpers will be improoved, and we will see some results of this feedback. -
How to find the file versions in Oracle applications?
I am requested by the Oracle applications team to check the versions of the following files.
POXWPA6B.pls-115.68.11510.6
POXWPA7B.pls-115.38.11510.7
I have zero experience in managing oracle applications. I would appreciate if some one could let me know how to find the versions in my server. My DB and the applications are in Linux servers.
Also would appreciate if some one could provide pointers to handling Application DBA scenario like this.
Thanks,
-- BalaHere is an example:
1) /u01/oracle/testappl/po/11.5.0/patch/115/sql>strings -a POXWPA7B.pls | grep -i Header
/* $Header: POXWPA7B.pls 115.3 1999/11/10 16:10:34 pkm ship $ */
/* $Header: POXWPA7B.pls 115.3 1999/11/10 16:10:34 pkm ship $ */
2) /u01/oracle/testappl/po/11.5.0/patch/115/sql>adident Header POXWPA7B.pls
POXWPA7B.pls:
$Header POXWPA7B.pls 115.3 1999/11/10 16:10:34 pkm ship $
$Header POXWPA7B.pls 115.3 1999/11/10 16:10:34 pkm ship $ -
How to find query completion time
How to find active insert query completion time in oracle?
friend,
i don't find anything in the query since time_remaing value show zero.
select TIME_REMAINING,TOTALWORK,START_TIME,SOFAR from v$session_longops where sid=115.
TIME_REMAINING TOTALWORK START_TIM SOFAR
0 21456 11-MAY-09 21456
0 4588 11-MAY-09 4588
0 6138 11-MAY-09 6138
could you please guide me how to calcaluate the completion time? -
How can I zoom in to audio waveforms for precision edits?
In FCP 7, you can zoom into audio waveforms for precise edits. In FCP X, there seems to be a fairly coarse resolution to how far you can zoom into audio waveforms. I rely extensively on being able to see where subtle aspirants start and end, but I can't see the audio waveforms very clearly, no matter how far I enlarge the clips.
Is there some hidden window or command that I'm missing?tonypatti wrote:
I'm assuming you mean in the timeline. So you trim your clips in the timeline, and not in the clips window? I've noticed there is no Viewer window, as in FCP 7, and I used to refine my clips in that window, setting in and out points with simple keystrokes. Is this how we do it in X? In the Timeline window?
It depends on my needs... Each event library-clip has its own timeline too...
All you need to do is right-click the clip in the event library and select "Open in Timeline"
There you can trim the audio or clip with much greater precision than in the event library itself...
In FCPx -- EACH clip in the event library is contained within its own mini-project... That is why you can "open" it in its own timeline... The event library is so powerful in this way. You could even select a clip and hit "Open in Timeline" and drag another clip into that.... That would automatically turn the clip into a compound clip (which is essentially a project)... the possibilities are endless... And so is the zoom ;-)))) If you do it this way !
PS -- You can create a short key for "open in timeline" should you find yourself annoyed with right-clicking all the time
PPS -- You state "no viewer window".... As of 10.0.7 FCPx has TWO viewers.. One for events and one for the project... Hit ctrl+command + 3 to show/hide it...
You should take your time with the app and NOT look at it as if it was FCP7
Also the user guide is very well written ! -
Hi All,
How to find in which transaction the BADI and Exit exists if we know the BADI and Exit name.
Thanks,
Arun1. By using documentation
2. SMOD Transaction
3. MODACT,MODSAP Table
4. SE81 Table
Use below program to find out user exit and badi's
& Report ZGET_USER_EXIT (Ver4) &
& This report attmpts to find Enhancements, Program-Exits, BADIs &
& and Business Transaction Events in a particular program/tcode. &
& ther search options: &
& Program: RPR_ABAP_SOURCE_SCAN &
& FModule: &
& Text Elements: &
& P_DEVC Show user-exits from development class &
& P_LIMIT Limit submit program selection &
& P_FUNC Show function modules &
& P_SUBM Show submit programs &
& S01 Selection data (TCode takes precedence over program name) &
REPORT ZGET_USER_EXIT no standard page heading
line-size 221.
data: tabix like sy-tabix,
w_linnum type i,
w_off type i,
w_index like sy-tabix,
w_include like trdir-name,
w_prog like trdir-name,
w_incl like trdir-name,
w_area like rs38l-area,
w_level,
w_fsel like sy-ucomm, " Determination of screen field
w_str(50) type c,
w_funcname like tfdir-funcname.
constants: c_fmod(40) type c value 'Function modules selected: ',
c_subm(40) type c value 'Submit programs selected: ',
c_col1(12) type c value 'Enhanmt Type',
c_col2(40) type c value 'Enhancement',
c_col3(30) type c value 'Program/Include',
c_col4(20) type c value 'Enhancement Name',
c_col5(40) type c value 'Enhancement Description',
c_col6(8) type c value 'Project',
c_col7(1) type c value 'S',
c_col8(12) type c value 'ChangeName',
c_col9(10) type c value 'ChangeDate'.
Work Areas: ABAP Workbench
data: begin of wa_d010inc.
data: master type d010inc-master.
data: end of wa_d010inc.
data: begin of wa_tfdir.
data: funcname type tfdir-funcname,
pname type tfdir-pname,
include type tfdir-include.
data: end of wa_tfdir.
data: begin of wa_tadir.
data: devclass type tadir-devclass.
data: end of wa_tadir.
data: begin of wa_tstc.
data: pgmna type tstc-pgmna.
data: end of wa_tstc.
data: begin of wa_tstcp.
data: param type tstcp-param.
data: end of wa_tstcp.
data: begin of wa_enlfdir.
data: area type enlfdir-area.
data: end of wa_enlfdir.
Work Areas: BADIs
data: begin of wa_sxs_attr.
data: exit_name type sxs_attr-exit_name.
data: end of wa_sxs_attr.
data: begin of wa_sxs_attrt.
data: text type sxs_attrt-text.
data: end of wa_sxs_attrt.
Work Areas: Enhancements
data: begin of wa_modsap.
data: member type modsap-member.
data: end of wa_modsap.
data: begin of wa_modsapa.
data: name type modsapa-name.
data: end of wa_modsapa.
data: begin of wa_modsapt.
data: modtext type modsapt-modtext.
data: end of wa_modsapt.
Work Areas: Business Transaction Events
data: begin of wa_tbe01t.
data: text1 type tbe01t-text1.
data: end of wa_tbe01t.
data: begin of wa_tps01t.
data: text1 type tps01t-text1.
data: end of wa_tps01t.
user-exits
types: begin of ty_mod,
member like modact-member,
name like modact-name,
status like modattr-status,
anam like modattr-anam,
adat like modattr-adat,
end of ty_mod.
data: w_mod type ty_mod.
types: begin of t_userexit,
type(12) type c,
pname like trdir-name,
txt(300),
level type c,
modname(30) type c,
modtext(60) type c,
modattr type ty_mod,
end of t_userexit.
data: i_userexit type standard table of t_userexit with header line.
Function module developmnet classes
types: begin of t_devclass,
clas like trdir-clas,
end of t_devclass.
data: i_devclass type standard table of t_devclass with header line.
types: begin of t_enlfdir,
area type enlfdir-area,
end of t_enlfdir.
data: i_enlfdir type standard table of t_enlfdir with header line.
Submit programs
types: begin of t_submit,
pname like trdir-name,
level,
done,
end of t_submit.
data: i_submit type standard table of t_submit with header line.
Source code
types: begin of t_sourcetab, "#EC * (SLIN lügt!)
line(200), "#EC * (SLIN lügt!)
end of t_sourcetab. "#EC * (SLIN lügt!)
data: sourcetab type standard table of t_sourcetab with header line.
data c_overflow(30000) type c.
Description of an ABAP/4 source analysis token
data: i_stoken type standard table of stokex with header line.
data wa_stoken like i_stoken.
Description of an ABAP/4 source analysis statement
data: i_sstmnt type standard table of sstmnt with header line."#EC NEEDED
keywords for searching ABAP code
types: begin of t_keywords,
word(30),
end of t_keywords.
data: keywords type standard table of t_keywords with header line.
function modules within program
types: begin of t_fmodule,
name like rs38l-name,
pname like trdir-name,
pname2 like trdir-name,
level,
bapi,
done,
end of t_fmodule.
data: i_fmodule type standard table of t_fmodule with header line.
& Selection Options &
selection-screen begin of block selscr1 with frame title text-s01.
parameter: p_pname like trdir-name memory id rid,
p_tcode like syst-tcode,
p_limit(4) type n default 100,
p_devc like rihea-dy_ofn default ' ',
p_func like rihea-dy_ofn default ' ',
p_subm like rihea-dy_ofn default ' '.
selection-screen end of block selscr1.
& START-OF-SELECTION &
start-of-selection.
if p_pname is initial and p_tcode is initial.
message e008(hrfpm). "Make entry on the selection screen
stop.
endif.
ensure P_LIMIT is not zero.
if p_limit = 0.
p_limit = 1.
endif.
perform data_select.
perform get_submit_data.
perform get_fm_data.
perform get_additional_data.
perform data_display.
& Form DATA_SELECT &
form data_select.
data selection message to sap gui
call function 'SAPGUI_PROGRESS_INDICATOR'
destination 'SAPGUI'
keeping logical unit of work
exporting
text = 'Get programs/includes' "#EC NOTEXT
exceptions
system_failure
communication_failure
. "#EC *
determine search words
keywords-word = 'CALL'.
append keywords.
keywords-word = 'FORM'.
append keywords.
keywords-word = 'PERFORM'.
append keywords.
keywords-word = 'SUBMIT'.
append keywords.
keywords-word = 'INCLUDE'.
append keywords.
if not p_tcode is initial.
get program name from TCode
select single pgmna from tstc into wa_tstc-pgmna
where tcode eq p_tcode.
if not wa_tstc-pgmna is initial.
p_pname = wa_tstc-pgmna.
TCode does not include program name, but does have refereve TCode
else.
select single param from tstcp into wa_tstcp-param
where tcode eq p_tcode.
if sy-subrc = 0.
check wa_tstcp-param(1) = '/'.
check wa_tstcp-param+1(1) = '*'.
if wa_tstcp-param ca ' '.
endif.
w_off = sy-fdpos + 1.
subtract 2 from sy-fdpos.
if sy-fdpos gt 0.
p_tcode = wa_tstcp-param+2(sy-fdpos).
endif.
select single pgmna from tstc into wa_tstc-pgmna
where tcode eq p_tcode.
p_pname = wa_tstc-pgmna.
if sy-subrc <> 0.
message e110(/saptrx/asc) with 'No program found for: ' p_tcode."#EC NOTEXT
endif.
else.
message e110(/saptrx/asc) with 'No program found for: ' p_tcode."#EC NOTEXT
endif.
endif.
endif.
Call customer-function aus Program coding
read report p_pname into sourcetab.
if sy-subrc > 0.
message e017(enhancement) with p_pname raising no_program."#EC *
endif.
scan abap-source sourcetab tokens into i_stoken
statements into i_sstmnt
keywords from keywords
overflow into c_overflow
with includes.
if sy-subrc > 0. "keine/syntakt. falsche Ablauflog./Fehler im Skanner
message e130(enhancement) raising syntax_error. "#EC *
endif.
check I_STOKEN for entries
clear w_linnum.
describe table i_stoken lines w_linnum.
if w_linnum gt 0.
w_level = '0'.
w_prog = ''.
w_incl = ''.
perform data_search tables i_stoken using w_level w_prog w_incl.
endif.
endform. "DATA_SELECT
& Form GET_FM_DATA &
form get_fm_data.
data selection message to sap gui
call function 'SAPGUI_PROGRESS_INDICATOR'
destination 'SAPGUI'
keeping logical unit of work
exporting
text = 'Get function module data' "#EC NOTEXT
exceptions
system_failure
communication_failure. "#EC *
Function module data
sort i_fmodule by name.
delete adjacent duplicates from i_fmodule comparing name.
loop at i_fmodule where done ne 'X'.
clear: i_stoken, i_sstmnt, sourcetab, wa_tfdir, w_include .
refresh: i_stoken, i_sstmnt, sourcetab.
store function groups
select single area from enlfdir into wa_enlfdir-area
where funcname = i_fmodule-name.
i_enlfdir-area = wa_enlfdir-area.
append i_enlfdir.
Store development classes
if not wa_enlfdir-area is initial.
select single devclass into wa_tadir-devclass
from tadir where pgmid = 'R3TR'
and object = 'FUGR'
and obj_name = wa_enlfdir-area.
check not wa_tadir-devclass is initial.
move wa_tadir-devclass to i_devclass-clas.
append i_devclass.
endif.
clear wa_tfdir.
select single funcname pname include from tfdir into wa_tfdir
where funcname = i_fmodule-name.
check sy-subrc = 0.
call function 'FUNCTION_INCLUDE_SPLIT'
exporting
program = wa_tfdir-pname
importing
group = w_area.
concatenate 'L' w_area 'U' wa_tfdir-include into w_include.
i_fmodule-pname = w_include.
i_fmodule-pname2 = wa_tfdir-pname.
modify i_fmodule.
read report i_fmodule-pname into sourcetab.
if sy-subrc = 0.
scan abap-source sourcetab tokens into i_stoken
statements into i_sstmnt
keywords from keywords
with includes.
if sy-subrc > 0.
message e130(enhancement) raising syntax_error.
endif.
check i_stoken for entries
clear w_linnum.
describe table i_stoken lines w_linnum.
if w_linnum gt 0.
w_level = '1'.
w_prog = i_fmodule-pname2.
w_incl = i_fmodule-pname.
perform data_search tables i_stoken using w_level w_prog w_incl.
endif.
endif.
endloop.
sort funtion groups
sort i_devclass.
delete adjacent duplicates from i_devclass.
sort i_enlfdir.
delete adjacent duplicates from i_enlfdir.
endform. "GET_FM_DATA
& Form GET_SUBMIT_DATA &
form get_submit_data.
data selection message to sap gui
call function 'SAPGUI_PROGRESS_INDICATOR'
destination 'SAPGUI'
keeping logical unit of work
exporting
text = 'Get submit data' "#EC NOTEXT
exceptions
system_failure
communication_failure
. "#EC *
sort i_submit.
delete adjacent duplicates from i_submit comparing pname.
w_level = '0'.
loop at i_submit where done ne 'X'.
check i_submit-pname ne p_pname. " ensure not the same as origianl program
clear: i_stoken, i_sstmnt, sourcetab.
refresh: i_stoken, i_sstmnt, sourcetab.
read report i_submit-pname into sourcetab.
if sy-subrc <> 0.
delete i_submit.
continue.
else.
scan abap-source sourcetab tokens into i_stoken
statements into i_sstmnt
keywords from keywords
with includes.
if sy-subrc > 0.
continue.
endif.
check i_stoken for entries
clear w_linnum.
describe table i_stoken lines w_linnum.
if w_linnum gt 0.
w_prog = i_submit-pname.
w_incl = ''.
perform data_search tables i_stoken using w_level w_prog w_incl.
endif.
endif.
restrict number of submit program selected for processing
describe table i_submit lines w_linnum.
if w_linnum ge p_limit.
w_level = '1'.
endif.
i_submit-done = 'X'.
modify i_submit.
endloop.
sort i_submit.
delete adjacent duplicates from i_submit comparing pname.
endform. "GET_SUBMIT_DATA
& Form DATA_SEARCH &
form data_search tables p_stoken structure stoken
using p_level p_prog p_incl.
loop at p_stoken.
clear i_userexit.
tabix = sy-tabix + 1.
i_userexit-level = p_level.
if i_userexit-level = '0'.
if p_incl is initial.
i_userexit-pname = p_pname.
else.
concatenate p_pname '/' p_incl into i_userexit-pname.
endif.
else.
if p_incl is initial.
i_userexit-pname = p_prog.
else.
concatenate p_prog '/' p_incl into i_userexit-pname.
endif.
endif.
Include
if p_stoken-str eq 'INCLUDE'.
check p_level eq '0'. " do not perform for function modules (2nd pass)
w_index = sy-tabix + 1.
read table p_stoken index w_index into wa_stoken.
check not wa_stoken-str cs 'STRUCTURE'.
check not wa_stoken-str cs 'SYMBOL'.
read table i_submit with key pname = wa_stoken-str.
if sy-subrc <> 0.
i_submit-pname = wa_stoken-str.
i_submit-level = p_level.
append i_submit.
endif.
endif.
Enhancements
if p_stoken-str eq 'CUSTOMER-FUNCTION'.
clear w_funcname.
read table p_stoken index tabix.
translate p_stoken-str using ''' '.
condense p_stoken-str.
if p_prog is initial.
concatenate 'EXIT' p_pname p_stoken-str into w_funcname
separated by '_'.
else.
concatenate 'EXIT' p_prog p_stoken-str into w_funcname
separated by '_'.
endif.
select single member from modsap into wa_modsap-member
where member = w_funcname.
if sy-subrc = 0. " check for valid enhancement
i_userexit-type = 'Enhancement'.
i_userexit-txt = w_funcname.
append i_userexit.
else.
clear wa_d010inc.
select single master into wa_d010inc-master
from d010inc
where include = p_prog.
concatenate 'EXIT' wa_d010inc-master p_stoken-str into w_funcname
separated by '_'.
i_userexit-type = 'Enhancement'.
i_userexit-txt = w_funcname.
endif.
endif.
BADIs
if p_stoken-str cs 'cl_exithandler='.
w_index = sy-tabix + 4.
read table p_stoken index w_index into wa_stoken.
i_userexit-txt = wa_stoken-str.
replace all occurrences of '''' in i_userexit-txt with space.
i_userexit-type = 'BADI'.
append i_userexit.
endif.
Business transaction events
if p_stoken-str cs 'OPEN_FI_PERFORM'.
i_userexit-type = 'BusTrEvent'.
i_userexit-txt = p_stoken-str.
replace all occurrences of '''' in i_userexit-txt with space.
i_userexit-modname = i_userexit-txt+16(8).
case i_userexit-txt+25(1).
when 'E'.
clear wa_tbe01t.
select single text1 into wa_tbe01t-text1 from tbe01t
where event = i_userexit-txt+16(8)
and spras = sy-langu.
if wa_tbe01t-text1 is initial.
i_userexit-modtext = ''. "#EC NOTEXT
else.
i_userexit-modtext = wa_tbe01t-text1.
endif.
i_userexit-modname+8 = '/P&S'. "#EC NOTEXT
when 'P'.
clear wa_tps01t.
select single text1 into wa_tps01t-text1 from tps01t
where procs = i_userexit-txt+16(8)
and spras = sy-langu.
i_userexit-modtext = wa_tps01t-text1.
i_userexit-modname+8 = '/Process'.
endcase.
append i_userexit.
endif.
Program exits
if p_stoken-str cs 'USEREXIT_'.
i_userexit-type = 'Program Exit'.
i_userexit-txt = p_stoken-str.
replace all occurrences of '''' in i_userexit-txt with space.
append i_userexit.
endif.
Submit programs
if p_stoken-str cs 'SUBMIT'.
check p_level eq '0'. " do not perform for function modules (2nd pass)
check not p_stoken-str cs '_'. " ensure not SUBMIT_XXX
w_index = sy-tabix + 1.
read table p_stoken index w_index into wa_stoken.
check not wa_stoken-str cs '_'. " ensure not SUBMIT_XXX
replace all occurrences of '''' in wa_stoken-str with space.
read table i_submit with key pname = wa_stoken-str.
if sy-subrc <> 0.
i_submit-pname = wa_stoken-str.
i_submit-level = p_level.
append i_submit.
endif.
endif.
Perform routines (which reference external programs)
if p_stoken-str cs 'PERFORM'.
check p_level eq '0'. " do not perform for function modules (2nd pass)
w_index = sy-tabix + 1.
read table p_stoken index w_index into wa_stoken.
if not wa_stoken-ovfl is initial.
w_off = wa_stoken-off1 + 10.
w_str = c_overflow+w_off(30).
find ')' in w_str match offset w_off.
w_off = w_off + 1.
wa_stoken-str = w_str(w_off).
endif.
check wa_stoken-str cs '('.
w_off = 0.
while sy-subrc = 0.
if wa_stoken-str+w_off(1) eq '('.
replace section offset w_off length 1 of wa_stoken-str with ''.
replace all occurrences of ')' in wa_stoken-str with space.
read table i_submit with key pname = wa_stoken-str.
if sy-subrc <> 0.
i_submit-pname = wa_stoken-str.
append i_submit.
endif.
exit.
else.
replace section offset w_off length 1 of wa_stoken-str with ''.
shift wa_stoken-str left deleting leading space.
endif.
endwhile.
endif.
Function modules
if p_stoken-str cs 'FUNCTION'.
clear i_fmodule.
check p_level eq '0'. " do not perform for function modules (2nd pass)
w_index = sy-tabix + 1.
read table p_stoken index w_index into wa_stoken.
if wa_stoken-str cs 'WF_'.
if wa_stoken-str cs 'IDOC'.
break-point.
endif.
if wa_stoken-str cs 'BAPI'.
i_fmodule-bapi = 'X'.
endif.
replace first occurrence of '''' in wa_stoken-str with space.
replace first occurrence of '''' in wa_stoken-str with space.
if sy-subrc = 4. " didn't find 2nd quote (ie name truncated)
clear wa_tfdir.
concatenate wa_stoken-str '%' into wa_stoken-str.
select single funcname into wa_tfdir-funcname from tfdir
where funcname like wa_stoken-str.
if sy-subrc = 0.
i_fmodule-name = wa_tfdir-funcname.
else.
continue.
endif.
else.
i_fmodule-name = wa_stoken-str.
endif.
read table i_fmodule with key name = i_fmodule-name.
if sy-subrc <> 0.
i_fmodule-level = p_level.
append i_fmodule.
endif.
endif.
endloop.
endform. "DATA_SEARCH
& Form GET_ADDITIONAL_DATA &
form get_additional_data.
data selection message to sap gui
call function 'SAPGUI_PROGRESS_INDICATOR'
destination 'SAPGUI'
keeping logical unit of work
exporting
text = 'Get additional data' "#EC NOTEXT
exceptions
system_failure
communication_failure
. "#EC *
loop at i_userexit.
Enhancement data
if i_userexit-type cs 'Enh'.
clear: wa_modsapa.
select single name into wa_modsapa-name from modsap
where member = i_userexit-txt.
check sy-subrc = 0.
i_userexit-modname = wa_modsapa-name.
clear wa_modsapt.
select single modtext into wa_modsapt-modtext from modsapt
where name = wa_modsapa-name
and sprsl = sy-langu.
i_userexit-modtext = wa_modsapt-modtext.
MOH - enhancement to get the project name
clear w_mod.
select single modactmember modactname modattr~status
modattranam modattradat
into w_mod
from modact
inner join modattr
on modattrname = modactname
where modact~member = wa_modsapa-name
and modact~typ = space.
i_userexit-modattr = w_mod.
MOH - eoe
endif.
BADI data
if i_userexit-type eq 'BADI'.
clear wa_sxs_attr.
select single exit_name into wa_sxs_attr-exit_name from sxs_attr
where exit_name = i_userexit-txt.
if sy-subrc = 0.
i_userexit-modname = i_userexit-txt.
else.
i_userexit-modname = 'Dynamic call'. "#EC NOTEXT
endif.
clear wa_sxs_attrt.
select single text into wa_sxs_attrt-text from sxs_attrt
where exit_name = wa_sxs_attr-exit_name
and sprsl = sy-langu.
i_userexit-modtext = wa_sxs_attrt-text.
endif.
modify i_userexit.
endloop.
get enhancements via program package
clear wa_tadir.
select single devclass into wa_tadir-devclass from tadir
where pgmid = 'R3TR'
and object = 'PROG'
and obj_name = p_pname.
if sy-subrc = 0.
clear: wa_modsapa, wa_modsapt.
select name from modsapa into wa_modsapa-name
where devclass = wa_tadir-devclass.
select single modtext from modsapt into wa_modsapt-modtext
where name = wa_modsapa-name
and sprsl = sy-langu.
read table i_userexit with key modname = wa_modsapa-name.
if sy-subrc <> 0.
i_userexit-modtext = wa_modsapt-modtext.
i_userexit-type = 'Enhancement'. "#EC NOTEXT
i_userexit-modname = wa_modsapa-name.
i_userexit-txt = 'Determined from program DevClass'."#EC NOTEXT
i_userexit-pname = 'Unknown'. "#EC NOTEXT
append i_userexit.
endif.
endselect.
endif.
Get IDOCs
loop at i_devclass.
endloop.
endform. "GET_ADDITIONAL_DATA
& Form DATA_DISPLAY &
form data_display.
data selection message to sap gui
call function 'SAPGUI_PROGRESS_INDICATOR'
destination 'SAPGUI'
keeping logical unit of work
exporting
text = 'Prepare screen for display' "#EC NOTEXT
exceptions
system_failure
communication_failure
. "#EC *
sort i_userexit by type txt modname.
delete adjacent duplicates from i_userexit comparing txt modname.
format headings
write: 'Enhancements from main program'. "#EC NOTEXT
write: /.
uline.
format color col_heading.
write: / sy-vline,
(12) c_col1, "Enhanmt Type
sy-vline,
(40) c_col2, "Enhancement
sy-vline,
(30) c_col3, "Program/Include
sy-vline,
(20) c_col4, "Enhancement name
sy-vline,
(60) c_col5, "Enhancement description
sy-vline,
(8) c_col6, "Project
sy-vline,
(1) c_col7, "S
sy-vline,
(12) c_col8, "ChangeName
sy-vline,
(10) c_col9, "ChangeDate
sy-vline.
format reset.
uline.
format lines
loop at i_userexit.
set line colour
case i_userexit-type.
when 'Enhancement'.
format color 3 intensified off.
when 'BADI'.
format color 4 intensified off.
when 'BusTrEvent'.
format color 5 intensified off.
when 'Program Exit'.
format color 6 intensified off.
when others.
format reset.
endcase.
write: / sy-vline,
i_userexit-type,
sy-vline,
i_userexit-txt(40),
sy-vline,
i_userexit-pname(30),
sy-vline,
i_userexit-modname(20),
sy-vline,
i_userexit-modtext(60),
sy-vline,
i_userexit-modattr-name,
sy-vline,
i_userexit-modattr-status,
sy-vline,
i_userexit-modattr-anam,
sy-vline,
i_userexit-modattr-adat no-zero,
sy-vline.
hide: i_userexit-type,
i_userexit-txt,
i_userexit-pname,
i_userexit-modname,
i_userexit-modtext.
endloop.
format reset.
uline.
user-exits from development class of function modules
if p_devc = 'X'.
write: /.
write: / 'User-exits from function module development class'."#EC NOTEXT
write: 157''.
uline (90).
write: 157''.
loop at i_devclass.
clear wa_modsapa.
select name from modsapa into wa_modsapa
where devclass = i_devclass-clas.
select single name modtext into corresponding fields of wa_modsapt
from modsapt
where name = wa_modsapa-name
and sprsl = sy-langu.
format color 3 intensified off.
write: / sy-vline,
(12) 'Enhancement',
sy-vline,
wa_modsapa-name,
sy-vline,
wa_modsapt-modtext,
sy-vline.
endselect.
endloop.
uline (90).
format reset.
endif.
describe table i_fmodule lines w_linnum.
write: / c_fmod , at 35 w_linnum. "#EC NOTEXT
write: 157''.
if p_func = 'X'.
display fuction modules used in program
uline (38).
write: 157''.
loop at i_fmodule.
write: sy-vline,
i_fmodule-name,
sy-vline,
i_fmodule-bapi,
sy-vline.
write: 157''.
endloop.
uline (38).
write: 157''.
endif.
describe table i_submit lines w_linnum.
write: / c_subm , at 35 w_linnum. "#EC NOTEXT
write: 157''.
if p_subm = 'X'.
display submit programs used in program
uline (44).
write: 157''.
loop at i_submit.
write: sy-vline,
i_submit-pname,
sy-vline.
write: 157''.
endloop.
uline (44).
endif.
issue message with number of user-exits displayed
describe table i_userexit lines w_linnum.
message s697(56) with w_linnum.
endform. "DATA_DISPLAY
& User Selection Processing &
at line-selection.
get cursor field w_fsel.
case w_fsel.
when 'I_USEREXIT-MODNAME'.
case i_userexit-type.
when 'Enhancement'.
set parameter id 'MON' field i_userexit-modname.
call transaction 'SMOD' and skip first screen.
when 'BADI'.
check i_userexit-modname ne 'Dynamic call'.
set parameter id 'EXN' field i_userexit-modname.
call transaction 'SE18' and skip first screen.
when 'BusTrEvent'.
submit rfopfi00 with attr_typey_selm = 'A'
with event = i_userexit-modname(8)
via selection-screen
and return.
when others.
endcase.
when 'I_USEREXIT-PNAME'.
check i_userexit-modname ne 'Unknown'.
w_off = 0.
find '/' in i_userexit-pname match offset w_off.
if w_off = 0.
set parameter id 'RID' field i_userexit-pname.
call transaction 'SE38' and skip first screen.
else.
w_off = w_off + 1.
w_prog = i_userexit-pname+w_off.
set parameter id 'RID' field w_prog.
call transaction 'SE38' and skip first screen.
endif.
when others.
endcase.
Reward Points if it is useful
Thanks
Seshu -
How to find the velocity of an incremental encoder
, i'm using RE22I encoder which can give upto 8192 counts per revolution, i have A,B,Z signals I'm using an fpga as a controller please help me.
how to find velocity of the encoder using these signals i'm having a sysytem clock in the fpga will it be useful.
Solved!
Go to Solution.Start by looking at the information on Wikipedia on Rotary Encoders and an NI white paper on encoders. These articles will give you a basic understanding of the encoder and the signals it produces.
With appropriate decoding you can get the direction and a pulse each of the 8192 points on your encoder. If the shaft can reverse direction (even vibration over a single point while mnearly stationary), the full decoding should be used. If the data is only of interest while the shaft is rotating in one direction and the speed does not go near zero, a simpler decoding can be used. Decoding a quadrature encoder is a good way to learn how to use a state machine. The A and B signals can exist in only four possible combinations, but the possible transitions make things interesting.
Defining the deconding is a purely logical exercise and coding it in LabVIEW as a state machine is straightforward. There are examples, Desing Patterns, or Project Templates (depending on your LV version) which come with LV to help you get started.
USing the A and B channels you can update your velocity calculation 8192 times per revolution. Using Z you only get one update per revolution. Which you use may depend on your application. The Z pulse also is useful to define a position reference for phase angle measurements.
Lynn -
How to find the elements of an array
I want to find the number of elements in an array, and I can't find the tutorial that shows how to find it. If anyone could point me in the right direction, it would be greatly appreciated.
warnerja wrote:
flounder wrote:
DrLaszloJamf wrote:
You mean x.length?<pbs>
Depends upon your interpretation of "number of elements in the array"
int[] numbers = new int[10];
numbers[0] = 42;
numbers[1] = 666;Number of elements in the array is 2 not 10.
</pbs>If you used something other than a primitive type for the array element type you could have a case. A value of integer zero for the other elements is still a value, so there are indeed 10 elements there.Even if it were not primitive, every element would have a value. That value would either be null or a reference. -
How to find the timing in audio
how to find starting and ending time of each word in the audio
Yes, of course. I believe that we understand that you're working on a job that requires you to synchronize some sort of an automation to a vocal narration that, we can only assume, will be included in the final movie/video. We understand that you are seeking the most efficient way to be effective. I sketched at least the highlights of The Best Way that I have discovered (so far) and another fine person (adninjastrator) has given you His Best Shot.
I was interested enough in the possibility of my finding a better way to do my work ( which is also rather long and troubling ) that I took the time to carefully study the material he presented. Have you also taking the time to look at it?
Like I said above, what I gave you before was only the tiniest highlight of what I do. I'll now refer you to a more extended description of it that I made in response to another forum participant's question. It is found here : voice synchronization with text(words) in flash http://forums.adobe.com/thread/900695?tstart=0
There are some inherent difficulties that we all face in this kind of work. One of them is that, when we are speaking naturally, there are many places in our speech where there is no clear break between the words, like the one you can see in the "mixdown" example that I provided. The only automated way of which I am acquainted that even begins to crack that tough nut a problem is the voice recognition software, such as Dragon NaturallySpeaking by Nuance. It, however, is not intended to give us what we need for our current projects. I would expect, however, that if you're made out of big time money and have, say, fifty grand available, you might approach the Nuance people and ask them to adapt their Very Fine Tool to greatly assist us in the work that we're doing. ( By the way, I am speaking this into Dragon now and it is typing for me. )
I have developed a way by which I present written text as it is being heard in the narration. There are places in which the words are distinct and are separated by pauses, and there are times in which only phrases or clusters of words are separated by silent periods. As you will discover by reading the thread to which I referred earlier, the way I present the written text is by first covering each word or phrase of it with an opaque rectangle whose color matches the background color, then by smoothly changing its opacity from 100% to 0% at the appropriate time. In much of the work that I did earlier, before I learned better methods, my chunks of text presentation were quite large, sometimes entire lines at a time. In the new work that I'm now doing, most of it will be presented one word at a time. That is the case in the two examples will show you next.
Just a few technical details : I'm running at thirty frames per second, using classic tweens, using an easing in value of -100 and an easing out value of +100. Many of my transitions are about eighty frames long. Some are lot longer. Here is a little pic showing two sentences being displayed :
These next two pics show the display of a twelve word sentence, smoothly presented.
There was a small pause after the seventh word, and the ending of the tweens for those players allows those words to be fully displayed while the last five are still getting going.
In the methods that were suggested by adninjastrator, you could obtain an amplitude graph of either just the overall volume of any waveform, or if you wanted to get really fancy, could do the same thing from only a portion of the frequency spectrum of the waveform. The method that I showed you earlier provides the first of those possible results directly and immediately. The second approach that adninjastrator presented is probably not necessary for either the work that you or I or vplusvw are doing.
You say that your audio length is big. That is not a surprise. Things Take Time. Big and valuable and important things often take a lot of time. You say you don't want to do it manually. We understand, from our own experience, that life is difficult and that we don't want to make it any harder than is necessary.
We have no way of knowing the nature of your project or how important it is to you. You could tell us a little about the first part, but only you can decide the second one. The work that I'm doing is terribly important to me. The work being pursued by vplusvw appears to be of value to that fine person.
Two of us have tried to help. We've given you our best shot. Our methods, or some related version of them, might be the better way that you seek. There is an eternal, universal truth, however. There is no Royal Road to knowledge. In so many important pursuits in life, there is no Easy Way. You have asked for the better way. I have given you the best way I know. I am willing to explain it in greater detail if that would appear to be of some value to you.
There simply was No Easy Way to build either the Golden Gate Bridge, the Transcontinental Railway, or the Hoover Dam. There is No Easy Way to do the work that I am doing. There is probably No Easy Way for you to do the work that you want to do. If it gets done at all, let along done well, there will certainly be some Serious Tediousness involved. That is for sure.
Back over to you. -
How to find BADI Defination and Implemantation from Method of BADI?
HI,
can anyone tell me that how to find BADI Defination and Implemantation from Method of BADI?& Report ZPJA_PM002 (V2) &
& Text Elements: &
& P_DEVC Show user-exits from development class &
& P_LIMIT Limit submit program selection &
& P_FUNC Show function modules &
& P_SUBM Show submit programs &
& S01 Selection data (TCode takes precedence over program name) &
report zpja_pm002
no standard page heading
line-size 158.
*tables: enlfdir. "Additional Attributes for Function Modules
data: tabix like sy-tabix,
w_linnum type i,
w_off type i,
w_index like sy-tabix,
w_include like trdir-name,
w_prog like trdir-name,
w_incl like trdir-name,
w_area like rs38l-area,
w_level,
w_str(50) type c,
w_funcname like tfdir-funcname.
constants: c_fmod(40) type c value 'Function modules selected: ',
c_subm(40) type c value 'Submit programs selected: ',
c_col1(12) type c value 'Enhanmt Type',
c_col2(40) type c value 'Enhancement',
c_col3(30) type c value 'Program/Include',
c_col4(20) type c value 'Enhancement Name',
c_col5(40) type c value 'Enhancement Description'.
Work Areas: ABAP Workbench
data: begin of wa_d010inc.
data: master type d010inc-master.
data: end of wa_d010inc.
data: begin of wa_tfdir.
data: funcname type tfdir-funcname,
pname type tfdir-pname,
include type tfdir-include.
data: end of wa_tfdir.
data: begin of wa_tadir.
data: devclass type tadir-devclass.
data: end of wa_tadir.
data: begin of wa_tstc.
data: pgmna type tstc-pgmna.
data: end of wa_tstc.
data: begin of wa_tstcp.
data: param type tstcp-param.
data: end of wa_tstcp.
data: begin of wa_enlfdir.
data: area type enlfdir-area.
data: end of wa_enlfdir.
Work Areas: BADIs
data: begin of wa_sxs_attr.
data: exit_name type sxs_attr-exit_name.
data: end of wa_sxs_attr.
data: begin of wa_sxs_attrt.
data: text type sxs_attrt-text.
data: end of wa_sxs_attrt.
Work Areas: Enhancements
data: begin of wa_modsap.
data: member type modsap-member.
data: end of wa_modsap.
data: begin of wa_modsapa.
data: name type modsapa-name.
data: end of wa_modsapa.
data: begin of wa_modsapt.
data: modtext type modsapt-modtext.
data: end of wa_modsapt.
Work Areas: Business Transaction Events
data: begin of wa_tbe01t.
data: text1 type tbe01t-text1.
data: end of wa_tbe01t.
data: begin of wa_tps01t.
data: text1 type tps01t-text1.
data: end of wa_tps01t.
user-exits
types: begin of t_userexit,
type(12) type c,
pname like trdir-name,
txt(300),
level type c,
modname(30) type c,
modtext(40) type c,
end of t_userexit.
data: i_userexit type standard table of t_userexit with header line.
Function module developmnet classes
types: begin of t_devclass,
clas like trdir-clas,
end of t_devclass.
data: i_devclass type standard table of t_devclass with header line.
Submit programs
types: begin of t_submit,
pname like trdir-name,
level,
done,
end of t_submit.
data: i_submit type standard table of t_submit with header line.
Source code
types: begin of t_sourcetab, "#EC * (SLIN lügt!)
line(200), "#EC * (SLIN lügt!)
end of t_sourcetab. "#EC * (SLIN lügt!)
data: sourcetab type standard table of t_sourcetab with header line.
data c_overflow(30000) type c.
Description of an ABAP/4 source analysis token
data: i_stoken type standard table of stokex with header line.
data wa_stoken like i_stoken.
Description of an ABAP/4 source analysis statement
data: i_sstmnt type standard table of sstmnt with header line."#EC
keywords for searching ABAP code
types: begin of t_keywords,
word(30),
end of t_keywords.
data: keywords type standard table of t_keywords with header line.
function modules within program
types: begin of t_fmodule,
name like rs38l-name,
pname like trdir-name,
pname2 like trdir-name,
level,
bapi,
done,
end of t_fmodule.
data: i_fmodule type standard table of t_fmodule with header line.
& Selection Options &
selection-screen begin of block selscr1 with frame title text-s01.
parameter: p_pname like trdir-name memory id rid,
p_tcode like syst-tcode,
p_limit(4) type n default 100,
p_devc like rihea-dy_ofn default ' ',
p_func like rihea-dy_ofn default ' ',
p_subm like rihea-dy_ofn default ' '.
selection-screen end of block selscr1.
& START-OF-SELECTION &
start-of-selection.
if p_pname is initial and p_tcode is initial.
message e008(hrfpm). "Make entry on the selection screen
stop.
endif.
ensure P_LIMIT is not zero.
if p_limit = 0.
p_limit = 1.
endif.
perform data_select.
perform get_submit_data.
perform get_fm_data.
perform get_additional_data.
perform data_display.
& Form DATA_SELECT &
form data_select.
data selection message to sap gui
call function 'SAPGUI_PROGRESS_INDICATOR'
destination 'SAPGUI'
keeping logical unit of work
exporting
text = 'Get programs/includes' "#EC NOTEXT
exceptions
system_failure
communication_failure
. "#EC *
determine search words
keywords-word = 'CALL'.
append keywords.
keywords-word = 'FORM'.
append keywords.
keywords-word = 'PERFORM'.
append keywords.
keywords-word = 'SUBMIT'.
append keywords.
keywords-word = 'INCLUDE'.
append keywords.
if not p_tcode is initial.
get program name from TCode
select single pgmna from tstc into wa_tstc-pgmna
where tcode eq p_tcode.
if not wa_tstc-pgmna is initial.
p_pname = wa_tstc-pgmna.
TCode does not include program name, but does have refereve TCode
else.
select single param from tstcp into wa_tstcp-param
where tcode eq p_tcode.
if sy-subrc = 0.
check wa_tstcp-param(1) = '/'.
check wa_tstcp-param+1(1) = '*'.
if wa_tstcp-param ca ' '.
endif.
w_off = sy-fdpos + 1.
subtract 2 from sy-fdpos.
if sy-fdpos gt 0.
p_tcode = wa_tstcp-param+2(sy-fdpos).
endif.
select single pgmna from tstc into wa_tstc-pgmna
where tcode eq p_tcode.
p_pname = wa_tstc-pgmna.
if sy-subrc <> 0.
message e110(/saptrx/asc) with 'No program found for: '
p_tcode."#EC NOTEXT
stop.
endif.
else.
message e110(/saptrx/asc) with 'No program found for: ' p_tcode.
"#EC NOTEXT
stop.
endif.
endif.
endif.
Call customer-function aus Program coding
read report p_pname into sourcetab.
if sy-subrc > 0.
message e017(enhancement) with p_pname raising no_program."#EC *
endif.
scan abap-source sourcetab tokens into i_stoken
statements into i_sstmnt
keywords from keywords
overflow into c_overflow
with includes.
WITH ANALYSIS.
if sy-subrc > 0. "keine/syntakt. falsche Ablauflog./Fehler im Skanner
message e130(enhancement) raising syntax_error. "#EC *
endif.
check I_STOKEN for entries
clear w_linnum.
describe table i_stoken lines w_linnum.
if w_linnum gt 0.
w_level = '0'.
w_prog = ''.
w_incl = ''.
perform data_search tables i_stoken using w_level w_prog w_incl.
endif.
endform. "DATA_SELECT
& Form GET_FM_DATA &
form get_fm_data.
data selection message to sap gui
call function 'SAPGUI_PROGRESS_INDICATOR'
destination 'SAPGUI'
keeping logical unit of work
exporting
text = 'Get function module data' "#EC NOTEXT
exceptions
system_failure
communication_failure
. "#EC *
Function module data
sort i_fmodule by name.
delete adjacent duplicates from i_fmodule comparing name.
loop at i_fmodule where done ne 'X'.
clear: i_stoken, i_sstmnt, sourcetab, wa_tfdir, w_include .
refresh: i_stoken, i_sstmnt, sourcetab.
clear wa_tfdir.
select single funcname pname include from tfdir into wa_tfdir
where funcname = i_fmodule-name.
check sy-subrc = 0.
call function 'FUNCTION_INCLUDE_SPLIT'
exporting
program = wa_tfdir-pname
importing
group = w_area.
concatenate 'L' w_area 'U' wa_tfdir-include into w_include.
i_fmodule-pname = w_include.
i_fmodule-pname2 = wa_tfdir-pname.
modify i_fmodule.
read report i_fmodule-pname into sourcetab.
if sy-subrc = 0.
scan abap-source sourcetab tokens into i_stoken
statements into i_sstmnt
keywords from keywords
with includes.
if sy-subrc > 0.
message e130(enhancement) raising syntax_error.
endif.
check i_stoken for entries
clear w_linnum.
describe table i_stoken lines w_linnum.
if w_linnum gt 0.
w_level = '1'.
w_prog = i_fmodule-pname2.
w_incl = i_fmodule-pname.
perform data_search tables i_stoken using w_level w_prog w_incl.
endif.
endif.
endloop.
if p_devc = 'X'.
loop at i_fmodule.
clear: wa_tadir, wa_enlfdir.
select single area from enlfdir into wa_enlfdir-area
where funcname = i_fmodule-name.
check not wa_enlfdir-area is initial.
select single devclass into wa_tadir-devclass
from tadir where pgmid = 'R3TR'
and object = 'FUGR'
and obj_name = wa_enlfdir-area.
check not wa_tadir-devclass is initial.
move wa_tadir-devclass to i_devclass-clas.
append i_devclass.
i_fmodule-done = 'X'.
modify i_fmodule.
endloop.
sort i_devclass.
delete adjacent duplicates from i_devclass.
endif.
endform. "GET_FM_DATA
& Form GET_SUBMIT_DATA &
form get_submit_data.
data selection message to sap gui
call function 'SAPGUI_PROGRESS_INDICATOR'
destination 'SAPGUI'
keeping logical unit of work
exporting
text = 'Get submit data' "#EC NOTEXT
exceptions
system_failure
communication_failure
. "#EC *
sort i_submit.
delete adjacent duplicates from i_submit comparing pname.
w_level = '0'.
loop at i_submit where done ne 'X'.
clear: i_stoken, i_sstmnt, sourcetab.
refresh: i_stoken, i_sstmnt, sourcetab.
read report i_submit-pname into sourcetab.
if sy-subrc = 0.
scan abap-source sourcetab tokens into i_stoken
statements into i_sstmnt
keywords from keywords
with includes.
if sy-subrc > 0.
message e130(enhancement) raising syntax_error.
continue.
endif.
check i_stoken for entries
clear w_linnum.
describe table i_stoken lines w_linnum.
if w_linnum gt 0.
w_prog = i_submit-pname.
w_incl = ''.
perform data_search tables i_stoken using w_level w_prog w_incl.
endif.
endif.
restrict number of submit program selected for processing
describe table i_submit lines w_linnum.
if w_linnum ge p_limit.
w_level = '1'.
endif.
i_submit-done = 'X'.
modify i_submit.
endloop.
endform. "GET_SUBMIT_DATA
& Form DATA_SEARCH &
form data_search tables p_stoken structure stoken
using p_level p_prog p_incl.
loop at p_stoken.
clear i_userexit.
tabix = sy-tabix + 1.
i_userexit-level = p_level.
if i_userexit-level = '0'.
if p_incl is initial.
i_userexit-pname = p_pname.
else.
concatenate p_pname '/' p_incl into i_userexit-pname.
endif.
else.
if p_incl is initial.
i_userexit-pname = p_prog.
else.
concatenate p_prog '/' p_incl into i_userexit-pname.
endif.
endif.
Include
if p_stoken-str eq 'INCLUDE'.
check p_level eq '0'. " do not perform for function modules
*(2nd pass)
w_index = sy-tabix + 1.
read table p_stoken index w_index into wa_stoken.
check not wa_stoken-str cs 'STRUCTURE'.
check not wa_stoken-str cs 'SYMBOL'.
read table i_submit with key pname = wa_stoken-str.
if sy-subrc <> 0.
i_submit-pname = wa_stoken-str.
i_submit-level = p_level.
append i_submit.
endif.
endif.
Enhancements
if p_stoken-str eq 'CUSTOMER-FUNCTION'.
clear w_funcname.
read table p_stoken index tabix.
translate p_stoken-str using ''' '.
condense p_stoken-str.
if p_prog is initial.
concatenate 'EXIT' p_pname p_stoken-str into w_funcname
separated by '_'.
else.
concatenate 'EXIT' p_prog p_stoken-str into w_funcname
separated by '_'.
endif.
select single member from modsap into wa_modsap-member
where member = w_funcname.
if sy-subrc = 0. " check for valid enhancement
i_userexit-type = 'Enhancement'.
i_userexit-txt = w_funcname.
append i_userexit.
else.
clear wa_d010inc.
select single master into wa_d010inc-master
from d010inc
where include = p_prog.
concatenate 'EXIT' wa_d010inc-master p_stoken-str into
w_funcname
separated by '_'.
i_userexit-type = 'Enhancement'.
i_userexit-txt = w_funcname.
endif.
endif.
BADIs
if p_stoken-str cs 'cl_exithandler='.
w_index = sy-tabix + 4.
read table p_stoken index w_index into wa_stoken.
i_userexit-txt = wa_stoken-str.
replace all occurrences of '''' in i_userexit-txt with space.
i_userexit-type = 'BADI'.
append i_userexit.
endif.
Business transaction events
if p_stoken-str cs 'OPEN_FI_PERFORM'.
i_userexit-type = 'BusTrEvent'.
i_userexit-txt = p_stoken-str.
replace all occurrences of '''' in i_userexit-txt with space.
i_userexit-modname = i_userexit-txt+16(8).
case i_userexit-txt+25(1).
when 'E'.
clear wa_tbe01t.
select single text1 into wa_tbe01t-text1 from tbe01t
where event = i_userexit-txt+16(8)
and spras = sy-langu.
if wa_tbe01t-text1 is initial.
i_userexit-modtext = ''. "#EC NOTEXT
else.
i_userexit-modtext = wa_tbe01t-text1.
endif.
i_userexit-modname+8 = '/P&S'. "#EC NOTEXT
when 'P'.
clear wa_tps01t.
select single text1 into wa_tps01t-text1 from tps01t
where procs = i_userexit-txt+16(8)
and spras = sy-langu.
i_userexit-modtext = wa_tps01t-text1.
i_userexit-modname+8 = '/Process'.
endcase.
append i_userexit.
endif.
Program exits
if p_stoken-str cs 'USEREXIT_'.
i_userexit-type = 'Program Exit'.
i_userexit-txt = p_stoken-str.
replace all occurrences of '''' in i_userexit-txt with space.
append i_userexit.
endif.
Submit programs
if p_stoken-str cs 'SUBMIT'.
check p_level eq '0'. " do not perform for function modules
*(2nd pass)
check not p_stoken-str cs '_'. " ensure not SUBMIT_XXX
w_index = sy-tabix + 1.
read table p_stoken index w_index into wa_stoken.
check not wa_stoken-str cs '_'. " ensure not SUBMIT_XXX
replace all occurrences of '''' in wa_stoken-str with space.
read table i_submit with key pname = wa_stoken-str.
if sy-subrc <> 0.
i_submit-pname = wa_stoken-str.
i_submit-level = p_level.
append i_submit.
endif.
endif.
Perform routines (which reference external programs)
if p_stoken-str cs 'PERFORM'.
check p_level eq '0'. " do not perform for function modules
*(2nd pass)
w_index = sy-tabix + 1.
read table p_stoken index w_index into wa_stoken.
if not wa_stoken-ovfl is initial.
w_off = wa_stoken-off1 + 10.
w_str = c_overflow+w_off(30).
find ')' in w_str match offset w_off.
w_off = w_off + 1.
wa_stoken-str = w_str(w_off).
endif.
check wa_stoken-str cs '('.
w_off = 0.
while sy-subrc = 0.
if wa_stoken-str+w_off(1) eq '('.
replace section offset w_off length 1 of wa_stoken-str with ''
replace all occurrences of ')' in wa_stoken-str with space.
read table i_submit with key pname = wa_stoken-str.
if sy-subrc <> 0.
i_submit-pname = wa_stoken-str.
append i_submit.
endif.
exit.
else.
replace section offset w_off length 1 of wa_stoken-str with ''
shift wa_stoken-str left deleting leading space.
endif.
endwhile.
endif.
Function modules
if p_stoken-str cs 'FUNCTION'.
clear i_fmodule.
check p_level eq '0'. " do not perform for function modules
*(2nd pass)
w_index = sy-tabix + 1.
read table p_stoken index w_index into wa_stoken.
if wa_stoken-str cs 'WF_'.
if wa_stoken-str cs 'IF_'.
break-point.
endif.
if wa_stoken-str cs 'BAPI'.
i_fmodule-bapi = 'X'.
endif.
replace first occurrence of '''' in wa_stoken-str with space.
replace first occurrence of '''' in wa_stoken-str with space.
if sy-subrc = 4. " didn't find 2nd quote (ie name truncated)
clear wa_tfdir.
concatenate wa_stoken-str '%' into wa_stoken-str.
select single funcname into wa_tfdir-funcname from tfdir
where funcname like wa_stoken-str.
if sy-subrc = 0.
i_fmodule-name = wa_tfdir-funcname.
else.
continue.
endif.
else.
i_fmodule-name = wa_stoken-str.
endif.
i_fmodule-level = p_level.
append i_fmodule.
endif.
endloop.
endform. "DATA_SEARCH
& Form GET_ADDITIONAL_DATA &
form get_additional_data.
data selection message to sap gui
call function 'SAPGUI_PROGRESS_INDICATOR'
destination 'SAPGUI'
keeping logical unit of work
exporting
text = 'Get additional data' "#EC NOTEXT
exceptions
system_failure
communication_failure
. "#EC *
loop at i_userexit.
Enhancement data
if i_userexit-type cs 'Enh'.
clear: wa_modsapa.
select single name into wa_modsapa-name from modsap
where member = i_userexit-txt.
check sy-subrc = 0.
i_userexit-modname = wa_modsapa-name.
clear wa_modsapt.
select single modtext into wa_modsapt-modtext from modsapt
where name = wa_modsapa-name
and sprsl = sy-langu.
i_userexit-modtext = wa_modsapt-modtext.
endif.
BADI data
if i_userexit-type eq 'BADI'.
clear wa_sxs_attr.
select single exit_name into wa_sxs_attr-exit_name from sxs_attr
where exit_name = i_userexit-txt.
if sy-subrc = 0.
i_userexit-modname = i_userexit-txt.
else.
i_userexit-modname = 'Dynamic call'. "#EC NOTEXT
endif.
clear wa_sxs_attrt.
select single text into wa_sxs_attrt-text from sxs_attrt
where exit_name =
wa_sxs_attr-exit_name
and sprsl = sy-langu.
i_userexit-modtext = wa_sxs_attrt-text.
endif.
modify i_userexit.
endloop.
get enhancements via program package
clear wa_tadir.
select single devclass into wa_tadir-devclass from tadir
where pgmid = 'R3TR'
and object = 'PROG'
and obj_name = p_pname.
if sy-subrc = 0.
clear: wa_modsapa, wa_modsapt.
select name from modsapa into wa_modsapa-name
where devclass = wa_tadir-devclass.
select single modtext from modsapt into wa_modsapt-modtext
where name = wa_modsapa-name
and sprsl = sy-langu.
read table i_userexit with key modname = wa_modsapa-name.
if sy-subrc <> 0.
i_userexit-modtext = wa_modsapt-modtext.
i_userexit-type = 'Enhancement'. "#EC NOTEXT
i_userexit-modname = wa_modsapa-name.
i_userexit-txt = 'Determined from program DevClass'."#EC NOTEXT
i_userexit-pname = 'Unknown'. "#EC NOTEXT
append i_userexit.
endif.
endselect.
endif.
endform. "GET_ADDITIONAL_DATA
& Form DATA_DISPLAY &
form data_display.
data selection message to sap gui
call function 'SAPGUI_PROGRESS_INDICATOR'
destination 'SAPGUI'
keeping logical unit of work
exporting
text = 'Prepare screen for display' "#EC NOTEXT
exceptions
system_failure
communication_failure
. "#EC *
sort i_userexit by type txt modname.
delete adjacent duplicates from i_userexit comparing txt modname.
format headings
write: 'Enhancements from main program'. "#EC NOTEXT
write: /.
uline.
format color col_heading.
write: / sy-vline,
(12) c_col1, "Enhanmt Type
sy-vline,
(40) c_col2, "Enhancement
sy-vline,
(30) c_col3, "Program/Include
sy-vline,
(20) c_col4, "Enhancement name
sy-vline,
(40) c_col5, "Enhancement description
sy-vline.
format reset.
uline.
format lines
loop at i_userexit.
set line colour
case i_userexit-type.
when 'Enhancement'.
format color 3 intensified off.
when 'BADI'.
format color 4 intensified off.
when 'BusTrEvent'.
format color 5 intensified off.
when 'Program Exit'.
format color 6 intensified off.
when others.
format reset.
endcase.
write: / sy-vline,
i_userexit-type,
sy-vline,
i_userexit-txt(40),
sy-vline,
i_userexit-pname(30),
sy-vline,
i_userexit-modname(20),
sy-vline,
i_userexit-modtext(40),
sy-vline.
endloop.
format reset.
uline.
user-exits from development class of function modules
if p_devc = 'X'.
write: /.
write: / 'User-exits from function module development class'."#EC
*NOTEXT
write: 157''.
uline (90).
write: 157''.
loop at i_devclass.
clear wa_modsapa.
select name from modsapa into wa_modsapa
where devclass = i_devclass-clas.
select single name modtext into corresponding fields of wa_modsapt
from modsapt
where name = wa_modsapa-name
and sprsl = sy-langu.
format color 3 intensified off.
write: / sy-vline,
(12) 'Enhancement',
sy-vline,
wa_modsapa-name,
sy-vline,
wa_modsapt-modtext,
sy-vline.
endselect.
endloop.
uline (90).
format reset.
endif.
describe table i_fmodule lines w_linnum.
write: / c_fmod , at 35 w_linnum. "#EC NOTEXT
write: 157''.
if p_func = 'X'.
display fuction modules used in program
uline (38).
write: 157''.
loop at i_fmodule.
write: sy-vline,
i_fmodule-name,
sy-vline,
i_fmodule-bapi,
sy-vline.
write: 157''.
endloop.
uline (38).
endif.
describe table i_submit lines w_linnum.
write: / c_subm , at 35 w_linnum. "#EC NOTEXT
write: 157''.
if p_subm = 'X'.
display submit programs used in program
uline (44).
write: 157''.
loop at i_submit.
write: sy-vline,
i_submit-pname,
sy-vline.
write: 157''.
endloop.
uline (44).
endif.
issue message with number of user-exits displayed
describe table i_userexit lines w_linnum.
message s697(56) with w_linnum.
endform. "DATA_DISPLAY
reward points if it helps
gunjan -
How to find orders in timer delay.
Hi,
How to find the orders which are in timer delay.
Is it from Find Order/Get Order combination. Appreciate your help.Hi Srinivas,
I have actually pasted the optimized version of FindOrder, here is the full xml. As you know, whichever says optional you can remove the below tags.
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ord="http://xmlns.oracle.com/communications/ordermanagement">
<soapenv:Header/>
<soapenv:Body>
<ord:FindOrder>
<!--Optional:-->
<ord:ViewBy>
<!--Zero or more repetitions:-->
<ord:View>?</ord:View>
<!--Optional:-->
<ord:RemarkFilter>
<!--Optional:-->
<ord:RetrieveRemarks>false</ord:RetrieveRemarks>
<!--Zero or more repetitions:-->
<ord:AttachmentFilter>
<!--Optional:-->
<ord:FileNameMatch>.*</ord:FileNameMatch>
<!--Optional:-->
<ord:MinSize>0</ord:MinSize>
<!--Optional:-->
<ord:MaxSize>4</ord:MaxSize>
<!--Optional:-->
<ord:Format>inlineBase64Binary</ord:Format>
</ord:AttachmentFilter>
</ord:RemarkFilter>
<!--Optional:-->
<ord:AmendmentFilter>
<ord:LevelOfDetail>?</ord:LevelOfDetail>
</ord:AmendmentFilter>
<!--Optional:-->
<ord:LifecycleEventFilter>
<!--Optional:-->
<ord:RetrieveLifecycleEvents>false</ord:RetrieveLifecycleEvents>
</ord:LifecycleEventFilter>
</ord:ViewBy>
<!--Optional:-->
*<ord:SelectBy>*
*<!--Optional:-->*
*<ord:OrderId>?</ord:OrderId>*
*<!--Optional:-->*
*<ord:OrderState>?</ord:OrderState>*
*<!--Optional:-->*
*<ord:TargetOrderState>?</ord:TargetOrderState>*
*<!--Optional:-->*
*<ord:Reference>?</ord:Reference>*
*<!--Optional:-->*
*<ord:Cartridge>*
*<ord:Name>?</ord:Name>*
*<!--Optional:-->*
*<ord:Version>?</ord:Version>*
*</ord:Cartridge>*
*<!--Optional:-->*
*<ord:OrderType>?</ord:OrderType>*
*<!--Optional:-->*
*<ord:OrderSource>?</ord:OrderSource>*
*<!--Optional:-->*
*<ord:CreatedDate>*
*<!--Optional:-->*
*<ord:FromDate>?</ord:FromDate>*
*<!--Optional:-->*
*<ord:ToDate>?</ord:ToDate>*
*</ord:CreatedDate>*
*<!--Optional:-->*
*<ord:CompletedDate>*
*<!--Optional:-->*
*<ord:FromDate>?</ord:FromDate>*
*<!--Optional:-->*
*<ord:ToDate>?</ord:ToDate>*
*</ord:CompletedDate>*
*<!--Optional:-->*
*<ord:Priority>?</ord:Priority>*
*<!--Zero or more repetitions:-->*
*<ord:Field>*
*<!--Optional:-->*
*<ord:Cartridge>*
*<ord:Name>?</ord:Name>*
*<!--Optional:-->*
*<ord:Version>?</ord:Version>*
*</ord:Cartridge>*
*<ord:Path>?</ord:Path>*
*<!--You have a CHOICE of the next 2 items at this level-->*
*<ord:EqualTo>?</ord:EqualTo>*
*<ord:From>?</ord:From>*
*<ord:To>?</ord:To>*
*</ord:Field>*
*<!--Optional:-->*
*<ord:MaxOrders>?</ord:MaxOrders>*
*</ord:SelectBy>*
<!--Optional:-->
<ord:OrderBy>
<!--1 or more repetitions:-->
<ord:OrderField>
<!--Optional:-->
<ord:SortBy>?</ord:SortBy>
<ord:Header>?</ord:Header>
</ord:OrderField>
</ord:OrderBy>
</ord:FindOrder>
</soapenv:Body>
</soapenv:Envelope>
Thanks
Naveen Jabade -
Discoverer Report: How to find Business Area name from Report Name.
Hi
I opened a report in Disco Desktop 4 -> Resonsibiolity --> Report Name.
So I know Report name but don’t know which Business Area it belongs to.
How to find Business Area Name from Report Name?
Cheers
VijayHi,
There is no relationship between reports and business areas. Each report can be built from many folders. Each folder can be in many business areas.
However you can try the following SQL which may give you the result you want for an v5 EUL. You will have to modify for Discoverer 4 EUL:
select distinct doc_name, obj.obj_name folder_name, bas.ba_name
from eul_us.eul5_documents doc
, eul_us.eul5_elem_xrefs xref
, eul_us.eul5_expressions exp
, eul_us.eul5_objs obj
, eul_us.eul5_ba_obj_links bol
, eul_us.eul5_bas bas
where xref.ex_from_id = doc.doc_id
and doc.doc_name = &your_report
and xref.ex_to_id = exp.exp_id
and obj.obj_id = exp.it_obj_id
and bol.bol_obj_id = obj.obj_id
and bas.ba_id = bol.bol_ba_id
Rod West
Maybe you are looking for
-
How can i fix my itunes when it is not opening?
For some odd reason my itunes will not open. Every time I click the itunes application all it does is open it for olny 2 seconds then closes down and a little message shows saying The application iTunes quit unexpectedly. Mac OS X and other applicati
-
I have a 27" iMac when I open Safari the web page is only 1/3 the size of the full screen Safari window. I know how to ZOOM in on the web page! My question is, How do I keep this ZOOM setting for all web pages and each time I open Safari up?
-
Problem w/ thread in Database forum?
Is there a problem with this thread? Datablock writes Most threads that are answered will say "This thread is answered." and below one of the post will be marked "Correct". In this thread, it says "This question is answered. Helpful answers available
-
Unable to drill back to the FDM from Hyperion Planning
Hello, We are using FDM version 11.1.2.2.00 for integration with Oracle E-Business Suite. We have configured FDM to load the data in three cubes in Hyperion Planning i.e. Opex, Capex and Manpower. When we drill back to the source system after loading
-
Auto-Run/Start Doesn't show up on iTunes
Hi, I'm having a difficult problem about the Auto-Run/Start thingy for my iPod touch that doesn't show up on iTunes on my MacBook Pro 13". Just because I want to remove my pictures from my iPod touch so I can transfer into the MacBook Pro as Picture