How to find wi-fi symbol
I can not use NETGEAR WI-FI without Airport Express.
These links may be helpful.
How to Track and Report Stolen iPad
http://www.ipadastic.com/tutorials/how-to-track-and-report-stolen-ipad
Reporting a lost or stolen Apple product
http://support.apple.com/kb/ht2526
Report Stolen iPad Tips and iPad Theft Prevention
http://www.stolen-property.com/report-stolen-ipad.php
How to Find a Stolen iPad
http://www.ehow.com/how_7586429_stolen-ipad.html
Cheers, Tom
Similar Messages
-
How do I find the percent symbol on ipad?
how do I find the percent symbol on ipad?
tap the .?123
then the #+=
then you'll find the % key -
How can I use Greek symbols in a Pages text? Greek symbols are not included in the special character collection.
I need to import for example a sigma from Word or Adobe illustrator and then Pages can recognise it. I can not find it from within Pages.Special character palette from the edit menu does have sigmas under European ... > Greek ...
You can do a search at the bottom of the Special Character palette. Double click on the greek capital letter sigma. You will get a lot of sigmas. -
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 variables in an fla file?
Hello all,
I purchased a flash web template that is very complex, and
have been learning flash more earnestly from it. I only know how to
find actionscripts by clicking on frames in symbols with an "a" One
such frame makes refences to _root.READ = 1 (another 2, 3, etc).
Unfortunately I cannot find what "READ" is. Can someone help me
with how is "best" to find variable declarations in a complex fla
file with no familiarity with its creation?
The specific coade I am looking at references a pop-up
window:
on (release) {
_root.popup_pressed = 1;
_root.scrHEIGHT = 555;
_root.scroller.scroller.gotoAndStop(2);
_root.TM_title = "Advertising and Marketing";
_root.READ = 1;
_root.scroller.gotoAndPlay("s1");
All the best!
MichaelThank you. I am also not savvy with flash (yet), and after I
posted this I noticed an unexpanded list in the action pane which
shows variables (left bottom corner). This alone was a big help. I
also discovered the "Movie Explorer" and typing "READ" into that
only gives me "Scene1" (the top level clip).
I wanted to ask a follow-up question to your posting. I
thought that only frames marked with "a" had actionscript code in
them, but from your reply it seems that variables can be declared
in ANY frame? So, to find the variable "READ" I need to click on
each frame to find it?
Best regards,
Michael -
How can i print currency symbol in smart form?
how can i print currency symbol in smart form?
i want to print the currency symbol with grant total based on the vendor currency.
pls hepl............Hi,
think You can't print the symbols for currency like $ and Pound etc
see this doc if needed
A variable in SAPscript is called a symbol. There are the following types.
System symbol (e.g. the number of the current page)
Standard symbol (usable in any document)
Program symbol (value from the print program)
Text symbol (local variable)
The value of a symbol is text for using within SAPscript code and is represented by the symbol-name enclosed by ampersands. On seeing the tell-tale ampersands in SAPscript code, you sometimes need to figure out the symbol type.
goto any PAGEWINDOW's Text elements in Script (SE71)
from the Menu-> INSERT-> Symbols
you find all symbols here
System symbols
System symbols in a SAPscript form are comparable to system fields like SY-UZEIT in an ABAP program, and include these. The graphical editor offers three types of system symbol.
1. General system symbols
See the table TTSXY. PAGE is the most widely used. The list given in our BC460 training manuals is out of date.
2. SAPscript system symbols
See the dictionary structure SAPSCRIPT. SAPSCRIPT-FORMPAGES is the most widely used.
3. ABAP system symbols
For the ABAP system field SY-UNAME, say, the symbol is SYST-UNAME. http://SYST is the dictionary structure for ABAP system fields.
Sample code:
User: &SYST-UNAME&
Page &PAGE& of &SAPSCRIPT-FORMPAGES(C3)&
Standard symbols
Standard symbols are maintained centrally (in the table TTDTG via transaction SE75) for use in any document. Menu path:
Tools
Form Printout
Administration
Settings
Some standard symbols are SAP-standard and others are custom. Curiously, table TTDTG is cross-client although SAPscript forms are not.
The value of a standard symbol has to be defined for each language used. This gives a way to make a single SAPscript form multi-lingual.
We can take advantage to an extent of the central maintenance, though there is no guarantee that the available standard symbols will used in every appropriate context.
Standard symbols complicate searching a SAPscript form, since text like Charity registration 211581 may be hiding in a standard symbol.
Text symbols
A text symbol is declared and assigned to within the SAPscript code, and so obviously applies only to the current document. The command DEFINE is used, requiring /: in the tag column, as in the following examples.
/: DEFINE &COMP_NAME& = University of Warwick
/: DEFINE &WS_RATE& = &TAX_SUMM_C&
Reward points for useful Answers
Regards
Shiva Kumar -
How to find the last run date of the report..
please any one one help me
how to find last run date of the report...
for example if my report is zgrir...if i am exuted in last week
if want to find when it executed
last run date is req
please any one help me...The trasaction stat is limited because i want all the execution date even if it is 3 years ago.
I have tryied the transaction st03 but it is limited to 3 months ago.
check transaction STAT and it's report RSSTAT00.
U can copy RSSTAT00 into ZRSSTAT00 and modify corresponding.
*& Report ZDSAP *
REPORT ZDSAP .
DATA: d_ref TYPE REF TO data,
d_ref2 TYPE REF TO data ,
i_alv_cat TYPE TABLE OF lvc_s_fcat,
ls_alv_cat LIKE LINE OF i_alv_cat.
TYPES tabname LIKE dcobjdef-name .
parameter: p_tablen type tabname.
data: begin of itab occurs 0.
INCLUDE STRUCTURE dntab.
data: end of itab.
FIELD-SYMBOLS : <F_FS> TYPE table,
<F_FS1> TYPE TABLE,
<F_FS2> TYPE ANY,
<F_FS3> TYPE TABLE.
REFRESH itab.
CALL FUNCTION 'NAMETAB_GET'
EXPORTING
langu = sy-langu
tabname = p_tablen
TABLES
nametab = itab
EXCEPTIONS
no_texts_found = 1.
LOOP AT itab .
ls_alv_cat-fieldname = itab-fieldname.
ls_alv_cat-ref_table = p_tablen.
ls_alv_cat-ref_field = itab-fieldname.
APPEND ls_alv_cat TO i_alv_cat.
ENDLOOP.
internal table build
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING it_fieldcatalog = i_alv_cat
IMPORTING ep_table = d_ref .
ASSIGN d_ref->* TO <F_FS>.
SELECT * FROM (p_tablen) INTO CORRESPONDING FIELDS OF TABLE <F_FS>.
LOOP AT <F_FS> ASSIGNING <F_FS2>.
*your code goes here.
ENDLOOP. -
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 total no of pages in script
hi
how to find the total no of pages in scriptHi
· &SAPSCRIPT-FORMPAGES&:
This field contains a number representing the total number of pages of the currently formatted form (any output between START_FORM and END_FORM). The page counter mode (START, INC, HOLD) of the individual pages is ignored. You can use this symbol to formulate information like
Page x of y for your output.
· &SAPSCRIPT-JOBPAGES&:
This field contains a number representing the total number of pages of all forms contained in the currently formatted print request, in other words, of all forms created using the OPEN_FORM, START_FORM.. ENDFORM, START_FORM.. END_FORM,..., CLOSE_FORM function modules.
When using the SAPSCRIPT-FORMPAGES or SAPSCRIPT-JOBPAGES symbols, SAPscript leads all output pages of the current form or current print request into main memory to replace the symbol by the appropriate value. For large output jobs, this can mean a very large amount of memory.
· &PAGE&, &NEXTPAGE&
This symbols are initially converted using the options specified in the form of the page definition.
Reward all helpfull answers
Regards
Pavan -
Hi experts,
how to find user exit in spro.
the path is in spro.
in spro->financial accounting>travel managment>travel expenses>transfer to accounting-->
define assigment of wage type to symbolic account.
when u click on this it will ask for trip provision variant if we key in the work area number thne we get a screen . in that wage test key start date end date so on... are there so in the field KEY its empty so i want to find a user exit.can u please help me in this.
regards,
sunita.Hi,
For more information on user exit,
use the following link.
Hope it is useful.
http://****************/Tutorials/ExitsBADIs/ExitsMain.htm
Regards,
Phani. -
How to find as ascii value for a string or char in unicode system?
Hello,
How to find an ascii value for a string or char in unicode system?
Thanks in Advancehi ,
report demtest.
data : c.
field-symbols : <n> type x.
data : rn type i.
c = 'A'.
assign c to <n> casting.
move <n> to rn.
write rn.
This will convert 'A' to 65.
Tom Demuyt
How to convert ascii value to character.
If I give input as 65 (ascill value) I want display 'A'.
Below logic is for convert from character to ascii value , now I want to know how to convert ascii value to character.
Naveen
report demtest.
*going from A to 65
data : c value 'A'.
field-symbols : <n> type x.
data : rn type i.
assign c to <n> casting.
move <n> to rn.
write rn.
*going from 66 to B
data : i type i value 66.
data : x type x.
field-symbols : <fc> type c.
move i to x.
assign x to <fc> casting type c.
move <fc> to c.
write c.
regards,
venkat. -
How to get pound sterling symbol on spanish keyboard?
how to get pound sterling symbol on spanish keyboard?
Depends which Spanish layout;
Spanish - alt + 9 (alt is opt or ⌥ on some keyboards).
Spanish ISO - shift + alt + 4.
You can find all these using keyboard viewer;
System Preferences > Language and Text > Input Sources tab. Top of the left column, tick (check) "Keyboard and Character Viewer", Bottom of window next to search field, tick "Show input menu in menu bar"
System Preferences > Keyboard > Keyboard tab; tick "show keyboard and character viewers in menu bar"
Hold down the alt key and the alternative symbols and diacritics will be shown. Shift + alt shows more.
The input sources menu in Language and text allows you to select whatever keyboard you want.
Message was edited by: noondaywitch -
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 the ASCII value for an alphabet.
How to find the ASCII value for an alphabet.
How can I get Ascii value of any letter
How can I get Ascii value of any letter. Is there any function?
This is how you do it :
report demtest.
data : c.
field-symbols : <n> type x.
data : rn type i.
c = 'A'.
assign c to <n> casting.
move <n> to rn.
write rn.
This will convert 'A' to 65.
Tom Demuyt
How to convert ascii value to character.
If I give input as 65 (ascill value) I want display 'A'.
Below logic is for convert from character to ascii value , now I want to know how to convert ascii value to character.
Naveen
report demtest.
*going from A to 65
data : c value 'A'.
field-symbols : <n> type x.
data : rn type i.
assign c to <n> casting.
move <n> to rn.
write rn.
*going from 66 to B
data : i type i value 66.
data : x type x.
field-symbols : <fc> type c.
move i to x.
assign x to <fc> casting type c.
move <fc> to c.
write c. -
How to display a Math symbol with Subscript(like "Xad", make the "ad" be Subscript )
How to display a Math symbol with Subscript(like "Xad", make the "ad" be Subscript )
I need to show "Xad"(ad is Subscript )
I try to find the letter subscript......but ,Unicode set is not have.....
I try to use X<sub>ad</sub> show it whit Text.htmlText, but is not used, I think Flex's HTML is not support the <sub> mark.
can you tell me , how to display a Math symbol with Subscript(like "Xad", make the "ad" be Subscript )
thank you very much.....http://blog.ggshow.com/index.php/how_to_use_subscript_aamp_superscript_in?blog=11
http://jasonbejot.com/superscript-and-subscript-in-actionscript
and thank you very very muck
Maybe you are looking for
-
Hi, I need help for my HP Pavilion Notebook. The Model Details are as below: Model:dv4-1551dx OS: WIndows 7 64 Bit Place of Purchase: Best Buy at Torrance ,California My Problem: I am getting a Blue Screen Shut down with KERNEL_DATA_INPAGE_ERROR.
-
Many to Many relatiohship is not working
Hi I am having Designer 6i version 6.5.96.5.6 downloaded from oracle site. We got LDM (Logical Data Model) dump from client site and successfully imported into my server. But while generating LDM to PDM many to many relaships are not working. If i se
-
Line item wise exchange rate in sales order and same in billing
Hi, The client requirement is that to have different exchange rate at line item level in sales order, for multiple sales order, we have different exchange rate in the line items wise, we do the collective billing through VF04. System is picking in
-
Spry Validation Selection - Required with Default Initial Selection
Hello, I am using a Spry Validation Selection drop down. I want the user to choose 1, 2, 3, or 4. I would also like the drop down to initially say "Choose One" I would like to force the user to have to choose 1, 2, 3 or 4. Is this possible simply
-
Hi Friends, I'm testing a BW report, which has gross sales proceeds. I need to test the values of gross sales proceeds in the BW report against R/3. Can any one please let me know what trans action(s) should i look into and and what considerations i