1 PACKAGE ECE_FLATFILE AUTHID CURRENT_USER AS
2 -- $Header: ECEGENS.pls 115.0 99/07/17 05:18:10 porting ship $
3
4 nMaxColWidth NUMBER := 400; -- ****** IMPORTANT ********
5 TYPE CharTable IS TABLE OF VARCHAR2(400) INDEX BY BINARY_INTEGER; -- ** Make sure you change this 400 too,
6 TYPE NumTable IS TABLE OF NUMBER INDEX BY BINARY_INTEGER; -- if nMaxColWidth changed
7
8 PROCEDURE select_clause(
9 cTransaction_Type IN VARCHAR2,
10 cCommunication_Method IN VARCHAR2,
11 cInterface_Table IN VARCHAR2,
12 cExt_Table OUT VARCHAR2,
13 cInt_Table OUT CharTable,
14 cInt_Column OUT CharTable,
15 nRecord_Num OUT NumTable,
16 nData_Pos OUT NumTable,
17 nCol_Width OUT NumTable,
18 iRow_count OUT NUMBER,
19 cSelect_string OUT VARCHAR2,
20 cFrom_string OUT VARCHAR2,
21 cWhere_string OUT VARCHAR2);
22
23
24
25 PROCEDURE write_to_ece_output(
26 cTransaction_Type IN VARCHAR2,
27 cCommunication_Method IN VARCHAR2,
28 cInterface_Table IN VARCHAR2,
29 cColumn IN CharTable,
30 cReport_data IN CharTable,
31 nRecord_Num IN NumTable,
32 nData_pos IN NumTable,
33 nData_width IN NumTable,
34 iData_count IN NUMBER,
35 iOutput_width IN INTEGER,
36 iRun_id IN INTEGER);
37
38
39 PROCEDURE Find_pos(
40 cColumn_Name IN CharTable,
41 nColumn_count IN NUMBER,
42 cIn_text IN VARCHAR2,
43 nPos OUT NUMBER);
44
45 END ECE_FLATFILE;