The following lines contain the word 'select', 'insert', 'update' or 'delete':
debug_mode_on_select BOOLEAN := FALSE;
SELECT key_column_name
FROM ece_interface_tables
WHERE transaction_type = p_transaction_type AND
key_column_name IS NOT NULL
ORDER BY output_level;
t_tran_attribute_tbl.DELETE;
PROCEDURE select_clause(
cTransaction_Type IN VARCHAR2,
cCommunication_Method IN VARCHAR2,
cInterface_Table IN VARCHAR2,
cExt_Table OUT NOCOPY VARCHAR2,
p_Interface_tbl OUT NOCOPY interface_tbl_type,
p_common_key_name OUT NOCOPY VARCHAR2,
cSelect_string OUT NOCOPY VARCHAR2,
cFrom_string OUT NOCOPY VARCHAR2,
cWhere_string OUT NOCOPY VARCHAR2,
p_output_level IN VARCHAR2 DEFAULT NULL,
cMapCode IN VARCHAR2 DEFAULT NULL) IS
xProgress VARCHAR2(30);
cSelect_stmt VARCHAR2(32000) := 'SELECT ';
SELECT eit.interface_table_name table_name,
eit.extension_Table_Name ext_table_name,
eic.interface_column_name column_name,
eic.column_name ext_column_name,
eic.record_number record_number,
eic.position position,
eic.width new_width,
eic.record_layout_code,
eic.record_layout_qualifier,
eic.interface_column_id int_col_id,
eic.width width,
eic.data_type col_type
FROM ece_interface_columns eic,
ece_interface_tables eit
WHERE eit.transaction_type = cTransaction_Type AND
eit.interface_table_name = cInterface_Table AND
eit.output_level = NVL(p_output_level,eit.output_level) AND
eit.interface_table_id = eic.interface_table_id AND
eit.map_id = cMap_ID AND
(eic.interface_column_name IS NOT NULL OR
eic.column_name IS NOT NULL)
ORDER BY eic.record_number,
eic.position;
ec_debug.push('ECE_FLATFILE_PVT.SELECT_CLAUSE');
SELECT map_id INTO iMap_ID
FROM ece_mappings
WHERE map_code = 'EC_' || cTransaction_type || '_FF';
SELECT map_id INTO iMap_ID
FROM ece_mappings
WHERE map_code = cMapCode;
cSelect_stmt := cSelect_stmt || ' ' || cWord1 || cTable_Name || '.' ||
cColumn_Name || cWord2 || ',';
SELECT eit.extension_table_name, -- select extension table name
eit.key_column_name
INTO cExtension_Table,
p_common_key_name
FROM ece_interface_tables eit
WHERE eit.transaction_type = cTransaction_Type AND
eit.interface_table_name = cInterface_Table AND
eit.map_id = iMap_ID AND
eit.output_level = NVL(p_output_level,eit.output_level);
cSelect_string := RTRIM(cSelect_stmt, ',');
ec_debug.pl(3,'Select statement : ',cSelect_string);
ec_debug.pop('ECE_FLATFILE_PVT.SELECT_CLAUSE');
ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','ECE_FLATFILE_PVT.SELECT_CLAUSE');
END select_clause;
cInsert_stmt VARCHAR2(32000);
cInsert_stmt := cInsert_stmt || substr(rpad(nvl(p_Interface_tbl(i).value,' '),
TO_CHAR(p_Interface_tbl(i).data_length),' '),1,
p_Interface_tbl(i).data_length);
cInsert_stmt := l_common_key || LPAD(NVL(p_Interface_tbl(iRow_num).Record_num,0),4,'0') ||
RPAD(NVL(p_Interface_tbl(iRow_num).layout_code,' '),2) ||
RPAD(NVL(p_Interface_tbl(iRow_num).record_qualifier,' '),3) || cInsert_stmt;
INSERT INTO ece_output(run_id,line_id,text) VALUES
(iRun_id,ece_output_lines_s.NEXTVAL,SUBSTR(cInsert_stmt,1,iOutput_width));
cInsert_stmt := NULL;
cInsert_stmt := l_common_key || LPAD(NVL(p_Interface_tbl(iRow_num).Record_num,0),4,'0') ||
RPAD(NVL(p_Interface_tbl(iRow_num).layout_code,' '),2) ||
RPAD(NVL(p_Interface_tbl(iRow_num).record_qualifier,' '),3) || cInsert_stmt;
INSERT INTO ece_output(run_id,line_id,text) VALUES
(iRun_id,ece_output_lines_s.NEXTVAL,SUBSTR(cInsert_stmt,1,iOutput_width));
SELECT eic.conversion_group_id,
eic.conversion_sequence,
eit.interface_table_name,
eic.interface_column_name,
eic.base_table_name,
eic.base_column_name,
eic.xref_category_id,
eic.xref_key1_source_column,
eic.xref_key2_source_column,
eic.xref_key3_source_column,
eic.xref_key4_source_column,
eic.xref_key5_source_column,
eic.data_type,
eic.width data_length,
eic.record_number, -- bug 2823215
eic.position,
eic.record_layout_code,
eic.record_layout_qualifier,
eic.column_name ext_column_name
FROM ece_interface_columns eic,
ece_interface_tables eit
WHERE eit.transaction_type = cTransaction_type AND
eit.interface_table_name = cInt_tbl_name AND
eic.interface_table_id = eit.interface_table_id AND
eit.output_level = NVL(cOutput_level,eit.output_level) AND
eit.map_id = cMap_ID
ORDER BY eic.record_number,
eic.position;
SELECT map_id INTO iMap_ID
FROM ece_mappings
WHERE map_code = 'EC_' || cTransaction_type || '_FF';
SELECT map_id INTO iMap_ID
FROM ece_mappings
WHERE map_code = cMapCode;