How to get the number of hits ("returned rows") in read table statement

Hi Experts
I have the statement shown below, which seems not to work as I would like it to. My problem is that I would like to do two different things depending on weather or not a read table statement results in 0 hits or 1 (or more) hits.
    READ TABLE g_ship_item
        WITH KEY
     l_ztknum = DATA_PACKAGE-/bic/ztknum
     BINARY SEARCH.
      IF sy-subrc is initial.
      no hits found
        DATA_PACKAGE-/BIC/ZSTAGEERR = 1.
      ELSE.
      hits where found and we will do something else...
        DATA_PACKAGE-/BIC/ZSTAGEERR = 0.
Hope someone can help me out of my problem...
Thanks in advance, regards
Torben

Hi,
As you are using READ statement with Binary search, check whether the internal table g_ship_item is sorted with field /bic/ztknum or not. If it is not sorted then the result of this READ statement is not correct.
Below is the correct code.
sort g_ship_item by /bic/ztknum.
READ table g_ship_item with key g_ship_item = xxx.
Thanks,
Satya

Similar Messages

How to get the total amount of filtered row in a table view

I have created filter tables for each columns of my tableview. Now I want to add a row with some totals. For this I use an iterator and implement the RENDER_ROW_START. It is easy to add a new lines knowing the number of expected rows (add the line at the end). But the hic comes when there is a filter. How can I know how many rows I will have in the filtered table. There is no parameters that I found. Not even in an event handler.
Thanks a lot in advance for your help

i found the solution, thanks

How to get the number of decimal places configured for a site column

Hi,
I have a column 'SampleNumCol' of type Number, the number of decimal places to be displayed is configured as 2.
The column conatins a value, but when retrieved programatically is displayed as 5.00000000 instead of 5.00.
I am retrieving this column using listitem.Properties[field.InternalName].
I need to trim the decimals based on number of decimal places configured for the site column.
How to get the number of decimal places configured for a site column?
Thanks in advance,
dhijit

Get the field as SPFieldNumber and then check DisplayFormat which returns
SPNumberFormatTypes
SPFieldNumber numberField = list.Fields.GetFieldByInternalName("YourNumberFieldName") as SPFieldNumber;
SPNumberFormatTypes numFormatType = numberField.DisplayFormat;

Problems with getting the number of hits in the document.

I need to get the number of hits in the document.
I use the query template for this porpose as:
SELECT d.id, score(1)
FROM document d
WHERE contains(d.content,'<query>
<textquery>SEARCHWORD</textquery>
<score datatype="INTEGER" algorithm="COUNT"/></query>',1)>0
AND d.id=1
problems:
1. If I have some synonyms associated with SEARCHWORD in OracleThesaurus and in case if document contains these synonyms they are not counted.
2. could you explain the following results returned by query above:
search query: word1 - numberOfHits=10
search query: word2 - numberOfHits=8
search query: word1 OR word2 - numberOfHits=10
i suppose that numberOhHits=18 for a query: word1 OR word2

Hi. 
1.Synonyms (and generally thesaurus query extensions) cannot automatically uses in queries. You MUST expand you query using SYN function yourself. Query you write just applicable for only KEYWORD search. 
2. Ask yourself. I'm not seen your data. ;) 
Rgrds, Yuri. 
PS. Just read Oracle Text Reference - you can find many answers here. ;)

Indesign CS3: How to get the number of the current layer?

Hallo!
How to get the number of the current layer in a page?
Thanks,
Alois Blaimer

InterfacePtr<ILayerList> layerList(documentUIDRef, UseDefaultIID()); int32 layerCount = layerList->GetCount(); To findout layer name use IDocumentLayer* documentLayer = layerList->QueryLayer(layerIndex); PMString layer=documentLayer->GetName();

How to get the number of columns in a result set???

hi everyone..
i am trying to establish a servlet applet communication....
my applet send the sql query to the servlet as serialised string and then the servlet executes the query...
Since i need to pass the result back to the applet, i thaught of passing the whole reult set to the applet..but that seems to be not possible..
so i thaught of storing my result set data in a vector and then pass the vector,but the first problem that i came across is that how to get the number of colums in a result set....
so is there a way to get the number of columns in a result set...???
and also i would like to know if it possible to send my whole result set to the applet bye serialization or by any method...???
thanx in advance

You shouldn't do. It expenses resources (you should always close the ResultSet and the Statement as fast as possible). Simply gently process it into a Collection or Map of DTO's. Those are serializable.

How to get the number of files currently open?

hi,
does any one know how to get the number of files currently open in windows OS?
e.g. lets say .txt files...
any comment will be really appreciated.
thanks

