Generating control files

Question

hi
i want to generate a control file that contains the column names in it.
the file should pick the column name from the table.
actually i want to move a table through sql loader. for that i require control file.

Answer 1

I had done something similar. Take a look, you may need to amend to suit your requirement -
-- Dynamic CONTROL FILE created on table ->  TEST
SQL> desc test
Name                                      Null?    Type
COL1                                               NUMBER
COL2                                               VARCHAR2(25)
COL3                                               DATE
COL4                                               VARCHAR2(100)
---  DDL scipts to read Table level definition and prepare CONTROL file dymanically
Drop Table Ops_Meta_Data;
Create Table Ops_Meta_Data
   opn_module           Varchar2(10)
  ,opn_step_id          Number(2)
  ,Opn_Type             Varchar2(100)
  ,opn_sub_rtns         Number(2)
Insert Into Ops_Meta_Data Values ('MY_SYS', 1, 'SQL-TRUNCATE STAGE', 8);
Insert Into Ops_Meta_Data Values ('MY_SYS', 3, 'Loader', 8);
Drop Index Ops_Meta_Data_SRtns1;
Drop table Ops_Meta_Data_sub_Rtns;
Create Table Ops_Meta_Data_sub_Rtns
  opn_module           varchar2(10)
,opn_step_id          Number(2)
,opn_type             varchar2(20)
,opn_type_dtl_1       varchar2(20)
,opn_type_dtl_2       varchar2(20)
,rtn_sub_id           Number(2)
,Tgt_Tbl_Nm           Varchar2(30)
,Src_Nm               Varchar2(255)
,Num_Cols             Number(4)
CREATE INDEX Ops_Meta_Data_SRtns1 On Ops_Meta_Data_sub_Rtns (opn_module, opn_type)
Insert Into Ops_Meta_Data_sub_Rtns Values ('MY_SYS', 3, 'Loader', 'DELIMITED', ',', 1,
'TEST','/users/shailender/CTL/MY_SYS/METADATA/data_a.dat', 4);
Drop Index Ops_Meta_Data_colmap_1;
Drop Table Ops_Meta_Data_sub_Rtn_Col_Map;
Create Table Ops_Meta_Data_sub_Rtn_Col_Map
  opn_module           varchar2(10)
