297: xProgress VARCHAR2(30);
298: v_LevelProcessed VARCHAR2(40);
299:
300:
301: l_header_tbl ece_flatfile_pvt.Interface_tbl_type;
302: l_line_tbl ece_flatfile_pvt.Interface_tbl_type;
303: l_location_tbl ece_flatfile_pvt.Interface_tbl_type;
304: l_key_tbl ece_flatfile_pvt.Interface_tbl_type;
305:
298: v_LevelProcessed VARCHAR2(40);
299:
300:
301: l_header_tbl ece_flatfile_pvt.Interface_tbl_type;
302: l_line_tbl ece_flatfile_pvt.Interface_tbl_type;
303: l_location_tbl ece_flatfile_pvt.Interface_tbl_type;
304: l_key_tbl ece_flatfile_pvt.Interface_tbl_type;
305:
306: Header_sel_c INTEGER;
299:
300:
301: l_header_tbl ece_flatfile_pvt.Interface_tbl_type;
302: l_line_tbl ece_flatfile_pvt.Interface_tbl_type;
303: l_location_tbl ece_flatfile_pvt.Interface_tbl_type;
304: l_key_tbl ece_flatfile_pvt.Interface_tbl_type;
305:
306: Header_sel_c INTEGER;
307: Line_sel_c INTEGER;
300:
301: l_header_tbl ece_flatfile_pvt.Interface_tbl_type;
302: l_line_tbl ece_flatfile_pvt.Interface_tbl_type;
303: l_location_tbl ece_flatfile_pvt.Interface_tbl_type;
304: l_key_tbl ece_flatfile_pvt.Interface_tbl_type;
305:
306: Header_sel_c INTEGER;
307: Line_sel_c INTEGER;
308: Location_sel_c INTEGER;
378: substrb(cStat_Type,1,6) || '-' ||
379: substrb(CMovement_Type,1,2);
380:
381: xProgress := 'MVSTOB-20-1010';
382: ece_flatfile_pvt.INIT_TABLE(cTransaction_Type,
383: cHeader_Interface,
384: NULL,
385: FALSE,
386: l_header_tbl,
392: xProgress := 'MVSTOB-20-1025';
393: iKey_count := l_header_tbl.COUNT;
394:
395: xProgress := 'MVSTOB-20-1030';
396: ece_flatfile_pvt.INIT_TABLE(cTransaction_Type,
397: cLine_Interface,
398: NULL,
399: TRUE,
400: l_Line_tbl,
400: l_Line_tbl,
401: l_key_tbl);
402:
403: xProgress := 'MVSTOB-20-1040';
404: ece_flatfile_pvt.INIT_TABLE(cTransaction_Type,
405: cLocation_Interface,
406: NULL,
407: TRUE,
408: l_Location_tbl,
642: -- everything to varchar2.
643: -- ******************************************************
644:
645: xProgress := 'MVSTOB-20-1290';
646: ece_flatfile_pvt.DEFINE_INTERFACE_COLUMN_TYPE(Header_sel_c,
647: cHeader_select,
648: ece_extract_utils_PUB.G_MaxColWidth,
649: l_Header_tbl);
650:
648: ece_extract_utils_PUB.G_MaxColWidth,
649: l_Header_tbl);
650:
651: xProgress := 'MVSTOB-20-1300';
652: ece_flatfile_pvt.DEFINE_INTERFACE_COLUMN_TYPE(Line_sel_c,
653: cLine_select,
654: ece_extract_utils_PUB.G_MaxColWidth,
655: l_Line_tbl);
656:
654: ece_extract_utils_PUB.G_MaxColWidth,
655: l_Line_tbl);
656:
657: xProgress := 'MVSTOB-20-1310';
658: ece_flatfile_pvt.DEFINE_INTERFACE_COLUMN_TYPE(Location_sel_c,
659: cLocation_select,
660: ece_extract_utils_PUB.G_MaxColWidth,
661: l_Location_tbl);
662:
770: -- store internal values in pl/sql table
771: -- **************************************
772:
773: xProgress := 'MVSTOB-20-1420';
774: ece_flatfile_pvt.ASSIGN_COLUMN_VALUE_TO_TBL(Header_sel_c,
775: 0,
776: l_header_tbl,
777: l_key_tbl);
778:
852: -- store values in pl/sql table
853: -- ****************************
854:
855: xProgress := 'MVSTOB-20-1550';
856: ece_flatfile_pvt.ASSIGN_COLUMN_VALUE_TO_TBL(Line_sel_c,
857: iHeader_count,
858: l_line_tbl,
859: l_key_tbl);
860:
989: -- store values in pl/sql table
990: -- ****************************
991:
992: xProgress := 'MVSTOB-20-1660';
993: ece_flatfile_pvt.ASSIGN_COLUMN_VALUE_TO_TBL(Location_sel_c,
994: iHeader_count + iLine_count,
995: l_location_tbl,
996: l_key_tbl);
997:
1151:
1152: xProgress VARCHAR2(80);
1153: v_LevelProcessed VARCHAR2(40);
1154:
1155: l_header_tbl ece_flatfile_pvt.Interface_tbl_type;
1156: l_line_tbl ece_flatfile_pvt.Interface_tbl_type;
1157: l_location_tbl ece_flatfile_pvt.Interface_tbl_type;
1158:
1159: c_header_common_key_name VARCHAR2(40);
1152: xProgress VARCHAR2(80);
1153: v_LevelProcessed VARCHAR2(40);
1154:
1155: l_header_tbl ece_flatfile_pvt.Interface_tbl_type;
1156: l_line_tbl ece_flatfile_pvt.Interface_tbl_type;
1157: l_location_tbl ece_flatfile_pvt.Interface_tbl_type;
1158:
1159: c_header_common_key_name VARCHAR2(40);
1160: c_line_common_key_name VARCHAR2(40);
1153: v_LevelProcessed VARCHAR2(40);
1154:
1155: l_header_tbl ece_flatfile_pvt.Interface_tbl_type;
1156: l_line_tbl ece_flatfile_pvt.Interface_tbl_type;
1157: l_location_tbl ece_flatfile_pvt.Interface_tbl_type;
1158:
1159: c_header_common_key_name VARCHAR2(40);
1160: c_line_common_key_name VARCHAR2(40);
1161: c_location_key_name VARCHAR2(40);
1243: -- tables. I am using ROWID to tell me which row in the interface table is
1244: -- being written to the output table, thus, can be deleted.
1245:
1246: xProgress := 'MVSTOB-10-1000';
1247: ece_flatfile_pvt.select_clause(cTransaction_Type,
1248: cCommunication_Method,
1249: cHeader_Interface,
1250: cHeader_X_Interface,
1251: l_header_tbl,
1254: cHeader_from,
1255: cHeader_where);
1256:
1257: xProgress := 'MVSTOB-10-1010';
1258: ece_flatfile_pvt.select_clause(cTransaction_Type,
1259: cCommunication_Method,
1260: cLine_Interface,
1261: cLine_X_Interface,
1262: l_line_tbl,
1265: cLine_from,
1266: cLine_where);
1267:
1268: xProgress := 'MVSTOB-10-1010';
1269: ece_flatfile_pvt.select_clause(cTransaction_Type,
1270: cCommunication_Method,
1271: cLocation_Interface,
1272: cLocation_X_Interface,
1273: l_location_tbl,
1538: -- everything to varchar2.
1539: -- ******************************************************
1540:
1541: xProgress := 'MVSTOB-10-1270';
1542: ece_flatfile_pvt.DEFINE_INTERFACE_COLUMN_TYPE(Header_sel_c,
1543: cHeader_select,
1544: ece_flatfile_pvt.G_MaxColWidth,
1545: l_header_tbl);
1546:
1540:
1541: xProgress := 'MVSTOB-10-1270';
1542: ece_flatfile_pvt.DEFINE_INTERFACE_COLUMN_TYPE(Header_sel_c,
1543: cHeader_select,
1544: ece_flatfile_pvt.G_MaxColWidth,
1545: l_header_tbl);
1546:
1547: -- ***************************************************
1548: -- Need rowid for delete (Header Level)
1558: iHeader_count + 2,
1559: rHeader_X_rowid);
1560:
1561: xProgress := 'MVSTOB-10-1310';
1562: ece_flatfile_pvt.DEFINE_INTERFACE_COLUMN_TYPE(Line_sel_c,
1563: cLine_select,
1564: ece_flatfile_pvt.G_MaxColWidth,
1565: l_line_tbl);
1566:
1560:
1561: xProgress := 'MVSTOB-10-1310';
1562: ece_flatfile_pvt.DEFINE_INTERFACE_COLUMN_TYPE(Line_sel_c,
1563: cLine_select,
1564: ece_flatfile_pvt.G_MaxColWidth,
1565: l_line_tbl);
1566:
1567: -- ***************************************************
1568: -- Need rowid for delete (Line Level)
1578: iLine_count + 2,
1579: rLine_X_rowid);
1580:
1581: xProgress := 'MVSTOB-10-1340';
1582: ece_flatfile_pvt.DEFINE_INTERFACE_COLUMN_TYPE(Location_sel_c,
1583: cLocation_select,
1584: ece_flatfile_pvt.G_MaxColWidth,
1585: l_location_tbl);
1586:
1580:
1581: xProgress := 'MVSTOB-10-1340';
1582: ece_flatfile_pvt.DEFINE_INTERFACE_COLUMN_TYPE(Location_sel_c,
1583: cLocation_select,
1584: ece_flatfile_pvt.G_MaxColWidth,
1585: l_location_tbl);
1586:
1587:
1588: -- ***************************************************
1649: -- store values in pl/sql table
1650: -- ******************************
1651:
1652: xProgress := 'MVSTOB-10-1400';
1653: ece_flatfile_pvt.ASSIGN_COLUMN_VALUE_TO_TBL(Header_sel_c,
1654: l_header_tbl);
1655:
1656: xProgress := 'MVSTOB-10-1410';
1657: DBMS_SQL.COLUMN_VALUE(Header_sel_c,
1663: iHeader_count + 2,
1664: rHeader_X_rowid);
1665:
1666: xProgress := 'MVSTOB-10-1430';
1667: ece_flatfile_pvt.Find_pos(l_header_tbl,
1668: 'TRANSACTION_RECORD_ID',
1669: nTrans_rhid_pos);
1670: ntransaction_header_id := l_header_tbl(nTrans_rhid_pos).value;
1671:
1670: ntransaction_header_id := l_header_tbl(nTrans_rhid_pos).value;
1671:
1672: --Bug # 952306
1673: xProgress := 'MVSTOB-10-1440';
1674: ece_flatfile_pvt.Find_pos(l_header_tbl,
1675: 'TRANSLATOR_CODE',nTrans_code_pos);
1676:
1677: xProgress := 'MVSTOB-10-1450';
1678: ece_flatfile_pvt.Find_pos(l_header_tbl,
1674: ece_flatfile_pvt.Find_pos(l_header_tbl,
1675: 'TRANSLATOR_CODE',nTrans_code_pos);
1676:
1677: xProgress := 'MVSTOB-10-1450';
1678: ece_flatfile_pvt.Find_pos(l_header_tbl,
1679: c_header_common_key_name,
1680: nHeader_key_pos);
1681:
1682: --Bug # 952306
1693:
1694: ec_debug.pl(3, 'c_file_common_key: ',c_file_common_key);
1695:
1696: xProgress := 'MVSTOB-10-1480';
1697: ece_flatfile_pvt.write_to_ece_output(cTransaction_Type,
1698: cCommunication_Method,
1699: cHeader_Interface,
1700: l_header_tbl,
1701: iOutput_width,
1726: -- store values in pl/sql table
1727: -- ***************************************************
1728:
1729: xProgress := 'MVSTOB-10-1530';
1730: ece_flatfile_pvt.ASSIGN_COLUMN_VALUE_TO_TBL (Line_sel_c,
1731: l_line_tbl);
1732:
1733: xProgress := 'MVSTOB-10-1533';
1734: DBMS_SQL.COLUMN_VALUE(Line_sel_c,
1740: iLine_count + 2,
1741: rLine_X_rowid);
1742:
1743: xProgress := 'MVSTOB-10-1445';
1744: ece_flatfile_pvt.Find_pos(l_line_tbl,
1745: 'TRANSACTION_RECORD_ID',
1746: nTrans_rlid_pos);
1747: ntransaction_line_id := l_line_tbl(nTrans_rlid_pos).value;
1748:
1746: nTrans_rlid_pos);
1747: ntransaction_line_id := l_line_tbl(nTrans_rlid_pos).value;
1748:
1749: xProgress := 'MVSTOB-10-1540';
1750: ece_flatfile_pvt.Find_pos(l_line_tbl,
1751: c_line_common_key_name,
1752: nLine_key_pos);
1753:
1754: --Bug # 952306
1766: RPAD(' ',22);
1767: ec_debug.pl(3, 'c_file_common_key: ',c_file_common_key);
1768:
1769: xProgress := 'MVSTOB-10-1560';
1770: ece_flatfile_pvt.write_to_ece_output(cTransaction_Type,
1771: cCommunication_Method,
1772: cLine_Interface,
1773: l_line_tbl,
1774: iOutput_width,
1794: -- store values in pl/sql table
1795: -- ***************************************************
1796:
1797: xProgress := 'MVSTOB-10-1600';
1798: ece_flatfile_pvt.ASSIGN_COLUMN_VALUE_TO_TBL (Location_sel_c,
1799: l_location_tbl);
1800:
1801: xProgress := 'MVSTOB-10-1603';
1802: DBMS_SQL.COLUMN_VALUE(Location_sel_c,
1816:
1817: ec_debug.pl(3, 'c_file_common_key: ',c_file_common_key);
1818:
1819: xProgress := 'MVSTOB-10-1630';
1820: ece_flatfile_pvt.write_to_ece_output(cTransaction_Type,
1821: cCommunication_Method,
1822: cLocation_Interface,
1823: l_location_tbl,
1824: iOutput_width,