Assuming that you don't want to actually do this from within Java code (which would obviously require native code), here's a utility that will give you a list of which file handles are opened by which processes (on Windows):
http://www.sysinternals.com/ntw2k/freeware/handle.shtml
- K

How to get the number of elements in DB

Could you tell me how to get the number of elements in DB??
My code to get the number is below, but I think it is not efficient
DB->cursor(DB, NULL, &cursorp, 0);
while ((ret = cursorp->c_get(cursorp, &key, &data, DB_NEXT)) == 0)
count++;
--------------------------------------------------------------------------------------------------------------

Hi,
The most efficient way to get a count from the database is using the DB->stat API (http://docs.oracle.com/cd/E17076_02/html/api_reference/C/dbstat.html)
The code will be something like:
        DB *dbp;
        DB_BTREE_STAT *statp;
        int ret;
        /* Print out the number of records in the database. */
        if ((ret = dbp->stat(dbp, NULL, &statp, 0)) != 0) {
                dbp->err(dbp, ret, "DB->stat");
                goto err1;
        printf("%s: database contains %lu records\n",
            progname, (u_long)statp->bt_ndata);
        free(statp);The code comes from the example included in the distribution at examples/c/ex_btrec.c
If the database isn't a btree, you should update to the appropriate statistics structure and field.
It's worth noting that retrieving the count is never a "cheap" operation. The count is not stored in the database - since doing so introduced a single point of contention that creates a bottle neck.
Regards,
Alex Gorrod
Oracle Berkeley DB

How to get the number of messages consumed by a MDB ??

Hi all,
How to get the number of messages consumed by a MDB displayed in OEM in a Java Application ???
DMS ??? what use DMS ???
tanks

ok.
Well using DMS is one way to get at these sorts of stats in a programmatic manner.
There's a Java API you can use, or you could call out to the Spy servlet to query the DMS stats in either text or XML form.
I don't have an MDB published so I can't show you specifiically, but here's the sort of query you can use to extract the data.
http://localhost:8888/dms0/Spy?format=raw&table=oc4j_ejb_stateless_bean&recurse=children
Which produces a table of the TEXT form:
<DMSDUMP version='9.0.4' timestamp='1163456821185 (Tue Nov 14 08:57:01 CST 2006)' id='8888' name='OC4J'>
<statistics>
/oc4j [type=n/a]
/oc4j/default [type=oc4j_ear]
/oc4j/default/EJBs [type=oc4j_ejb]
/oc4j/default/EJBs/jmsrouter_ejb [type=oc4j_ejb_pkg]
/oc4j/default/EJBs/jmsrouter_ejb/AdminMgrBean [type=oc4j_ejb_stateless_bean]
pooled.count: 11 ops
pooled.maxValue: 1 count
pooled.minValue: 0 count
pooled.value: 0 count
ready.count: 11 ops
ready.maxValue: 1 count
ready.minValue: 0 count
ready.value: 0 count
session-type.value: Stateless
transaction-type.value: Bean
/oc4j/default/EJBs/jmsrouter_ejb/EnqueuerBean [type=oc4j_ejb_stateless_bean]
pooled.count: 11 ops
pooled.maxValue: 0 count
pooled.minValue: 0 count
pooled.value: 0 count
ready.count: 11 ops
ready.maxValue: 0 count
ready.minValue: 0 count
ready.value: 0 count
session-type.value: Stateless
transaction-type.value: Bean
/oc4j/default/EJBs/jmsrouter_ejb/TimerHandlerBean [type=oc4j_ejb_stateless_bean]
pooled.count: 11 ops
pooled.maxValue: 0 count
pooled.minValue: 0 count
pooled.value: 0 count
ready.count: 11 ops
ready.maxValue: 0 count
ready.minValue: 0 count
ready.value: 0 count
session-type.value: Stateless
transaction-type.value: Bean
</statistics>
</DMSDUMP>
Or produces an XML document of the form:
http://localhost:8888/dms0/Spy?format=xml&table=oc4j_ejb_stateless_bean&recurse=children
You can use the Spy console to find the table that contains the details for MDB and then take it from there.
This is not what you specifically want to do, but it does provide a good overview of how DMS is used.
http://www.oracle.com/technology/pub/notes/technote_dms.html
-steve-

How to get the number of bytes at TCP port

Hi all,
How to get the number of bytes to read at the TCp port...as someone had suggested in some forum we do read the number of bytes first and then pass this...
but we get a problem when we have FF data in this...because then it sends 2 FF data...and cause of this we skip the last data...is there any solution for the same?

Hi
In LabVIEW you don't have the same property as in serail port.
You havn't "Byte at TCPIP port".
if you developp a protocol, one soltion, is to send the size to read.
Ingénieur d'Application / Développeur LabVIEW Certifié (CLD)
Application Engineer / LabVIEW Certified Developer (CLD)

How To get the number of request's for a single Composite Application

Hi can any body tell how to get the number requst's for a single composite application.
Thanks
Mani

Hi,
There are lots of STATE is available for composite instances, like mentioned in the below query. I hope you will get answer from the below query.
SELECT (CASE WHEN STATE=1 THEN 'OPEN AND RUNNING'
WHEN STATE=2 THEN 'OPEN AND SUSPENDED'
WHEN STATE=3 THEN 'OPEN AND FAULTED'
WHEN STATE=4 THEN 'CLOSED AND PENDING'
WHEN STATE=5 THEN 'CLOSED AND COMPLETED'
WHEN STATE=6 THEN 'CLOSED AND FAULTED'
WHEN STATE=7 THEN 'CLOSED AND CANCELLED'
WHEN STATE=8 THEN 'CLOSED AND ABORTED'
WHEN STATE=9 THEN 'CLOSED AND STALE'
WHEN STATE=10 THEN 'NON-RECOVERABLE'
ELSE STATE || ''
END) AS STATE, component_name, COUNT(*) AS NUM_OF_CUBE_INST FROM CUBE_INSTANCE where composite_name='PASS THE COMPOSITE NAME HERE..........'
group by (CASE WHEN STATE=1 THEN 'OPEN AND RUNNING'
WHEN STATE=2 THEN 'OPEN AND SUSPENDED'
WHEN STATE=3 THEN 'OPEN AND FAULTED'
WHEN STATE=4 THEN 'CLOSED AND PENDING'
WHEN STATE=5 THEN 'CLOSED AND COMPLETED'
WHEN STATE=6 THEN 'CLOSED AND FAULTED'
WHEN STATE=7 THEN 'CLOSED AND CANCELLED'
WHEN STATE=8 THEN 'CLOSED AND ABORTED'
WHEN STATE=9 THEN 'CLOSED AND STALE'
WHEN STATE=10 THEN 'NON-RECOVERABLE'
ELSE STATE || ''
END), component_name;
Thanks,
Vijay

[Win VC++ 6.0 ]How to get the number of files count in a folder using VC++ 6.0?

Hi all,
Can any one tell how to get the number of files(.EPS) count inside a folder when the folder path is specified in VC++ 6.0?
Thanks in Advance.
Regards
myriaz

I'm a little confused by the question, but it sounds like you're asking how to count the number of files with a particular extension in a given directory? That's not really an AI SDK question, but it's a fairly easy one to find if you google it. If you're trying to use Illustrator to do it, AI doesn't have a general purpose file API. It has a few functions to do some things that Illustrator needs, but I don't think enumerating directories is one of them.

How to get the link between mara, ausp, cawn and cawnt tables

hello ABAPERS
i have got a requiremet in that i have to get the relation .
how to get the link between mara, ausp, cawn and cawnt tables and also type how can we get link between char value and char description in cawn and cawnt tables through ausp and mara tables.
I would be very thankful for ur help in advance.
Thanks & Regards.
soni

Hi,
Sample report using the linkage between tables;
report batch_char no standard page heading
 line-size 132
 line-count 58(1)
 message-id mm.
 Report by Batch Characteristic *
Description : Report by Batch Characteristic *
Declaration for Tables
tables: mara, " Material Master
 mard, " Storage Location Data for Material
 t001w, " Plants/Branches
 t001l, " Storage Locations
 cabn, " Characteristics
 inob. " Link between Internal Number and Object
Declaration for Constants
constants : c_klart like ausp-klart value '023', " Class Type
 c_obtab like inob-obtab value 'MCH1', " Database Table
 c_flag type c value 'X', " Flag
 c_c23 type i value '23', " Ratio
Constants for Ratio Categories
 c_13 type p decimals 2 value '13.00', " For Ratio 13
 c_1499 type p decimals 2 value '14.99', " For Ratio 14.99
 c_15 type p decimals 2 value '15.00', " For Ratio 15
 c_1699 type p decimals 2 value '16.99', " For Ratio 16.99
 c_17 type p decimals 2 value '17.00', " For Ratio 17
 c_1899 type p decimals 2 value '18.99', " For Ratio 18.99
 c_19 type p decimals 2 value '19.00', " For Ratio 19
 c_2099 type p decimals 2 value '20.99', " For Ratio 20.99
 c_21 type p decimals 2 value '21.00', " For Ratio 21
 c_2299 type p decimals 2 value '22.99', " For Ratio 22.99
 c_23 type p decimals 2 value '23.00', " For Ratio 23
 c_g23(4) type c value '>=23', " For Ratio >=23
 c_ratio(5) value 'RATIO', " For Ratio
Constants for Storing Selected item field information
 c_cursor1(15) value 'I_OUTPUT1-MEINS', " For Selected Base
 " Unit of Measure
 c_cursor2(15) value 'I_OUTPUT1-MATNR', " For Selected Base
 " Material Number
 c_cursor3(15) value 'I_OUTPUT1-MAKTX', " For Selected Base
 " Material Des.
 c_cursor4(15) value 'I_OUTPUT1-CLABS', "For Selected Base
 " Stock Value
 c_cursor5(15) value 'I_OUTPUT1-ATFLV', " For Selected Base
 " Char.Value (Ratio)
 c_cursor6(5) value 'C_G23'.
Declaration for Global Variables
data : g_exit type c, " Flag
 g_clabs1(16) type c, " Quantity
 g_clabs(18) type c, " Quantity
 g_cursor(15) type c, " Cursor field name
 g_matnr type mara-matnr, " Material Number
 g_werks type mchb-werks, " Plant
 g_atinn(30) type c. " Character.
Declaration for Internal tables
Internal table to hold Batch Stock data
data : begin of i_mchb occurs 0,
 matnr like mchb-matnr, " Material Number
 werks like mchb-werks, " Plant
 lgort like mchb-lgort, " Storage Location
 charg like mchb-charg, " Batch Number
 clabs like mchb-clabs, " Stock Value
 meins like mara-meins, " Unit of measure
 atflo like ausp-atflv, " Char.Value (Ratio)
 atflv like ausp-atflv, " Char.Value (Ratio)
 end of i_mchb.
Internal table to hold Secondary List data
data : begin of i_mchb1 occurs 0,
 werks like mchb-werks, " Plant
 matnr like mchb-matnr, " Material Number
 lgort like mchb-lgort, " Storage Location
 charg like mchb-charg, " Batch Number
 atinn like ausp-atinn, " Char.Value
 clabs like mchb-clabs, " Stock Value
 atflo like ausp-atflv, " Char.Value (Ratio)
 atflv like ausp-atflv, " Char.Value (Ratio)
 end of i_mchb1.
Internal table to get the Plant Name
data : begin of i_plant occurs 0,
 werks like t001w-werks, " Plant
 name1 like t001w-name1, " Name
 end of i_plant.
Internal table to get the Material Description
data : begin of i_makt occurs 0,
 matnr like makt-matnr, " Material
 maktx like makt-maktx, " Description
 end of i_makt.
Internal table to hold AUSP data
data : begin of i_ausp occurs 0,
 objek like ausp-objek, " Object No
 atinn like cabn-atinn, " Characteric value
 atflv like ausp-atflv, " Characteristic Value
 end of i_ausp.
Internal table to hold output data
data : begin of i_output occurs 0,
 atinn like cabn-atinn, " Characteric value
 werks like mchb-werks, " Plant
 matnr like mchb-matnr, " Material Number
 atnam like cabn-atnam, " Characteristic
 atflv like ausp-atflv, " Char.Value (Ratio)
 name1 like t001w-name1, " Plant Description
 maktx like makt-maktx, " Material Description
 clabs like mchb-clabs, " Stock Value
 meins like mara-meins, " Base Unit of Measure
 end of i_output.
Internal table to hold final Output data
data : begin of i_output1 occurs 0,
 atinn like cabn-atinn, " Characteric value
 werks like mchb-werks, " Plant
 matnr like mchb-matnr, " Material Number
 atnam like cabn-atnam, " Characteristic
 atflv(32) type c, " Char.Value (Ratio)
 name1 like t001w-name1, " Plant Description
 maktx like makt-maktx, " Material Description
 clabs like mchb-clabs, " Stock Value
 meins like mara-meins, " Base Unit of Measure
 end of i_output1.
 Selection screen
selection-screen begin of block b1 with frame title text-001.
select-options: s_werks for t001w-werks obligatory, " Plant
 s_lgort for t001l-lgort, " Stor.Location
 s_matnr for mara-matnr obligatory, " Material No
 s_atinn for cabn-atinn. " Character.
selection-screen end of block b1.
At selection screen
at selection-screen.
Validation of Selection Screen Fields
perform validate_screen.
Start of selection
start-of-selection.
Get the Material and Batch Stock data from MARA and MCHB Tables
perform get_mat_stock_data.
Get the Material Group Text and Plant Name from T023T and T001W Tables
perform get_plant_grp_data.
Append the data into final Output Internal Table after getting the
Characteristic Values data from INOB and AUSP Tables
perform append_final_data.
Processing if the Characteristics contain 'RATIO'
perform collect_ratio.
End-of-Page
end-of-page.
write /1(125) sy-uline.
End of selection
end-of-selection.
if g_exit <> c_flag.
Display the Report Output data
 perform display_report.
endif.
Top-of-Page
top-of-page.
Write the Report and Column Headings
perform get_headings.
at line-selection
at line-selection.
if sy-lsind = 1.
 perform display_batch.
endif.
Top of page during line-selection
top-of-page during line-selection.
perform heading_seclist.
 Form validate_screen
Validation of Selection Screen fields
form validate_screen.
Validation of Plant
clear t001w.
if not s_werks[] is initial.
 select werks
 into t001w-werks
 from t001w
 up to 1 rows
 where werks in s_werks.
 endselect.
 if sy-subrc <> 0.
 message e899 with 'Enter Valid Plant'(002).
 endif.
endif.
Validation of Material Number
clear mara.
if not s_matnr[] is initial.
 select matnr
 into mara-matnr
 from mara
 up to 1 rows
 where matnr in s_matnr.
 endselect.
 if sy-subrc <> 0.
 message e899 with 'Enter Valid Material'(003).
 endif.
endif.
Validation of Storage Location
clear t001l.
if not s_lgort[] is initial.
 select lgort
 into t001l-lgort
 from t001l
 up to 1 rows
 where lgort in s_lgort.
 endselect.
 if sy-subrc <> 0.
 message e899 with 'Enter Valid Storage Location'(004).
 endif.
endif.
Validation of Characteristic Value
clear cabn.
if not s_atinn[] is initial.
 select atinn
 into cabn-atinn
 from cabn
 up to 1 rows
 where atinn in s_atinn.
 endselect.
 if sy-subrc <> 0.
 message e899 with 'Enter Valid Characteristic Value'(005).
 endif.
endif.
Validation of Plant, Material and Storage Location
clear mard.
select matnr werks lgort
 into (mard-matnr, mard-werks, mard-lgort)
 from mard
 up to 1 rows
 where matnr in s_matnr and
 werks in s_werks and
 lgort in s_lgort.
endselect.
if sy-subrc <> 0.
 message e899 with 'No Data found for the Selection Criteria'(006).
endif.
endform. "validate_screen
*& Form get_headings
Write the Report and Column Headings
form get_headings.
data: l_repid type sy-repid.
l_repid = sy-repid.
call function 'Y_STANDARD_HEADING'
 exporting
 repid = l_repid
 heading1 = sy-title.
write:/1(125) sy-uline.
format color col_heading on.
write : /1 sy-vline, 2(18) 'Material Number'(008) centered,
 20 sy-vline, 21(40) 'Material Description'(011) centered,
 61 sy-vline, 62(22) 'Ratio'(009) centered,
 84 sy-vline, 85(18) 'Quantity'(010) centered,
 103 sy-vline, 104(20) 'Base Unit of Measure'(015) centered,
 125 sy-vline.
write:/1(125) sy-uline.
format color off.
endform. "get_headings
*& Form get_mat_stock_data
Get the Material and Batch Stock data from MARA and MCHB Tables
form get_mat_stock_data.
clear: i_mchb,i_output, i_output1.
refresh: i_mchb,i_output, i_output1.
select a~matnr " Material Number
 b~werks " Plant
 b~lgort " Storage Location
 b~charg " Batch Number
 b~clabs " Stock Value
 a~meins " Base Unit of Measure
 into table i_mchb
 from mara as a inner join mchb as b
 on amatnr eq bmatnr
 where b~matnr in s_matnr and
 b~werks in s_werks and
 b~lgort in s_lgort.
if sy-subrc <> 0.
 g_exit = c_flag.
 message s899 with 'No Data found for the Selection Criteria'(006).
 stop.
endif.
sort i_mchb by matnr werks lgort charg.
endform. " get_mat_stock_data
*& Form get_plant_grp_data
Get the Material Group Text and Plant Name from T023T and T001W
form get_plant_grp_data.
if not i_mchb[] is initial.
Get the Plant Description from t001w Table
 clear i_plant.
 refresh i_plant.
 select werks " Plant
 name1 " Name
 into table i_plant
 from t001w
 for all entries in i_mchb
 where werks = i_mchb-werks.
Get the Material Description from MAKT Table
 clear i_makt.
 refresh i_makt.
 select matnr " Material number
 maktx " Material Description
 into table i_makt
 from makt
 for all entries in i_mchb
 where matnr = i_mchb-matnr and
 spras = sy-langu.
 sort i_plant by werks.
 delete adjacent duplicates from i_plant comparing werks.
 sort i_makt by matnr.
 delete adjacent duplicates from i_makt comparing matnr.
endif.
endform. "form get_plant_grp_data.
*& Form append_final_data
Append the data into final Internal Table
form append_final_data.
data : l_matbatch(28),
 l_tabix like sy-tabix.
if not i_mchb[] is initial.
 loop at i_mchb.
 l_tabix = sy-tabix.
 clear l_matbatch.
 concatenate i_mchb-matnr i_mchb-charg into l_matbatch.
 move-corresponding i_mchb to i_output.
Get the Plant Description from i_plant Table
 read table i_plant with key werks = i_mchb-werks binary search.
 if sy-subrc = 0.
 i_output-name1 = i_plant-name1.
 endif.
Get the Material Description from i_makt Table
 read table i_makt with key matnr = i_mchb-matnr binary search.
 if sy-subrc = 0.
 i_output-maktx = i_makt-maktx.
 endif.
Get the Characteristic Values data from INOB and AUSP Tables
 clear inob.
 select single cuobj from inob
 into inob-cuobj
 where klart = c_klart and
 obtab = c_obtab and
 objek = l_matbatch.
 if sy-subrc = 0.
 select objek
 atinn
 atflv
 from ausp
 into table i_ausp
 where objek = inob-cuobj and
 atinn in s_atinn and
 klart = c_klart.
 sort i_ausp by objek atinn.
 loop at i_ausp.
 clear cabn.
 select single atinn atnam from cabn
 into (cabn-atinn,cabn-atnam)
 where atinn = i_ausp-atinn.
 if sy-subrc = 0.
If the ratio value is between 13-14.99, display 13
 if cabn-atnam cs c_ratio.
 if i_ausp-atflv between c_13 and c_1499.
 i_mchb-atflo = i_ausp-atflv.
 i_mchb-atflv = c_13.
If the ratio value is between 15-16.99, display 15
 elseif i_ausp-atflv between c_15 and c_1699.
 i_mchb-atflo = i_ausp-atflv.
 i_mchb-atflv = c_15.
If the ratio value is between 17-18.99, display 17
 elseif i_ausp-atflv between c_17 and c_1899.
 i_mchb-atflo = i_ausp-atflv.
 i_mchb-atflv = c_17.
If the ratio value is between 19-20.99, display 19
 elseif i_ausp-atflv between c_19 and c_2099.
 i_mchb-atflo = i_ausp-atflv.
 i_mchb-atflv = c_19.
If the ratio value is between 21-22.99, display 21
 elseif i_ausp-atflv between c_21 and c_2299.
 i_mchb-atflo = i_ausp-atflv.
 i_mchb-atflv = c_21.
If the ratio value is greater than or equal to 23, display 23
 elseif i_ausp-atflv >= c_23.
 i_mchb-atflo = i_ausp-atflv.
 i_mchb-atflv = c_23.
 endif. " Condition for RATIO values
 else. " If characteristic does contain RATIO
 i_mchb-atflv = i_ausp-atflv.
 endif.
 i_output-atinn = cabn-atinn.
 i_output-atnam = cabn-atnam.
 i_output-atflv = i_ausp-atflv.
 i_mchb1-matnr = i_mchb-matnr.
 i_mchb1-werks = i_mchb-werks.
 i_mchb1-lgort = i_mchb-lgort.
 i_mchb1-charg = i_mchb-charg.
 i_mchb1-clabs = i_mchb-clabs.
 i_mchb1-atinn = i_ausp-atinn.
 i_mchb1-atflo = i_mchb-atflv.
 i_mchb1-atflv = i_ausp-atflv.
 append : i_output, i_mchb1.
 clear i_mchb1.
 modify i_mchb index l_tabix transporting atflo atflv .
 endif.
 endloop.
 endif.
 endloop.
endif.
Checking whether the table is filled or not
if not i_output[] is initial.
 sort i_output by atinn werks matnr atflv.
else.
 g_exit = c_flag.
 message s899 with 'No Data found for the Selection Criteria'(006).
endif.
Delete the records where RATIO is less than 13.
delete i_output where atnam cs c_ratio and atflv lt c_13.
endform. "append_final_data
*& Form display_report
Display the Report Output data
form display_report.
data: l_tabix like sy-tabix.
loop at i_output1.
 l_tabix = sy-tabix.
At new Characteristic
 at new atinn.
 read table i_output1 index l_tabix.
 format color 1 intensified on.
 write: /1 sy-vline, 2(20) 'Characteristic Name:'(007),
 23(40) i_output1-atnam,
 125 sy-vline.
 format color off.
 format color 4 intensified on.
 write: /1 sy-vline, 2(20) 'Plant Name :'(022),
 23(4) i_output1-werks, 29(30) i_output1-name1,
 125 sy-vline.
 format color off.
 write /1(125) sy-uline.
 endat.
 clear: g_clabs, g_clabs1.
 format color col_normal.
 write :/1 sy-vline, 2(18) i_output1-matnr,
 20 sy-vline, 21(40) i_output1-maktx,
 61 sy-vline.
 if i_output1-atflv = c_c23.
 write: 62(22) c_g23 centered.
 else.
 shift i_output1-atflv left deleting leading space.
 write: 62(22) i_output1-atflv centered.
 endif.
 write: 84 sy-vline,
 103 sy-vline,
 110(5) i_output1-meins.
If the quantity value is negative
 if i_output1-clabs ge 0.
 write: 85(18) i_output1-clabs unit i_mchb-meins,
 125 sy-vline.
 else.
 i_output1-clabs = - i_output1-clabs.
 write i_output1-clabs unit i_mchb-meins to g_clabs1.
 condense g_clabs1.
 concatenate '(' g_clabs1 ')' into g_clabs separated by space.
 write: 85(18) g_clabs right-justified,
 125 sy-vline.
 endif.
 format color off.
 hide : i_output1.
 new-line.
At end of material
 at end of matnr.
 sum.
 move : i_output1-matnr to g_matnr.
 format color 3 intensified on.
 write /1(125) sy-uline.
 write :/1 sy-vline, 2(25) 'Total for Material :'(012),
 28(18) g_matnr.
 if i_output1-clabs ge 0.
 write: 85(18) i_output1-clabs unit i_mchb-meins,
 125 sy-vline.
 else.
 i_output1-clabs = - i_output1-clabs.
 write i_output1-clabs unit i_mchb-meins to g_clabs1.
 condense g_clabs1.
 concatenate '(' g_clabs1 ')' into g_clabs separated by space.
 write: 85(18) g_clabs right-justified,
 125 sy-vline.
 endif.
 write: 125 sy-vline.
 format color off.
 write /1(125) sy-uline.
 endat.
At end of plant
 at end of werks.
 sum.
 move : i_output1-werks to g_werks.
 format color 3 intensified off.
 write :/1 sy-vline, 2(25) 'Total for Plant :'(013),
 28(4) g_werks.
 if i_output1-clabs ge 0.
 write: 85(18) i_output1-clabs unit i_mchb-meins,
 125 sy-vline.
 else.
 i_output1-clabs = - i_output1-clabs.
 write i_output1-clabs unit i_mchb-meins to g_clabs1.
 condense g_clabs1.
 concatenate '(' g_clabs1 ')' into g_clabs separated by space.
 write: 85(18) g_clabs right-justified,
 125 sy-vline.
 endif.
 format color off.
 write /1(125) sy-uline.
 endat.
At end of characteristic
 at end of atinn.
 read table i_output1 index l_tabix.
 sum.
 format color 3 intensified on.
 write :/1 sy-vline, 2(25) 'Total for Characteristic:'(014),
 28(25) i_output1-atnam.
 if i_output1-clabs ge 0.
 write: 85(18) i_output1-clabs unit i_mchb-meins,
 125 sy-vline.
 else.
 i_output1-clabs = - i_output1-clabs.
 write i_output1-clabs unit i_mchb-meins to g_clabs1.
 condense g_clabs1.
 concatenate '(' g_clabs1 ')' into g_clabs separated by space.
 write: 85(18) g_clabs right-justified,
 125 sy-vline.
 endif.
 format color off.
 write /1(125) sy-uline.
 endat.
endloop.
endform. " display_report
*& Form DISPLAY_BATCH
 Display the batch details for the seclected material *
form display_batch.
Get the batch details for the selected material
get cursor field g_cursor.
if g_cursor = c_cursor1 or
 g_cursor = c_cursor2 or
 g_cursor = c_cursor3 or
 g_cursor = c_cursor4 or
 g_cursor = c_cursor5 or
 g_cursor = c_cursor6.
 format color 3.
 write: /1 sy-vline,
 2(17) 'Material Number :'(020),
 20(17) i_output1-matnr,
 94 sy-vline.
 format color off.
 write /1(94) sy-uline.
 loop at i_mchb1 where matnr = i_output1-matnr and
 atinn = i_output1-atinn and
 atflo = i_output1-atflv.
 format color col_normal.
 shift i_mchb1-charg left deleting leading '0'.
 write :/1 sy-vline, 2(16) i_mchb1-lgort centered,
 18 sy-vline, 19(17) i_mchb1-charg centered,
 36 sy-vline.
 if i_output1-atnam cs c_ratio.
 write: 37(29) i_mchb1-atflv
 exponent 0 decimals 2 centered.
 else.
 write : 37(29) i_mchb1-atflv
 exponent 0 decimals 0 centered.
 endif.
 write : 66 sy-vline, 67(27) i_mchb1-clabs unit i_mchb-meins,
 94 sy-vline.
 format color off.
 endloop.
 write /1(94) sy-uline.
else.
 message s899 with 'Invalid cursor position'(016).
 exit.
endif.
endform. " DISPLAY_BATCH
*& Form HEADING_SECLIST
 Write the Column Headings for Interactive Report
form heading_seclist.
write /1(94) sy-uline.
format color col_heading on.
write :/1 sy-vline, 2(16) 'Storage Location'(021),
 18 sy-vline, 19(17) 'Batch Number'(017) centered,
 36 sy-vline, 37(29) 'Characteristic Value'(018) centered,
 66 sy-vline, 67(27) 'Quantity'(019) centered,
 94 sy-vline.
write /1(94) sy-uline.
format color off.
endform. " HEADING_SECLIST
*& Form COLLECT_RATIO
 Display the Characteristic ratio data
form collect_ratio.
loop at i_output.
 clear g_atinn.
 i_output1-atinn = i_output-atinn.
 i_output1-atnam = i_output-atnam .
 i_output1-werks = i_output-werks.
 i_output1-name1 = i_output-name1.
 i_output1-matnr = i_output-matnr.
 i_output1-maktx = i_output-maktx.
 i_output1-clabs = i_output-clabs.
 i_output1-meins = i_output-meins.
 call function 'CONVERSION_EXIT_ATINN_OUTPUT'
 exporting
 input = i_output-atinn
 importing
 output = g_atinn.
 if g_atinn cs c_ratio.
If the ratio value is between 13-14.99, display 13
 if i_output-atflv between c_13 and c_1499.
 i_output1-atflv = c_13.
If the ratio value is between 15-16.99, display 15
 elseif i_output-atflv between c_15 and c_1699.
 i_output1-atflv = c_15.
If the ratio value is between 17-18.99, display 17
 elseif i_output-atflv between c_17 and c_1899.
 i_output1-atflv = c_17.
If the ratio value is between 19-20.99, display 19
 elseif i_output-atflv between c_19 and c_2099.
 i_output1-atflv = c_19.
If the ratio value is between 21-22.99, display 21
 elseif i_output-atflv between c_21 and c_2299.
 i_output1-atflv = c_21.
If the ratio value is greater than or equal to 23, display 23
 elseif i_output-atflv >= c_23.
 i_output1-atflv = c_23.
 endif.
 write i_output1-atflv to i_output1-atflv .
 else.
 write i_output-atflv to i_output1-atflv exponent 0 decimals 0.
 endif.
 collect i_output1.
 clear i_output1.
endloop.
sort i_output1 by atinn werks matnr atflv.
endform. " COLLECT_RATIO
Reward if useful..
Regards,
Anji

How to get the link between MCH1, AUSP, CAWN and CAWNT tables

Hi,
Can anyone let me know how to get the link between MCH1, AUSP, CAWN and CAWNT tables as I want to get the description (CAWNT-ATWTB) for a particular Batch (MCH1-CHARG).
Thanks & Regards,
Kumar

Hi,
Can anyone let me know how to get the link between MCH1, AUSP, CAWN and CAWNT tables as I want to get the description (CAWNT-ATWTB) for a particular Batch (MCH1-CHARG).
Thanks & Regards,
Kumar

How to get the number of current active external modes?

hi all,
I need to get the number of currently active external modes. This can be done by calling function THUSRINFO. But this only works propperly, if you are logged on only once. If you are logged on more than one time then the function returns several entries in the parameter USR_TABLE. The entries mainly differ in the first parameter TID (type UTID, INT4) "terminal-identification" but how can I know which is the valid one for my current session. Functions TERMINAL_ID_GET, SPH_TERMINAL_IDENTIFY and SPH_TERMINAL_ID_GET dont work.
Or is there another way to get the number of active external sessions?
Thanks in advance,
Michael

Hi,
tables: usr02, usr41.
data: OPCODE_MODE_COUNT(1) TYPE X VALUE 3,
      modes like sy-index,
      u_MODES LIKE MODES.
select * from usr02.
select * from usr41 where BNAME = usr02-bname.
    CALL 'ThUsrInfo' ID 'OPCODE' FIELD OPCODE_MODE_COUNT
      ID 'TID' FIELD usr41-TERMID
      ID 'MODES' FIELD MODES.
    IF SY-SUBRC = 0.
      u_MODES = u_MODES + MODES.
    ENDIF.
endselect.
if sy-subrc = 0.
    write:/ usr02-bname, u_MODES.
endif.
clear u_modes.
endselect.

How to get the number of hits ("returned rows") in read table statement

Similar Messages

Maybe you are looking for