Generate dbsequnce for a table using a bean

Is it possible to generate the next dbsequence for a table using bean?
Thanks

If you are only interested in the number in the bean, you should implement a service method in out application module, expose it to the client interface and call this via the binding layer.
public oracle.jbo.domain.Number getSequenceNumber()   {
        try    {
            String seq = "YOUR_DB_SEQUENCE_SEQ";
            oracle.jbo.server.SequenceImpl empSeq =
                new oracle.jbo.server.SequenceImpl(seq, getDBTransaction());
            oracle.jbo.domain.Number zSerienNrSeq = empSeq.getSequenceNumber();
            return zSerienNrSeq ;
        catch (Exception e)        {
            e.printStackTrace();
        return null;
}Timo

Similar Messages

Generate script for filling table

Hi all,
I've got table at test Oracle server table1 with columns ID, BTYPE, MYDESCRIPTION. Rows of this table have been inserted manually. Now my need is to write script for creating table (structure + data). I think about writing something like
CREATE TABLE table 1
AS
SELECT 1 AS ID, 'TYPE1' AS BTYPE, 'SOME TEXT' AS MYDESCRIPTION
UNION ALL
SELECT 2 AS ID, 'TYPE2' AS BTYPE, 'SOME TEXT 2' AS MYDESCRIPTION
But rows are too many to type... Could you please suggest some way of generating script for creating table at working server using existing table at test server? The problem is I don't have an access to working server.
Thanks ahead.

Use the view user_tab_cols
say
declare
cursor c1 is
select 'e_'||column_name ||' '||data_type||' ('||data_length||') ' col
from user_tab_cols
where table_name = 'DEPARTMENTS'
union
select 'd_'||column_name ||' '||data_type||' ('||data_length||') ' col
from user_tab_cols
where table_name = 'EMPLOYEES';
v1 varchar2(500);
begin
v1 := 'create table new_tabl (';
for i in c1 loop
v1 := v1||i.col||',';
end loop;
v1 := substr(v1,1,length(v1)-1);
dbms_output.put_line(v1||')');
end;
/i am using employees and departments table of hr schema.
now as both the tables have some column column so i have used e for employees and d for departments
just do one thing remove the length for date data type in o/p i dont know why it is not working.
this will give you structure for data use any sql stmt
Edited by: 810345 on Jun 9, 2011 9:58 PM

Unable to generate statistics for the table

I have got a staging table of more than 600 columns which has got range portioning. Size of the table is 4GB. The average size of the row is around 3 MB. I have created a Functional index on one of the column ABC VARCHAR2(50) and it has only number values. Now when I try generating statistics for this table through ANALYZE or DBMS_STAT, it gives Invalid Number error but when I drop this index and try analyzing, it works.
Executed TO_NUMBER(ABC) query on the table and it works fine.
I have got Functional Indexes on other tables also but I don't get such problem with those tables. I tried dropping the index and re-creating it but it didn't work out.
I was suspecting DATA BLOCK CORRUPTION so checked ALERT LOG and TRACE FILES but found nothing.
So what is this magic called?

I am using TO_NUMBER on the column.
I have checked the MetaLink for the same problem but could not find anything on that. I still suspect datafile error which I am unable to get in ALERT LOG or TRACE FILES. So I am going to try it this way:
1) Create new Tablespace with New Datafile
2) Transfer the table from existing Tablespace to new Tablespace
3) Create the functional index in the same new Tablespace
4) Try generating the statistics.
5) If it works then create seprate Tablespace for data and Index.
Hope it works !!
Thanks for the reply guys.

Is table maintenance generator only for custom table?

hi ,
i have doubt is table maintenance generator only for custom table?