,opn_step_id          Number(2)
,opn_type             varchar2(20)
,rtn_sub_id           Number(2)
,col_id               Number(4)
,col_seq              Number(4)
,col_pos_fm           Number
,col_pos_to           Number
,col_name             Varchar2(30)
,col_data_type        varchar2(30)
,col_function         varchar2(255)
CREATE INDEX Ops_Meta_Data_colmap_1 On Ops_Meta_Data_sub_Rtn_Col_Map (opn_module, opn_type, rtn_sub_id)
Insert Into Ops_Meta_Data_sub_Rtn_Col_Map Values ('MY_SYS', 3, 'Loader', 1, 1, 1, Null, Null, 'COL1', NULL, '"TRIM(:COL1)"');
Insert Into Ops_Meta_Data_sub_Rtn_Col_Map Values ('MY_SYS', 3, 'Loader', 1, 2, 2, Null, Null, 'COL2', NULL, '"TRIM(:COL2)"');
Insert Into Ops_Meta_Data_sub_Rtn_Col_Map Values ('MY_SYS', 3, 'Loader', 1, 3, 3, Null, Null, 'COL3', 'DATE', 'DATE(14) ' ||
'''' || 'YYYYMMDDHH24MISS' || '''');
Insert Into Ops_Meta_Data_sub_Rtn_Col_Map Values ('MY_SYS', 3, 'Loader', 1, 4, 4, Null, Null, 'COL4', NULL, '"TRIM(:COL4)"');
----   Run script to dynamically generate the CONTROL (.ctl) file based on data set up in tables
clear screen
set serveroutput on size 999999
Declare
PROCEDURE PR_EXEC_METADATA (pTransId In Varchar2 ) IS
   CURSOR c1 Is
       Select opn_module
             ,opn_step_id
             ,opn_type
             ,opn_sub_rtns
       From   Ops_Meta_Data
       Where  opn_module   = pTransId
       Order By 2;
   TYPE MyTab  Is TABLE of VARCHAR2(255) INDEX By Binary_Integer;
   MyTabCol    MyTab;
   pix         Binary_Integer   := 0;
   iCtrPos     Number           := 0;
   iHead       Number(1)        := 0;
Begin
   pix           := 0;
   iCtrPos       := 1;
   For x In c1 LOOP
          Declare
            CURSOR c2 Is
             Select a.Tgt_Tbl_Nm
                   ,a.Src_Nm
                   ,a.Num_Cols
                   ,b.*
             From   Ops_Meta_Data_sub_Rtns        a
                   ,Ops_Meta_Data_sub_Rtn_Col_Map b
             Where  a.opn_module         = x.opn_module
               And  a.opn_step_id        = x.opn_step_id
               And  a.opn_type           = x.opn_type
               And  b.opn_module         = a.opn_module
               And  b.opn_step_id        = a.opn_step_id
               And  b.opn_type           = a.opn_type
               And  b.rtn_sub_id         = a.rtn_sub_id
             Order By a.opn_type, a.rtn_sub_id, b.col_seq;
          Begin
             pix               := pix + 1;
             For x2 In c2 LOOP
               If ( x.opn_type = 'Loader' ) Then
                  If ( iHead = 0 ) Then
                      MyTabCol(pix) := '         ';
                      pix           := pix + 1;
                      MyTabCol(pix) := 'Load Data';
                      pix           := pix + 1;
                      MyTabCol(pix) := 'INFILE ' || chr(39) || x2.src_nm || chr(39);
                      pix           := pix + 1;
                      MyTabCol(pix) := 'Into Table ' || x2.Tgt_Tbl_Nm;
                      pix           := pix + 1;
                      MyTabCol(pix) := 'Append ';
                      pix           := pix + 1;
                      MyTabCol(pix) := ' Fields Terminated By ' ||  chr(39) || ',' || chr(39) || ' Optionally Enclosed By '
||
chr(39) || '"' || chr(39);
                      pix           := pix + 1;
                      MyTabCol(pix) := 'Trailing NullCols ';
                      pix           := pix + 1;
                      MyTabCol(pix) := '( ';
                      pix           := pix + 1;
                      iHead         := 1;
                  End If;
                 If ( iCtrPos   != x2.Num_Cols ) Then
                    MyTabCol(pix) := x2.col_name || '    ' ||  x2.col_function || ',';
                 Else
                    MyTabCol(pix) := x2.col_name || '    ' ||  x2.col_function;
                    pix      := pix     + 1;
                    MyTabCol(pix) := ') ';
                    iHead         := 0;
                    iCtrPos       := 0;
                 End If;
                 pix      := pix     + 1;
                 iCtrPos  := iCtrPos + 1;
               Else
                  If ( x.opn_type = 'SQL-TRUNCATE STAGE' ) Then
                    EXECUTE IMMEDIATE x2.col_function;
                  End If;
               End If;
            End Loop;
            If ( x.opn_type = 'Loader' ) Then
                iCtrPos   := 0;
               For i In MyTabCol.FIRST..MyTabCol.LAST LOOP
                  Dbms_Output.Put_Line (MyTabCol(i));
               End Loop;
            End If;
          End;
   End Loop;
End PR_EXEC_METADATA;
Begin
  PR_EXEC_METADATA ('MY_SYS');
End;
---- OUTPUT of the SCRIPT
Load Data
INFILE '/users/shailender/CTL/MY_SYS/METADATA/data_a.dat'
Into Table TEST
Append
Fields Terminated By ',' Optionally Enclosed By '"'
Trailing NullCols
COL1    "TRIM(:COL1)",
COL2    "TRIM(:COL2)",
COL4    "TRIM(:COL4)",                                              <----   Last ',' not required + Closing ")"  missing
PL/SQL procedure successfully completed.
Elapsed: 00:00:00.16
SQL>
Shailender Mehta