How to print extract value in dbms_output.put_line

CREATE OR REPLACE PROCEDURE pr_srch_data
AS
xml_data_val xmltype:=null;
vPropertyName clob;
vstr varchar2(1000);
operation varchar2(1000);
vQuery VARCHAR2(4000):=NULL;
vQry VARCHAR2(4000):=NULL;
vPartyid VARCHAR2(2000):=NULL;
vPerson varchar2(4000);
BEGIN
FOR I IN (SELECT EAPP_XML_DATA
FROM binary_xml
WHERE extractvalue(eapp_xml_data,'/OLifE/Party[@id="Party1"]/Person/LastName') Like 'Rajesh%'
LOOP
BEGIN
     SELECT extractvalue(value(t),'/Relation/@RelatedObjectID')
     INTO vPartyid
     FROM TABLE (XMLSEQUENCE (EXTRACT (xml_data_val,'/OLifE/Relation'))) t
     WHERE extractvalue(value(t),'/Relation/RelationRoleCode')='Owner'
AND existsnode(value(t),'/Relation/@RelatedObjectID')=1 ;
END;
SELECT extract(value(t),'/OLifE/Party[@id='''||vPartyid ||''']/Person')
INTO vPerson
FROM TABLE (XMLSEQUENCE (EXTRACT (I.EAPP_XML_DATA,'/OLifE')))t;
dbms_output.put_line('vPerson'||'--'||vPerson);
END LOOP;
END;
But when i am printing vPerson i am getting error. I need to print that extract value.

Things to remember (that you should know by now)
Please remind us of which version of 11g you are using in this post and all future posts.
Look at the FAQ under your sign-in name to see how to use the tag to retain formatting of your code as you have seen our examples to you look like.
We can't see your screen or your data so how about the error message and some data from your table?
Please start using either XMLTable or XMLCast/XMLQuery as odie_63 as shown you.
What are you trying to do?

Similar Messages

How To Print Field Value in TOP-OF-PAGE During Line Selection.

How To Print Field Value in TOP-OF-PAGE During Line Selection when double click on field.

(If my memory serves me well (not used for long time ago)
Assign values to system fields sy-tvar0 - sy-tvar9, they will replace the placeholders "&0" through "&9" in the list headers and column headers.
TOP-OF-PAGE DURING LINE-SELECTION.
WRITE: / 'Interactive Report &3'.
WRITE record-vbeln TO sy-tvar3.
Regards,
Raymond

How to print Jtable values in one A4 size paper

Hi,
i am having JPanel , this panel have Jtbale, Jtextfield, Jlable, i search the code for Printing Jpanel, its work fine and print whole JPanel including, jtable, textbox, everything.
my Jtable have Scroll bar to see all the values in the table,my problem is when i was print the JPanel the Jtable print only the display values in Jtable, cannot print all the values from Jtable,(eg. Jtable have 50 rows, screen display 20 rows only, move the scrollbar to see remaining,) .
i want to print 50 rows how to print the values anyone can help me
thanks in advance.

Duplicate post. Mods please do your duty.

How to print the value of a field of type FLTP

hi experts,
pls tell me how to print the value of a field of type FLTP. i.e in decimal format not in exponential format.
thankyou.
krishna

Hi ,
I dont think in Floating point u can able to go for the decimal point display as it is for the minimum precission display..
Define the variable as the 'packed' type and then u can able to define the decimal point...
Cheers,
SImha.

How to Populate a table with DBMS_OUTPUT.put_line

Hey Guys, it's Xev.
Please only pleasant people reply to this.
I have a PL/SQL Program that searches for strings and then at the end of it it prints out to DBMS_OUTPUT.put_line.
I have the owner, the table_name, the column name and the count, then it goes to DBMS_OUTPUT.put_line
What i want to do, is take the results of DBMS_OUTPUT.put_line and insert it into a table.
Here is the script I am talking about, as you can see it's simple, yet for me it works. I want to take the results of this and insert it into a table. How can i do that??
set serveroutput on size unlimited
execute DBMS_OUTPUT.ENABLE (buffer_size => NULL);
DECLARE
   FND_GOVIDS       INTEGER;
   BEGIN
FOR t IN (SELECT owner, table_name, column_name
            FROM all_tab_columns
            WHERE owner = upper('&SCHEMA_NAME'))
LOOP
BEGIN
    EXECUTE IMMEDIATE 'with a as ( select case when REGEXP_LIKE(' || t.column_name ||
--This searches for 8 Alpha Digits
',''^([[:alpha:]]{2}|[[:alpha:]]{4})?[ ]?[0-9]{8}[ ]?([[:alpha:]]{2}|[[:alpha:]]{4})?$'')
then ''Match Found''
else ''No Match Found'' end as output from ' || t.owner || '.' || t.table_name || ')
select count(*) from a where a.output=''Match Found'' '
      INTO FND_GOVIDS ;
IF FND_GOVIDS > 0         THEN
DBMS_OUTPUT.put_line (
t.owner
|| '.'
|| t.table_name
|| ' '
|| t.column_name
|| ' '
|| FND_GOVIDS);
END IF;
EXCEPTION
    WHEN OTHERS
      THEN
      DBMS_OUTPUT.put_line (
      'Generic Error '
      || t.column_name
      || ' from '
      || t.owner
      || '.'
      || t.table_name);
      END;
   END LOOP;
END;

Nope, the table is empty....
But it ran without error??!?! Wait a minute, I think i have to commit right? Since it's not straight sql, ok, that's what I am going to try..
set serveroutput on size unlimited
execute DBMS_OUTPUT.ENABLE (buffer_size => NULL);
DECLARE
   FND_GOVIDS       INTEGER;
   BEGIN
FOR t IN (SELECT owner, table_name, column_name
            FROM all_tab_columns
            WHERE owner = upper('&SCHEMA_NAME'))
LOOP
BEGIN
    EXECUTE IMMEDIATE 'with a as ( select case when REGEXP_LIKE(' || t.column_name ||
--This searches for 6 Alpha Digits
',''^([[:alpha:]]|[[:alpha:]]{3})[0-9]{6}$'')
then ''Match Found''
else ''No Match Found'' end as output from ' || t.owner || '.' || t.table_name || ')
select count(*) from a where a.output=''Match Found'' '
      INTO FND_GOVIDS ;
/*Table insert for resulting */
IF FND_GOVIDS > 0 THEN
INSERT INTO "SMEG"."DYNAMIC_COUNTS" (T_OWNER, T_TABLE_NAME, T_COLUMN_NAME, FND_GOVIDS) VALUES
('t.owner','t.table_name','t.column_name','FND_GOVIDS');
END IF;
/* dbms_output */
IF FND_GOVIDS > 0 THEN
DBMS_OUTPUT.put_line (t.owner || '.' || t.table_name || ' ' || t.column_name || ' ' || FND_GOVIDS);
END IF;
/* Exception Handeling */
EXCEPTION
    WHEN OTHERS
      THEN
      DBMS_OUTPUT.put_line (
      'Generic Error '
      || t.column_name
      || ' from '
      || t.owner
      || '.'
      || t.table_name);
      END;
   END LOOP;
END;

How to print all values in record datatype?

Hello friends ,
I wrote one function which returned the departments record type.
when ever I called the function that returned departments record type and stored in department record type variable..I have to print all the values in record...
What can I do???
My code is like this...
set serveroutput on
declare
type depcur is ref cursor return departments%rowtype;
dep depcur;
rec departments%rowtype;
function ref_cur_demo(ref1 in depcur) return departments%rowtype
is
v_dep departments%rowtype;
begin
loop
fetch ref1 into v_dep;
exit when ref1%notfound;
end loop;
return v_dep;
end;
begin
open dep for select *from departments;
rec:=ref_cur_demo(dep);
--Here I have to print all the record variables;
end;

Hi Gopi,
You have to write the program in different way. In your case the function always returns only one value. You can see only one department detail as output.
To display a record type variable you need to use record type variable name .(dot) field name.
SQL> set serveroutput on
SQL> declare
2 type depcur is ref cursor return departments%rowtype;
3 dep depcur;
4 rec departments%rowtype;
5 function ref_cur_demo(ref1 in depcur) return departments%rowtype
6 is
7 v_dep departments%rowtype;
8 begin
9 loop
10 fetch ref1 into v_dep;
11 exit when ref1%notfound;
12 end loop;
13 return v_dep;
14 end;
15 begin
16 open dep for select *from departments;
17 rec:=ref_cur_demo(dep);
18 --Here I have to print all the record variables;
19 dbms_output.put_line(rec.department_id||' '|| rec.department_name||'    '|| rec.manager_id||'    '||rec.location_id);
20 end;
21 /
270 Payroll        1700
PL/SQL procedure successfully completed.
Here is the sample code which will demonstrates using ref cursors.
SQL> create or replace function get_dept_detail
2 return sys_refcursor
3 is
4
5     x_res sys_refcursor;
6
7 begin
8
9     open x_res for select * from departments;
10     return x_res;
11
12 end get_dept_detail;
13 /
Function created.
SQL>
SQL>
SQL> -- Execution
SQL>
SQL> declare
2
3      res sys_refcursor;
4      l_rec departments%rowtype;
5
6 begin
7
8     res := get_dept_detail;
9
10     loop
11        fetch res into l_rec;
12        exit when res%notfound;
13        dbms_output.put_line( l_rec.department_id||' '||l_rec.department_name);
14     end loop;
15
16 end;
17 /
10 Administration
20 Marketing
30 Purchasing
40 Human Resources
50 Shipping
60 IT
70 Public Relations
80 Sales
90 Executive
100 Finance
110 Accounting
120 Treasury
130 Corporate Tax
140 Control And Credit
150 Shareholder Services
160 Benefits
170 Manufacturing
180 Construction
190 Contracting
200 Operations
210 IT Support
220 NOC
230 IT Helpdesk
240 Government Sales
250 Retail Sales
260 Recruiting
270 Payroll
PL/SQL procedure successfully completed.
SQL>
SQL> -- In SQL*PLUS
SQL>
SQL> var res refcursor
SQL> execute :res := get_dept_detail;
PL/SQL procedure successfully completed.
SQL>
SQL> print res;
DEPARTMENT_ID DEPARTMENT_NAME                MANAGER_ID LOCATION_ID
           10 Administration                        200        1700
           20 Marketing                             201        1800
           30 Purchasing                            114        1700
           40 Human Resources                       203        2400
           50 Shipping                              121        1500
           60 IT                                    103        1400
           70 Public Relations                      204        2700
           80 Sales                                 145        2500
           90 Executive                             100        1700
          100 Finance                               108        1700
          110 Accounting                            205        1700
DEPARTMENT_ID DEPARTMENT_NAME                MANAGER_ID LOCATION_ID
          120 Treasury                                         1700
          130 Corporate Tax                                    1700
          140 Control And Credit                               1700
          150 Shareholder Services                             1700
          160 Benefits                                         1700
          170 Manufacturing                                    1700
          180 Construction                                     1700
          190 Contracting                                      1700
          200 Operations                                       1700
          210 IT Support                                       1700
          220 NOC                                              1700
DEPARTMENT_ID DEPARTMENT_NAME                MANAGER_ID LOCATION_ID
          230 IT Helpdesk                                      1700
          240 Government Sales                                 1700
          250 Retail Sales                                     1700
          260 Recruiting                                       1700
          270 Payroll                                          1700
27 rows selected.
SQL>
Cheers,
Suri ;-)

How to Print all values stored in an Associative array

DB version:10gR2
There can be multiple results(multiple rows) for the below query. So, i'll have to declare the variables v_sid_serial, v_orauser, v_objectname,v_objecttype as associative arrays.
SELECT l.session_id||','||v.serial# sid_serial, l.ORACLE_USERNAME,o.object_name,o.object_type,
       into v_sid_serial, v_orauser, v_objectname,v_objecttype
FROM dba_objects o, v$locked_object l, v$session v
WHERE o.object_id = l.object_id
      and l.SESSION_ID=v.sid;But I want to store the results from the above query in flat file. I want the result set to look like
SID_SERIAL      ORA_USER               OBJECT_NAME
742,32914    SCOTT                        EMP
873,49832    HR                           EMPLOYEES
893,9437     mytestschema                 emp_dtls
.            .How can i print the values in Associative arrays in the above manner so that i can spool the result set to a flat file?
Edited by: user10373231 on Sep 29, 2008 5:19 AM

user10373231 wrote:
is there any way to print all values stored in an Associative arrayPrint to where?
You could use DBMS_OUTPUT to get the output on the screen within SQL*Plus.
You could also output (pipe) the data from PL/SQL using a pipelined function that you select from SQL. An example of a pipelined function...
SQL> CREATE OR REPLACE TYPE myrec AS OBJECT
2 ( col1   VARCHAR2(10),
3    col2   VARCHAR2(10)
4 )
5 /
Type created.
SQL>
SQL> CREATE OR REPLACE TYPE myrectable AS TABLE OF myrec
2 /
Type created.
SQL>
SQL> CREATE OR REPLACE FUNCTION pipedata(p_str IN VARCHAR2) RETURN myrectable PIPELINED IS
2    v_str VARCHAR2(4000) := REPLACE(REPLACE(p_str, '('),')');
3    v_obj myrec := myrec(NULL,NULL);
4 BEGIN
5    LOOP
6      EXIT WHEN v_str IS NULL;
7      v_obj.col1 := SUBSTR(v_str,1,INSTR(v_str,',')-1);
8      v_str := SUBSTR(v_str,INSTR(v_str,',')+1);
9      IF INSTR(v_str,',')>0 THEN
10        v_obj.col2 := SUBSTR(v_str,1,INSTR(v_str,',')-1);
11        v_str := SUBSTR(v_str,INSTR(v_str,',')+1);
12      ELSE
13        v_obj.col2 := v_str;
14        v_str := NULL;
15      END IF;
16      PIPE ROW (v_obj);
17    END LOOP;
18    RETURN;
19 END;
20 /
Function created.
SQL>
SQL> create table mytab (col1 varchar2(10), col2 varchar2(10));
Table created.
SQL>
SQL> insert into mytab (col1, col2) select col1, col2 from table(pipedata('(1,2),(2,3),(4,5)'));
3 rows created.
SQL>
SQL> select * from mytab;
COL1       COL2
1          2
2          3
4          5... which you can easily adapt to output whatever data you want e.g. you could loop through your associative array and pipe out the values within it.

How to print the values of type Object?

Hi All,
I am not able to print values of the following can anyone telme where i am wrong and what i can do in this regard.
Object one = request.getAttribute("values");
When i try to print these values as following
System.out.println("one ="+one);
am not getting the values in a different format something like [Ljava.lang.String;@1234f. I tried to convert the following Object to String still its not working. Can some one please suggest me what i can do in this regard.
Thanks

ferrari_sun wrote:
I am getting a Null pointer exception if i typecast it to a string array. Not sure what to do nowThe hell you are. You don't get Null pointers out of casting. However you might be accessing null elements of the array afterwards.
You really should throw away the code, go fetch some "How to learn basic Java with Wiggles The Bear" ebook and then start learning the basics instead of tripping on every single line of your code which is too complicated for you.

How to print new line using DBMS_OUTPUT package

Hi,
I am trying to print a new line using DBMS_OUTPUT package. but it do not print the new line.
set serveroutput on size 200000
set feedback on
BEGIN
DBMS_OUTPUT.PUT_LINE('First Line');
DBMS_OUTPUT.PUT_LINE('');
DBMS_OUTPUT.PUT_LINE('Second Line');
END;
I expect following output ...
First Line
Second Line
but i got following output....
First Line
Second Line
why DBMS_OUTPUT.PUT_LINE( '); is not printing a new line ?

You can try the following:
SQL> ED
Wrote file afiedt.buf
1 BEGIN
2 DBMS_OUTPUT.PUT('ONE LINE...');
3 DBMS_OUTPUT.PUT('SECOND LINE...');
4 DBMS_OUTPUT.NEW_LINE;
5 DBMS_OUTPUT.PUT_LINE('THIRD LINE WITH NEW LINE...');
6 DBMS_OUTPUT.PUT('TEST');
7 DBMS_OUTPUT.NEW_LINE;
8 DBMS_OUTPUT.PUT_LINE('FOURTH LINE'||CHR(10)||'EXAMPLE');
9 DBMS_OUTPUT.PUT_LINE(CHR(10));
10 DBMS_OUTPUT.PUT_LINE('FIFTH LINE');
11* END;
SQL> /
ONE LINE...SECOND LINE...
THIRD LINE WITH NEW LINE...
TEST
FOURTH LINE
EXAMPLE
FIFTH LINE
PL/SQL procedure successfully completed.Documentation:
http://download-east.oracle.com/docs/cd/B19306_01/appdev.102/b14258/d_output.htm#i1000062

How to print the value if a condition is satisfied

Hi,
Please suggest me how to print a text as 'Do not print' when a field in the selection screen is entered.
If in the selection screen (s_field1) we have entered a value as ZESM then the value filed of
wa_vbak-auart should check the the values in s_field1 then it should just print the text "'DO NOT PRINT''.
we have written the folowing code, but the condition is not working.
DATA: V_FIELD1 type z_field1. "(zdata element).
ranges: r_fIELD1 for v_field1.
SELECT-OPTIONS: S_field1 FOR v_field1 default 'ZESM'.
loop at s_field1.
    r_field1-sign = 'I'.
    r_field1-option = 'EQ'.
    r_field1-low = s_field1-low.
    append r_field1.
    clear r_field1.
endloop.
    if wa_vbak-auart in r_field1.
      wa_final-v_text = 'DO NOT PRINT'
    else.
      wa_final-v_text = ' '.
    endif.
Please suugest what can be done.
Thanks in advance

Hi,
if wa_vbak-auart in r_field1.
wa_final-v_text = 'DO NOT PRINT'
else.
wa_final-v_text = ' '.
endif.
Have you writtent he above code with in loop enloop on the internal table.If yes then simply add append statement after assignment.
if wa_vbak-auart in r_field1.
wa_final-v_text = 'DO NOT PRINT'
append wa_final into it_final.
clear wa_final.
else.
wa_final-v_text = ' '.
append wa_final into it_final.
clear wa_final.
endif.
Hope this will solve your problem.
Pooja

How to Print the Value of a variable inside a PL/SQL package

Hi Friends,
Here is my Scenario
I have a PL/SQL Package. Let us call it Baseline Package.
This Package includes a dynamically built merge Statement.
Execute Immediate v_merge_query.
I have a procedure which replaces which few Keywords from the Package Text and Creates a new one depending on Inputs I provide. (This is something like a Code generator)
Now while Creating the new package, I need to print the Value of v_merge_query.... I Need s Static Query to be Printed inside the new package and not a dynamic query.
My Question is "Is there a way to print the value of the variable inside a different PL/SQL package?
Thanks in Advance,
Mohit

Print where?
That PL/SQL code is server-side code. It runs in an Oracle server process.
That server process does not have a keyboard. Or a screen/monitor. Or display canvas. Or an attached printer.
That server process is incapable of "printing" as that is not its job or responsibility and not part of its environment.
What is can do is record data for the client to look at afterwards. This can be done using static PL/SQL session variables. Or a SQL table.
The former is done by DBMS_OUTPUT - a very primitive interface for writing text into a static PL/SQL string array. That btw resides in expensive private process server memory. The client can query the array after a database call and render the contents.
PS. Also keep in mind that bind variables are critical for performance and server robustness - especially when (ab)using dynamic SQL.

How can I extract value based on the specific tag?

Hello,
I have a sample xml file:
<?xml version="1.0" encoding="UTF-8"?>
<listings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="http://local.google.com/local_feed.xsd">
<language>en</language>
<datum>WGS84</datum>
<listing>
<id>242238</id>
<name>Baskin-Robbins</name>
<date month="5" day="13" year="2010" />
<content>
<text type="menu">
<link>http://www.allmenus.com/ca/san-fernando-valley/242238-baskin-robbins/menu/</link>
<title>Baskin-Robbins</title>
<author>Allmenus.com</author>
<body>View this menu online at Allmenus.com</body>
</text>
<attributes>
<link>http://www.allmenus.com/ca/san-fernando-valley/242238-baskin-robbins/menu/</link>
<title>Baskin-Robbins</title>
<attr name="Average Entree">$41.95</attr>
<attr name="Cuisine">Ice Cream</attr>
<attr name="Cuisine">American</attr>
<attr name="Payment accepted">Cash</attr>
<attr name="Feature">Cheap Eats</attr>
<attr name="Feature">Kid Friendly</attr>
<attr name="Feature">Fast Food</attr>
<date month="5" day="13" year="2010" />
</attributes>
</content>
</listing>
<listing>
<id>243810</id>
<name>Villa Maria Pizzeria & Restaurant</name>
<date month="5" day="13" year="2010" />
<content>
<text type="menu">
<link>http://www.allmenus.com/ny/nassau-county/243810-villa-maria-pizzeria--restaurant/menu/</link>
<title>Villa Maria Pizzeria & Restaurant</title>
<author>Allmenus.com</author>
<body>View this menu online at Allmenus.com</body>
</text>
<attributes>
<link>http://www.allmenus.com/ny/nassau-county/243810-villa-maria-pizzeria--restaurant/menu/</link>
<title>Villa Maria Pizzeria & Restaurant</title>
<attr name="Hours">Sun 12pm-9pm; Mon 11am-10pm; Tue 11am-10pm; Wed 11am-10pm; Thu 11am-10pm; Fri 11am-10pm; Sat 11am-10pm</attr>
<attr name="Last Delivery">Sun 9pm; Mon 10pm; Tue 10pm; Wed 10pm; Thu 10pm; Fri 10pm; Sat 10pm</attr>
<attr name="Order Online">http://orders.allmenus.com/restaurant.asp?restid=5999&campusid=835</attr>
<attr name="Average Entree">$7.95</attr>
<attr name="Minimum for Delivery">$25.00</attr>
<attr name="Cuisine">Pizza</attr>
<attr name="Cuisine">Sandwiches</attr>
<attr name="Cuisine">Calzones</attr>
<attr name="Payment accepted">Cash</attr>
<attr name="Payment accepted">Visa</attr>
<attr name="Payment accepted">Mastercard</attr>
<attr name="Payment accepted">Discover</attr>
<attr name="Payment accepted">Amex</attr>
<attr name="Nearby School">Hofstra University</attr>
<attr name="Nearby School">SUNY-Farmingdale</attr>
<attr name="Feature">Free Delivery</attr>
<attr name="Feature">Open 7 Days</attr>
<attr name="Online Order">Yes</attr>
<date month="5" day="13" year="2010" />
</attributes>
</content>
</listing>
</listings>
As you can see, some row has <attr name="Order Online"> and some don't. I want to extract value of this attribute. It can be null for rows that don't have this attribute. How can I do it with extractvalue function? THANKS A LOT!

I figured it out that I should do the following:
select extractvalue(value(x),'/listing/content/attributes/attr[@name="Order Online"]')
from load_xml_file t, table(xmlsequence(extract(t.xml,'/listings/listing'))) x
Thanks!

Printing blank spaces using dbms_output.put_line

There is one string getting generated dynamically. Upon generation, it may or may not contain blank spaces in the beginning. Then I am trying to print this on standard I/O using DBMS_OUTPUT.PUT_LINE. But if there are some leading spaces in the string, they are ignored. Is there any other way to print the exact string as it is?

hi..
it's depend on your client configuration.. you can configure the wrap option at the serveroutput parameter...
set serveroutput on size 100000 for wrap;
begin
2 dbms_output.put_line(' Hello world.');
3 end;
4 /
Hello world.
PL/SQL procedure successfully completed.

How to use 'Extract Values' transformation?

Hi,
I am new to EDQ. I have the following requirement - source system sends me partyname+address details. I need to check in the oracle database and if there is a match then send back the ID along with the input details. I am using Lookup check audit process to check if the data is present in the database. If the data is present then I need to send back the ID. To extract the ID I am using 'Extract Values' transformation. I am not able define the Reference Data for this . Can provide a example how to use the same.
Thanks
Prabha

Just use Lookup and Return.
Though it sounds like you really should be using a match process.

How to print a value in text format

hello,
        I want to print a value for eg. 1083.00 in word like one thousand eighty three only......can anybody tell me is there any function module present in SAP to do same.......<removed by moderator>
Edited by: Mike Pokraka on Aug 4, 2008 6:42 PM

Hi hav a luk @ below code,
REPORT zmdamountwords.
TABLES: spell,
              komk.
*&      Form get_amt_words
*       text
*      -->AMT        text
*      -->WORDS      text
FORM get_amt_words TABLES in_tab STRUCTURE itcsy
                           out_tab STRUCTURE itcsy.
DATA : value1 LIKE bseg-dmbtr.
DATA : value(18).
DATA : t_value(18).
DATA : value_s1(18).
DATA : value_s2(19),
         value_s3(19),
         value_s4(19),
         rs_str(256),
         len TYPE i,
         words LIKE spell.
CLEAR : value,value1,t_value.
READ TABLE in_tab WITH KEY 'KOMK-FKWRT'.
REPLACE ALL OCCURRENCES OF ',' IN in_tab-value WITH space.
CONDENSE in_tab-value.
value = in_tab-value.
value1 = value.
CALL FUNCTION 'Z_SPELL_AMOUNT_INR'
    EXPORTING
      amount     = value1
    IMPORTING
      rupees_str = rs_str
    EXCEPTIONS
      OTHERS     = 1.
CONDENSE rs_str.
READ TABLE out_tab WITH KEY 'RS_STR'.
IF sy-subrc = 0.
    out_tab-value = rs_str.
    MODIFY out_tab INDEX sy-tabix.
ENDIF.
ENDFORM.                    "GET_AMT_WORDS
Let me know if you have any doubt.
Reward if useful.
Warm Regards,
Mohandoss P.

How to print extract value in dbms_output.put_line

Similar Messages

Maybe you are looking for