hi swamya,
Table Maintanance Generator is used to create/change/delete table entries in a particular table.
In the production system, end-users will not be having access to transaction codes like SE11 and SE16. Developers will not be having access to many transaction codes including the above two.To view the contents of the database table, we will use SE16n in Production system. All these authorizations will be maintained by BASIS team, by creating access profiles.So in order to edit or create the contents of a database table, we should go for table maintenance generator. In real time, authorizations will be maintained in production system.
The second reason is, we can edit or create multiple entries at a time, using tablemaintenance generator.
Apart from that we have options like 'Enter conditions' in table maintenance screen SM30.
hope this helps in clearing ur doubt.
Regards
Saurabh

How do u save datas more than one table using net beans ide using JSF

Hi,
I am new to JSF.
I save / delete / update / New master table using POJO (Plain Old Java Objects), database - oracle and Toplink Persistence Unit.
How do u save data more than one table using net beans ide using JSF (I am using POJO) ?
and also Tell me the reference book for JSF.
Thanks in advance.
regards,
N.P.Siva

SivaNellai wrote:
I am new to JSF.
So, I am using net beans IDE 6.1 from sun microsystem. It is a free software.No, you don't drag'n'drop if you're new to JSF. Switch to source code mode. Write code manually, with the help of IDE for the speed up.
So, please guide me the reference books, articles. I need the basic understanding of JSF, net beans IDE.[JSF: The Complete Reference|http://www.amazon.com/JavaServer-Faces-Complete-Reference/dp/0072262400] is a good book. The [JSF specification document|http://jcp.org/aboutJava/communityprocess/final/jsr252/index.html] is also a good reading to understand what JSF is and how it works. There are also javadocs and tlddocs of Sun JSF Mojarra.

How to find out the script for the table using SQL

Hi,
Could any one tell me that how to find out the script for the table using SQL.
Thanks,
kamal

Kamal,
You can find the SQL query in Advanced tab of Answers
Thanks,
Balaa...

Is there a way to create ADF Table using a bean

Hi,
I am using JDev 11g 11.1.1.2.0.
I am reading an excel sheet and want to generate an ADF table using the same. I already have hold on excel data.
But when I go through the RichTable API, I find that there is no method to add Columns and Rows. Most or all the methods work on the table UI Looks attribute.
Any suggestion? Am I missing a method OR 2 here?
Pls note: The excel (CSV file) using which I am populating my table, will vary for different user. i.e.
say user 1 will upload a CSV file with 7cols and 100 rows while
user 2 will upload the CSV file that has 2 cols and 100 rows.
Hope this makes it clear of my requirements and why I want to populate the table from a bean.
Thanks in advance.
Edited by: user8925296 on Feb 24, 2010 7:09 PM

Thanks a lot Joseba, I am now atleast getting column headings. I have questions on the soln given but first here is the code that I use
PS NOTE: on my .jpsx file I have dragged dropped an ADF table, removed its default columns and have bounded it with my bean attrib '_dynaTbl' that is used below.
// ---- Few imports that I use
import oracle.adf.model.adapter.dataformat.csv.CSVParser;
import oracle.adf.view.rich.component.rich.data.RichColumn;
import oracle.adf.view.rich.component.rich.data.RichTable;
import oracle.adf.view.rich.component.rich.data.RichTableUtils;
import oracle.adf.view.rich.component.rich.output.RichOutputText;
     public String getFileData() {
try {
FacesContext fc = FacesContext.getCurrentInstance();
ExpressionFactory elFactory = fc.getApplication().getExpressionFactory();
ELContext elCtx = fc.getELContext();
CSVParser pfile = new CSVParser(getFile().getInputStream());
ArrayList colData = new ArrayList();
ArrayList colHdr = new ArrayList();
pfile.nextLine();
String colArr[] = pfile.getLineValues();
int colLth = colArr.length;
int rows =0;
/* _dynaTbl.setVar("row");    */
for(int hdr=0 ; hdr < colLth; hdr++){
RichColumn colNm = new RichColumn();
colNm.setHeaderText(colArr[hdr]);
colNm.setRowHeader(true);
colNm.setRendered(true);
colHdr.add(hdr, colNm);
colNm.setVisible(true);
while (pfile.nextLine()){
String arr[] = pfile.getLineValues();
int u=0;
while(u < colLth) {
// CoreColumn colNm = (CoreColumn)app.createComponent(CoreColumn.COMPONENT_TYPE);
//colNm.setId(colArr[   u   ] ) ;
                         //CoreOutputText rdata = (CoreOutputText)app.createComponent(CoreOutputText.COMPONENT_TYPE);
                         RichOutputText rdata = new RichOutputText();
                         rdata.setValue(arr[   u     ]) ;
                         rdata.setVisible(true);
                         rdata.setRendered(true);
                         rdata.setId((String)colArr[    u   ] + u) ;
// System.out.print("\t\t" + rdata.getValue());
/* ValueExpression value = elFactory.createValueExpression(elCtx, "#{row.attrName}", Object.class);
rdata.setValueExpression("value", value);
                         ((RichColumn)colHdr.get(u)).getChildren().add(rdata);
                         //colNm.getChildren().add(rdata);
                    // _dynaTbl.setHeader(rcol);
                    // _dynaTbl.setVisible(true);
                    // _dynaTbl.setValue(arr[   u   ]) ;
               // _dynaTbl.getChildren().add(colNm);
u++; rows++;
//break;
_dynaTbl.setRows(rows);
               for(int hdr=0 ; hdr < colLth; hdr++){
_dynaTbl.getChildren().add((RichColumn)colHdr.get(hdr));
_dynaTbl.setFetchSize(10);
_dynaTbl.setVerticalGridVisible(true);
System.out.print("\n\t child count" + _dynaTbl.getChildCount());
_dynaTbl.setAllDetailsEnabled(true);
_dynaTbl.setShowAll(true);
_dynaTbl.setRowBandingInterval(1);
_dynaTbl.setRendered(true);
for(int i =0; i< _dynaTbl.getChildCount() ; i++) {
System.out.print("\n\t count within child:" i " is :" +
((RichColumn)(_dynaTbl.getChildren()).get(i)).getChildCount());
System.out.println(" isAllDetailsEnabled:"+ _dynaTbl.isAllDetailsEnabled());
System.out.println(" isRowAvailable:"+ _dynaTbl.isRowAvailable());
System.out.println(" isRowAvailable i:"+ _dynaTbl.isRowAvailable(i));
System.out.println(" isShowAll i:"+ _dynaTbl.isShowAll());
}catch (Exception exp){
exp.printStackTrace();
return "Done";
Here is the problem. I am able to view only column headings but data is not visible.
1. I get below out put for as many columns that I use
a.
count within child:4 is :24 isAllDetailsEnabled:true
isRowAvailable:false
isRowAvailable i:false
isShowAll i:true
b. Why is table data missing. What more do I need to do?
Kindly guide.
Thanks a lot in advance.

Binding for table produces list for other tables using foreign key and crea

Using
software Jdev 11G, WLS 11G, Oracle DB 11G, Windows Vista platform
technology EJB 3.0, jspx, backing beans, session bean
I cannot create a namedquery on my secondary table. The method for the column uses the entity object rather than the name and value of the column.
For instance,
(Coketruck) table has inventory records(Products) table
Coketruck has one to many to the Products table
Products has a many to one to the Coketruck
I need to return the products from the product table based on the CokeTruck but I cannot create a namedQuery because the method in the Product table is an entity object type instead of a long that I can use to look up all the products based off the column truck_id.
This is what I was expecting…
Private Long truckId;
public Long getTruckId() {
return truckId;
public void setTruckId (Long truckId) {
this. truckId = truckId;
Instead this is what I have…
@ManyToOne
@JoinColumn(name = "TRUCK_ID")
private Coketruck coketruck;
this. coketruck = coketruck
public Coketruck getCoketruck() {
return coketruck;
public void set Coketruck (Coketruck coketruck) {
this. coketruck = coketruck;
How do I do a query on the Product table to return all the products that are in the coketruck?
If I do the following it expects for me to pass the Entity Object which I cannot use as search criteria for my find method.
@NamedQuery(name = "Products.findById", query = "select o from Products o where o.truckId = :truckId")
On a different note but the same song…
I noticed that when I look at my Session Bean Data Contols that the coketruck already has a list of the products. I have created a jsp page with a backing bean and have been able to use the namedquery on the coketruck entity to retrieve the productList. Unfortunately I need to sort the products by type and was also not able to find where to perform the work to be able to iterate through the productList to get my desired display. Therefore I started looking at doing another namedquery that would only retrieve the product_type ordering by the truckId.
Seems I have come full circle… I don’t care what method I have to use to get the info back.
Any help is greatly appreciated!

user9005175 wrote:
Hi!
I work on an application wich uses a shopping cart stored in a database. The shopping cart uses two tables:
CART: Holds information common for one shopping cart: the user it is connected to etc.
- Primary key: CART_ID
CART_ROW: One row in the cart, e.g. one new product to buy.
- Primary key: ROW_ID
- Foreign key: CART_ROW.CART_ID references CART.CART_ID
From the code the rows in the cart are collected per cart, as is modelled by the foreign key. There exists one more relationship, which we use in the code, but which is not modelled by a foreign key in the database. One row can be dependent on another row, which makes the other row a parent.
CART_ROW has a column PARENT_ID which references CART_ROW.ROW_ID.
Should we add a foreign key for PARENT_ID? Or are there any questions to consider when it is a foreign key to the same table?
I suggest to add foreign key it wont harm the performance (except while on insert when there would be validation for the foreign key). But it would prevent users to insert wrong/corrupt data either through code or directly by loggin in the database.
A while ago we added indexes, both on ROW_ID and on PARENT_ID. Could the index on PARENT_ID have been harmful, since there is no foreign key?
Index on parent_id would only be harmful if you do not make use of index after creating it (i.e. there is no query which make use of this index).
And if you decide to have a foreign key on parent_id then I suggest to have index too on parent_id as it would be helpful atleast when you delete any record in this table.
Best regards!

How to generate report from two tables using DAO design pattern?

Hi,
Iam using struts with DAO pattern for my application. According to DAO design im creating model class for each table in my database with getter,setter methods. i have no problem when im generating report from one table. but if have i have to join two tables whatis the better way for doing that? is it good practise to create a new model contains properties from both the tables?
Please help me
Thanks in Advance
Rajesh

Dear Rajesh,
As per the pattern you are creating equivalent java objects for every database table under consideration in which each db field will become a private attribute and public getter and setter methods.
If you have to display data from one table the above approach is sufficient enough.
But in case your database is normalised ..lets take an example of Bank having Branch and Accounts tables. We dont need to repeat the whole information of the branch for every account in that branch. so we prefer to have a branch id in that table....this approach lot of insertion/deletion/updatation anomlies that may exists with the database...
now lets come back to our topic....we shall create two java objects 1) Branch 2) Account.....
When ever u just need to display simple report u can do it staright forward,,,,,now if u want to display branch information along with the account information....the two objects just created are not sufficient
So i suggest u the following approaches
1) Create an attribute of type Branch in the Accounts Object......
This shall serve the purpose of displaying the Btranch information
2) Create a collection object of type ( Vector or ArrayList) which can have objects of Account in the Branch Object,,,
Now its upto u how shall u fill up the objects with appropriate sql queries.
The method that i mentioned is followed by Oracle Toplink and Hibernate ....which provide Object to relation mapping layers.
Any queries ...revert back to me...
Mahesh

Unable to generate spool for two tables in report output

Hi,
I created report with two custom containers displaying two tables in output. When I execute the report in background spool is created only for one table in top custom container.
What should be done to generate spool for both the tables in two different custom containers.
Thanks,
Abhiram.

Hi,
Check the bellow link for your requirement.
<<link removed>>
Regards,
Goutam Kolluru.
Edited by: kishan P on Feb 2, 2012 1:50 PM

Control the Batch Size for inseting tables using xi

Hi Friends,
Please let me know if we are able to control the batch size for inserting data using procedures for staging tables. Using SAP XI. Any blogs on this. or any information. please let us know.
Thank you
Regards
Ramidi

Hi Ramidi,
There is something called message split on adapter engine but it won't guarantee a sequence of adapter calls.
here is a blog about it:
/people/jin.shin/blog/2006/02/07/multi-mapping-without-bpm--yes-it146s-possible
Maybe there is also an another simple way to do it.
Regards,
Wojciech
<i>** Please reward points if found it useful **</i>

Simple SELECT query to generate INSERT for a table

Hi,
I am looking for a SELECT query which generates INSERT statements for a table.Please guide.
Thanks
PG.

Like this?
SQL> SELECT * from kons;
     COL1      COL2
        1         1
        2         2
SQL> SELECT 'INSERT INTO kons VALUES('||col1||','||col2||');' statement FROM kons;
STATEMENT
INSERT INTO kons VALUES(1,1);
INSERT INTO kons VALUES(2,2);
SQL> If you have character and / or date columns you will have to change my example,
but you might get the idea from it.
You can spool the result to a file.
Regards,
Guido
Edit: ';' added to end of statement...

Creating reports for user tables using XL reporter

Hi all
i wish to create a report based on user tables using the XL reporter.
question is: is it possible? and if so how can it be done?
appreciate the help
Yoav

Hi Yoav,
XL Reporter cannot pull data from UDTs. However, you can use an Excel template when creating your XL Reporter report and then embed VBA code in the template to pull the UDT data in to the report after the XL Reporter has finished generating the report. It all depends on how you need to combine the UDT data with other SBO data. If you are interested in a report based entirely on UDT data then it would be simpler just to write the report using VBA in Excel (or Crystal).
Kind Regards,
Owen

Entity Framework Generated SQL for paging or using Linq skip take causes full table scans.

The slq genreated creates queries that cause a full table scan for pagination. Is there any way to fix this?
I am using
ODP.NET ODTwithODAC1120320_32bit
ASP.NET 4.5
EF 5
Oracle 11gR2
This table has 2 million records. The further into the records you page the longer it takes.
LINQ
var cnt = (from errorLog in ctx.ERRORLOGANDSERVICELOG_VIEW
                    select errorLog).Count();
                var query = (from errorLog in ctx.ERRORLOGANDSERVICELOG_VIEW
                             orderby errorLog.ERR_LOG_ID
                             select errorLog).Skip(cnt-10).Take(10).ToList();
Here is the query & execution plans.
SELECT *
FROM   (SELECT "Extent1"."ERR_LOG_ID" AS "ERR_LOG_ID",
               "Extent1"."SRV_LOG_ID" AS "SRV_LOG_ID",
               "Extent1"."TS"          AS "TS",
               "Extent1"."MSG"         AS "MSG",
               "Extent1"."STACK_TRACE" AS "STACK_TRACE",
               "Extent1"."MTD_NM"      AS "MTD_NM",
               "Extent1"."PRM"         AS "PRM",
               "Extent1"."INSN_ID"     AS "INSN_ID",
               "Extent1"."TS_1"        AS "TS_1",
               "Extent1"."LOG_ETRY"    AS "LOG_ETRY"
        FROM   (SELECT "Extent1"."ERR_LOG_ID"                                  AS "ERR_LOG_ID",
                       "Extent1"."SRV_LOG_ID"                                  AS "SRV_LOG_ID",
                       "Extent1"."TS"                                          AS "TS",
                       "Extent1"."MSG"                                         AS "MSG",
                       "Extent1"."STACK_TRACE"                                 AS "STACK_TRACE",
                       "Extent1"."MTD_NM"                                      AS "MTD_NM",
                       "Extent1"."PRM"                                         AS "PRM",
                       "Extent1"."INSN_ID"                                     AS "INSN_ID",
                       "Extent1"."TS_1"                                        AS "TS_1",
                       "Extent1"."LOG_ETRY"                                    AS "LOG_ETRY",
                       row_number() OVER (ORDER BY "Extent1"."ERR_LOG_ID" ASC) AS "row_number"
                FROM   (SELECT "ERRORLOGANDSERVICELOG_VIEW"."ERR_LOG_ID" AS "ERR_LOG_ID",
                               "ERRORLOGANDSERVICELOG_VIEW"."SRV_LOG_ID" AS "SRV_LOG_ID",
                               "ERRORLOGANDSERVICELOG_VIEW"."TS"          AS "TS",
                               "ERRORLOGANDSERVICELOG_VIEW"."MSG"         AS "MSG",
                               "ERRORLOGANDSERVICELOG_VIEW"."STACK_TRACE" AS "STACK_TRACE",
                               "ERRORLOGANDSERVICELOG_VIEW"."MTD_NM"      AS "MTD_NM",
                               "ERRORLOGANDSERVICELOG_VIEW"."PRM"         AS "PRM",
                               "ERRORLOGANDSERVICELOG_VIEW"."INSN_ID"     AS "INSN_ID",
                               "ERRORLOGANDSERVICELOG_VIEW"."TS_1"        AS "TS_1",
                               "ERRORLOGANDSERVICELOG_VIEW"."LOG_ETRY"    AS "LOG_ETRY"
                        FROM   "IDS_CORE"."ERRORLOGANDSERVICELOG_VIEW" "ERRORLOGANDSERVICELOG_VIEW") "Extent1") "Extent1"
        WHERE ("Extent1"."row_number" > 1933849)
        ORDER BY "Extent1"."ERR_LOG_ID" ASC)
WHERE (ROWNUM <= (10))
| Id | Operation              | Name                   | Rows | Bytes |TempSpc| Cost (%CPU)| Time     |
|   0 | SELECT STATEMENT       |                        |    10 | 31750 |       |   821K (1)| 02:44:15 |
|* 1 | COUNT STOPKEY         |                        |       |       |       |            |          |
|   2 |   VIEW                 |                        | 1561K| 4728M|       |   821K (1)| 02:44:15 |
|* 3 |    VIEW                |                        | 1561K| 4748M|       |   821K (1)| 02:44:15 |
|   4 |     WINDOW SORT        |                        | 1561K| 3154M| 4066M|   821K (1)| 02:44:15 |
|* 5 |      HASH JOIN OUTER   |                        | 1561K| 3154M|       |   130K (1)| 00:26:09 |
|   6 |       TABLE ACCESS FULL| IDS_SERVICES_LOG       | 1047 | 52350 |       |     5   (0)| 00:00:01 |
|   7 |       TABLE ACCESS FULL| IDS_SERVICES_ERROR_LOG | 1561K| 3080M|       |   130K (1)| 00:26:08 |
Predicate Information (identified by operation id):
   1 - filter(ROWNUM<=10)
   3 - filter("Extent1"."row_number">1933849)
   5 - access("T1"."SRV_LOG_ID"(+)="T2"."SRV_LOG_ID")

I did try a sample from stack overflow that would apply it to all string types, but I didn't see any query results differences. Please note, I am having the problem without any order with or where statements. Of course the skip take generates them. Please advise how I would implement the EntityFunctions.AsNonUnicode method with this Linq query.
LINQ
var cnt = (from errorLog in ctx.ERRORLOGANDSERVICELOG_VIEW
                    select errorLog).Count();
                var query = (from errorLog in ctx.ERRORLOGANDSERVICELOG_VIEW
                             orderby errorLog.ERR_LOG_ID
                             select errorLog).Skip(cnt-10).Take(10).ToList();
This is what I inserted into my model to hopefully fix it. FROM:c# - EF Code First - Globally set varchar mapping over nvarchar - Stack Overflow
/// <summary>
/// Change the "default" of all string properties for a given entity to varchar instead of nvarchar.
/// </summary>
/// <param name="modelBuilder"></param>
/// <param name="entityType"></param>
protected void SetAllStringPropertiesAsNonUnicode(
   DbModelBuilder modelBuilder,
   Type entityType)
   var stringProperties = entityType.GetProperties().Where(
c => c.PropertyType == typeof(string)
   && c.PropertyType.IsPublic
   && c.

Generating Text file from table using Shell script

I am using KSH for generating and FTPing a text file from a table.
While generating Text file I am not getting my Column names in orderly manner.
q2="select COLUMN1||' '||COLUMN2||' '||COLUMN3 from table1;"
set pagesize 0
set head off
set trimspool on
set trimout on
set colsep ' '
set linesize 1500
set trimspool on
spool /ss/app11/oastss/reports/$file2
select 'COLUMN1'||' '||'COLUMN2'||' '||'COLUMN3' from dual;
$q2
spool off;
EOF
I am getting the result some what like below in text file
COLUMN1 COLUMN2 COLUMN3
MALLIK_ACCT     17-SEP-11     908030482
MALLIK_ACCT     17-SEP-11     908266967
MALLIK_ACCT     17-SEP-11     909570766
I want the format like below
COLUMN1........ COLUMN2 .... COLUMN3
MALLIK_ACCT ...17-SEP-11 .... 908030482
MALLIK_ACCT ...17-SEP-11 .... 908266967
MALLIK_ACCT ...17-SEP-11 .... 909570766
I put dots(.) for illustration purpose.
column data length may icrease some times . it shoudl automatically adjust column and data so that they are in alignment. thanks in advance.

Mallik wrote:
Hi my question is to format the headers so that they will be in alignment with column data and readable.So you want to output a query as a fixed width format data file? How about this (rather than using scripts)...
As sys user:
CREATE OR REPLACE DIRECTORY TEST_DIR AS '\tmp\myfiles'
GRANT READ, WRITE ON DIRECTORY TEST_DIR TO myuser
/As myuser:
CREATE OR REPLACE PROCEDURE run_query(p_sql IN VARCHAR2
                                     ,p_dir IN VARCHAR2
                                     ,p_header_file IN VARCHAR2
                                     ,p_data_file IN VARCHAR2 := NULL) IS
v_finaltxt VARCHAR2(4000);
v_v_val     VARCHAR2(4000);
v_n_val     NUMBER;
v_d_val     DATE;
v_ret       NUMBER;
c           NUMBER;
d           NUMBER;
col_cnt     INTEGER;
f           BOOLEAN;
rec_tab     DBMS_SQL.DESC_TAB;
col_num     NUMBER;
v_fh        UTL_FILE.FILE_TYPE;
v_samefile BOOLEAN := (NVL(p_data_file,p_header_file) = p_header_file);
BEGIN
c := DBMS_SQL.OPEN_CURSOR;
DBMS_SQL.PARSE(c, p_sql, DBMS_SQL.NATIVE);
d := DBMS_SQL.EXECUTE(c);
DBMS_SQL.DESCRIBE_COLUMNS(c, col_cnt, rec_tab);
FOR j in 1..col_cnt
LOOP
    CASE rec_tab(j).col_type
      WHEN 1 THEN DBMS_SQL.DEFINE_COLUMN(c,j,v_v_val,2000);
      WHEN 2 THEN DBMS_SQL.DEFINE_COLUMN(c,j,v_n_val);
      WHEN 12 THEN DBMS_SQL.DEFINE_COLUMN(c,j,v_d_val);
    ELSE
      DBMS_SQL.DEFINE_COLUMN(c,j,v_v_val,2000);
    END CASE;
END LOOP;
-- This part outputs the HEADER
v_fh := UTL_FILE.FOPEN(upper(p_dir),p_header_file,'w',32767);
FOR j in 1..col_cnt
LOOP
    CASE rec_tab(j).col_type
      WHEN 1 THEN v_finaltxt := v_finaltxt||rpad(lower(rec_tab(j).col_name),rec_tab(j).col_max_len,' ');
      WHEN 2 THEN v_finaltxt := v_finaltxt||rpad(lower(rec_tab(j).col_name),rec_tab(j).col_max_len,' ');
      WHEN 12 THEN v_finaltxt := v_finaltxt||rpad(lower(rec_tab(j).col_name),greatest(19,length(rec_tab(j).col_name)),' ');
    END CASE;
END LOOP;
UTL_FILE.PUT_LINE(v_fh, v_finaltxt);
IF NOT v_samefile THEN
    UTL_FILE.FCLOSE(v_fh);
END IF;
-- This part outputs the DATA
IF NOT v_samefile THEN
    v_fh := UTL_FILE.FOPEN(upper(p_dir),p_data_file,'w',32767);
END IF;
LOOP
    v_ret := DBMS_SQL.FETCH_ROWS(c);
    EXIT WHEN v_ret = 0;
    v_finaltxt := NULL;
    FOR j in 1..col_cnt
    LOOP
      CASE rec_tab(j).col_type
        WHEN 1 THEN DBMS_SQL.COLUMN_VALUE(c,j,v_v_val);
                    v_finaltxt := v_finaltxt||rpad(nvl(v_v_val,' '),rec_tab(j).col_max_len,' ');
        WHEN 2 THEN DBMS_SQL.COLUMN_VALUE(c,j,v_n_val);
                    v_finaltxt := v_finaltxt||rpad(nvl(to_char(v_n_val,'fm99999999999999999999999999999999999999'),' '),rec_tab(j).col_max_len,' ');
        WHEN 12 THEN DBMS_SQL.COLUMN_VALUE(c,j,v_d_val);
                    v_finaltxt := v_finaltxt||rpad(nvl(to_char(v_d_val,'DD/MM/YYYY HH24:MI:SS'),' '),greatest(19,length(rec_tab(j).col_name)),' ');
      END CASE;
    END LOOP;
    UTL_FILE.PUT_LINE(v_fh, v_finaltxt);
END LOOP;
UTL_FILE.FCLOSE(v_fh);
DBMS_SQL.CLOSE_CURSOR(c);
END;This allows for the header row and the data to be written to seperate files if required.
e.g.
SQL> exec run_query('select * from emp','TEST_DIR','output.txt');
PL/SQL procedure successfully completed.Output.csv file contains:
empno                 ename     job      mgr                   hiredate           sal                   comm                  deptno
7369                  SMITH     CLERK    7902                  17/12/1980 00:00:00800                                         20
7499                  ALLEN     SALESMAN 7698                  20/02/1981 00:00:001600                  300                   30
7521                  WARD      SALESMAN 7698                  22/02/1981 00:00:001250                  500                   30
7566                  JONES     MANAGER 7839                  02/04/1981 00:00:002975                                        20
7654                  MARTIN    SALESMAN 7698                  28/09/1981 00:00:001250                  1400                  30
7698                  BLAKE     MANAGER 7839                  01/05/1981 00:00:002850                                        30
7782                  CLARK     MANAGER 7839                  09/06/1981 00:00:002450                                        10
7788                  SCOTT     ANALYST 7566                  19/04/1987 00:00:003000                                        20
7839                  KING      PRESIDENT                      17/11/1981 00:00:005000                                        10
7844                  TURNER    SALESMAN 7698                  08/09/1981 00:00:001500                  0                     30
7876                  ADAMS     CLERK    7788                  23/05/1987 00:00:001100                                        20
7900                  JAMES     CLERK    7698                  03/12/1981 00:00:00950                                         30
7902                  FORD      ANALYST 7566                  03/12/1981 00:00:003000                                        20
7934                  MILLER    CLERK    7782                  23/01/1982 00:00:001300                                        10
               The procedure allows for the header and data to go to seperate files if required. Just specifying the "header" filename will put the header and data in the one file.
Adapt to output different datatypes and styles are required (this is currently coded for VARCHAR2, NUMBER and DATE)

Generate dbsequnce for a table using a bean

Similar Messages

Maybe you are looking for